!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP PP PP H(PP P@#HP$A#($AP(@ wh ** CHARTS PLOTTING PROGRAM **i ** PRODUCT OF EACA INTERNATIONAL LTD. **Mi ** ALL RIGHTS RESERVED. **Yi: 600ri A(12),B(18),B$(18)i: " ** CHARTS PLOTTING PROGRAM **":: 2000i "TYPE IN (1) FOR DATA ENTRY,"i " (2) FOR CHART PLOTTING."j : "ENTER 1 OR 2 ONLY ";AN 1070:UB(UB$):LB(LB$)ak@ 72kA "LOADING STARTS... ": #1,S$kB 68kC "LOADING STARTS... ": #2,S$kD 700kE I1 NNkFA(I)B(I2)kG IkH UBLB 900lIF30(UBLB) lQlZ @ 130,UB;7ld @ 514,((UBLB)2);Gln @ 834,LB;OlI1il X16 (NN1)8 8l Y40 40((A(I)LB)F) 1l, (X,Y)l6 (X1,Y)l@ (X2,Y)lJ (X3,Y)lT (X4,Y)l^ Yl @ J!,IlJ!J!4lII1m Xm "CONTINUE ";CN$8m CN$"YES" CN$"Y" Um CN$"NO" CN$"N" _m 440hmT12umLS(S$)mNN$(S$,3)mS$(S$,4,LS3)mNNM(NN$):NNNN100m I1 NN2mCT$(S$,T1)mCT(CT$)mLSLST1nS$(S$,T11,LS)nB$(I)(S$,CT))n B(I)(B$(I))6nLSLSCTKn S$(S$,CT1,LS)Sn* I_n4LBB(1)kn>UBB(2)qnHn "LOWER BOUND AND UPPER BOUND NOT COMPATIBLE."nnnn "-- DATA ENTRY --"n:"THIS PROGRAM STORES A SET OF DATA"o " ON CASSETTE TAPE."Lo$: "PLEASE LOAD A TAPE IN CASSETTE NO.1"o& "PRESS BOTH THE 'PLAY' & 'REC' BUTTONS ON THE CASSETTE.":o) 1070: 1291o. "HOW MANY DATA YOU HAVE (MAX. 12; MIN. 2) ";NNo8 NN 2 NN 12 1070p9: "ENTER DATA NUMBER 1": A(1)3pBUB(A(1)):LB(A(1))BpL I2 NN_pV "ENTER DATA NUMBER ";Iwp` A(I):A(I)(A(I))pj A(I)UB UBA(I)pt A(I)LB LBA(I)p~ IpLB$(LB)pUB$(UB)pL1(UB$):L1L12pL2(LB$):L2L22qB1$(UB$,2)qB2$(LB$,2))qUB(B1$)19qLB(B2$)1GqUB$(UB)UqLB$(LB)hq L10 1261xq B11 L1qUB$UB$"0"q B1q L20 q B21 L2qLB$LB$"0"q B2q q NNNN100:S$(NN):NNNN100rCL(LB$)rCL$(CL) rS$S$CL$LB$.rCL(UB$)lYY(64)1sl :: "IF YOU NEED INSTRUCTIONS, TYPE IN 7 .":l 2300: 2500l 2200l"E0450:D035:M03l,X5X1:Y5Y1: 2060: 1400: 3500l KN0 4500l @52,"COMMAND ";: CD:m CD0 CD7 400@m CD 600,1000,1200,1500,1800,5000,6000am: "WHERE ARE WE HEADING ?"m: "VECTOR X-COORDINATE ";XXm "VECTOR Y-COORDINATE ";YYm 2300: 2500m 3600m 2200: XRX1 YRY1 472n 3800:: "VOYAGE COMPLETED."1n 1400: 4000:X5X1:Y5Y1: 2060: 601Hn 660: 3500: 400kn 601:X5X1:Y5Y1: 2060: 660n 3800:: "VOYAGE COMPLETED.": 1400n 4000: 3500n 400nX 601: 642nY Y0 7nb X0 7nlQ$(X,Y)" "nv Xn YooX5X1:Y5Y1: 2060.oQ$(QX,QY)"<*>">o 660: 840Po K20 720`o K31 K2noKX(8)1|oKY(8)1o Q$(KX,KY) " " 680 : Q$(KX,KY)"+O+"o K3o B20 780o B31 B2oBX(8)1oBY(8)1"p Q$(BX,BY) " " 740 : Q$(BX,BY)">=<"+p B3

 S3p?pH:: 950pR Y7 0 1p\ Y;"!";pf X0 7pp X44)Q$(X,Y);qz Xq 35) "!"q Y"q 950Mq " 0 1 2 3 4 5 6 7"Xq 1440cq 3500mq 400q " +---+---+---+---+---+---+---+---+"qq Y2Y11 Y11 1qF20: Y20 Y27 F21q 2000q 2010r X2X11 X11"rF10: X20 X27 F11Lr$ F10 F20 2020 : C$" "`r. "! ";C$;" ";ir8 X2{rB "!": 2010 rL Y2rV 2000rW "LONG RANGE SCAN ON QUADRANT:";X1;",";Y1r` 601:X5X1:Y5Y1: 2060:Q$(QX,QY)"<*>": 660: 400 s: K20 4060&s "LASER BEAM READY."Ks: "TOTAL ENERGY AVAILABLE:";E0_s E0100 1350s: "ENTER TARGET LOCATION IN THE SECTOR."s " X-COORDINATE: ";XTs " Y-COORDINATE: ";YTs XT 0 XT 7 YT 0 YT 7 1212(t: "HOW MANY UNITS DO YOU WANT TO FIRE ";E1;t E10 4300Nt E1E0 1210wt Q$(XT,YT)"+O+" 1270 : 1340t 400tE0E0E1: 3620:E1E1(((X1XT)(Y1YT))2)tSX10: 1441: SX10 400t XSXuKEEK(A(X),B(X)): KE E1 1310 : 1330u 400XuEK(A(X),B(X))EK(A(KN1),B(KN1)):A(X)A(KN1):B(X)B(KN1)u(KNKN1:G(X1,Y1)G(X1,Y1)30: 4400: @ 840, "KLINGON DESTROYED.":u2EK(A(X),B(X))EK(A(X),B(X))E1: "KLINGON DAMAGED !":v<E0E0E1: 3620: " * YOU MISSED !! *":7vF: "WARNING : YOU MAY RUN OUT OF ENERGY."]vP "DO YOU STILL WANT TO FIRE ";A$|vZ A$"YES" A$"Y" 1220vd A$"NO" A$"N" 400vn 1360vx: "CONDITION : ";v K20 1430 : "GREEN"vv " ** RED **"wSX10: 1441: 1470w X0 KN1>w X1A(X) Y1B(X) SXXFw XLw_w SX10 1491zwEL(20): EL7 EL7wE0E0EL:EK(A(SX),B(SX))EK(A(SX),B(SX))ELw EK(A(SX),B(SX))0 4600w " ";EL;"UNITS OF PHASER DAMAGED BY KLINGON."x,x: M00 4200 : K20 4060=xR50:M0M01Wx QX5 R17 : R16qx QY5 R27 : R26x" QX2 R30 : R31x, QY2 R40 : R41x6 YR3 R1x@ XR4 R2xJ Q$(X,Y)"+O+" R50 1630xT 1680x^R51#yh 4400: @ 840,"KLINGON DESTROYED."CyiSX10: 1441: SX10 1680yjXSX:EK(A(X),B(X))EK(A(KN1),B(KN1)):A(X)A(KN1):B(X)B(KN1)yrKNKN1yG(X1,Y1)G(X1,Y1)30y Xy Yy R50 " ** YOU MISSED !"y 400z:: " *** ENTERPRISE DATA BASE SYSTEM ***"@zN: " -- SHIP STATUS UPDATE --"czX: " REMAINING KLINGONS :";KNzb: " REMAINING STARDATES:";D0zl: " REMAINING STARBASES:";BNzv: " REMAINING MISSILES :";M0z: " REMAINING ENERGY :";E0z 400${ "+---------+---------+---------+":N{ "! ! ! !":^{X5X2:Y5Y2n{MP(X5,Y5)1z{ 2060 {C$(K2)(B2)(S2){{ K20:B20:S20{ G(X5,Y5)0 2150{SAG(X5,Y5){  G(X5,Y5)15 2100|*G(X5,Y5)G(X5,Y5)30:K2K21: 2080/|4 G(X5,Y5)5 2120W|>G(X5,Y5)G(X5,Y5)10:B2B21: 2100p|H G(X5,Y5)0 2140|RG(X5,Y5)G(X5,Y5)1:S2S21: 2120|\G(X5,Y5)SA|f|XRX1:X1X1X6:QXQXX7|YRY1:Y1Y1Y6:QYQYY7| QX8 2260 } QX0 2280} QY8 2270/} QY0 2290V} X10 X17 Y10 Y17 3000\}r}QXQX8:X1X11:}QYQY8:Y1Y11:}QXQX8:X1X11:}QYQY8:Y1Y11:} XX0 N11 : N10}C10:XX(XX)} X1 8} XXXX8 ~ XX0 2360~$ C1C11$~. 23700~8 XXXX8C~B XX8 2390K~L X`~V XX8 D0D01{~W D0D0C1: N11 2420~` X6C1:X7XX~j ~t C1C1~~ XXXX~ ~ YY0 N21 : N20~ C10:YY(YY)~ Y1 8~ YYYY8 YY0 2570 C1C11 2580) YYYY8< YY8 2600D YY( YY8 D0D01t) D0D0C1: N21 26302 Y6C1:Y7YY< F C1C1P YYYYZ  : "OUT OF GALAXY": 3720: " --- OUR PRESENT LOCATION ---" " QUADRANT:";X1;",";Y1;, " SECTOR :";QX;","QY< MP(X1,Y1)1B XE0E0(XX)(YY)k$ E00 3700~. D00 37108t "OUT OF ENERGY": 3720:р~ "SPENT TOO MANY DAYS IN SPACE": 3720:: "THERE ARE ONLY";KN;"KLINGONS REMAIN": Q$(QX,QY)"+O+" 3850; Q$(QX,QY)" * " 3860X Q$(QX,QY)">=<" 3870^  "COLLISION WITH A KLINGON !":KNKN1: 3720: "COLLISION WITH A STAR !": 3720: "COLLISION WITH A STARBASE !": 3720: QX10 Q$(QX1,QY)">=<" 4020> QX17 Q$(QX1,QY)">=<" 4020i QY10 Q$(QX,QY1)">=<" 4020 QY17 Q$(QX,QY1)">=<" 4020: " -- DOCKED --"ĂE0450:M03BNBN1:G(X1,Y1)G(X1,Y1)10 "NOTHING TO SHOOT AT !": 4000h: "NO MORE MISSILE.": 400N "INVALID INPUT !": 4000: X1 8: @ 464, " ** ** BOOM ** **";: K1 50:σ2 @464, " ": K1 50: K,X4 @ 464, " ** ** BOOM ** **":: "MISSION ACCOMPLISHED.":: "YOU DID A GREAT JOB !":YSX10: 1441: SX10 400XSX: 1310: "( KLINGON'S ENERGY USED UP. )": 400: "STAR SHIP ENTERPRISE LOG RECORD.":ʄ 5140݄ Y7 0 1ꄦ Y;"!"; X0 7 MP(X,Y)0 5100+X5X:Y5Y: 2060: 2040< X74)C$;D XR 59)"!"Z Ye  5140  " 0 1 2 3 4 5 6 7"  3500  400 " +------+------+------+------+------+------+------+------+"7p: " * SPACE SHIP OPERATION INSTRUCTIONS:"Zz " RADAR PATTERNS :-" " SPACE SHIP KLINGON STAR BASE STAR"ņ " <*> +O+ >=< *"↘ " COMMANDS :-" " 0. MOVE THE SPACE SHIP."' " 1. SHORT RANGE SCAN."G " 2. LONG RANGE SCAN."w " 3. SHOOT A KLINGON WITH LASER BEAM." " 4. SHOOT A KLINGON WITH A MISSILE."Ї " 5. SPACE SHIP CURRENT STATUS." " 6. SPACE SHIP TRAVEL RECORD."+ " 7. SPACE SHIP OPERATION INSTRUCTIONS."h "SHIP MOTION: X - AXIS CONTROLS HORIZONTAL MOTION." " Y - AXIS CONTROLS VERTICAL MOTION." 400 5. SPACE::>wH:~* [@" ͼ*DM)) [h*@^#V#++z( s#r#*@*@Rͦ*@+!" 9"*@" "ͫ^#V#z(^#V#S@"+ͯ#(5*@" |^#V#d+~! !s#r#ͺʥL¥D¥̻Q(#ͫ+V* N#F#++R " x(!ѿR"| DM* " DM*s#r#+++~* +w*VK* *w#wQ D2" !#%A%K͐F  F&~%08A_!~#foqF#~+~2ЎK B+}|§~FFF^F^N* F #Nw ~տe (Jh(7͊ͽ;͊GDM C[SͽJ͊"ͺ͊5 ͊>ͺJ͊s#r5b](h ** GRAPHICS PROGRAM **i ** PRODUCT OF EACA INTERNATIONAL LTD. **Pi ** ALL RIGHTS RESERVED **ci C0:Z10: 140uiC 20 480{ii( Mi2 L1 Mi< A1,N,YiF XA1 A1NiP (X,Y)iZ Xid Lii @ 915,"* * VIDEO GENIE SYSTEM * *"jn T1 1000: ZZ52jx T!j'j>jB15560:C150:D64Mj X1 10^j YB BC1jj Y,255|j Y:BBD: Xj Mj L1 Mj A1,N,Yj XA1 A1Nj (X,Y)j Xj L j @296, "S Y S T E M";k @ 915,"* * VIDEO GENIE SYSTEM * *"0k T1 1000: ZZ528k" T>k,Hk6CC1Qk@ 20ZkJ 55kT 22,7,11,22,9,12,24,9,13,26,9,14k^ 28,9,15,30,9,16,32,9,17,34,9,18kh 36,9,19,38,9,20,40,9,21,42,9,22kr 44,9,23,46,9,24,48,9,25,50,9,26l| 52,9,27,54,9,28,56,9,29,58,17,30Cl 60,18,31,62,39,32,64,35,33,66,31,34ml 68,27,35,75,32,11,72,35,12,70,37,13l 68,39,14,66,9,15,65,8,16,64,7,17l 63,7,18,62,7,19,61,8,20,61,7,21l 61,7,22,61,7,23,61,8,24,62,7,25m 63,7,26,64,7,27,65,7,28,66,7,290m 96,11,21,96,11,22,100,7,23,100,7,24Ym 100,7,25,100,7,26,100,7,27,98,9,28zm 96,11,29,94,11,30,92,11,31m5,65,8,16,64,7,17l 63,7,18,62,7,19,61,8,20,61,7,21h ** COST ANALYSIS PROGRAM **i ** PRODUCT OF EACA INTERNATIONAL LTD. **Pi ** ALL RIGHTS RESERVED. **Visi " * COST ANALYSIS *"i: 500i: "ENTER THE TOTAL FIXED COST( OVERHEAD COST ) VALUE ";Fi F 0 30i( " ENTER THE VARIABLE COST PER UNIT ";Vj) V 0.01 40Uj2 " ENTER THE PRODUCTION OR SALE QUANTITY PER MONTH ";Nfj3 N 1 50rj<CFVNj=: " * * * * * *"jF: "THE TOTAL COST OF ";N;" UNITS IS $";CjPjZ "THE AVERAGE COST PER UNIT IS $"; CNk[: " * * * * * *"8kd: "DO YOU NEED MORE ANALYSIS (YES/NO) ";A$ Vkn A$"Y" A$"YES" 140skx A$"N" A$"NO" 310}k 100k: " ENTER THE SELLING PRICE PER UNIT DESIRED ";Uk U0.01 140k:RNUk: " * * * * * *"!l "THE TOTAL REVENUE OF ";N;" UNITS AT $";U4l " IS $";RGlPP(RC)C100Xl PP0 185xl "THAT IS ";PP;"% PROFIT."l 200l "THAT IS ";(PP);"% LOSS."l CR 250lBN: CR 270l: "THE BREAKEVEN POINT CANNOT BE ACHIEVED"+m "IF ALL THE INFORMATION GIVEN ARE CORRECT."5m 310FmB(F(UV))Vm B0 B1`mCBUzm: " * * * * * *"m "THE BREAKEVEN POINT IS ACHIEVED WHEN ";B;" UNITS"m " ARE PRODUCED OR SOLD."m" "THE BREAKEVEN AMOUNT IS $";Cn,:" * * * * * *"@n6 "DO YOU LIKE TO TRY AGAIN (YES/NO) ";A$]n@ A$"Y" A$"YES" 30znJ A$"N" A$"NO" 350nT 310n^n : "DO YOU NEED INSTRUCTIONS (YES/NO) ";A$n A$"YES" A$"Y" 540n A$"NO" A$"N" n 500Fo: "THIS PROGRAM CALCULATES THE BREAKEVEN POINT OF CERTAIN PRODUCT."o& "THE BREAKEVEN POINT IS LOCATED WHERE THE TOTAL REVENUE CAN"o0 "JUST COVER THE TOTAL EXPENSE."o: "THE USER IS EXPECTED TO INPUT THE FOLLOWING DATA:"pD " 1. THE OVERHEAD COST OF THE COMPANY."EpN " 2. THE VARIABLE COST PER UNIT."pX " 3. THE MAXIMUM PRODUCTION QUANTITY PER MONTH."pb: "PRESS THE NEWLINE KEY WHEN READY ";A$plTHEh ** BIO-RHYTHM ANALYSIS PROGRAM ** i ** PRODUCT OF EACA INTERNATIONAL LTD. **Si ** ALL RIGHTS RESERVED. **}i : " ** BIO-RHYTHM ANALYSIS **":i 2000i: A(12),Z$(12)iP4:C1i(Z0i2 I1 12i< A(I)iF 0,31,59,90,120,151,181,212,243,273,304,334jP I7jZ "ENTER THE DATE TO START 30 DAYS' ANALYSIS."[j[ " MONTH";M: M12 M1 91j\ " DAY";D: D31 D1 92j] " YEAR (LAST TWO DIGITS ONLY)";Y: Y0 Y99 93je: " * * * * *":jnM(M)jx Y76 150jD(D1)k 160kD(D1) kY(Y)Bk "ENTER YOUR DATE OF BIRTH."ik " MONTH";M2: M212 M21 171k " DAY";D2: D231 D21 172k " YEAR (LAST TWO DIGITS ONLY)";Y2: Y299 Y20 173kM2(M2)kD2(D21)kY2(Y2)l: " ENTER YOUR NAME";A$/l YY2 230al: "INVALID INPUT !":: "TRY AGAIN.":: 90lZ$(1)"JAN":Z$(2)"FEB":Z$(3)"MAR":Z$(4)"MAR"lZ$(5)"MAY":Z$(6)"JUN":Z$(7)"JUL":Z$(8)"AUG"mZ$(9)"SEP":Z$(10)"OCT":Z$(11)"NOV":Z$(12)"DEC".m: "30 DAYS BIO-RHYTHM ANALYSIS FOR:";A$?m Y76 290qm "STARTING DATE:";Z$(M);D1;",19"((Y),2);{m 295m" "STARTING DATE:";Z$(M);D1;",19"((Y),2);m' " (P=PHYSICAL E=EMOTION I=INTELLIGENT)";n,T(D36525YA(M)0.01M0.03)*n6T2(D236525Y2A(M2)0.01M0.03)5n@XTT2RnJFI(20(6.4X35)0.5)onTFE(20(6.4X28)0.5)n^FP(20(6.4X20)0.5)nhFIFI1.227nrFEFE1.227n|FPFP1.227n(P,FI)n(P,FE)n(P,FP)n EE11 860o EE10 840o II11 820+o II10 800=o PP11 900Oo PP10 880_o C2 700oo C1 600yoDD1oPP4oCC1o C31 470o 300o@50,"CONTINUE";: X$::o X$"YES" X$"Y" 20ooXE1(FE)pbI1(FI)plP1(FP)pv#pE2(FE)0pI2(FI)=pP2(FP)^p E2E10 1100 : 1110p I2I10 1120 : 1130p P2P10 1140 : 1150pp  LIFI LIFI : 920p*p4 HIFI HIFI : 950p> qH LEFE LEFE : 980qR1q\ HEFE HEFE : 10107qfVqp LPFP LPFP : 1040\qz{q HPFP HPFP : 1070qq @128P24,"I";qII11:HIFIqq @960P24,"I";qII10:LIFIqq @128P24,"E";qEE11:HEFErr @960P24,"E";+rEE10:LEFE1rGr @128P24,"P";WrPP11:HPFP]r$sr. @960P24,"P";r8PP10:LPFPrBrLEE11:HEFE:rVEE10:LEFE:r`II11:HIFI:rjII10:LIFI:rtPP11:HPFP:r~PP10:LPFP:!s "DO YOU NEED SOME INSTRUCTIONS ";A$:@s A$"YES" A$"Y" 2040Ys A$"NO" A$"N" ds 2000s "THIS PROGRAM PLOTS 3 CURVES, NAMELY:"s " 1. PHYSICAL CONDITION."s  " 2. EMOTIONAL STABILITY."s " 3. INTELLEGENT POWER."3t : "ACCORDING TO HUMAN BIOLOGIST, THE HUMAN BEHAVIOR HAS"nt* "A DEFINITE PATTERN OR CYCLE WHICH REPEATS WITHIN A"t4 "DEFINITE TIME PERIOD. THEREFORE, IT IS POSSIBLE"t> "TO MANIPULATE THE BEHAVIOR OF A PERSON WITH THE"uH "KNOWLEDGE OF HIS DATE OF BIRTH, AND THE DATE HE">uR "WANTS TO START THE EVALUATION."mu\: "PRESS THE NEWLINE KEY WHEN READY ";A$wuf::NITE TIME PERIOD. THEREFORE, IT IS POSSIBLE"t> "TO MANIPULABEACADEMO00/00/00 ;z&^BOOT SYS` STATS BASBB" STARWAR BASBB# GRAPHICSBASBB  COST BASBB  BIO BASBB]DIR SYS  RECALL CMDBB