C64S tape image fileADP SER1 `BOMBS AWAY SPACE WARS %BITE THE WALL/PING PONGLR>SAUCER ATTACK7HMOTORCYCLE JUMPI UHORSE RACE^MISSLE LAUNCH rCRACK THE SAFE9yHANGMAN LUNAR LANDERE BREAK AWAY ܕPRACTICE PING POiAUTO RACEN aBOMB SQUAD RUN AWAYʰADDITION AND SUB MORTGAGE LOANuDICE THROW!MULTIPLICATION A= PERPETUAL CALENDq CLOCK ]SAVINGS ACCOUNT vDAYS BETWEEN DAY 9RAILROAD de BOMBS AWAY6f (C) 1979 BY ADP SYSTEMSZg 95 W 100 S, LOGAN, UTAH 84321`hi*******************************jn59468,12x ""} 14);"BOMBS AWAY!":: I12000:"DO YOU WANT INSTRUCTIONS (Y/N)?"%A$:A$"Y" A$"N" 1458A$"Y"10000>J 11000Pv********INITIALIZATION**********KB515: (64785)169 KB151: SEE IF 16 OR 32ETBO14:UU2FE49((1)8)D$" "A$"Ò  "'C$"  "IB$" USSR  "o************DRAW BOARD**********"BOMBS FUEL HITS"" *********MAIN BODY**************""":XX1:YY10,35X)A$V6"":Y)B$]Y31:Y0:" "^X34"  ":X0h (KB)6 900rFUFU1:FUFE2500200***********BOMB DROP************6BOBO1:"";:BO)" ":W32768155X:BO5RA1YO042:"":XX1:YY1:VV1gL35X)A$"":Y)B$Y31:Y0:" "xX34"  ":X0 PO(V2)40WV2:((V1)2)40W(V1)2,32:(PO)322000* PO,81C 'FUFU1:FUFE2500I @T "":Z l *****HITTING THE WATER********* FUFU10:(PO)102V0:200: PO,42:HIHI1:"";:31HI)"*":HIU3000 RA15000 V0: 200 *********FUEL LOSS*************< CVCV1:"";:27CV)" ":CV85000G ( FU0:l *******SINKING SHIP************ ""; Y1)"    "; TY0500::"";' Y1)"     ";Q TY0500::"";{ Y1)"    "; TY0500::""; Y1)"   "; TY0500::""; Y1)" ";8 TY0500::"";R Y1)" ";| TY0500::""; Y1)""; ER1" WELL YOU DIED FOR YOUR COUNTRY":3020 "YOU HAVE SAVED THE NATION"" "DO YOU WANT TO TRY AGAIN (Y/N)?"5 I110:A$:J A$:A$"Y" 155] A$"N" 3040c ******CRASHING PLANE*********** "":35X)C$:"" "":ZX017:""; 35X)D$:ZX ""35X)D$;:""35X)"""";.35X)" ȑ"9"";U35X)" ȑ"_"";x35X)" ߑ"35X)""Y(35X)0Y(35X)6ER1:"":3000"YOU HAVE FAILED YOUR COUNTRY":3020'**********INSTRUCTIONS*********'""2'15)"INSTRUCTIONS:"c$'"TO PLAY: THE OBJECT OF THE GAME IS TO".'"SCORE THE REQUIRED NUMBER OF HITS ON THE";8'"BATTLESHIP BEFORE USING UP ALL YOUR"B'"FUEL OR BOMBS, OTHERWISE YOU WILL"L'"CRASH INTO THE SEA (A CERTAIN AND"+V'"UNPLEASANT DEATH).Zo':"THE SPACE KEY IS YOUR BOMB RELEASE.":|t'"PUSH THE 'S' KEY TO START."~' I$: I$"S" 10110'*+"WHAT SKILL LEVEL DO YOU WANT?"+:"(1)NOVICE"+"(2)AVERAGE"+"(3)ABOVE AVERAGE +"(4)PRO",%+U:U0U4 11045Z*+"YOU NEED "2U" HITS TO SINK THE SHIP"d4+::\+"PUSH THE 'S' KEY TO START."f+ I$: I$"S" 11110p+$  SPACE WARS6 (C) 1979 BY ADP SYSTEMSZ 95 W 100 S, LOGAN, UTAH 84321`o 59468,12}""13)"SPACE WARS"( CB12000:2::7 30000<LI32768204010AOLIFX0:Y0K 10000 PFU32846:HI334460U**************BORDER*************9Z""xdX0244040:32768X,160:3276835X,160: n X035:32768X,160: 327684024X,160:x FORX=-40TO-80STEP-40:POKE32768+999-34+X,160:POKE33768-10+X,160:NEXTX0:Y0 A(X)LIX40Y432786,229:327864024,229o32768,205:32803,206:32768995,205:3276899939,20633168,227:3316835,227"FUEL "########Q"HITS] 10000**********MAIN PROGRAM**********COCO1:A$:A$"8"Y12:X10A$"6"X12:Y10A$"2"Y12:X10A$"4"X12:Y10A$" "500*CO25FU,32:FUFU40:CO0: FU3316620000JT((1)10):T0Y21:X20^T1X21:Y20qT2X21:Y20T3Y21:X20FL1010000XXX1X2YYY1Y2MA(X)X18X125000Y8Y125000" "O,32:O1,32:O1,32:O39,32:O41,32:O41,32 Y &O39,32:M,87:M41,85:M39,73:M1,107:M1,115s 'M39,74:M41,75:OM| ,200 "" (33186)32G11 (33185)32G21 ""3 ""X ""| "" &"" 0"" :"" D""! N""? X""\ b""m vG1G20700{ XXX1X2 YYY1Y2 MA(X) Y8Y12 700 X18X12700 O,32:O1,32:O1,32:O39,32:O41,32:O41,32) O39,32:M,87:M41,85:M39,73:M1,107:M1,115C M39,74:M41,75:OM " " " " " " " " " "8 " "Z " "{ " " " " " " " " *" "4G1G20200;10000C>HI,214:HIHI40:G10:G20:HI33646HI33447\CIHIH1:IHRG40000eH200O,32:O1,32:O1,32:O39 ,32:O41,32:O41,32O39,32:FLFL1:200'RN((1)4)1t'RN1X10:Y((1)16)6:FL0:'RN2X16:Y((1)16)6:FL0:9<(RN3Y10:X((1)26)16:FL0:_(RN4Y6:X((1)26)16:FL0:p NYU01000:*N"YOU FAILED IN YOUR TASK, THIS SECTOR"4N"HAS FALLEN TO THE EVIL EMPIRE.">N:"HIT THE 'C'KEY TO TRY AGAIN, OR THE"HN"'Q' KEY TO RETIRE A PUBLIC ENEMY."A\NH(1)H(1)IH:MIMI1:UMUM1:IH0VaN I1110: A$:kfNA$:A$""20070}pNA$"Q"50000uNA$"C"20070zN30400N 600u"DO YOU WANT INSTRUCTIONS? (Y/N)":uA$DuA$"N"30400NuA$"Y"30010u""&u" INSTRUCTIONS"::Du" 8 "Juhu" 46"nuu" 2 "u:"YOU HAVE JUST TAKEN COMMAND OF THE"u"MILLENIUM FALCON. YOUR MISSION IS TO"u"DESTROY ALL OF THE TIE FIGHTERS IN THIS"Nu"SECTOR."::"THIS IS DONE BY MANUEVERING THEM INTO"{u"THE CENTER OF YOUR SIGHTS WITH THE 8,"u"4, 6, AND 2 KEYS."v:"PUSH THE SPACE KEY TO GO ON."v I$: I$" " 30235 v" INSTRUCTIONS(CONT.)":+*v"WHEN YOU HAVE MANUEVERED A TIE FIGHTER"X4v"TO THE CENTER OF YOUR SIGHTS PUSH THE">v"SPACE KEY TO FIRE. ONLY A DIRECT"Hv"HIT AT THE POINT WHERE YOUR TWO LASER"Rv"GUNS MEET WILL DESTROY YOUR ENEMY.":\v"IF YOU DON'T COMPLETE YOUR MISSION"0fv"BEFORE YOU RUN OUT OF FUEL YOUR SHIP"[pv"WILL BE COMPLETELY DESTROYED BY THE"zzv"REMAINING TIE FIGHTERS."v:"HIT THE SPACE KEY TO GO ON."v I$: I$" " 30350v""vRG((1)9)2v"THERE ARE"RG"TIE FIGHTERS IN THIS"v"SECTOR.":v:"PUSH THE SPACE KEY TO STAY IN THIS"gv"SECTOR, OR THE N KEY FOR THE COMPUTER"v"TO CHOOSE A NEW SECTOR."v A$: A$"N" 30400w A$" " 30460w"MAY THE FORCE BE WITH YOU"wVB01000::@X0500::""=J"CONGRATULATIONS, YOU HAVE SAVED THIS"jT"SECTOR FROM THE EVIL GALACTIC EMPIRE."^:"PUSH THE'C'KEY TO CONTINUE YOUR"h"EFFORTS FOR THE REBELLION CAUSE, OR"r"THE 'Q' KEY TO RETIRE IN GLORY. |H(1)H(1)IH:MIMI1:SMSM1:IH0! I1110: A$:)A$;A$"Q"50000PA$"C" 40070[30400c60|PËMI1MI$"MISSION."ZËMI1MI$"MISSIONS."dËSM1SM$"MISSIONS."nËSM1SM$"MISSION."xËUM1UM$"MISSIONS."ËUM1UM$"MISSION."ËH(1)MI1H$(1)"KILL"9ËH(1)MI1H$(1)"KILLS"VÙ"YOU WENT ON";MI""MI$nÙSM"SUCCESFUL ";SM$ÙUM"UNSUCCESFUL."Ù"YOU AVERAGED"H(1)MI""H$(1)" A MISSION."ÀP  BITE THE WALL9 (C) 1979 BY ADP SYSTEMS] 95 W 100 S, LOGAN, UTAH 84321ciw""59468,1214);"BITE THE WALL"( I12000:K10000PFX0:FY0:CO0U""ZX11:Y11d X039:32768X,160:327684024X,160:FnX0999 40:32768X,160:3276839X,160:aX11:Y11:Y262:X260X3276852015:Y3276852024 A$: A$"W"X140:X265A$"A"X11:X260A$"X"X140:X283A$"D"X11:X262/A$"9"Y140:Y265GA$"5"Y11:Y260_A$"3"Y140:Y283vA$"*"Y11:Y262XXX1:YYY1: (X)32FX1"(Y)32FY1,FY1FX13306X,X2:XX1,102:Y,Y2:YY1,127@TY0A::200J FXFY 400: BOTH HIT?/OZ(X):Z1(Y):T1T11<T I130LYX,32:Y,32[^ J125:jcX,Z:Y,Z1yh J125:m Ir"":::w"YOU BOTH BIT THE WALL!"| 530FY1W$N1$:S1S11FX1W$N2$:S2S21 FY1 XYZ(X) I130X,32, J125:5X,ZD J125:L I["":::"CONGRATULATIONS "W$", YOU WIN!":"PUSH THE SPACE KEY TO PLAY AGAIN OR""THE 'Q' KEY TO QUIT."& IN$: IN$" " 7000 IN$"Q" 550 : "":::# D"THE FINAL SCORE:":E IG$"GAMES": S11 G$"GAME"Y NN1$" WON"S1;G${ SG$"GAMES": S21 G$"GAME" XN2$" WON"S2;G$ b T10 650 l T11 640 v"THERE WAS ONE TIE": 650 "THERE WERE"T1"TIES" ::"THANKS FOR PLAYING!"   10220&  800 '::V '"DO YOU WANT INSTRUCTIONS(Y/N)?"\ $'s 8'IN$:IN$""10040 B'IN$"Y"10200 L'""12)"INSTRUCTIONS" V' `'"#1'S CONTROLS#2'S CONTROLS" j' t'"W9"& ~'"AD5*"L '"X3"} ':"THE OBJECT OF THE GAME IS TO FORCE YOUR" '"OPPONENT TO CRASH. THIS IS DONE BY" '"USING THE CONTROLS ABOVE TO DIRECT YOUR" '"SNAKE. IF YOUR OPPONENT RUNS INTO YOUR"3 '"TRAIL OR HIS, IT IS THE SAME AS HITTING"D '"THE WALL."J 'o '"WHAT IS YOUR NAME PLAYER#1? "; '20000:N1$ST$ '"WHAT IS YOUR NAME PLAYER#2? "; '20000:N2$ST$ ':"WHAT SPEED DO YOU WANT(0-9)" ' A$: A$"0" A$"9" 10225 'A(9(A$))50: ':"PUSH THE SPACE KEY TO START"U ( I$: I$" " 10240[ (v N - GET STRING ROUTINE *NST$"" 4NQ$:Q$""20020 >N(Q$)1320100 HNST$ST$Q$ RNQ$; \N20020 N N  PING PONG5 (C) 1979 BY ADP SYSTEMSZ 95 W 100 S , LOGAN, UTAH 84321`o 59468,12x""I123" !!!!PING!!!! Q12500::""15)"PING PONG" I1300:("DO YOU WANT INSTRUCTIONS (Y/N)?"9* L$: L$"Y" L$"N" 42O+ L$"Y" 4000X2""|7"WHAT IS YOUR NAME PLAYER#1?";<20000:T$ST$A"WHAT IS YOUR NAME PLAYER#2?";F20000:B$ST$K"HOW MANY POINTS DO YOU WANT TO PLAY TO";S1 P S10 S151 903U"LET'S MAKE THAT WITHIN REASON!"<V 75EZ""Rd L039dn 32768L,102|s 327682440L,102x L|A3276813401 }B327681340391  H0960 40 H32768,118  H3932768,117H&L1((1)3)18L11 D139HL12 D11YL13 D141jR11 YD1zR10 YD1R10 X32768((2)15)405402R11 X32768((2)15)4054037R10R11:190 R11R10!A$"":C0:D0: :""N1"":34)J""BA$UA$""12000|gAAC:BBD pA32849A33649AACqB33686B32886BBD C0ACC,32D0BDD,32 A,72:A40,72:A40,72:B,71:B40,71:B40,71+ (XY)329650F X,32:XXY:X,81:200[ (XY)1181100g N1N11v ""N1"" ""J"" N1S1C$T$:3500:2000  X20500::C0:D0: 170 LJJ1 N""N1""' O""J""C QJS1C$B$:3000:2000b V X20500::C0:D0: 170z A$"X"N40:CCN A$"9"M40:DDM "":"WELL, "C$", YOU WON THAT GAME!" :::: "PRESS SPACE TO PLAY AGAIN OR Q TO QUIT" G1G11 X$: X$"" 2030/  X$"Q" 2500B  X$" "2030O J0:N10X ""a  75x G11F1$"GAMES" G11F1$"GAME" M11 W1$"GAME" M11W1$"GAMES" E11O1$"GAME" E11O1$"GAMES" :: "YOU PLAYED "G1" "F1$+ ( T$" YOU WON "M1" "W1$F B$" YOU WON "E1" "O1$P ::p "THANK YOU FOR PLAYING!!!"v | | E1E11 M1M11 ""; " " " W 9" " ": " "^ " S 6" " " " " " X 3" " "" INSTRUCTIONS">"TO PLAY:PLAYER NUMBER ONE USES THE LEFT"m"KEYS TO CONTROL HIS PADDLE. WMOVES IT"""UP, S STOPS IT, ANDXMOVES IT DOWN.,"PLAYER NUMBER TWO USES THE KEYS ON THE"6"RIGHT TO CONTROL HIS PADDLE."T"THE BALL WILL BE SERVED FROM ONE SIDE,"E^"THEN THE OTHER AT A RANDOM PLACE AND"th"ANGLE. TO MAKE THINGS MORE INTERESTING"r"THERE WILL ALWAYS BE ONE SPACE THAT CAN"|"NOT BE BLOCKED.""PRESS SPACE TO GO ON." U1$: U1$" " 4240%%XYBY1$%XYB40Y413%XYAY1F%XYA40Y41Z%XYA40Y39n%XYB40Y39~%XYA Y1%Y1Y1NY%Y1N1%Y41N39%Y39N41%Y41N39%Y39N41%XY33728 XY32808 YN%XY33728XY32808YN% &X,32\&(XY)1111000 b&t.A$"W"C40/A$"X"C40 0A$"S"C0 p0A$"9"D400A$"3"D401A$"6"D0 1D40D401D40D401C40C40%1C40C40+2F N - GET STRING ROUTINEQ*NST$""h4NQ$:Q$"" 20020~>N(Q$)13 20100HNST$ST$Q$RNQ$;\N 20020NN$  SAUCER ATTACK9 (C) 1979 BY ADP SYSTEMS] 95 W 100 S, LOGAN, UTAH 84321cr 59468,12""13)"SAUCER ATTACK" I12000:#"DO YOU WANT INSTRUCTIONS (Y/N)?"( IN$: IN$"Y" IN$"N" 402 IN$"Y" 4000T<KB515: (64785)169 KB151: CHECK FOR 16 OR 32K NEW PETgFY((1)20)5P"":G$" ":L(1)((1)5)6:D(1)0:V0ZXX1:X36X)"  ":X0nX)" ɝ ":"";oS(KB): S255 F0pS26 F1 qN1.rS25F1AsS42G$" "TtS34G$" "huS41 G$" "vS1032805,32:32806,32:32845,32:32846,32:1000w(FY18)18F0}YYF:VV.05:Y)"  ";G$"":(XY)2V550090E((1)4):E0N90,1120)"":D0229X)" "?PX)" "mB01500::"":DEDE1"DON'T FEEL SO BAD, I'M WILLING TO BET" "AT LEAST TWO PEOPLE ARE STILL ALIVE."2020LYG$" "I40G$" "I39G327682140Y1*G$" "I412N2^K020:(GI)32G,32:GI,42:2000 GGI:G,81:GI,32:(K2)K21120BXX1:X36X)"  ":X0V""X)" ɝ ":VV.05:(XY)2V5500` eG,32:YL:(13)"";:903 T050::D(1)D(1)1:VD(1)2:D(1)L(1)90@ ""u "CONGRATULATIONS!!! YOU HAVE SAVED THE":KIKI1 "EARTH FROM THE ATTACK OF THE SAUCERMEN"   B1 10:A$: "PUSH Q TO QUIT OR SPACE TO TRY AGAIN" JJD(1):WW1  V$: V$" " 70*  V$"Q" 2040; W$"ATTACK."S W1W$"ATTACKS."c DE$"TIME."{ *DE1DE$"TIMES." KI$"TIME" KI1KI$"TIMES" KL$"HIT" KLJW:KL1KL$"HITS" "YOU SUFFERED"W;W$ "YOU SURVIVED"KI;KI$% "AND MET DISASTER"DE;DE$J "YOU AVERAGED"KL;KL$" A GAME"k  "THANK YOU FOR PLAYING"q  ""12)"INSTRUCTIONS:":"":14)"CONTROLS" 13)" " 13)"456" 13)" " 13)" 13)"1 3" 13)" "+ 13)" ": 13)"0"H 13)" "v "TO PLAY: THE OBJECT OF THE GAME IS TO" "KILL THE FLYING SAUCER BEFORE IT KILLS" "YOU. IT WILL TAKE ANYWHERE FROM FIVE TO" ""TEN HITS TO KILL THE SAUCER. AS TIME", ,"PASSES, THE PROBABILITY OF THE SAUCER"J 6"KILLING YOU INCREASES."s @" USE THE UPPER KEYS TO AIM YOUR" J"LASER, THE MIDDLE KEYS TO MANUEVER" T"YOUR LASER, AND THE BOTTOM KEY TO FIRE." h" REMEMBER THE EARTH IS AT STAKE HERE")r"SO DON'T BLOW IT! PUSH SPACE TO START."C| I$: I$" " 4220I  MOTORCYCLE JUMP; (C) 1979 BY ADP SYSTEMS_ 95 W 100 S, LOGAN, UTAH 84321es""59468,1212);"MOTORCYCLE JUMP"( I12000:d""nA$"ђ"" ""  "N" ":"":33767,102"HOW MANY BUSSES DO YOU WANT TO JUMP ";F F1 F13230"";TY1FA$"";"   """ANGLE ";AN4,AN89AN10290R6"VELOCITY ";VL@VL60"DON'T BE SUCH A CHICKEN ": 310JVLVL13TRA(AN)180^X((RA)VL)hY((RA)VL) A(X)33573(40(.2V))(.2H)SS1:V(XSS1.5):HSY:H170900V85800<AA(0):H170HJ1:900fS1 L,32:L1,32:L39,32:L40,32A,87:A1,87:A39,28:A40,12LAS3(A40)32 600420XPE(A40):PE1023000bPE79PE804000lFL01700 A,32:A1,32:A39,32:A40,32=!TU01000::"": TU1 10""!!!YOU HAVE GONE INTO ORBIT!!!": TE0150:#"!!!YOU HAVE GONE INTO ORBIT!!!": TE0150:$% 5000A,32:A1,32:A39,32:A40,328 TU01000::"############### OVER SHOT ##############"P 13)"DAMAGE REPORT ""  B(X)((1)3) "TO MOTORCYCLE:" CB(0):C0"SHOCKS:TOTALLY RUINED":FM1 $CB(0):C0"TIRES:BLOWN TO SHREDS ":FM16 .CB(0):C0"HANDLEBARS:MISSING":FM1_ 8CB(0):C0"ENGINE:FELL OUT":FM1 BCB(0):C0"GAS TANK:RAGING INFERNO":FM1 LCB(0):C0"SEAT:NO LONGER EXISTS":FM1 VFM0"UNSCRATCHED(TOO BAD I CAN'T SAY THE" ` FM0 "SAME ABOUT YOU)."7 j"TO THE MANIAC WHO WAS DRIVING:"k tCB(0):C0"HEAD:NOT GOOD FOR MUCH NOW":FB1 ~CB(0):C0"NECK:NO LONGER EXISTS":FB1 CB(0):C0"BACK:IN BAD SHAPE":FB1 CB(0):C0"ARMS:BOTH BADLY BROKEN":FB14 CB(0):C0"RIGHT LEG:NOW CONTAINS TWO NEW JOINTS":FB1r CB(0):C0"LEFT LEG:YOU'LL BE NEEDING A NEW ONE":FB1 CB(0):C0"TEETH:THE NICE THING ABOUT FALSE TEETH":FB1 C0"IS YOU DON'T GET CAVATIES"  FB0 FM1 "YOU SURE GOT LUCKY THAT TIME! NOT A".  FB0FM1"SCRATCH"j  FB0FM0"YOUR BODY IS NO LONGER GOOD FOR ANYTHING"u  5000 TU01000::"############# LAND ON BUS ##############" 1010 NM015:(A40)102AA1 (A40)102AA44L,32:L1,32:L39,32:L40,32?A,87:A1,87:A39,28:A40,12OTU0100:WLAA33724A,32:A1,32:A39,32:A40,32:20002000TU01000::"" PY0 10"!!!YOU MADE IT!!!": TE0150:="!!!YOU MADE IT!!!": TE0150:CN 5000i AA40: NM010:AA1 L,32:L1,32:L39,32:L40,32 A,28:A1,80:A39,87:A40,87 TU0100: LA A33684A,32:A1,32:A39,32:A40,32:1000  1000'AA40: NM010:AA1KL,32:L1,32:L39,32:L40,32oA,28:A1,80:A39,87:A40,87TU0100:LAA33604A,32:A1,32:A39,32:A40,32:1500 1500::"PUSH SPACE TO TRY AGAIN OR Q TO QUIT" R$: R$" " 100. R$"Q" 50104  - HORSE RACE: - (C) 1979 BY ADP SYSTEMS` - 95 W 100 S, LOGAN, UTAH 84321ft""15);"HORSE RACE" I11000:"THE OBJECT OF THE GAME IS TO JUMP THE"#"BARRELS AND BEAT THE PET. TO JUMP YOUR"("HORSE PUSH THE SHIFT KEY."B2"HIT THE SPACE KEY TO BEGIN"Z< I$: I$" " 60eZ 6000wd - MAIN LOOPx 4000(SH)0 1000(SH)12000 HO33479 9100 HC33159 9000W0 I1 3BB(I)  (B1)32 W1! B,32: B1,92; B320,32: B321,92KB(I)B(I)1c B(I)33448 300rB(I)33487 33448,32: 33487,92" 33128,32: 33167,92,6 W1 3000@ 100F1 2000HO79,32:HO80,32: HO118,32: HO2,32& (HO)92 W0 HOHO1EHO,62:HO1,62:HO38,105MF0SBhF1 W1 1000rFF1HO,32:HO1,32:HO38,32:HO80,62:HO79,62HO118,105* HO38,32: HO2,105  :0 CF1 4060 CF1 CF2 (HC2)92 OHC,32:HC1,32:HC38,32:HC80,62:HC79,62_HC118,105kCFCF1qHC79,32:HC80,32: HC118,32: HC2,32HCHC1HC,62:HC1,62:HC38,105CF0p - INITIALIZEzHO33452 FJ1 HCHO323* ""32)"FINISH"_ "PET" "PLAYER"  I33122 33602 80  I,66   4080 B(1)33460:B(2)33472:B(3)33487  - SET SHIFT KEY PEEK-  - TO 152 ON 16 & 32K PETS8 SH516T  (64785)169 SH152Z i (# J1 10 2#"PETTHE WINNER¹" <# I1 50: Z#"PETTHE WINNER¹" d# I1 50: n# x# 9200" # J1 10e #"PLAYERTHE WINNER¹"v # I1 50: #"PLAYERTHE WINNER¹" # I1 50: # #"DO YOU WANT TO PLAY AGAIN (Y/N)?"4 # I$: I$"Y" I$"N" 9210F $ I$"Y" 90$ - MISSLE LAUNCH= - (C) 1979 BY ADP SYSTEMSc - 95 W 100 S, LOGAN, UTAH 84321iu 20000 6000 A(1)400:B(2)400:C(3)500:E(4)350:D(5)400 SH((6)4)33731:VASH3373116:4000""@"";:Y(1))""p"";:Y(3))"֑""";:Y(4))"ב""";:Y(2))"++"Q0(E40)40:SH9Q,160::SH49Q,223*Q0(E40)40:SHQ,160::SH40Q,233=DEDE jN0(D40)40:SH1N,160::SH1N,233(N0(D40)40:SH8N,160::SH8N,223-ADAD2M0(A80)40:SH2M,160::SH2M,233<M0(A80)40:SH7M,160::SH7M,223 ABABA9FL0(B120)40:SH3L,160::SH3L,233gPL0(B120)40:SH6L,160::SHL6,223tZCBCB_J0(C160)40:SH4J,160::SH4J,233aJ0(C160)40:SH5J,160::SH5J,223d"":12)"SHOTS LEFT POINTS"n14)15HI" "PT'q"ANGLE";WA9s"CHARGES";LSRtA(3.1415926WA)180cuRA((A)LS)tvND((A)LS)xCOCO.5Y((CORACO2).5)X((COND).5):Y39142X0X78700 IS(33728(X2)40(Y2)):IS160IS223IS233600 CO6150S Y3Y0:X((RYX)2.5):FL1:RH(33728(X2)40(Y2))j RH170RH220600z RH242600 IC%1 RYX 6020 U1600 FL1700 120 XPE(33728X2): PE242PTPT4:VZ1 YPE214PTPT1:VZ1 [PE215PTPT2:VZ10 \PE171PTPT3:VZ1P ]33728(X2)40(Y2),170c ^PE24210000v _PE21410200 `PE21510300 aPE17110100 RH0:RY0:U0:HIHI1:FL0:CO0:Y0:X0:15HI010900 F102000:  VZ1 "":VZ0:12 "":143 TYSH33715:Y(1)((7)VA)TYr Y(2)((8)VA)TY:Y(2)Y(1)Y(2)Y(1)1Y(2)Y(1)14001 Y(3)((9)VA)TY:Y(3)Y(1)Y(3)Y(1)1Y(3)Y(1)14002 Y(3)Y(2)Y(3)Y(2)1Y(3)Y(2)14002 Y(4)((10)VA)TY! Y(4)Y(1)Y(4)Y(1)1Y(4)Y(1)14004M Y(4)Y(2)Y(4)Y(2)1Y(4)Y(2)14004y Y(4)Y(3)Y(4)Y(3)1Y(4)Y(3)14004  pGC%(15) t32,108,124,225,126,127,226,251,123,98,255,254,97,252,236,160 wM015:GC%(M):M x M33728(X2)40(Y2) M32768M337673 JC%(M)KC%OJ JC%GC%(KC%)6040g KC%15KC%KC%1:6028q KC%0{ JC%1  (Y)2(Y2)JC%2  (X)2(X2)6048 JC%124JC% IC%1M,GC%(JC%KC%) IC%0M,GC%(KC%JC%) 'Y(1)((10)VA)TYA'Y(1)Y(4)Y(1)Y(4)1Y(1)Y(4)110000n'Y(1)Y(2)Y(1)Y(2)1Y(1)Y(2)110000'Y(1)Y(3)Y(1)Y(3)1Y(1)Y(3)110000't'Y(2)((10)VA)TYy'Y(2)Y(4)Y(2)Y(4)1Y(2)Y(4)110100z'Y(2)Y(1)Y(2)Y(1)1Y(2)Y(1)110100@{'Y(2)Y(3)Y(2)Y(3)1Y(2)Y(3)110100F~'^'Y(3)((10)VA)TY'Y(3)Y(1)Y(3)Y(1)1Y(3)Y(1)110200'Y(3)Y(2)Y(3)Y(2)1Y(3)Y(2)110200'Y(3)Y(4)Y(3)Y(4)1Y(3)Y(4)110200'<(Y(4)((10)VA)TY0A(Y(4)Y(1)Y(4)Y(1)1Y(4)Y(1)110300]B(Y(4)Y(2)Y(4)Y(2)1Y(4)Y(2)110300C(Y(4)Y(3)Y(4)Y(3)1Y(4)Y(3)110300F(*WL02000::59468,12:"YOU SCORED"PT" POINTS "NA$*APPT:30005+"YOUR RANK WAS"+RA$+::.+"HIT Q TO QUIT OR SPACE TO PLAY AGAIN"C+GAGA1:CPCPPTY+Y$:Y$"Q"30000m+Y$" " 11015 +RY0:U0:FL0:C0:SH0:CO0:X0:Y0:HI0:PT0:"": 12 N 59468,12!N"""N12)"MISSLE LAUNCH"#N I12000:%N"DO YOU WANT INSTRUCTIONS (Y/N)?"@*N I$: I$"Y" I$"N" 20010I/N""Z4N I$"N" 9N" ROCKET LAUNCHER TROOP CARRIER":>N" ++":CN" 4 PTS. 3 PTS.":HN" HEADQUARTERS AMMUNITIONS DEPOT":>MN" XX":jRN" 2 PTS. 1 PT.":WN" THE OBJECT IS TO SCORE AS MANY"\N"POINTS AS POSSIBLE. YOU SCORE POINTS BY";aN"HITTING THE TARGETS ON THE OTHER SIDE&bN"OF A MOUNTAIN. THIS IS DONE BY ENTERING";UmN"THE ANGLE AT WHICH YOUR MISSLE IS TO BE"xN"LAUNCHED AND HOW MANY CHARGES WILL BE"yN"USED (A NUMBER BETWEEN TEN AND FIFTEEN"zN"USUALLY WORKS BEST)."}N"HIT SPACE TO GO ON."~N GE$: GE$" "20094N""::?N"YOU GET 15 SHOTS A GAME. EACH TIME YOU"nN"HIT A TARGET IT IS MOVED TO A NEW SPOT."N"IF YOUR MISSLE GOES OFF THE SCREEN IT"N"IS STILL CAPABLE OF HITTING A TARGET"N"AND WILL COME BACK ON THE SCREEN UNLESS"N"IT GOES OUT OF RANGE."CN"HIT SPACE WHEN YOU ARE READY TO START."ZNR$:R$" "20115eR"":z0uGA1GA$"GAME"1uGA1GA$"GAMES"2uCPGA1CP$"POINT"3uCPGA1CP$"POINTS"4uAPCPGA:30005:30015 5uAP5RA$"LATRINE CLEANER LAST CLASS."?6uAP4AP10RA$"LATRINE CLEANER FIRST CLASS."^7uAP9AP16RA$"PRIVATE."8uAP15AP21RA$"CORPORAL."9uAP20AP26RA$"SERGEANT.":uAP25AP31RA$"LIEUTENANT.";uAP30AP41RA$"CAPTAIN."uI?u""::NA$" YOU PLAYED "GA;GA$:n@u"YOU AVERAGED"AP;CP$" A GAME":Au"YOUR FINAL RANK ISBuRA$Cu   CRACK THE SAFE: (C) 1979 BY ADP SYSTEMS^ 95 W 100 S, LOGAN, UTAH 84321ds""::: 59468,1212)"CRACK THE SAFE" I12000::::#"DO YOU WANT INSTRUCTIONS (Y/N)?"( I$: I$"Y" I$"N" 40- I$"Y" 1000&2""::,3;7"LENGTH";U< 2000:LN: L2 60\ALjF"RANGE";K 2000:RN: R2 75PRU I1500:Z"START GUESSING"d X1LnA(X)((1)R)1xX1L " "; 2000:G(X)N: G(X)R 140#""G(X);:-GG18X1L[G(X)A(X)BB1:H(X)1:B(X)1alX1LwY1LB(X)1H(Y)1230A(X)G(Y)WW1:B(X)1:H(Y)1YXB0270X1B:"";:W0300X1W:"";: ,BL4006""=@B0:W0:X1L:B(X)0:H(X)0::130U" CONGRATULATIONS"w:"YOU CRACKED IT IN"G"TRYS":"DO YOU WANT TO TRY AGAIN (Y/N)?" I$: I$"Y" 50 I$"N" 430""::  "THE OBJECT OF THIS GAME IS TO GUESS"."THE COMBINATION OF THE SAFE."\:"WHEN I ASK FOR THE LENGTH, ENTER THE""LENGTH OF THE COMBINATION (2-9)":"I WILL THEN ASK FOR THE RANGE OF THE""DIGITS IN THE COMBINATION (2-9)" $:"FOR EXAMPLE, IF YOU WANT A 4 DIGIT". ."COMBINATION USING NUMBERS FROM ONE"X 8"TO SIX, ENTER 4 AS THE LENGTH, AND"n B"6 AS THE RANGE" L:"FOR EACH CORRECT DIGIT, IN THE RIGHT" V"PLACE I WILL DISPLAY ''. FOR A" `"CORRECT DIGIT IN THE WRONG PLACE, I" j"WILL DISPLAY ''."+ :"HIT THE SPACE KEY TO STARTE  I$: I$" " 1170K m  N$: N$"1" N$"9" 2000y N(N$) $  - HANGMAN7 - (C) 1979 BY ADP SYSTEMS] - 95 W 100 S, LOGAN, UTAH 84321cq""16);"HANGMAN"::"YOU WILL BE ASKED EACH TIME IF YOU WANT"#"THE COMPUTER TO SELECT THE WORD OR IF"("YOU WANT TO ENTER THE WORD ( WHEN 2"3-"PEOPLE ARE PLAYING )"b2:"TO CHANGE THE COMPUTER SELECTED WORDS"7"MAKE THE CHANGES IN LINES 30000-30499"<:A 10);"HIT SPACE TO CONTINUE"F S$: S$" " 70P 59468,12d 30000i "DO YOU WANT ME TO SELECT THE WORD (Y/N)?"Bn S$: S$"Y" S$"N" 110Ux S$"Y" 200q: "ENTER THE WORD";A$ (A$)MX 160:"TOO LONG! - CAN'T BE OVER ";MX;"LETTERS": 130 I1 (A$)B$(A$,I,1)  B$"A" B$"Z" "INVALID": 130 1000*"";6X(A$)JA1X:" ";:S""b I1 26r 33567I,IxA1XA$(A)(A$,A,1)Q$:Q$""540!AS(Q$)& AS90 AS65 540+ (33503AS)32 540- 33503AS,32<0A1X:A$(A)Q$A2)Q$:A$(A)"#":FL1:HH1:""B5Q7HX20000j:FL1FL0:"":540WW1:W10000,10100,10200,10300,10400,10500,10600,10700,10800,10900"":540"" ""@ ""g "" "Σ" $" " ."ͤ" 8""* B""Q L""x V"" `"" j"" t"" ~+ '"  ڒ"1 B'u t'"     "{ ' '" " ( <(" " n( ("   " (N )"   "T 6)z h)"" ) )"" ) 0*"" *"YOU LOSE! - THE WORD WAS "A$:20010Y N"CONGRATULATIONS! YOU GOT IT."z *N"DO YOU WANT ANOTHER WORD?" 4ND$:D$"N" D$"Y" 20020 >ND$"Y" : 100 RN /u 0uNW10 : NUMBER OF WORDS5uMX15:-MAX NO OF LETTERS IN WORD>:u "FISH","DOG","HORSE","COW","CAT","FROG","PIG","CHICKEN"SDu "LION","TIGER"Y#wf$w W$(NW)u.w I1 NW8w W$(I)BwLwI(NW(1)1)VwA$W$(I)`w A$(MX)jw$  - LUNAR LANDER< - (C) 1979 BY ADP SYSTEMSb - 95 W 100 S, LOGAN, UTAH 84321hw 59468,12""13)"LUNAR LANDER" I1 2000:2 5000d7000i""nF150s A(X)3298840YXxA165:A278:A3163:A477$}CR((1)10)250X1CRMC32767960((1)40)1XC,104^jX140|C32767960X(C)32210C,102"FUEL150"X0PLA(X)F0 (SH)FF5:AA1:520AA14F0A$:A$""A$"<"BLBL1:FF1:550[F0:A$""A$">"BLBL1:FF1l&YYA:XXBL0OPPL:PLA(X):Y161000DX18X19 Y32000IF0F0N""F" " XOP,32:OP39,32:OP40,32:OP41,32:PL,A1:PL39,A2$]PL40,A3:PL41,A43bAX1SK:<l500OPL336861030OP,32:OP39,32:OP40,32:OP41,32:PL,A1:PL39,A2PL40,A3:PL41,A41040OP,32:OP39,32:OP40,32:OP41,32:4000A14000P1(PL79):P2(PL80):P3(PL81)/$P1P2P1P3P2P33000@.P11024500}8"YOUR SHIP HAS LANDED IN A CRATOR CAUSING"B"THE COMMAND MODULE TO LOSE TRACK OF YOU,";L"YOU WILL STARVE ON THE LUNAR SURFACE."V 6000 "YOU HAVE LEFT THE LANDING AREA FOREVER!"  6000Z "YOUR SHIP HAS LANDED ON THE RIM OF A " "CRATER CAUSING YOUR SHIP TO FALL IN AND" "BE DESTROYED. BETTER LUCK NEXT TIME." 6000 "YOU HAVE CREATED A NEW LUNAR CRATER" "" ((1)A20)"FEET DEEP."$  6000Z "CONGRATULATIONS, A PERFECT LANDING!"e  6000 " INSTRUCTIONS:" "THE OBJECT IS TO TRY TO LAND YOUR SHIP" "ON THE SURFACE OF THE MOON. THE < KEY" "ACCELERATES YOUR SHIP RIGHT,THE > KEY"8 "LEFT. THE SHIFT KEY IS YOUR BURN"H "CONTROL."w :"PUSH THE SPACE KEY TO START THE GAME."  A$: A$" " 5070  p"DO YOU WANT TO TRY AGAIN (Y/N)?" z I$: I$"Y" I$"N" 6010  I$"Y" : 100 "" 1 X"WHAT SKILL LEVEL DO YOU WISH ?"I b:"1 STAR WARRIOR"f l:"2 BATTLE SHIP PILOT" v:"3 SQUADRON COMMANDER" :"4 HOTSHOT" :"5 SPACE MARAUDER" :"6 SARGEANT" :"7 CORPORAL" :"8 PRIVATE" :"9 RECRUIT" F$:F$"1" F$"9" 7100+ F(F$); SK(F1)30q  SET SHIFT KEY PEEK FOR 16 AND 32K NEW TYPE PETS| SH516  (64785)169 SH152 $  BREAK AWAY6 (C) 1979 BY ADP SYSTEMSZ 95 W 100 S, LOGAN, UTAH 84321`l""{ 59468,1214)"BREAK AWAY" I12000: ( "DO YOU WANT INSTRUCTIONS (Y/N)?"- I$:I$"Y" I$"N" 452 I$"Y" 30007d""j">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>","""""X"b")l"6v"C"P"]"j"w"""""""" """S0:J0 X17*%T32768205((1)15):&K((2)2)H(K0V39V)K1V41a*B$" "wA$:A$""B$A$B$"3"XX1B$"1"XX1X33X34X2X1X)" ":V39D41V39D41V41D39V41D39'(TV)150SS1:TV,32:VDJ (T40)99 (TV)99 VDiN(TV):N101N103VDTTV:T337282000TV,32:T,81 900JJ1:J52500R0450::X)" ":TV,32:800 "" " YOU SCORED"S"POINTS IN THAT GAME"% ""P "DO YOU WANT TO PLAY AGAIN (Y/N)?"` GG1:EESx R$: R$"Y" 100 R$"N" 2510 "" G1U$"GAME" G1U$"GAMES" WEG "YOU PLAYED"G;U$  :"FOR AN AVERAGE OF"W"POINTS A GAME.-  "THANK YOU FOR PLAYING."3 ( < ""U 12)"INSTRUCTIONS:"m ::14)" " 14)"123" 14)" " :"TO PLAY: YOU WILL USE THE KEYS DRAWN" "ABOVE TO MANUEVER YOUR PADDLE. THE" "OBJECT OF THE GAME IS TO KEEP THE BALL"K  "FROM GETTING PAST YOU. EACH TIME THE"x  "BALL HITS ONE OF THE UPPER FOUR ROWS,"  "THE CHARACTER WHERE THE BALL HITS IS" & "REMOVED AND YOU SCORE ONE POINT." 0 :"YOU GET 5 MISSES A GAME, SO GOOD LUCK!"" : :"PUSH THE SPACE KEY TO BEGIN."< D I$: I$" " 3140B N $  PRACTICE PING PONG; (C) 1979 ADP SYSTEMS_ 95 W 100 S, LOGAN, UTAH 84321eq""59468,1213);"PRACTICE PING" I12000:#:+" "," 9"-" " ." "</" 6"W0" "r1" "2" 3"3" "4"TO PLAY: USE THE KEYS SHOWN ABOVE TO"5"CONTROL YOUR PADDLE. 9TO GO UP 6TO"%6"STOP, AND 3 TO GO DOWN."+7P8"YOUR GAME WILL LAST 1 MINUTE."V9y:"HIT THE SPACE KEY TO START."A I$: I$" " 65P""UN10d L039n 32768L,102s 327682440L,102x L|A3276813401 }B327681340391  H0960 402 H32768,160G H3932768,117NH_TI$"000000"rL1((1)3)1L11 D139L12 D11L13 D141YD1X32768((2)15)4054037A$TI606050000 A$""12400 gBBD9qB33686B32886BBD MD0BDD,32iB,71:B40,71:B40,71(XY)329651X,32:XXY:X,81:200%XYBY1%XYB40Y41%Y1F1%Y41F39%Y39F41 %(XY)160YF %XYB40Y39' %Y1Y1NY5 %Y1N1E %Y41N39U %Y39N41e %Y41N39u %Y39N41 %XY33728 XY32808 YN &X,32 &(XY)160YF &(XY)11713000 & p0A$"9"D40 0A$"3"D40 1A$"6"D0  1D40D40, 1D40D40; 1C40C40L 1C40C40R 2c 2N1N11:170w PËN11T$"TIME" QËN11T$"TIMES" UÙ"" VÙ"YOU MISSED"N1;T$ WÙ"DO YOU WANT TO TRY AGAIN (Y/N)?" XZ1Z11:PPN1 Zá Y$: Y$"Y" 80 _Ë Y$"N"500102 nËZ11H$"GAME":50035A oH$"GAMES"^ sÙ:: "YOU PLAYED"Z1""H$ xÙ"FOR AN AVERAGE OF"PZ1"MISSES A GAME"$  AUTO RACE5 (C) 1979 BY ADP SYSTEMSY 95 W 100 S, LOGAN, UTAH 84321_q "":::: 15)"AUTO RACE"::17);"123"::"THE OBJECT IS TO KEEP THE CAR() IN THE""TRACK FOR THE GREATEST AMOUNT OF TIME""USING THE CONTROLS ABOVE"%-#:^( "WHAT SKILL LEVEL (1-9, 1 IS THE HIGHEST)"~- S$: S$"1" S$"9" 452TY(S$)27A3276810002840TY<""> I1 24A I1 24F5)" "KPX11ZX5 cTI$"000000"dS((1)15)-nS0X11;xS1X10I}S2X11TXXX1oX25X1X1:XXX1X1X3X1X1:XXX1X1A$:A$"2"Y10A$"3"Y11A$"1"Y11X)" "AAY1:(A)32500 AY,81:A40Y1,32 100#T$(TI$,2)5E$(TI$,4,1)N(T$)10T$(T$,1)Z:::" MINUTES";E$"SECONDS";T$:&"DO YOU WANT TO TRY AGAIN (Y/N)?"0 I$: I$"Y" 30: I$"N" 560D(  - BOMB SQUAD: - (C) 1979 BY ADP SYSTEMSa - 95 W 100 S, LOGAN, UTAH 84321gs""13)"BOMB SQUAD" I1 1000:"DO YOU WANT INSTRUCTIONS (Y/N)?"# I$: I$"Y" I$"N" 35( I$"Y" 6000d""n 59468,12!xX15000 L0 39B, 32808L,160\ 32768(2440)L,160d LyX U0 920 40 32808U,160  3280839U,160 U RA097:32808((1)960),160: ND020RW(((1)960)32808):(RW)32930RW,42:! ND05KRW(((1)960)32808):(RW)32960YRW,230:R2(((1)960)32808):(R2)32980R2,158R1(((1)960)32808):(R1)321000R1,153X32768(4013)18LK1T60 A$: A$"" 1900xA(A$)(A56K40:T65<@A52K1:T60PA50K40:T83cA54K1:T62olX1X11"";:16);X1;" " XXK:(X)160XXK P(X):P42 PTPT1 P153P1584000 P2303000 X,T:(XK)150XK,32 PT205000$ X10 4500.( 1300@ -RANDOM MOVEL XK,32s X((0)96032808):(X)323020 D((0)6)1 D1K40:T65 D2K1:T60 D3K40:T83 D4K1:T62 1300-SECRET PASSAGE XK,32:P153XR2 P158XR1$  13003  59468,14F ""p  (64785)169 17)"BOOM": 4530 17)"!"  I1 2000: ""  59468,12 X1400RA$"AN EXPERT" X1300X1400 RA$"ABOVE AVERAGE" X1200X1300RA$"AVERAGE"8 X1100X1200RA$"BELOW AVERAGE"Z X10X1100RA$"PRETTY BAD"p X10RA$"DEAD" "";:16);X1 :: "YOU ARE RATED AS ";RA$ ::"DO YOU WANT TO TRY AGAIN (Y/N)?"  I$: I$"Y" I$"N" 5045  I$"N"   100K p"THE OBJECT OF THE GAME IS TO DEFUSE ALL"z z"OF THE BOMBS (*) IN THE LEAST AMOUNT OF" "TIME. A BOMB IS DEFUSED BY MANUEVERING" "YOURSELF (,,<,OR >) OVER IT. A IS A" "RANDOM MOVEMENT GENERATOR (IT MOVES YOU"8 "TO A RANDOM PLACE ON THE SCREEN). ^ AND"h "Y ARE A SECRET PASSAGE (HITTING ONE OF" "THEM WILL MOVE YOU TO THE OTHER)." :18);"8462"  "YOUR CONTROLS ARE 8 UP, 2 DOWN, 4 LEFT," "AND 6 RIGHT."+ :"PUSH THE SPACE KEY TO START PLAYING"E  S$: S$" " 6130K $  RUNAWAY3 (C) 1979 BY ADP SYSTEMSW 95 W 100 S, LOGAN, UTAH 84321]p"":::::17);"RUNAWAY"( 59468,122 10000d"" L0 39, 32768L,160 32768(2440)L,160 LX U0 960 40 32768U,160)  3276839U,1601 UXX32768(4013)18 aMK1iNR1rT60zFD0x A$DD1HJ(((1)3)1):HJ21500J(1000(1))(J32768)42 32768J,32:1500(J32768)32 32768J,42  A$"8" K40:T658@ A$"4" K1:T60P A$"2" K40:T83g A$"6" K1:T62qXXK (X)32 3000 XK,102Z X,Ts I1A: 1400 XK,102 X,T128:TY02000: "YOU SCORED"D"POINTS"! DGDGDD) D0Q "DO YOU WANT TO PLAY AGAIN (Y/N)?"Z F$nH F$"N" 3700 F$"Y" 3300 10200: 100t"YOUR GREATEST SCORE WAS"GD'::'"DO YOU WANT INSTRUCTIONS (Y/N)?"$' .' IN$: IN$"" 10030#8' IN$"Y" 10200>B'""12)"INSTRUCTIONS"TL':14)"CONTROLS"gV':14)" 8"y`'14)" 46"j'14)" 2"t'~'"THE OBJECT OF THE GAME IS TO USE YOUR"'"CONTROL KEYS TO DIRECT YOURSELF" '"AROUND THE SCREEN WITHOUT HITTING YOUR"@ '"TRAIL, THE WALL, OR THE RANDOM GUARDS"b '"WHICH WILL KEEP APPEARING." ':"YOU SCORE ONE POINT FOR EACH STEP YOU" '"TAKE WITHOUT HITTING ANYTHING." ':"WHAT SPEED DO YOU WANT(0-9)" ' A$: A$"0" A$"9" 10210 'A(9(A$))50 '$ $ - ELEMENTARY ADD & SUBD - (C) 1979 BY ADP SYSTEMSj - 95 W 100 S, LOGAN, UTAH 84321p 59468,12 "" "ELEMENTARY ADDITION AND SUBTRACTION" I12000:2 1500P"DO YOU WANT (A)DD OR (S)UB?"UI$: I$"S" 1100*Z I$"A" 85IdX((1)10):X1((1)10)n""A$(X)""AP$""A$(X1)""AE$"";xW0 2000:GNGXX1250W2300"YOU ARE WRONG! PUSH RETURN TO TRY AGAIN!"A$:A$(13)225C" "N 3000^WW1: 200"RIGHT!! PUSH RETURN TO TRY ANOTHER."A$:A$""260 100,"THE RIGHT ANSWER WAS."6 3000rXX19A$(1)""A$(XX110)|XX110A$(XX1)4CV15000:: 100SLX((1)10):X1((1)10)bQXX11100V""A$(X)""AM$""A$(X1)""AE$"";`W0 2000:GNGXX11250W21300"YOU ARE WRONG! PUSH RETURN TO TRY AGAIN!"-A$:A$(13)1225_" "j 3000{WW1: 1200"RIGHT!! PUSH RETURN TO TRY ANOTHER."A$:A$""1260 1100"THE RIGHT ANSWER WAS." 3000 dA$(XX1)% nCV15000:: 11008  - INITIALIZE A$(0)"          " A$(1)"            " A$(2)"        "[ A$(3)"        " A$(4)"           " A$(5)"       "5 "A$(6)"        " ,A$(7)"          " 6A$(8)"   ߩ   " @A$(9)"          "U JAM$"    " TAP$"      " ^AE$"      " h  - GET NUMBER D0:N0: I1 10: I$:*  X$: X$"" 2020H  X$(13) D0 2100k  D2 X$"0" X$"9" 2020u DD1 V(X$) NN10V A$(V)""; * 2020 4 " "  " "2 " "Y " " " " " " ""; $  - MORTGAGE LOAN= - (C) 1979 BY ADP SYSTEMSc - 95 W 100 S, LOGAN, UTAH 84321iv""13);"MORTGAGE LOAN" I1 2000:""#" (C) COPYRIGHT 1979 BY ADP SYSTEMS"( I1 2000:Z 1000 d""#n13)"MORTGAGE LOAN"Ix"1 - COMPUTE PAYMENT REQUIRED"q"2 - COMPUTE NUMBER OF PAYMENTS""3 - COMPUTE INTEREST RATE""4 - COMPUTE AMOUNT THAT CAN BE BORROWED""5 - PRINT AMORTIZATION SCHEDULE""6 - DONE"'" ENTER YOUR CHOICE (1-6)"I I$: I$"1" I$"6" 210UG(I$)c G6  G 2000,3000,4000,5000,6000 100 - INITIALIZE FUNCTIONS A(X)I(100K) B(X)(1A(X))(NK) C(X)1B(X) D(X)(X100.5)100* E(X)(X10.5)100$9L H$JQ G4 1120dV "AMOUNT OF LOAN";PVw[ PV0 1210` G1 1140j "PAYMENT AMOUNT";Po P0 1220t G3 1160~ "INTEREST RATE";I I0 1230 G2 G5 1180 "NUMBER OF YEARS";N1 N0 1240S "NO OF PAYMENTS PER YEAR";Ke K0 1250pK(K)v"LOAN AMOUNT CAN NOT BE ZERO OR LESS" 1260"PAYMENT CAN NOT BE ZERO OR LESS" 1260 "INTEREST RATE CAN NOT BE ZERO OR LESS"  1260M "NO OF YEARS CAN NOT BE ZERO OR LESS"X  1260 "NO OF PAYMENTS CAN NOT BE ZERO OR LESS"  I1 2000:  1100 "PAYMENT IS NOT ENOUGH TO REDUCE LOAN"  I1 2000: ( x - WAIT FOR SPACE KEY) "HIT SPACE WHEN READY"C  I$: I$" " 1420I ^  - PAYMENT TERMp P$"PAYMENTS"{ PY$""  K1 P$"YEARS":PY$"ANNUALY"  K2 PY$"SEMI-ANNUALY"  K4 P$"QUARTERS":PY$"QUARTERLY"  K12 P$"MONTHS":PY$"MONTHLY" "A @ - FORMAT NUMBER IN X - OUTPUT IN XF$W JX(X100.5)100r TXF$" "(X) ^L(XF$) hFC$".00" r (XF$,L2,1)"." FC$"" | (XF$,L1,1)"." FC$"0" XF$XF$FC$ XF$(XF$,11)  H$"COMPUTE PAYMENT REQUIRED"*  1100? PA(X)PVC(X)K PD(P)V  1500v "PAYMENT AMOUNT IS";P;PY$  1400  H$"COMPUTE NUMBER OF PAYMENTS" 1100 X2PA(X) X2PV0 3060 1300 3010 N((X2)(X2PV))(1A(X))/ N1E(NK):NE(N):  1500]  "LOAN WILL BE PAID IN";N;P$y  K1 "OR"N1"YEARS" & 1400 0 H$"COMPUTE INTEREST RATE"  1100 A(PNKPV)(NK)  A0 4150 I(A100K)PV A(PNKPV)(NK)"PQPC(X)A(X)= (PVPQ).001 4120NB(PVPQ)PV\II(BI)g 4070"INTEREST RATE IS"D(I);"%"" 1400,6 1300@ 4010H$"COMPUTE AMOUNT THAT CAN BE BORROWED" 1100PVPC(X)A(X)PVD(PV)."YOU CAN BORROW";PV9 1400?kpH$"PRINT AMORTIZATION SCHEDULE"{zZ0: 7000 Z0 1100X2PA(X) X2PV0 6070 1300Z0: 6020XI: 1600:X1$XF$PD(P):XP: 1600:X2$XF$"BD(PV):XB: 1600:X3$XF$5IT0:N10:N20[8"AMORTIZATION SCHEDULE"~B13);"INTEREST RATE";X1$;" %"L19);"PAYMENT";X2$V17);"PRINCIPAL";X3$`" PMT NO INTEREST PRINCIPAL BALANCE"j"""I1D(BA(X))/ITITI1;P1PI1FBBP1^ B0 P1P1B:B0jN1N11vN2N21XI1: 1600:X4$XF$XP1: 1600:X5$XF$XB: 1600:X6$XF$X7$(" "(N1),5)" "X7$;X4$;X5$;X6$ B.004 6460  N212 6300N20K"HIT SPACE TO CONTINUE OR Q TO QUIT"d( I$: I$" " 6200y2 I$"Q" 64407<XIT: 1600F"TOTAL INTEREST"XF$P 1400ZX H$] PV0 P0 I0 K0 7020bl "CURRENT VALUES:"vXPV: 16000"AMOUNT OF LOAN";XF$?XP: 1600Y"PAYMENT AMOUNT";XF$hXI: 1600"INTEREST RATE ";XF$;" %""PAYMENTS PER YEAR ";K"DO YOU WISH TO USE ABOVE VALUES (Y/N)?" I$: I$"Y" Z1: I$"N" 7110   DICE THROW6 (C) 1979 BY ADP SYSTEMSZ 95 W 100 S, LOGAN, UTAH 84321`o "" 15)"DICE THROW":: "NUMBER OF DICE TO THROW (1-9)?"# N$: N$"1" N$"9" 35(N(N$)- 59468,12!2:"HIT THE SPACE KEY TO THROW THE DICE"97 I$: I$" " 55C< 100LA 50Ud""]iT0kn C1 N|x"":XC44D((1)6)1 D 540,520,500,530,530,530 D 510,540,510,540,510,530 D 540,500,520,530,530,530TTD::"TOTAL="T.X)" ":?X)" ":PX)" ":aX)" ":rX)" ":$ % - ELEMENTARY MULT & DIVE - (C) 1979 BY ADP SYSTEMSk - 95 W 100 S, LOGAN, UTAH 84321q 59468,12 "" "ELEMENTARY MULTIPLICAION AND DIVISION" I1 2000:2 1500P"DO YOU WANT (M)ULT OR (D)IV?"U I$: I$"M" 11000Z I$"D" 85RdX1((1)10):XX1((1)10)`iX10100{mF(X10): F0 F10n""A$(F)""A$(X(X10)10)"";o AD$""A$(X1)""AE$"";xW0 2000:GNGXX1250W2300L"YOU ARE WRONG! PUSH RETURN TO TRY AGAIN!"cA$:A$(13)225" " 3000WW1: 200"RIGHT!! PUSH RETURN TO TRY ANOTHER."A$:A$""260 100',"THE RIGHT ANSWER WAS."26 3000@|A$(XX1)VCV15000::100uLX((1)10):X1((1)10)V""A$(X)""AM$""A$(X1)""AE$"";`W0 2000:GNGXX11250W21300("YOU ARE WRONG! PUSH RETURN TO TRY AGAIN!"@A$:A$(13)1225r" "} 3500WW1: 1200"RIGHT!! PUSH RETURN TO TRY ANOTHER."A$:A$""1260 1100 "THE RIGHT ANSWER WAS."  3500L ZXX19A$((XX110))""A$(XX1(XX110)10)c dXX110A$(XX1){ nCV15000:: 1100  - INITIALIZE A$(0)"          "" A$(1)"            "j A$(2)"        " A$(3)"        " A$(4)"           "C A$(5)"       " "A$(6)"        " ,A$(7)"          "# 6A$(8)"   ߩ   "l @A$(9)"          " JAM$" ߩ " TAD$"      " ^AE$"      "8 hA$(10)""> re  - GET 1 OR 2 DIGIT NUMBER INTO N D0:N0: I1 10: I$:  X$: X$"" 2020  X$(13) D0 2100  D2 X$"0" X$"9" 2020 DD1 V(X$) N10NV A$(V)"";* 2020$4Z " " " " " " " "  " "6 " "c "";i  " " " " " " " "6 " "] " " ""; $  CALENDAR4 (C) 1979 BY ADP SYSTEMSX 95 W 100 S, LOGAN, UTAH 84321^i 2000t 1000~( 1002 200<" HIT SPACE FOR ANOTHER MONTH"F I$: I$" " 70P 30d""; iX17((M$(M1))2)%nX);M$(M1);Y1;""Ps" S M T W T F S"hx I16:170::160n" "" ݠݠݠݠݠݠ""  140:150:150:%4"";>TT5L I1 DiTT5: T40 T5:""vT2)I;~ I"""PERPETUAL CALENDAR" 3000 M12 1070MM110YY11$ 1100.MM128YY1LA((13M1)5)MD1.VFY((Y100)100)>`G(YF)100KjC(F4)XtH(G4)n~SACHDF(2G)TS((S7)7)L1Y1((Y1100)100)LL1((L14)4)DD(M1) M12 1290L2(Y1L1)100L3L2((L24)4)  L0 1290 L10 12600 L30 12909D29Z DAY OF WEEK IN T, 0=SUNDAYx # OF DAYS IN MONTH IN D~  "JANUARY","FEBRUARY","MARCH" "APRIL","MAY","JUNE","JULY" "AUGUST","SEPTEMBER","OCTOBER"  "NOVEMBER","DECEMBER"  M$(12)  I1 12,  M$(I)4  IL  31,28,31,30,31,30d * 31,31,30,31,30,31p 4 D(12) > I1 12 H D(I) R I \ "MONTH (1-12) "; M1 M11 M112 3000 " YEAR "; Y14 Y11900 Y12100 3030:   CLOCK1 (C) 1979 BY ADP SYSTEMSU 95 W 100 S, LOGAN, UTAH 84321[f 1000A$(0)"          "A$(1)"            "BA$(2)"        "#A$(3)"        "(A$(4)"           "-A$(5)"       "c2A$(6)"        "7A$(7)"          "<A$(8)"   ߩ   "DAA$(9)"          "|F"ב"K""P""U""EZ""[d"";znTI$"125959"TI$"010000"xT$TI$X16X3X5"";A$(((T$,X,1)));"";100 "HOURSMINUTESSECONDS"* "\\//"@ "";T$S (T$)61000^ TI$T$h  ""n $$  - SAVINGS ACCOUNT? - (C) 1979 BY ADP SYSTEMSe - 95 W 100 S, LOGAN, UTAH 84321kvZ 1000d""n13)"SAVINGS ACCOUNT"x"1 - COMPUTE FUTURE VALUE""2 - COMPUTE AMOUNT TO DEPOSIT""3 - COMPUTE INTEREST RATE"*"4 - COMPUTE TIME REQUIRED"<"5 - DONE"c" ENTER YOUR CHOICE (1-5)" I$: I$"1" I$"5" 210G(I$) G5  G 2000,3000,4000,5000 100 - INITIALIZE FUNCTIONS A(X)I(100K) B(X)(1A(X))(NK)3 C(X)(1A(X))(NK)O D(X)(X100.5)100i E(X)(X10.5)10o$x "HIT SPACE WHEN READY" I$: I$" " 1410 - COMPOUND TERMP$"PERIODS" K1 P$"YEARS"  K360 K365 P$"DAYS"' K4 P$"QUARTERS"@ K12 P$"MONTHS"F"kH$"COMPUTE FUTURE VALUE"v 9000FVPVC(X)"FUTURE VALUE IS";D(FV) 1400  H$"COMPUTE AMOUNT TO DEPOSIT" 9000 PVFVB(X) "AMOUNT TO DEPOSIT IS";D(PV)) 1400/ UH$"COMPUTE INTEREST RATE"` 9000xA(FVPV)(1(NK))I(A1)K100"INTEREST RATE IS"D(I);"%" 1400H$"COMPUTE TIME REQUIRED" 9000 N(FVPV)(A(X)1)  1500# N1E(NK)/ NE(N)W "AMOUNT WILL BE REACHED IN";N;P$s  K1 "OR"N1"YEARS"~  1400  (# H$ -# G2 9030 2# "AMOUNT DEPOSITED";PV <# PV0 9200 F# G1 9060 P# "AMOUNT DESIRED";FV Z# FV0 9200 d# G3 90904 n# "INTEREST RATE";IF x# I0 9200W # G4 9130q # "NUMBER OF YEARS";N # N0 9200 # "NO OF TIMES COMPOUNDED PER YEAR";K # K0 9200 #K(K) # #"AMOUNT CANNOT BE ZERO OR LESS!" # I1 1000: $ 9000 ! - DAYS BETWEEN DAYSA - (C) 1979 BY ADP SYSTEMSh - 95 W 100 S, LOGAN, UTAH 84321n|""10);"DAYS BETWEEN DATES":::"THIS PROGRAM WILL COMPUTE THE NUMBER OF"#"DAYS BETWEEN TWO DATES, OR WILL COMPUTE"3("THE DATE ANY NUMBER OF DAYS BEFORE OR"N-"AFTER A GIVEN DATE."V2:7"WARNING: THIS ROUTINE IS ONLY VALID FOR"<" DATES FALLING FROM MARCH 1,1900 THRU"A" FEBRUARY 28, 2100 AND DOES NOT CHECK"F" TO SEE IF YOU HAVE ENTERED VALID"K" DATES."*P 40005d 3000>n""jx "FIRST DATE (EX 12,31,1955)";M1,D1,Y1}MM1:DD1:YY1 1000 2000:M$(M);D;",";Y;"FALLS ON A ";D$(DW):"COMPUTE:":" 1 - NUMBER OF DAYS BETWEEN DATES"(" 2 - DATE X DAYS FROM FIRST DATE"K I$: I$"1" I$"2" 220^ I$"1" 300y: "NUMBER OF DAYS";NJDJDN 2000::M$(M);D;",";Y;"FALLS ON A ";D$(DW) 4000" 110,6J1JD @: "SECOND DATE (MM,DD,YYYY)";M2,D2,Y2 JMM2:DD2:YY2+T 10006^ 2000bh::M$(M);D;",";Y;"FALLS ON A ";D$(DW)r::"THERE ARE";(JDJ1);"DAYS BETWEEN DATES"| 4000 110 - COMPUTE DAY # GIVEN M,D,Y M2 1050MMM13YYY1 1070 MMM1 $YYY7 .JD(365.25YY)(30.6001MM)D= 8l  - COMPUTE DATE & DAY OF WEEK GIVEN DAY # YY((JD122.1)365.25) MM((JD(365.25YY))30.6001) DJD(365.25YY)(30.6001MM) MMM1  MM14 MMM13 YYY  M3 YYY1, DW(JD5)(((JD5)7)7)2 *T "SUNDAY","MONDAY","TUESDAY"q "WEDNESDAY","THURSDAY" "FRIDAY","SATURDAY" D$(6) I0 6 D$(I) I  "JANUARY","FEBRUARY","MARCH" & "APRIL","MAY","JUNE","JULY"# 0 "AUGUST","SEPTEMBER","OCTOBER"? : "NOVEMBER","DECEMBER"L D M$(12)[ N I1 12g X M$(I)o b Iu l :" HIT THE SPACE BAR TO CONTINUE"  A$: A$" " 4010    RAILROAD4 (C) 1979 BY ADP SYSTEMSX 95 W 100 S, LOGAN, UTAH 84321^g""u::::14);"RAILROAD"#::("THIS PROGRAM DEMONSTRATES GRAPHICS AND"-"MAY GIVE YOU SOME PROGRAMMING IDEAS"2::$7"USE THE NUMBERS ON THE NUMBER PAD TO"K<"SWITCH THE CORRESPONDING SWITCH"_A I14000: ImF59468,12xK 1000PL191UP1:M32898_""d" "n" x"";" 2 3"`" "" "" "" 6"" ۠۠۠""۠۠۠۠"?"۠ "d"۠۠۠۠""۠۠4۠""۠"" 1 5"" "" ۠ "B" "g" """۠۠8 7",""6" " @" " A,  A0 A9 2000= MMP:L(M)O M,81:MP,L1c L75P40P1w &L75P1P40 0L85P40P1 :L85P1P40 DL73P40P1 NL73P1P40 XL74P40P1 bL74P1P40 lL1L v500  I1 8  P(I) -  S(8,2);  I1 8I  J1 2V $ S(I,J)^ .:d 8 L 33332,32904,32916,33338,33356,33076,33636,33624 V 85,74,85,73,85,73,75,74,73,75,75,73,74,75,74,75  P(A),S(A,1) TS(A,1):S(A,1)S(A,2):S(A,2)T $