KKKKKKKKKKKKKKKKKKKKK 17,91:VIC21,06: VIC32,0:VIC33,0:VIC34,6:VIC35,5:VIC36,27D" "G7N" "y7X" G O D Z I L L A "7b"ү  ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI154~60010 5Z(Z$):ZL(IN$):(Z127)32" ";:60110=5FL(Z127)64(Z127)91Z$((Z128)255)N5ZL1160010i5IN$IN$Z$:Z$;ZD$;Z$;5Z13IN$(IN$,2):CR$;:5Z20ZL1IN$(IN$,ZLK W:TMTI152#JD(JS)31:JB(JD16):JDJD152# JB JD15 YN(NO0):3#(JD 8)0 NO0 NO1: 9110A3#(JD 4)0 NO1 NO0: 9110L3# 9120{3% ASID SID14 7: A,0: A1,0: A5,03&% A6,240:: SID7,128:SID14,255:SIDKCS,C040C: VICCS1,50R40: CS$:9000:0'# "";: 1(#Z$"-":ZPO(R,C): Z0 Z$(Z)21-# 26);"POP. ";(" "Z$,8)W12#Z$"-":ZTR(R,C): Z0 Z$(Z)}17# 26);"TROOPS ";(" "Z$,6)1<#Z$"-":ZPL(R,C): Z0 Z$(Z)1A# 2650,7,8, 190,1,7; 230,1,1, 19,7,1, 65,8,7, 111,2,8; 157,16,2, 199,16,5;:(< 48,2, 50,4, 0,0, 50,1, 53,2, 50,2, 45,2, 67,16, -1,0q< 32,12,0,0, 32,8,0,0, 32,2,0,0, 32,14, 38,12, 36,8, 32,2,0,0, 32,10< 30,4, 32,14, -1,0<:<5,3)).X PO(3,3)PO(3,3)PD:TR(3,3)TR(3,3)TD/b TKTKTDPD: 26);"";TDPD;"DEAD": 8900@/l DL300: 7950: DN$;: I1 3: 26);BL$:]/v PO(3,3)10000 SG1:s/ TK2E7 SG2:~/ 8900/ SID0,0: SID5,0: SID6,240: SID24,15:"9"";Z1);T$9ZO);"";(T$,O,1)9ZN);"";(T$,N,1):ON:NN1: N(T$) N29:I150::O2CC1:(CL$,C,1);:C(CL$)C0M:(JS)1662170k: :61000:"":VIC17,27:VIC32,11:VIC33,0:100:$ \:. 0,KҠ"7l" "8v" "68" BY GLEN FISHER "e8" "8""8"1):"";:600105Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000056001056HCRT1024:VIC53248:WD40:CR$(13):SID54272:JS56320:CM55296k6RQK1E20:QL1E20:QM1E20:QP1E20:QQ1E20:QS1E20:6&" 11/11/82 6061000:(142);"":VICK24,15:SID23,030% SID4,17: SID11,17: SID18,173:%ZNT(N): Z0 95604D% SID1,Z: SID8,Z: SID15,Z>4N% I1 DR(N): I:NN1: 9520e4X% SID4,16: SID11,16: SID18,16k4b%4`IN$" ":ZTTI:ZC2:ZD$(20)4jZ$:Z$""600704tK);"PLANES ";(" "Z$,6)1F#Z$"-":ZSH(R,C): Z0 Z$(Z)2K# 26);"SHIPS ";(" "Z$,7)2P#82#NO0: 26);"PLAY AGAIN?"W2#TM0:SW1:26);"YES NO"j2# TITM 91502#26NO4);("",SW,1);("YESNO",3NO1,3);""2#SW3S7,0,0,0,0,0,112,0,0,236,0,1,255,0,1,255,0,3,240,0,3,224,0,7,248,0,7$=236,0,15,192,0,15,192,0,15,128,0,31,192,0,31,224,0,63,240,0,126,240,0I=252,224,195,241,192,127,195,2400y;j MAJOR,300, SEVERE,400, GRAVE, 800;t:;~ 70,2,5, 110,8,2, 1 SID23,0/ SID4,17: I1 6/ J25 50: SID1,J:K11::J#0 J49 26 1: SID1,J:K11::J70 I: SID4,F:e04! SID,0: SID6,240: SID24,7: SID23,00>! SID4,17: I14:J170:SID1,J:J:I: SID4,160H!0" VIC0, 0, 0, 0, 0, 0, 0:8 0,0, 1, 1, -1, 1, 0, 1:B 0,0, 1,-1, -1,-1, 0,-1;L 0,0, 1, 0, -1, 0, 0, 0 ;V:Q;` NO,5, NO,5, LITTLE,20, SOME,100, SOME,100, GREAT,150, MAJOR,300y;j MAJOR,300, SEVERE,400, GRAVE, 800;t:;~ 70,2,5, 110,8,2, 1 R10 R14 C10 C14 8200 .& GRR1:GCC1: VIC,24GC406: VIC1,50GR4010,.0 RR1:CC1:CS6:CS$C1$:8900R.: GDGD15: GR3 GC3 SG0:.D DN$;26);"GODZILLA IS": 26);"IN TOKYO!": 8400.N PD((1)PO(3,3)3):TD((1)TR(3Ԡ銊Ӡ"8""!9""S9 "BASED ON A PROGRAM BY RANDALL LOCKWOOD"o9C0:O1:N2:CL$""9Z2:T$" PRESS JOYSTICK BUTTON TO BEGIN. ID24,25: SID23,1: SID1,12: SID6,253: SID5,192"N SID4,129:N1O"SVIC6,24GC40:VIC7,50GR40:VIC27,(VIC27)8j"XI70 255: SID22,I"]BI(N)IVIC39,BG(N):VIC42,BS(N):NN1"bJ1 ((255I)34).7:"l I: SID24,7 0: 2000  DN$;26);"BOMB": 26);"DETONATED": 5700/  RAR1 AR1: R0 R4 5600V  CAC1 AC1: C0 C4 5590  ("",15R);5C);"";  R3 C3 VIC3,0  Z1 5: "֝";: Z5 " *~ SID1,C: I1 90:* SID1,0: I1 54: + SID1,G: I1 120:'+ SID1,C: I1 90:8+ SID4,16:V+x DN$;26);"HOW MANY?"+ 26);"?";: 60000: IN$"" IN0:7890+ Z1 (IN$):Z$(IN$,Z,1)+ Z$"0" Z$ SD(TD350): SDSH(AR,AC) SDSH(AR,AC):TDTR(AR,AC) DM1((1)9)+ 5300P DN$;26);BL$: 26);BL$: 6500 SID22,110: SID1,12: SID6,252: SID5,28 SID13,76: SID24,31: SID11,17 SID11,16: I255 55 126);"TOKYO IS": 26);"DESTROYED!") 26);"GODZILLA": 26);"WINS!!"')GWGW1:N10: 9500: 7000@)XDL300: 7950: DN$;[)b I1 4: 26);BL$:|)l C2$;26);" GAMES WON )v 26);"GODZILLA ";(" "(GW),4)) 26);"YOU "; (R1R2)(C1C2)2 ER$"TOO FAR": 7900: 4630) R1R2 C1C2 4630FT(TR(R1,C1)SH(R1,C1))vSH(R1,C1)SH(R1,C1)1:SH(R2,C2)SH(R2,C2)1TR(R1,C1)TR(R1,C1)T:TR(R2,C2)TR(R2,C2)TRR1:CC1: C1$: 9000RR2:CC2: C2$: SH(GR,GC)0 TDTR(GR,GC)& 26);"1 SHIP SUNK"' 66700'PD((1)PO(GR,GC)):TD((1)TR(GR,GC))b'PO(GR,GC)PO(GR,GC)PD:TR(GR,GC)TR(GR,GC)TD~' 26);"";TDPD;"DEAD"'" GRR1 GCC1 C1$: 9000''TKTKPDTD',DL300:79C2)2 ER$"TOO FAR": 7900: 41200 LN(R2,C2)0 ER$"NOT LAND": 7900: 4120bTR(R2,C2)TR(R2,C2)IN:TR(R1,C1)TR(R1,C1)IN}RR1:CC1: C1$: 9000RR2:CC2: C2$: 9000DL60: 7950 VIC5,0: C2$;"": 9000: DN$;26);BL$D;("SHIPS",5(SD1));" SUNK"% TDPD0 26);"";TDPD;"DEAD":TKTKTDPD>% AD0 26);"";AD;"DESTROYED"a% ARR1 ACC1 C1$: 9000z%DL300: 7950: DN$;% Z1 4: 26);BL$:% PO(3,3)25000 6900% TK2E7 6850D16)08110,^TITMA,((A)8)15:TMTI2,hJDJD15:JD158020-rRRJR(JD):CCJC(JD)'-| R0 R47- R4 R0G- C0 C4W- C4 C0v- A,(A)8:TMTI20:8010-A,(A)8:- R1GR((1)31):C1GC((1)31)- 9: SID4,128"vI15 200: SID22,I#BI(N)I5770>#VIC39,BG(N):JBS(N):VIC42,J:NN1:J16VIC7,0S# J1 10:: I# SID4,0:VIC42,6:VIC27,(VIC27)8#VIC6,24C140:VIC7,50R140:#p VIC21,0: SID24,0#z "";  Z: "":TDTDTR(R,C):PDPDPO(R,C)'!TR(R,C)0:PO(R,C)0:SH(R,C)0:PL(R,C)0/! CF! R:RAR:CAC:AB1d! DN$;26);BL$: 26);BL$!DM(10)((1)1500)800:DM10!TR(AR,AC)TD:SH(AR,AC)SD:PL(AR,AC)AD:PO(AR,AC)PD:6500"D S "9" ER$"BAD NUMBER": 7900: 7890+ Z:IN(IN$), DN$;26);"";BL$:26);BL$:), DN$;26);ER$;"":,DL60: 7950I, 26);BL$O,\,TMTIDLo, TITM 7960u,",@AVIC39CS2:TM0,J 8900,TJD(JS)31:C$:C$""(J SID8,I: SID8,I:  SID11,0: SID23,1: SID4,129! I1 200: I3 SID4,128:Z| AB ER$"USED IT": 7900: 2000 DN$;26);"REALLY?": 26);"?";: 60000 DN$;26);BL$: 26);BL$ (IN$,1)"Y" ER$"ABORTED": 790(" "(HW),4)) DN$;: 9100: YN0 6000) 900,*L 61000: SID24,15: SID,0: SID5,0: SID6,240i*VP2(112):C40:DCPP:EDPP:GEPPP21: SID4,17*` SID1,C: I1 90:*j SID1,D: I1 90:*t SID1,E: I1 90: 9000 DL60: 7950 VIC5,0: C2$;"": 9000: DN$;26);BL$&  2000S NM1 ER$"NO MISSILES": 7900: 2000NMNM1: DN$;26);"MISSILE";10NM: 26);"LAUNCHED"PD((1)PO(AR,AC))TD((1)TR(AR,AC)): LN(AR,AC) 5040 50'6 DN$;: Z1 4: 26);BL$:'@ TK2E7 6850(J 20000( DN$;26);"GODZILLA": 26);"IS DEAD!"N(HWHW1:N1: 9500: 7000l( DN$;26);"";TK;"DEAD"( 26);"GODZILLA": 26);"WINS!!"(GWGW1:N10: 9500: 7000( DN$;" 2000 LN(R1,C1) ER$"NOT SEA": 7900: 2000A SH(R1,C1)0 ER$"NO SHIPS": 7900: 2000^ DN$;26);"WHERE TO?"CS4:CS$C2$: 8000:R2R:C2C: DN$;26);"";BL$ C$"" 4630 LN(R2,C2) ER$"NOT SEA": 7900: 4630% GD1 6800% DM7 DM8 2000& 8200: SG SG 6900,6850D& DN$;26);"GODZILLA": 26);"ON RAMPAGE"O& 8500f& LN(GR,GC) 6660& SH(GR,GC)0 6700&PD0:TD((1)TR(GR,GC)SH(GR,GC)):SH(GR,GC)SH(GR,GC)1&00 7800: IN0 4120+ INTR(R1,C1) ER$"TOO MANY": 7900: 4120I DN$;26);"MOVING";(IN)b 26);"WHERE TO?"CS4:CS$C2$: 8000: DN$;"";26);BL$R2R:C2C: C$"" 4120 R1R2 C1C2 4120 (R1R2)(C1": VIC32,14: VIC33,6# T$: T$"" 6020$I$dTR(AR,AC)TR(AR,AC)TD:SH(AR,AC)SH(AR,AC)SD:PL(AR,AC)PL(AR,AC)ADq$nPO(AR,AC)PO(AR,AC)PD:GDGDDM(DM)$x DN$;"";26);DM$(DM);" DAMAGE": 26);"TO GODZILLA"$} SD0 26);"";S  LN(AR,AC)0 ER$"NOT LAND": 7900: 2000P TR(AR,AC)0 ER$"NO TROOPS": 7900: 2000i 7800: IN0 2000 INTR(AR,AC) ER$"TOO MANY": 7900: 2000 TD((1)IN) DM1(IN8000(1)3): DM7 DM7 DRIN50125000 SIDO,128: SIDO2,10: SIDO,129: SIDO,128+ I1 30:: J1 _ LN(AR,AC) ER$"NOT SEA": 7900: 2000 SH(AR,AC)0 ER$"NO SHIPS": 7900: 2000 TR(AR,AC)SH(AR,AC)100ER$"TOO FEW MEN":7900: 2000 DMSH(AR,AC)((1) ND ATTACK,SEA ATTACK,AIR ATTACK,MOVE TROOPS,MOVE SHIPBh MISSILE,ATOM BOMB,QUIT^GD2500:NM10:AB0:TK0llR10:C10 8200: SG SG 6900,6850 T$: T$"" 2005CS$C1$:CS6: 8000:R1R:C1C C$"" C$(13) 20054,129  I1 200: I: SID4,128! I1 700(1):) J/ ? ARR1:ACC1q PL(AR,AC)1 ER$"NO PLANES": 7900: 2000 (GRAR)(GCAC)2 ER$"TOO FAR": 7900: 2000 7800: IN0 2000 INPL(AR,AC) ER$"TOO MI1 5*N5: I1 N4: J1 5: "";: J:a J1 N: K1 5: " ";: K: JN I5 p J,I:""} "" I1 20: T,T$: T);T$:: VIC3,18617," ",17," ",17," ",16," ",15,"ߩ",15,"SK):B$" INCREASED" CA1130B$" DECREASED"J"URING YOUR REIGN, YOU";B$;" THE WEALTH""OF THE KINGDOM BY FACTOR OF";((CA1130)1000)1000;"IN";YR;" YEARS."):GHYHI:RD((GSGH).07(1)):GSGSRDGHJ((1)25):WFVIC2,1448  I1 7 2: VICI,0::"BUILDING JAPAN...W :MP0: I0 4: J0 4  A,PO:PL0:SH0: PO0 PO(1E7PO.5)  PO0 PL((1)100)1:TR(PO80)  PO0 SH((1)6)1:TRSH350! PL(I,J)PL:SH(I,J)SH:PO(I,JANT""*";I$I$"*""":20032-ICA214DJ(I2):JGS214YI(10PWF)214b218s94:20:198 CALC CHANGES FOR YEARGSGSJ:YH1((1)5):GHYHI:RD((GSGH).07(1)):GSGSRDGHJ((1)25):WF"# I0 15: JR(I),JC(I): IE I1 10: DM$(I),DM(I): Ij I1 10: BI(I),BS(I),BG(I): I1 24: NT(I),T:DR(I)T20:  N: I0 N1: T: SBI,T:  IN 63: SBI,0: ASB64: I0 60 3:AI,255:AI1,2ID11,65:SID18,69 I1 3(1)INMP5-SID4,64:J0(1)300:JPSID4,65:J0200(1)500:JwI:SID4,64:SID11,64:SID18,64} LN(R1,C1)0 ER$"NOT LAND": 7900: 2000 TR(R1,C1)0 ER$"NO TROOPS": 7900: 20! GODZILLA - BY GLEN FISHER':: CURSOR/64 #5@:h COPYRIGHT (C) 1983 THE CODE WORKS BOX 6905, SANTA BARBARA, CA 93111: AS OF 2/7/83 9:30 AM GFZ: 62000 d TR(4,4),SH(4,4),PL(4,4),PO(4,4),LN(4,4),JR(15),JC(15: 2700 6500 ISID SID14 7@ I,0: I1,64: I5,0: I6,198::N4O J1 DRj ON:NN7: N18 N4z SIDN,129 I1 (SID27)4: SIDO,128 I1 30: J J1 2:ON:NN7: N18 N4  C$"Q" C$"H"/ C$"A" C$"H" ER$"HUH?": 7900: 2000STD0:SD0:AD0:PD0:ARGR:ACGC (C$)("A")1 2500,3000,3500,4000,4500,5000,5500,6000 2000CS$C2$:CS4: 8000:R2R:C2C  VICCS1,0: C2$;"": 9000 20004): DM7 DM7 TD((1)TR(AR,AC)):SD(TD300)M SDSH(AR,AC) SDSH(AR,AC):TDTR(AR,AC)X 3200c 6500 SID0,0: SID1,12: SID5,28: SID6,252: SID22,110 SID24,31 J1 3(1)SH(AR,AC)2 SID23,1: SID216," ",16," ",16," ",15," ",14," ",13," "u11," ",11," ",6," ",4,"  "7,"  ",3," ",4," ",4,""J C2$;"": 9000:T I0 7: Z$: 26);"";(65I);":";Z$:%^ LA ANY": 7900: 2000 DM(IN(1)3)1: DM9 DM97 AD(IN(1)):3700: 6500stSID,32:SID1,1:SID2,64:SID3,0:SID5,0:SID6,240~ASID7SID147:A,0:A1,4:A2,0:A3,1:A5,0A6,73:A:SID14,16:SID23,0:SID24,15S)PO:TR(I,J)TR:LN(I,J)(PO0):PLMPMPPL* J,IN  83,0, 87,0, 92,0, 97,1,102,0r $ 283,0,287,0,291,0,256,1,301,1 . 483,0,487,0,492,0,456,1,501,0 8 683,0,687,1.5,691,1,655,.4,701,0 B 844,1,806,1,851,0,856,0,861,0 x "";  1.5WK(.3(1)P):224 WK05AR(AR(5YH)GS6001):AR99228?AR99NAR0AR0gPPARSPWK:YRYR1u102:126"OU HAVE SOLD ALL OF YOUR LAND, THE GAME IS OVER""OU CAN GO BACK TO BEING YOURSELF."CACA(G55: AI2,224:E  I0 3: VICII1,0: SPI,14:: VIC16,0: SP,13g &ASB128: I0 63: AI,0: 0 I0 7: A3I,255:: SP1,15 X VIC21,15: VIC23,12: VIC29,12: VIC27,14 b VIC39,5: VIC40,1: VIC41,2: VIC42,6 l "*";I$I$"*""":17432*IGS184;94:20:172LI(5P)190\IGS4190sWR1: WAREHS RAIDGSGSI:SPP(I20):AR0:108:SP0194ARSP2:SP0WR19620" OW MANY ACRES SHALL WE PL),DM(10),DM$(10)7 i BS(11),BG(11),BI(11),NT(24),DR(24)P nSPCRT1016:SB1364i s "SETTING UP..." x T$: T$"\" 120 R050:C024:HW0:GW0 DN$"":BL$" " SID54272:I028:SIDI,0: C1$"":C2$" A9UM715L,32- CA10UM755L,32- NM40L,228- L- NMNM40. . BLOWUP. :. FF12. (50003)02910P. AA,BB:UAABB:W:U,W:. 874,897,162,128,160,0,132,33,134,34,177,33,73,128,145,33. 200,208,247,232,224,1   "+ + RUN STEP 3+ A$"֣", Z$"   ", >, Y$"       "V, DW$"", B$"    ", DW$;F);B$, DW$;F);Y$, DW$OPLE:";P 13);"CRES :";CA: 13);"U. TORED:";GSZ 13);"INGDOM IS AT ";PW$ :" ":: I(I$):I((I)): " DELAY LOOP $X14000:: & WAIT FOR KEY (11);"IT A KEY TO PRO 2310)"";*QV 1(BB$)*VQ1QV*"";"*+*AN$;*QV QV 1J*GOTO13750Y*PRINTAN$;i*BB$BB$AN$s* 2000* IS ANSWER RIGHT* (BB$)WWJJ 2610*$ 1920*D"; <WK168! >WK1"NE ";:66* @WK;@ B"DIED IN BATTLE"M DAR174w F AR;"PEOPLE CAME TO THE KINGDOM":76 HSP10SP1WK1" "; J" ONE PERSON CAME TO THE KINGDOM." L"E HARVESTED";GH; N"BUSHELS AT";YH;"BUSHELS" P";WW;"X";JJ;"= "':'BB$""(CRSR$""(AN$7(F22 TI$XV$ 2520L(F22"":2770\(F232350q( AN$"" 2000~(V(AN$)( V47 V58 (BB$)6 2210(*VV(CRSR$)( OF THE STORED GRAIN"% dGS(GS2):WR0:36:0 fJ0h hPP(P2):"HE PLAGUE KILLED HALF OF THE PEOPLE." j"HE POPULATION IS NOW ";P;".":36: lSPP n"LL OF YOUR SUBJECTS ARE EAD...... O ARE YOU!" p236r:"14%I1 2400%I2 2440%I3 2480%BB1&:B);A$;&:J150:#&:B)Z$;2&:J150:D&B30 1790K&IU&1660[&:t&A$"֥"&Q044& ZUM591QUM751Q 40&Y13&&ZY,228& ":WF1.5:130WF1:PW$""'46:38:20OK((1)1216):"AND IS WORTH";K;i"BUSHELS PER ACRE."" ’UY,ӒELL,OR ȒOLD AND"42A$"B"A$"S"A$"H"144"":138A$"H"172"OW MANY ACRES""*";I$I$"*""":148$32:I01724A$"S"164IJIK:JGS160Z94:20:136nGSGSJ:CACAI{20:172ICA234ICA94:20:146CACAI:GSGSKI20:"ISTRIBUTE HOW MANY BUSHELS FOR FOOD"32,208,240,96,0. BL 1 5. :874." J1 100., J.6 .@ :.J /^ /h WIN/r :/| B30(/ P147/ P12400F/ P22440U/ P32480_/ BB1/ :""B);A$;/ :J150:/ :B)Z$/ :J150;F);B$, FF1, TI$"000000",( ,2 CACA1,< L13-F CA1UM591L,32-P CA2UM631L,322-Z CA3UM671L,32I-d CA4UM711L,32`-n CA5UM751L,32w-x CA6UM595L,32- CA7UM635L,32- CA8UM675L,32- C, "RULE THE KINGDOM",RUN,P.76,FEB.1984U RULE THE KINGDOM BY J. SHAUGHNESSYm 53281,1:"";(14)P100:AR10:SP0:RD150:YH3:GH3000:CA1000:YR1:GS2850114 SUBROUTINES" TATEOFHEEALM": 13);"E. " YOU LOSE"+8 NMUM383 " YOU WIN!!"%+B I11000:I++V <+` RUN STEP 1U+j A$"֥"s+t Z$"   "y+~ + RUN STEP 2,4+ A$"Σ"+ Z$"CEED" *A$:A$""42 ,< ."* AIL REAT ULER ! *"n 0" BEG TO REPORT THAT IN THE YEAR";YR;"OF" 2"YOUR REIGN:" 4 SP158 6SP0" OBODY STARVED, AND":60 8SP;"PEOPLE STARVED, AND"; 960 :"NE PERSON STARVED, AN4 AN$ (CRSR$,VV,1) 2310(>VVVV1(H VV0 2100 )R V20 2160)\ V13 23208)f2310: RETURN TO GETM)pBB$"" 2310e)zBB$(BB$,(BB$)1))"";) BB$" ")"PER ACRE." R"ATS RUINED";RD;"BU.";2 T"LEAVING";GSM V"BUSHELS IN STORAGE."i X"HE KINGDOM HAS";CA; Z"ACRES OF LAND." \ ^" ING...THINK AGAIN!":36: `"HE STARVING PEASANTS RAIDED THE WAREHOUSES" b"AND DESTROYED 50%0Y,Z&:Q&DQV1&NA$"֥"&XA$&b:'l 2520'v:')'WW((HLP)(1))LP1D'JJ((HLP)(1))LP1['NMUM383 2920p'NMUM3832360'" "'"  ULE HE INGDOM "Qt"HERE YOU GOVERN THE ANCIENT INGDOM OF ABYLON"v"HE OBJECT IS TO KEEP THE INGDOM GROWING"x"F YOU WANT TO QUIT, SELL ALL OF YOUR LAND."z38|ZZ(TI):128~ZZ(1):ZZ.3PW$"SCREEN$ P MOVES MAN WHEN SOMEONE WINS %  BL # OF TIMES SCREEN BLOWS UP$%LD4 XV$"000001"<%"LD3 XV$"000002"T%,LD2 XV$"000003"l%6LD1 XV$"000004"r%@:{%JQV1%TF1:B1%^NMUM783%h""%rA$%|I.:/ B39 3070/ / 2950/ NM40L,228- L- NMNM40. . BLOWUP. :. FF12. (50003)02910P. AA,BB:UAABB:W:U,W:. 874,897,162,128,160,0,132,33,134,34,177,33,73,128,145,33. 200,208,247,232,224,1 I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0(@300DC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(U U71  ** T I T L E P A G E **8""";:UT,UU%:(50003)053280,14:53281,6N$I138:"";:f&I122:"";:~(I137:"";:*I122:"";:," ."  NM POKE NUMBER FOR BRICKS THAT ARE PILED WITH CORRECT ANSWERS)". I AT1100 POSITION OF RUNNERS ARMSR"8 B DISTANCE RUNNER IS ACROSS SCREENv"B A$ CURRENT POSITION OF RUNNER"L Z$ ERASE RUNNER"V J DELAY ON RUNNER"` Q SETS 2 PILES OF BRICK " d" OF PLAY. 1 IS FAIRLY SLOW AND 4 IS""f" QUITE FAST."<g" AST LEVEL:";LDyh"HAT LEVEL (1-4) ? ";:US$"1234":UL1:35:LD(UR$)i" AST: HIGH:";H;"LOW:";LPj" HAT IS THE HIGHEST NUMBER? ";:US$"":UL3:35:H(UR2128,21:2129,3UU48: DISABLE STOP KEY 800: TITLE 300: MENUG "THE PGM WILL NOT WORK ON THIS MACHINE!":| UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** "";::(50003)053281,6:53280,14 H0LP0H12:LP1 4292"UP1: 835: 850:'" ROGRAM AME: ONSTER ULT.O" RITTEN Y : ARRY EUMANNw" PGRADED Y : NNE HERESKY" HIS PROGRAM WILL RUN ON ANY" à2.0 " 450003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **E1075,133:1076,144:1077,234:1079,4:1080,133:1081,145{1091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:1094,22 ELL...OOD UCK!"835UZ1UP%:217"C ** TEACHER INSTRUCTIONS **s"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE P72:UU%21:UL%23:UP%2139:UM1024:UO198UD$""NUP$" "UT$" .": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900H10# VV A VARIABLE THAT CHECKS FOR CURSORS $ G$ VARIABLE TO TRY AGAIN"$ B$ PRINTS MONSTER:$ Y$ ERASES MONSTERJ$ TI$ CLOCKs$ L LENGTH OF EACH BRICK IN NEW PILE$ CA COUNTS CORRECT ANSWERS$ DW$ MOVES MONSTER DOWN TO MIDDLE OF T$UP$,21);(UP$UG$(UP),18)!\" --------------------------------------"0`UH0870da(UD$,24);(UP$,7);"HELP - PRESS H "ufUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u  0" 2" D4"C O M M O D O R Eg6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT": S"j Z POSITIONS OF THE 2 PILES OF BRICKS#t Y LENGTH OF BRICK3#~ WW & JJ RANDOM VARIABLES FOR QUESTIONSW# BB$ A VALUE FOR ANSWER STRING# CRSR$ A VALUE TO IDENTIFY CURSORS# AN$ A VALUE FOR MY GET# V ASCII VALUE OF KEYS PUT IN$)l" HAT IS THE LOWEST NUMBER? ";:US$"":UL3:35:LP(UR$)(835<UZ1UP%:217Bg ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"ULD0LD1 CA0:B0:L0:Y0:Z$"":A$"":NM0:Z0:Q0! P$=INSTRUCTION VARIABLEH! T$VARIBLE TO BREAK OUT OF INSTRUCTIONSe! LD LEVEL OF DIFFICULTY! F DISTANCE MONSTER HAS MOVED ACROSS SCREEN! XV$ TIME FOR LEVEL OF DIFFICULTY"$ .0 Ԡ" 8032 7" 64 @ 835TNUZ1UP%:217ZWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850b" N THIS PROGRAM THERE ARE 4 LEVELS8:1097,85:1102,228:965(50003)1990'1093,49:1094,230:1097,46:1102,230:965a2099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2124,3:2126,234:2127,141:UBLIC"" DOMAIN. F THIS IS NOT THE CASE"4" PLEASE CONTACT:"^" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-:LP1:LD1: ** CHECK FOR 8032 **"":"": SHIFTED SPACE.(UB40)96700G ** MEMORY CHECK **[ (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":( ARRIVAL OF THE MONSTER, HE WILL BREAK">" DOWN THE WALL AND YOU LOSE. RY YOUR"a" LUCK AND TEST YOUR SKILL."j835xUP3:850" HEN EACH QUESTION APPEARS TYPE THE"" ANSWER AND THEN HIT THE KEY.""  ** SET UP VARIABLES **8UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024vUT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT532 OGRAM IS FREE FOR/ DUPLICATION IN CANADA.L IF YOU HAVE CONTARYi INFORMATION, PLEASE CONTACT COMMODORE CANADA AND EVERY EFFORT WILL BE MADE TO WITHDRAW COPIES OF THIS PROGRAM.: # +++ INP OR HELP REQUEST +++5ZUR$UX$195: EXIT TO HELP ROUTINED_UF1240QdUF0::jf ++ CHECK DELETE ++{i(UR$)150nUR$(UR$,(UR$)1)s" ";:50x ++ CHECK FOR VALID CHARACTERS ++}(US$)0150US1(US$)UI$ UF1: +++ HELP ROUTINE EXIT +++$ 250- 245L UQUB(U2%256U1%U3%2)h UQ%(UQUB)(UQ)::""{ UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14 UT$UL$:"";:UT,UV%:UQUB(U2%256UUK$UG$:UL$UT$:UJUP:UKUL $ , ** MENU *** -:Y ."":UT,UU%:(50003)053281,9:53280,8_ /:| 1" MENU" 6" --------------------------------------" ;" 1. BEGIN MONSTER MULT." @" 2. STUDENT)1*(W$(X,K(X)),(W$(X,K(X)))1);9+(W$(X,K(X)),1)"."45C,:14o-QY1Z:L$(Y1)"YOU"L$(Y1)"I":53.L$(Q)"YOU"L$(Q)"ME":53/L$(Q)"YOUR"L$(Q)"MY":530L$(Q)"MY"L$(Q)"YOUR":531L$(Q)"YOURS"L$(Q)"MINE":OUTINE `US$"" c(UR$)1000,400,500,600,396) h300P  ** RE-ENABLE STOP KEY AND END ** (50003)1(50003)160(50003)0399 UU71:(50003)053281,6:53280,14 "": 875:  ** STUDENT INSTRUCTIONS **"":1)"YOURE" L$(X)"DOES"L$(X)"DO"> L$(X)"WORK"L$(X)"JOB"\ L$(X)"MALE"L$(X)"BOY"} L$(X)"FEMALE"L$(X)"GIRL" L$(X)"LIKE"L$(X)"LOVE" L$(X)"COULD"L$(X)"CAN" L$(X)"FUNNY"L$(X)"FUN" !L$(X)"ARENT"L$(X)"A UT,UL%:(50003)053281,0:53280,01UP0:UG$"TUDENT NST":850["AVE YOUR LIFE"" GAME OF SPEED AND SKILL"835UH1:UP2:850" OU ARE A VICTIM OF A BRUTAL ATTACK"" BY A VICIOUS MONS& ";K$(2)N :"THANKS FOR TURNING ME ON.....WHAT WOULD YOU LIKE TO TALK ABOUT?e X1Z:L$(X)"":X "":P$"":P$:"":(P$)0"OH! VERY INTELLIGENT":15 Z1:X1(P$):A$(P$,X,1):A$" "20 Y(A$):Y65Y9019 L$(Z)L$(Z)A$TER. HE ONLY WAY TO"/" GET AWAY FROM THE BEAST IS TO BUILD A"[" WALL AT LEAST 10 BRICKS HIGH WHICH"" THE CREATURE WILL NOT BE ABLE TO KNOCK"" DOWN. HUS, YOU MAY ESCAPE. HOULD"" YOUR WALL NOT BE 10 HIGH AT THE""SYS2*4096:J53280,1:53281,1:K$(121),K(121),W$(121,15),L$(50)" COPYRIGHT 1983 RAMIAK":" MAGGIE A.I.P."" PLEASE WAIT WHILE I"" GATHER MY THOUGHTS"1,8,0,"SMARTS 64"  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS PRUT SECTION +++"(UO,0:UR$"":UI$""2*UL0UL80<-UC,0P2UI$:UI$""50z7UI$(13)(UR$)1UC,1:" ";:85<UI$(20)105> (UR$)UL50A120: CHECK FOR VALID CHARACTERFUR$UR$UI$KUI$;P50 U +++ CHECK F(US$,US,1) UI$"":4 ** STANDARD INPUT **E(UI$)46VUI$(32)s(UI$)48(UI$)57170y(UI$)65(UI$)90180(UI$)193(UI$)218UI$"":(UT)UU%UI$((UI$)128):UI$"":532L$(Q)"MINE"L$(Q)"YOURS":53<3L$(Q)"YOURE"L$(Q)"I'M":53b4L$(Q)"I"L$(Q)"ME"L$(Q)"YOU"i5Q6(W$(X,K(X)),1)"#"" "K$(1):147(W$(X,K(X)),1)"%"" "K$(2):148XY1Z:" "L$(X);:X:44)1:W$(X,K(X))""K(X1%U3%3) UQ,UQ%(UQUB): U1,U1%* U2,U2%6 U4,U4%D U3,U3%1L 35~ UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:RE"3 "(L$(X),1)"S"(L$(X))4L$(X)(L$(X),(L$(X))1)e #X:X1K:Y1Z:(K$(X),(L$(Y)))L$(Y)37w $Y:X:X0:41 %L$(Y)K$(X)41 &L$(Y1)""36 '(K$(X),(L$(Y1)))L$(Y1)YY1:41 (36 )K(X)K(X)1:W$(X,K(X))""K(X INSTRUCTIONS"( E" 3. TEACHER INSTRUCTIONS"U J" 4. MODIFICATION OF PROGRAM"q O" 5. QUIT" T" --------------------------------------" Y" PRESS A NUMBER KEY (1-5) "; ^UL1:US$"12345":35: INPUT R X:21 L$(Z)""ZZ1:19N X1Z:L$(X)"SURE"L$(X)"OK"L$(X)"YES" (L$(X),5)"COMPU"(L$(X),5)"MACHI"L$(X)"COMPU" L$(X)"IM"L$(X)"I" L$(X)"HI"L$(X)"HELLO""HI "L$(1) L$(X)"YOU"L$(X1)"ARE"L$(X)"":L$(XV4,24,126,255,255,126,60-x 216,255,195,129,129,231,231,231,255- -1 ,Z1$;:I110::Z2$;:I110:C,Z3$;:I110:W,X$:X$""2180{, 56334,(56334)254:1,(1)251, 2448, 1,(1)4:56334,(56334)1, CB32768811,K:X0K:1,K$(X):1,J6 Y1J:1,W$(X,Y):Y:X: 1\ " HELLO I'M MAGGIE" "WHATS YOUR FIRST NAME":K$(1) "IS ANYONE WITH YOU NOW":Z$ Z$(Z$,1):Z$"Y""WHATS THEIR FIRST NAME":K$(2) "HI "K$(1);:Z$"Y"" C31,1)"2B1$""C1$""C2$"HIGH SCORE= "C1$7"7B1$B1$""C2$"SCORE= "C1$"""<B2$C1$""C0$" "C1$"""FB3$C1$""C2$"40"C1$"""KB3$B3$C3$"BUG BLAST" ]/@]/@ BUG BLAST :3  (C) COPYRIGHT 1983W  COMPUTER PROFESSIONALS, INC.^ :}  MODIFIED FOR THE 64 BY:  ERIC R. SMITH -- MARCH 1983 :  BASED ON MILLIPEDE FOR THE PET ў"+rZ2$Z2$"ѝѝѝѝѝѝѝѝѝѝѝѝѝ"I+tZ2$Z2$"ѝѝѝѝѝѝѝ"+zZ3$"ўўўў"+|Z3$Z3$"ѝѝѝѝѝѝѝѝѝ   pZ `Q *Z``tuww`mi`8`   `m i  1"(45)" Z C . / ")95)" "B)>5)""i)H" Q - QUIT":" Z - LEFT"})M" C - RIGHT")R" . - FIRE":" ; - UP")W" / - DOWN")\" LLmL L  `  -.ww` `&L%! " ` ~ ` σ` ) ) ) ) ) 983 PLUG"&11)" JOYSTICK"#'11)" ON LINE INTO"L'11)" AND PORT 2"l'11)" C P I "'11)" "' 11)""'11)" miww`8<=ww`|BjjBBjjB?fd;8``88``85\Z1߶.V~V.޶.V~V.޶+RyP'լ$LtL$Ԭ$LtL$ԬZ1 578,(56578)3:56576,((56576)252)3%53272,((53272)15)16$%53272,((53272)240)4.%3000J%"2598,128:2601,4:2592%,"SORRY CHUMP...YOU LOSE! "%6"DO YOU WANT TO PLAY AGAIN? (Y/N)"%@A$:A$"Y"A$"92, C:C12599, ICBC8CB7C8:X:I,X::2540,' :, - S54272:LSS24:L,0::A- 42,7,111,115,255,99,99,198,99c- 43,60,126,223,207,227,0,0,0- 46,60,126,192,0,0,0,0,0- 88,60,126,223,207,255,60,30,62- 90,24,2 C1$""C2$"LEVEL 1"C1$#P8110,32:8111,32:8112,32:8113,32:8114,481#Z53280,0:53281,0F#`2568,216: 2560u#d""B1$;:I123:B2$;:I:B3$;:33767,230#e56578,(56578)3:56576,((56576)252)1#i53272,((53272)15)0#j5327 (C) 1982 ON LINE SOFTWARE :!:8162,162:8163,0:8164,203:8165,03!52,128:56,128?!:2000V!:RN(TI):NM100l!(C108:C215:C301!-C$"":C0$(C$,(2547)1,1)!/C1$(C$,C11,1):C2$(C$,C21,1):C3$(C$, ѝѝѝ"+~Z3$Z3$"ѝѝѝѝѝѝѝ" ,"";/,Z1$;:I110::Z2$;:I110:C,Z3$;:I110:W,X$:X$""2180{, 56334,(56334)254:1,(1)251, 2448, 1,(1)4:56334,(56334)1, CB3276881  ` `8  `ww`ww `P``m`ww` ww`>`   ` 0(')(') "6)"*** PRESS ANY KEY TO PLAY ***";4*fZ1$"ўўўў"t*hZ1$Z1$"ѝѝѝѝѝѝѝѝѝѝѝѝѝ"*jZ1$Z1$"ѝѝѝѝѝѝѝ"*pZ2$"ўўў  )  )@ )` W ` 1`9`0  `>?ww`ɹ`惭ɠ` " `d  p` 0 0  p`LqLpح  "'11)"" ( 5)"":("5)"==C-64===================  "h(%5)" _ 2"(*5)" Q "(/5)" ; _   ` m  `i)` ` { i( { 8'`  ` N"320%JA$"Y"30%T""%^64738:&53280,15:53281,15)&""11)""G&11)""e&11)" "&11)" BUG BLAST "&11)" -OR-"&11)" (C) 1 Lw LLZL]LLLm  Z]۽LkL  Z]LmL  `@ `P `` ` D x D x D& x D x D x D` 2,((53272)240)8#k2598,4:2601,128:2592($m33767,230:33536,32:56295,C1:56235,(2546)W$xI1NM:L32849((1)678):(L)32L,88^$Iy$RN((1)38):8190,RN$3000:S,100:S5,88:S6,195:S24,15$4096:I1200:A$:I$56 `` `   ` ɰ  ɮ ` ɳ `` Z ` C ` `  ` P`   ``)) XX X X X XX X X`t   `  g S x g S x g S٩& x g S̩ x g]L Sи x g SЫ    D x D x D' x` D < D x> D` D x D`  )͠ 0 )͡  )͢ @ )ͣ  )ͤ  ) ͥ )@ͦ 1 )ͧ  QL\0`  Щ `Щ `P  `Y  `b  >L8LpKi( i!ww  Z  `X +. `m`8(ww LCL)8wwLR L)LCiiwwLR  惩` RE AT THE TEE OF HOLE";F : "DISTANCE";D;"YARDS, PAR";P$EG3G3P?T "ON YOUR RIGHT IS ";G^X1Qh 400kr "ON YOUR LEFT IS ";s|X2} 400 620 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2 408,4,2,4,359,4,6,4,424,4,  SOFTWAR`" <  ` <  <      " W>   <   `<   >Lf  Aƒ`` `(`L ARE AT THE TEE OF HOLE";F : "DISTANCE";D;"YARDS, PAR";P$EG3G3P?T "ON YOUR RIGHT IS ";G^X1Qh 400kr "ON YOUR LEFT IS ";s|X2} 400 620 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2 408,4,2,4,359,4,6,4,424,4,  L `& ) L$ `200:A$:I ,"SORRY CHUMP...YOU LOSE! " 6"DO YOU WANT TO PLAY AGAIN? (Y/N)" @A$:A$"Y"A$"N"320 JA$"Y"30 T"":(50000)064  LwLk(  LZL)  Z]L'  Z]( X+.) X+.' X+.Lw(  LZL'  Z]L)  Z]( X+.' X+.) X+.  21900,0RwUxNy z`BUGBL"T!Щ 2 -.L169,10,141,44,0,169,0,141,0,10nB , wRxUyNz {`1,2,169,13,141,122,2169,4,141,198,0,96SCORE= )``i) *  1*& &)X i(i 1]   `Z`  `* ` X XXX X X X X X XXX X X X XX X XX `k  `t  `}  ݮ``]I@K]J@UV./.]/@:...].@.. .. .. .. . Q  ( '  ) ( '  ) ` i  8(  ] `X +  `+ .  `.   `Q9 X    ``*Lm` d L < 0d L ƒɰƒ`ɠ(A B W @  L ƒɱ``)L L)LCLp)LkL ͸  p`L@ Q ``p`P@0   P@ 00 @P@ 00 @`LLLL-L L ` Q `LwZ`]# ` X ` 1Z$LtL$Ԭ$LtL$Ԭ'PyR+ݶ.V~V.޶.V~V.޶1Z\58``88``8;df?BjjBBjjBʣ| 4,2,388,4,4,4 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2E 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2_ 180,3,6,2,550,5,6,6erG2G2S1 "TOTAL PAR FOR";F1;"HOLES IS";G3 : " YOUR TOTAL IS";G2 G1F1 1770 292 80>: @J>. ..2.7.,.R``Q`Z`C````)   )ѭ)ƭ)ǭ)L2 "14)" ԩ``  (C) 1982 " 6)""5)" ON LINE "5)"" 5)""6)" ))1.5 D22 1560  D22 1500% "YOU HOLED IT!" : /FF19 230M "PUTT SHORT."ZD2(D2)e 1380~D2D2I(41(1))1 1450 "PASSED BY THE CUP.""D2D2, 15056 D,P,L(1),L(2) : @ "YOU  ww )`  L` ww" )`! " L` ww B )`A B L`  X ww `Н L - - `w ` `wwww]ZX+.*QW   T THE HOLE."zBD DD2 D227 1020/ D220 1100B D2.5 1120ML(0)9X 1470 S2Q(10(F1)18)(F1)(72((H1).85))18 956 752QQ1 S12(S12) 1011 862 "YOU MAY NOW GAUGE YOUR D OLE."DD75 620 O30 1150% J0 11506 T0 1070G S9(S21)15]  (S9)S9 1075s "YOU HOOKED- ";L(0)L(2) O45 1092$ 320.S9(S21)15/ (S9)S9 10403 "YOU SLICED- ";8L(0)L( IS NOT IN THE BAG SILLY."   620+  C12 6905 CC6?  650K S1S11S W1d  C13 960{  (F3)F3 952  C4 756  760  L(0)2 862  S17 867 D1(((30H)2.5187((30H).2515)C2)25(1 FROM PREVIOUS LOCATION."JJ1L(0)1DB# 620I "YOUR SHOT WENT OUT OF BOUNDS."T 1210e T3 1320D21(3((80(40H))(1))) 1380( (1)N 13602NN.2< "YOU DUBBED, YOU'RE STILL IN THE TRAP."F  1690  "ADJACENT FAIRWAY" & 1690+ 0 "TRAP"6 : 1690D D "WATER"O N 1690_ l A1 629z m "SELECTION OF CLUBS" n "YARDAGE DESIRED SUGGESTED CLUBS" o "200 TO 280 YARDS 1 TO 4" p "100 TO 200 YARDS S THE DIRECT- ION YOU WANT TO GO." $2$"FOR EXAMPLE, JU MEANS SINNER J"L$"WANTS TO MOVE UP^."R$u$"ALSO, YOU MAY WANT TO TYPE:"$" R WHEN YOU WANT TO STOP THE GAME."$" I FOR THESE INSTRUCTIONS"$" H FOR A LIST OF LEGAL M 19 1710 ;S10!@ : S10 15905J L(0)1 1150=TX0Q^ L(0)5 1190h "SHOT WENT";D1;"YARDS. IT'S";D2;"YARDS FROM THE CUP."j "THE BALL IS";(O);"YARDS OFF LINE----" : " IN THE ";| 400 620 L(X INNER,"#"WHO IS THEREBY CAPTURED AND REMOVED."E#"THERE ARE NO DIAGONAL MOVES AND NO"S$"JUMPS."Y$$"THE SINNERS WIN IF ALL THE BADDIES ARE""$"IN A LINE HORIZONTALLY OR VERTICALLY.",$"THE SINNERS LOSE IF THE BADDIES, AT" 6$" = TRAP SHOTS"$ "5 = PUTTING"P "WHICH ONE (ONLY ONE) IS YOUR WORST";X Th T5 120qS10|L(0)0J0Q0S2S21K0 F1 310" "YOUR SCORE ON HOLE";F1;"WAS";S1# 1750$ S1P2 297%  620PN.8Z 1300%d "ON GREEN";D2;"FEET FROM THE PIN."Ve "CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER"lf "FROM 1 TO 13";tx IS1S11 S11P(H.072)2 1470 K2 1470KK1 T4 1530D2D2I(42(1 2 " GOLF "@ : : o "WELCOME TO THE COMMODORE COUNTRY CLUB." "AN 18 HOLE CHAMPIONSHIP LAYOUT." "THE COMMENTATOR WILL EXPLAIN THE GAME" : "AS YOU PLAY." "SEE YOU AT THE 19'TH HOLE...." ISTANCE BY"! "PERCENT OF FULL SWING (1% TO 100%)";3 W : WW100G : W1 680[ L(0)5 1280l C14 760wCC10 760 D95 862 "THE BALL HIT A TREE AND BOUNCED INTO" "THE ROUGH";D75;"YARDS FROM THE H )) D1(D1W)  T2 11708 >O((1).8)(2H16)((D1.0035))S HD2((O2(DD1)2))f R DD10 870p \ 890 ^ "YOU DUBBED IT." `D135 b 830 c D200 1300 d 770 f D220 890 p "TOO MUCH CLUB. YOU'RE PAS 1)B 1055D "BADLY." F 320LL(0)5!V 320,`L(0)8;jD2(D23)Ft 1380Q~L(0)1[ 320lD1(.85D1)v 830 L(0)6 1260 "YOUR SHOT WENT INTO WATER."S1S11 "PENALTY STROKE ASSESSED." : "HIT  19 TO 13"- q " 0 TO 100 YARDS 29 TO 23"5 rA1V u "WHAT CLUB DO YOU CHOOSE";^ v Cr { : C1 690 } C29 690  C4 710  L(0)5 740  C14 740  C23 740  690 S1S11  "THAT CLUBOVES"$" B TO SEE THE BOARD." $:1%"HIT RETURN TO START THE GAME."Z%"THERE WILL THEN BE A SHORT PAUSE."d%6000j&% $"TO MOVE A SINNER, TYPE TWO LETTERS:"$"THE FIRST LETTER NAMES THE SINNER$"AND THE SECOND LETTER TELL )1 480  L(X)2 500%  L(X)3 5208  L(X)4 540K  L(X)5 560^  L(X)6 580t  "OUT OF BOUNDS"  1690  "PGA RULES HANDICAP = 0 TO 30"  80  "FAIRWAY"  1690  "ROUGH"  1690  "TREES"  THEIR TURN, CAN'T CAPTURE A SINNER."@$::6J$"PRESS RETURN TO CONTINUE.";@T$6000N^$" U":]h$"L + R":jr$" D":p|$$"TO MOVE A SINNER, TYPE TWO LETTERS:"$"THE FIRST LETTER NAMES THE SINNER$"AND THE SECOND LETTER TELL  S1P 299& S1P1 301-' S1P2 3037( 310T) "KEEP YOUR HEAD DOWN."^* 310{+ "A PAR! NNICE GOING.", 310- "A BIRDIE!". 310/ P3 3060 "A GREAT BIG EAGLE!!"1 3102 "A HOLE IN ONE!!!"6 F  OF CONDEMNED"#"SINNERS (MOVED BY YOU!!!)"#G#"THE PLAYING FIELD HAS 25 SPACES,"d#"5 ROWS AND 5 COLUMNS."j##"A SINNER MAY MOVE INTO ANY ADJACENT"#"EMPTY SPACE. A BADDIE MOVES INTO AN"#"ADJACENT SPACE WHICH CONTAINS A S  : : L(10) G118%G20.G306(A0?2N.8H<S20PFF1oP "WHAT IS YOUR HANDICAP";wZ Hd H30 470n H0 470x "DIFFICULTIES AT GOLF INCLUDE:" "0 = HOOK" "1 = POOR DISTANCE"  "4 LEVATION  740"WRONG DIRECTION 740$4@>"READY TO CONTINUE";Q$VH (Q$,1)"Y" `R2100f$"PLAYER","BEST SHOT   I1 P P$(I),D(I);"FEET  I1 WD(I)  WD(I) WD(I)  I   I1 D1 > D(I)D1 D(I)D1' HD1;"FT AWAY ";X1;",";Y1/ R J: \ 2100B f Ia y NEW PAGE - FINAL RESULTSj z""; "PLAYER","BEST SHOT   I1 P P$(I),D(I);"FEET  I1 WD(I)  WD(I) WD(I)  I   I1 " TYPE H FOR HELP."+ " TYPE I FOR INSTRUCTIONS."N " TYPE B TO SEE THE BOARD."X 3100s p***GET PLAYER'S INPUT} zB$"" A$:A$""6100 (A$)13 :A$;:B$B$A$:6100 X***HELP ROUTINE "LEGAL MOVES:"; J1 TARGET X(26000(1)5000)101 Y(26000(1)500)10F  (1).5 XXb  START PLAY - NEW PAGEk ""; P$(I);", YOUR TURN "TARGET AT X,Y ";X;",";Y  J1 3  "EL.,DIR.";B,C  KEEP SHOTON THE RANGE  B90 I ***PLAYER'S MOVE#  "SINNER'S MOVE? ";- & 6000@ 0 (A$)133200Y : :A$;:B$B$A$:3110w B$"I"9000:8000:3100 B$"H"8000:7000:3100 B$"R"8000:"THE SINNERS GIVE UP!!!": B$"B"8000:3100 (B$)23500 "YOU ARE TO FIRE AT A TARGET8"AT THE X AND Y COORDINATES\"LISTED. YOU WILL BE GIVEN THE"DISTANCE FROM TARGET AND THE"COORDINATES OF EACH OF 3 SHOTS"FIRED. A FINAL SCORE WILL BE"LISTED AFTER EVERYONE IS DONE  (1)) ::TEMPD(P(T9,3),P(T9,4))6 ::D(P(T9,1),P(T9,2))32S$ ::D(P(T9,3),P(T9,4))666c. ::I324008 ::8000:"THE SINNERS ARE WINNERS!!!":` :K15j :R90:C90t :L15~ ::D(K,L)666R9R91:R9I2500 ::D(L,K)666C9C91: ET#"SHORTER UP TO 90, WHEN IT WILLI"GO STRAIGHT UP AND BACK ON YOUT 2100n INSTRUCTIONS PAGE 2w""""ARTILLERY RANGE DIRECTION,6" 90@" :J" :YT" :^" ";S1$;"";FD$;"";S2$;""C"WELCOME TO S I N N E R S"u"WANT INSTRUCTIONS (YES OR NO)?";:6000B$"YES" 9000***GENERATE COMPUTER'S MOVE4MO0>J15:K15H:D(J,K)6662180RL14\::D(JR(L),K D(J,K)666FD$;7::D(J,K)64 D(J,K)90"";LR$;"  = ";R::D(J,K)32"";f::K5"";n:Kx:""J:(#***INSTRUCTIONS#"THREE OF THE BADDIES -OR DEVILS - (MOVED BY PET)"#"PLAY AGAINST A GROUP '**SINNERS BY MAC OGLESBY ON 2/78I**FROM CALCULATORS/COMPUTERS`***INITIALIZATIONLD(6,6),P(12,6),M(4),R(4),C(4)QH(2,3),U(4)VJ14:M(J),R(J),C(J):J`85,-1,0,82,0,1,68,1,0,76,0,-1jJ15:K15:D(J,K)64(J1)5K:K P  WD(I) "***WINNER IS***";P$(I)"  I9 "ANOTHER GAME";Q$R  (Q$,1)"Y" 1010\ 1800s "SAME PLAYERS";Q$  (Q$,1)"Y" 659  490 660 "HOPE YOU LIKE THE ARTILLERY "RANGE. COME AGAIN l "WRONG E 5:K15 :D(J,K)65D(J,K)897160# ::L14V ::D(JR(L),KC(L))32" ";(D(J,K));(M(L));_ ::Lj :K:Jp v  @***PRINT THE BOARD ROUTINE ""; J15:""; :K15 ::D(J,K)90LR$(D(J,K)) ::  B0 760 2000"  C180 C0 770-  2020@  GET SPOT HITL A180h D(9300(BA)(BA)) X1(10D(CA))10 Y1(10D(CA))10 *D1(10((XX1)(XX1)(YY1)(YY1)))10 3 KEEP BEST SHOT 4 J1 D(I)  SR((B$,1)) :J15:K152 ::D(J,K)SRRJ:CK:3360= :K:JG  3500Y DR((B$,1))d H J14x R :DRM(J)3450 \ ::D(RR(J),CC(J))323500 f ::D(RR(J),CC(J))D(R,C):D(R,C)32:2000 z J :"SOMETHING IS WRONG..." "LIST YOUR NAMES IN ORDER, WHEN- "ASKED. GOOD LUCKG  GET LIST OF PLAYERSa "HOW MANY PLAYERS";Pn DIGITS0v ""  I1 P "PLAYER";I;"NAME";  P$(I)  I  MEASURE TO.1 FOOT DIGITS1  I1 P  CALCULATE C9I2500 :L" :K:8000:SC223000> :"NO MORE SINNERS!!":Z :D(P(T9,1),P(T9,2))666w :D(P(T9,3),P(T9,4))TEMP :T9J2560 ::J014:U(J0)P(J,J0):J0 ::J014:P(J,J0)P(T9,J0):J0 ::J014:P(T9,J0)U(J0):J0 J: 180-X : X 07h"--------------------------->r"c|"DIRECTION CAN BE FROM 0 TO 180"WITH 0 AT RIGHT, 180 TO LEFT"AND 90 STRAIGHT AHEAD"NOTE. X IS MINUS FROM 90 TO 1802100 INSTRUCTIONS PAGE 3"" C(L))65D(JR(L),KC(L))892170?f:::MOMO1:P(MO,1)J:P(MO,2)Kdp:::P(MO,3)JR(L):P(MO,4)KC(L)lz:LvK:JMO023008000:"THE BADDIES CAN'T MOVE""THE SINNERS LOSE!!!":SCSC1 I13:JMO11 :T91(J " * *0" * *L" * *j"YOU / +" ELEVATION TARGET"AN ELEVATION FROM 0 TO 45 WILL"INCREASE THE DISTANCE, BUT"BEYOND 45 THE DISTANCE WILL G :JtI12:J13+~:H(I,J)1(5(1))9:K1J1Z:::KJ H(I,J)H(I,K)1150b:KlJ:IJ13:D(H(1,J),H(2,J))666:JS1$"A  = "S2$"Z  = "FD$"۲Ѯ###"" RING FOR YOU!":5 I310:J310:BA(I,J)1::::CLEARS BOARD ARRAY.D"": 140"I FAILED AFTER MOVE NO."M: 1201:"MAY I TRY AGAIN ('Y' OR 'N')";Q$: 420Y:KNIGHT PIECE GRAPHICS.b" " #> K17:12)"ݠݠݠ ݠ ݠݠݠݠKH12)"":pR12)"ݠݠݠݠݠݠݠݠ\12)"f:WRITE MOVE ON BOARD SUBR.M$(M): (M$)2 3285980Y3X,1 OSITION FOUND WHICH HAS THE MINIMUM+ $::NUMBER OF EXITS.E ,:::NEXT TRIAL MOVE.W 6XBXQ:YBYQ 7:X,Y=CHOSEN MOVE WITH LEAST EXITS, AFTER ALL TRIAL POSITIONS EVALUATED. @MM1: 155::RECORD THE MOVE: START NEXT CYCLE. :THE REMAINDER !""I CAN DO IT IN UNDER A MINUTE WHEN I>"DON'T HAVE TO DRAW ALL THESE PICTURES!|:1020 TO 1120=ANIMATED GRAPHICS FOR SUCCESS SUBROUTINE.S$"": V112:S$"'";:: W14$::: J175: J.::"  LREADY OCCUPIED THEN GO TO NEXT TRIAL MOVE.\ :: J18:"J="J: BA(X1MA(J,1),Y1MA(J,2))0 270 :::EXIT MOVE FROM TRIAL MOVE POSITION. :::IF EXIT MOVE IS NOT WITHIN BOARD THEN GO TO NEXT EXIT MOVE. :::IF EXIT MOVE POSITION IS ALRE ::: V150: V " ": U (*y:INTRODUCTORY MATERIAL.E""13)"KNIGHT'S TOUR_ 13)"""THE PROBLEM: STARTING FROM ANY POINT OF "THE CHESSBOARD, USE THE KNIGHT'S MOVE"TO COVER THE ENT F EXITS FOUND TO DATE.J "STARTING POSITION (X=1-8, Y=1-8)";X,Y:TI$"000000"\BA(XQ,YQ)0 901::PET DISPLAY OF MOVE NUMBERS. (FE0)(M64) 500::FAILURE SUBR. M64 "M=END": 1001::SUCCESS SUBR. FE8:"FE="#EN READY TO BEGIN. Y";JU$:: U (*y:INTRODUCTORY MATERIAL.E""13)"KNIGHT'S TOUR_ 13)"""THE PROBLEM: STARTING FROM ANY POINT OF "THE CHESSBOARD, USE THE KNIGHT'S MOVE"TO COVER THE ENT 10,10)=0" OR SIMILAR LINES. PET WILL THEN FAIL{t:THE FIRST TIME BUT WILL SUCCEED ON REPLAY BECAUSE BA WILL BE RE-ZEROED.u********************************x1,-2,2,-1,2,1,1,2,-1,2,-2,1,-2,-1,-1,-2 I3 10: J3 101:STORES DATA  ARTILLERY PRACTICE; FROM KILOBAUD #6, P34-36DZ""jd "THIS IS A TARGET PRACTICE GAMEn"WANT INSTRUCTIONS";Q$x (Q$,1)"Y" 140"" 490 INSTRUCTIONS PAGE 1"""THE ELEVATION LOOKS LIKE THIS  *** KNIGHT'S TOUR3 F CHAMBERS 1/799R *** PET USER GROUPn SOFTWARE EXCHANGE PO BOX 371 MONTGOMERYVILLE, PA 18936 59468,12d 1401::INTRODUCTORY PAGE.nMA(8,2),BA(12,12):X21:Y21:Q l" " v"  "  "-"  ߒߩ="  "M"  "^" "o" "" "" "!:PLAYING BOARD GRAPHICS.*""18)"KNIGHT'S TOUR"4""12)" OF THE PROGRAM IS FOR PET DISPLAY.X " "; " "; "ANOTHER DEMONSTRATION ('Y' OR 'N')";Q$  Q$"N" "OK! IT WAS GREAT TOU 76M: 9403285880Y3X,((M$,2))1767 3285980Y3X,((M$,1))176XS1$""S1$" ":SUCCESS SUBR.S1$"FINISHED IN "(TI$,4,1)" MINUTES AND "(TI$,2)" SECONDS ADY OCCUPIED THEN GO TO NEXT EXIT MOVE.` ::EE1:"E="E::COUNT EXITS AVAILABLE FROM THIS TRIAL MOVE.z ::::NEXT EXIT MOVE. : EFE 300::NEXT TRIAL POSITION. ":FEE:"FE="FE:BXX1:BYY1 #::BX,BY=BEST MOVE; THE FIRST TRIAL P ";8:: WB: J175: J:" "L: VV:S$"'";&` 410d:1210 TO 1320=ANIMATED GRAPHICS FOR FAILURE SUBROUTINE.S$"": U110S$"*.";:: W 18::: V150: V::" .";:: W FE"M="M1= : I18:E0:X1XQMA(I,1):Y1YQMA(I,2):"I="Iq ::X,Y IS CURRENT POSITION; X1,Y1IS TRIAL MOVE. : BA(X1,Y1)0 300 :: IF TRIAL MOVE IS NOT WITHIN BOARD THEN GO TO NEXT TRIAL MOVE. ::IF TRIAL MOVE POSITION IS A IRE BOARD.$"ONE SOLUTION: WARNSDORF'S RULE: AT EVERYR"MOVE, PLACE THE KNIGHT IN THE CELL FROM"WHICH THERE ARE THE FEWEST EXITS TO ANY"UNOCCUPIED CELLS.7)"PROGRAM BY F.CHAMBERS 1/79" PRESS 'RETURN' WH  IN MOVE ARRAY AND INITIALIZES BOARD ARRAY IN ONE PASS.M J23 MA(I2,J2)_BA(I,J)1::M1:E0:FE8: 601::INITIALIZE AND PET GRAPHICS DISPLAY.:M=MOVE NUMBER.:E=NUMBER OF EXITS FOUND ON TRIAL MOVE.:FE=FEWEST NUMBER Oq,60'I'!N" "."NI111:BB$:IC-N""I.N18w$'" 789 .'" ݠ 8'"ݠݠ1ݠB'" ݠ L'" 6 2?o:MA=MOVE ARRAY; STORES ALL EIGHT POSSIBLE RELATIVE MOVES.lp:BA=BOARD ARRAY; STORES ACTUAL MOVES.q********************************r:PET ALWAYS SUCCEEDS. HOWEVER IF YOU WISH TO FORCE A FAILURE YOU CAN DO,s:SO BY WRITING "135 BA( ) "NOT POSSIBLE": 4000  CHECK FOR HAZARDS**O LL(2) "OOPS!BUMPED A WUMPUS!": 4500r LL(3) LL(4) "YYIIIIEEE...FELL IN PIT": 4520| LL(7) "CAVE ENTRANCE IS BLOCKED": 5900: 390 LL(5) LL(6) "ZAP..SUPERBAT S *EATEN SUBROUTINE**  (1)75 3370: 5900: 4270F"TSK TSK TSK-THE WUMPUS GOT YOU"g"HA HA HA-YOU LOSE!": 8810~*MOVE EVERYTHING*"**EARTHQUAKE**": J3 7: 6100:: 5900L(2)((1)201): L(1)L(2) L(2)L(7) 5005 3130 5 *SHOOT ARROW**( : AA1: A0 A0: 3220J ? LL(2) "MISSED": 3215 D (1)0.8 "YOU GOT THE WUMPUS":FF1:L(2)0: 4400 N "YOU WOUNDED THE WUMPUS" 3370 10152:20001:A; "ARROWS LEFT": 390 % **MOVE WUMPUS RO: J;"ARROWS LOST",A;"ARROWS LEFT":5*RANDOM CAVE REARRANGEMENT SUBROUTINE**jL(J)((1)20)1: L(J)L(1) L(J)L(8) 6100p8%"MAY BE BLOCKED BY A ROCKFALL.THE BATS"H-ASK FOR INSTRUCTIONS": 7990:""**WARNINGS**6"TO CONTELS LEAD TO CAVES";S(L(1),1);S(L(1),2);S(L(1),3)K **FEARLESS FREDDY STRIKES AGAIN**g J38 LL(5): 4260~ *CHOOSE OPTION** MM1 "MOVE, SHOOT, ARROWS LEFT, EXIT "; "?";:I1250: " ";:I1250: I$  ?";:I1250:w"" ";:I1250:~"I$"I$""8821-"I$"Y"603"T'"1718w$'" 789 .'" ݠ 8'"ݠݠ1ݠB'" ݠ L'" 6PUS": 2110  "I FEEL A DRAFT": 211034"BATS NEARBY"U> J,K:"YOU ARE IN CAVE";L(1)pW*RINGER SUBROUTINES**\J((1)40): J0 J7 2440f J 2200,2210,2220,2230,2240,2250: 2440"AHAA!.WUMPUS TRACKS": "AHA!..FOUND OLD ۙ"   "Pܙ"   "ܙ" ߒ  ".ݙ" "@|ݙ" "FݎOޙ""XF15g ߙDN$;14);sp߁I130ߙ"BLACKJACK";J1F:"BLACKJACK";J1F:,13,16,19$*LOCATE L(J) ARRAY ITEMS*^*-1,YOU 2,WUMPUS 3&4,PITS 5&6,BATS 7,BLOCKAGE 8,EXITW0:FW:MW: J1 7:L(J)(1(1)20): J*CHECK FOR CROSSOVERS (IE L(1)=L(2) ETC) J1 7: KJ 7: JK 330@ L(J)L(K) 240*J 5 210 j'" ;t'"1615 43 1119X'" ͠ {'" 141312 '" '"20'I150'59409,52'59409 *** WUMPUS* DOUG WILLIAMS0I *** PET USER GROUPe# SOFTWARE EXCHANGEz( PO BOX 371- MONTGOMERYVILLE, PA 189362<"";=10000>"";?A *SET UP CAVE*#F L(8): S(20,3NATCH!": 4280 LL(8) "EXIT NEARBY"'L(1)L: 390\L(1(1)20): LL(1) LL(6) LL(7) 4280n 5900: 41200 (1)75 "BEWARE OF ITS MATE":J2: 6100: 3220:W1:"HEE HEE HEE-THE WUMPUS'L GET YOU NEXT TIME": 390UTINE** * W1 L(2)0: O 4 L(2)S(L(2),((3(1)1))):L(1)L(2) LL(2) L(2)L(7)3380U a k  *MOVE ROUTINE**| "WHERE TO"; "?";:I1250: " ";:I1250: L 20001 K13 S(L(1),K)L4120: LL(1*MOVE CAVE ENTRANCE** (1).1 0L(8)((1)201): J3 7[ L(8)L(J) L(8)((1)201): 5030c:*DROPPED ARROWS SUBROUTINE** J((1)10): JA A0 "DROPPED ARROWS": J0 "ALL ARROWS FOUND":*AAJ I$"" 2506 I$"S" "S": 30007 I$"A" "A": 3220R I$"M" "M": 4000w I$"E" L(1)L(8) "E":8800  2510 # ARROW ROUTINE** A1 "WHAT WITH? DUMMY": 390 "CAVE #";L:20001: K1 3: S(L(1),K)L INUE,TYPE ANY CHARACTER"7 I$8 I$"" 7991 9"":2[" *END GAME**c`""OUT OF THE CAVES",: F0 "GOOD HUNTING"e"W((F1000)M):"YOUR RATING IS";Wj" F0 "BETTER LUCK NEXT TIME"t""DO YOU WANT TO GO HUNTING AGAIN";u""ARROW,LUCKY YOU":AA1:> "OOPS,SLIPPED ON SOME LOOSE GRAVEL": 5900l "OOPS,YOU JUST FELL INTO AN UNDERGROUND" "POOL": 5900 "THIS LOOKS LIKE A NICE CAVE,WHY NOT" "STOP FOR LUNCH": "TAKE CARE WITH THAT FLASHLITE":$ "TUNN d;:55000 Nԙ"  ";:55000"Xԙ"  ";:55000;bԙ"  ";:55000Tԙ" ߒ  ";:55000oԙ"   ";:55000ԙ" ߒ ";:55000֙nׂLי؎ڙ" "$ۙ" "ۙ"  "K:J:A5:L(8)L(1):"ENTRANCE IS IN CAVE";L(8);*MAIN LOOP*S (1)0.4 3370k (1)0.08 5000 PRINT LOCATION AND HAZARDWARNINGS K1 3: J2 6: S(L(1),K)L(J) 2110 J2 2080,2080,2100,2100 "I SMELL A WUM  ";:55000 Nԙ"  ";:55000"Xԙ"  ";:55000;bԙ"  ";:55000Tԙ" ߒ  ";:55000oԙ"   ";:55000ԙ" ߒ ";:55000֙nׂLי؎ڙ" "$ۙ" "ۙ"  "): J1 20: K1 3: S(J,K): K,JTZBB$" "{ 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 15,17,20,7,16,18,9,17,19,11,18,20 " y39000DzJJ1zD(M1)J! {C(J)1131900-p{D9D919{A9A91F|DDC(J)V}D2232400fd}D9032400q}DD10},~D9D91~I152xP(I)0܂D(I)0@II152lC$(I)S$(I);ЄI4(P5 );S$(I);" ";`55000"10";S$(I);" ";&5500050L343400_bC$(I)"J"C$(I)"Q"C$(I)"K" 54200rC(I)1143000}Ƨ51000C(I)243200\51000C(I)35300052000L444200C$(I)"J" 54250ĩC$( TINE $^DN$;ER$"I AM SHUFFLING" aI14( bJ113: pbW113(I1)JP bS$(W1)(S9$,I,1)f 8cC$(W1)(C8$,J,1) cC(W1)((C9$,2J1,2)) dJ ddI dI152 ,eJ52(1)1 eTT$S$(I) eS$(I)S$(J) XfS$(J)TT$ fTT$C$(I) gC$(00ڬC$(I)"J" 54350䬋C$(I)"Q" 54360+C$(I)"K" 54370> C(I)1144500Ip51000\ԭC(I)1044650g54000yjC(I)64480053000C(I)44495025100052000,L645900^C$(I)"J" 54450hC$(I)"Q" P20900 PDP21500) xPDN$""ER$"THIS IS A PUSH"4 @Q21800N QDN$""ER$"YOU WIN!"Y lRTTB1d R21800o S34800 SDN$""ER$"YOU LOSE" TTTB1 (UT022200 UT022400 U"YOU ARE NOW EVEN" TV1500 V"YOU ARE NOW AHEAD $";TZ E$;"";:C53: K1 6 59409,C:C113C:TTI# TIT10 2020+:d "BOTTOM HALF =";U;" POINTS"zF Q0 "PLUS";Q;" BONUS POINTS"P "TOTAL = ";TUQ;" POINTS"USSSSTUQZ "ANOTHER GAME? ";\TTI^200 DN$""ER$"YOU BUSTED" !M11+4!360004!M12?#21500M#V09400XT$17600}$DN$;ER$"WOULD YOU LIKE A HIT ";%"?";:I1150:%" ";:I1150:%A$:A$""9600%A$"Y""YES":14900H&A$"D""DOUBLE":147 T62 TT35: "PLUS 35 BONUS POINTS"/2US(7)S(8)S(9)S(10)S(11)S(12)S(13)R< "BOTTOM HALF =";U;" POINTS"zF Q0 "PLUS";Q;" BONUS POINTS"P "TOTAL = ";TUQ;" POINTS"USSSSTUQZ "ANOTHER GAME? ";\TTI^S $1" <1500B1250004400/M1140020^ER$:ER$:ER$"THE HOUSE LIMIT IS $25,000"hh2700~0P0:D0:P90:D90V0$H0"M11300003130056000|J1JM123000031300 36000pP55000仉510008Ǚ" ";jlj55000& ˙" ";S$(I);" ";1x͉55000Qϙ" ";S$(I);" ";S$(I);" ";\щ55000~ҙ" ";S$(I);S$(I);S$(I);" ";TӉ55000ә" ";Ӊ55000ә"  ";:55000ә"  ";:55000ә"  ***************2 BLACKJACK 2.18N ***************] S9$""uC8$"23456789TJQKA"C9$" 2 3 4 5 6 7 8 91010101011"(I139:ER$ER$" ":2I139:ER$ER$"":<DN$""P57000d" C(0"";40000 XP51@L18%EM11400204JI51M11EL" ";MOI5]TP5140050i^ID(M1)th40200rIP(M1)"";:RC(I)lL140500Н510004L242800ʞC$(I)"T"41500(C$(I),1I)C$(J) gC$(J)TT$ gTTC(I) LhC(I)C(J)* hC(J)TT1 iI: rA90B  I(L "  "THE 13 CATEGORIES ARE:"B  "1 - ONES";CR$;"2 - TWOS";CR$;"3 - THREES"t  "4 - FOURS";CR$;"5 - FIVES";CR$;"6 - SIXES"  "T - THREE OF A KIND (SCORES ALL DICE)" & "F - FOUR OF A KIND (SAME AS ABOVE)" 0 "H - FULL HOUSE (SCORES 2 " "; I13 950% A1 13: S(A)1 0 1030A L$;""W 25);"SCORE? ";uF18F: (F);" ";:TTI I$: I$"" TIT25 980 A1 13: I$(S$,A,1) 1010: 970 S(A)1 1028KEEP? 33":TTI | TIT240 380A  "MEANS THAT YOU ";i  "ROLLED A 5 2 3 3 1"  "AND YOU WANT TO KEEP THE TWO 3'S, AND"  "ROLL THE 5 2 1 AGAIN."  "PRESS RETURN TO CONTINUE";  I 0,1160.J1 6: M(J)A5 11808: 11909B J1 6: M(J)1 M(J)4 1190NL:S(9)25: 1190pVC0: J1 6: M(J)5 1150`CC1: M(J)0 C0j CA6 1150t: 1190~S(A)10A70: 1190 J2 5: H(J)H(1)  "5 DICE. THE OBJECT IS TO GET AS MANY"Q "POINTS AS POSSIBLE. ONE GAME CONSISTS"~ "OF 13 TURNS. EACH TURN YOU MAY ROLL"" "THE DICE UP TO THREE TIMES.", " AFTER EACH ROLL (EXCEPT THE LAST)," 6 "YOU MAY ELECT TO KEEP ANY OR }}}} }} = }}}} = ؅}} = }} X }}}} _ L}}}}  L}}( = }}L  ѝ"*}A$(4)" ѝ  ѝ"MA$(5)" ѝ  ѝ"pA$(6)"ѝ ѝ"B$"ݝݝݝ"B$B$"ݝݝݝ":ST$""C$"": I1 6:C$C$" ":C$(C$,52):CR$(13) 1190:S(13)50: 2000: 1190"S(A)H(1)H(2)H(3)H(4)H(5)@ A13 S(13)50 1220b J2 5: H(J)H(1) 1220:QQ100: CR$;" 100 POINT BONUS": 2000:TTI TIT80 1212 E$I$(S(A))" ": S(A)9 I$(I& ***** YAHTZEE *** P.ROWE *****K * COPYRIGHT 1978, REGENTS OF *p UNIVERSITY OF CALIF., BERKELEY( ** LAWRENCE HALL OF SCIENCE **2 "WELCOME TO";< "";F "YAHTZEE";B$;"";: I1 13:S(I)1::Q0:GG19 I1 13:L1: J1 3Z KL 5:H(K)(6(1)1):s L$;"";: K1 5 KL A$(0); A$(H(K));"";:: J3 920 I$: I$"" 744 L$;"" "KEEP5)"# : "S - SMALL STRAIGHT(4 IN A ROW) SCORES 30";U D "L - LONG STRAIGHT (5 IN A ROW) SCORES 40"; N "E - EXTRA OR CHANCE (SCORES TOTAL DICE)" X "Y - YAHTZEE (5 OF A KIND) SCORES 50" b "PRESS RETURN TO START THE GAME"; l I$:)H(M) 850H: 860 RH(M)H(L):H(L)I(L): L: 8904\ " ???":TTIHf TIT30 870[p E$;"": 760yz "";CR$;E$: K5 910 CR$;" YOU CAN PRESS A TO KEEP ALL THE DICE":TTI TIT120 902 E$: 920 J$: I$"" 4504  " AFTER THE ROLLING, YOU SCORE THE FIVE";f  "DICE IN ONE OF THE 13 SCORING CATEGORIES";  "(ONE CATEGORY FOR EACH TURN). AT THE"  "END OF THE GAME, THE 13 SCORES ARE ADDED";  "TO GIVE THE TOTAL (PLUS BONUSES). CR$;"YOU MAY USE ONE SCORING CATEGORY ONCE":TTI+ TIT120 1022? E$;"";: 950X " ";vS(A)0: J1 6:M(J)0: J1 5:M(H(J))M(H(J))1: A7 S(A)AM(A): 1190$ A6 1070,1070,1090,1110,1110,118ALL OF THE". @ "DICE AS THEY ARE. THE ONES THAT ARE"j J "NOT KEPT ARE ROLLED AGAIN. FOR EXAMPLE:";L$;""; T I1 5: B$;"";: ^H(1)5:H(2)2:H(3)3:H(4)3:H(5)1 hL$;"";: I1 5: A$(H(I)); r "";:: "}}  L LL2 }}!Ѕ }}}} X }} _ L%L`}L}} = }}L2}} K }}}}( = }}}D$"ϣН̝") S(13)] "";CR$;"CARE FOR INSTRUCTIONS? ";{F18F: (F);" ";:TTI I$: I$"" TIT25 220 I$"N" 630 I$"Y" 210 " THIS IS A GAME OF CHANCE PLAYED WITH"" X }} _ L}}P}} i } }}} }}  L i }}L}} = }}L2}} K }}}}( = }}}P ""EZS$"123456TFHSLEY":F0:G0:SS0:E$""`_ I1 39:E$E$" ":{dL$""iA$(0)""nA$(1)"   "sA$(2)"   ѝ"xA$(3)"   WARRIOR OF RASSG----------------SGMENUSG----------------SGVOL #1SGDUNZHINSG-DUNZHINSG---------------- VOL #4SGZIGGURATSG-ZIGGURAT !!! MPTY IRECTORY !!! ɞ ݞ `  ~`,~`ee`8`  & & e e   `  ? ?&& &      ?`%%``00  ISK:  !!! MPTY IRECTORY !!! ɞ ݞ  ~ -~ ?Ȣ   8    0~ `F<2( R L R 8Ӫ `L_ ~` ? ~ Ll~ȱȱHȱh`F L  ~ 131i(342i4 ڠ% 1 L   Ѥ҅348(12 %13138(1242ڠ% 3  L ` ``L  0`hh  ɈL  -10 2345679101213151617181920222326273132-10A 2367910121315161920222325263132-10z 236791011121315161920222324253132-13 234567910111213151622232627293031323334ɈL }  L ɝ  L C }  }  L    K  } L ɑ=   } L     * K  } L Ɇ0HɅé1H 56  h  ƹw9101112131516171819202223262729303132333435-196}!Ѕ  Ѕ D  }}}} = ؅}} = }} (2065) Щ !Щ7 $  $ ة $ {  f  6  5   " 56 "F 5A}lWARRIOR OF RASWR2AVOL #2SGKAIVSG-KAIVSG----------------SGVOL #3SG WYLDESG -WYLDESG----------------  2061ԍԩԩ}~ L>8`, ?`,`,ӕ`,ԕԕ`,`0 ``~` `~` ~ NEW: ˞ L"",8, P53280,14:P53281,6 RUN `8`0```    ې   ǰ  𶐴L= 0LO LE ,  >~-00/:+/   & & u u6e о ?` d'  ~`~,G 8vP L343` 34H)@ɠ ɀ h`hI`h)I@`h @`$I BY HRISTOPHER . APON !!! ORKING !!! SE CRSR EYS O ELECT ROGRAM F1 - IRECT OAD F3 - ASIC OAD F7 - EXT IRECTORY``LL  L  L8eȥ` 7 L 7 Leȥ`236791011121315202223242528293435-10 2367910121315202223252629303334-10 2345679101213151718202223262730313233ʘHH` IѢ) I` b  b `5  5656`5565656 (`56556555656 } (`  Ѥ҅12i(ȅ34%3 35-10 23456791011121315162223252629303435-10?2391012131516222324252930-10n234591012131516222324252930303132333435-10239101213151617181920222325263435-1023.1+-5 +"5  P 8e556 L 5656 L       ԩ٠ 56   K  }  }   56    ARlTSGAMES #13CK2A AUTOBOOT  ---------------- HOWDY FOLKS!  ---------------- PET EMULATOR.C YAHTZEE BOWLING BLACK JACK 4KKBRIDGE BID TRAIN WUMPUSSLOTS JACKPOT KIGHT TOUR SOL ARTILLERY TRAP CHECKERS 3 SINNERS GOLFKK  CATS BUGBLAST'DRAGON CHASETIGHT SQEEZETRAP SHOOT MAGGIE MONSTER MULT.C2-MUNCHKIN MULT.C2/KK RULE THE KINGDOM  GODZILLA/46KKKKKKKK WARRIOR OF RASSG----------------SGMENUSG----------------SGVOL #1SGDUNZHINSG-DUNZHINSG---------------- VOL #4SGZIGGURATSG-ZIGGURAT LJ(RP=%/^_>@—#QEMXVM4.88% PET EMULATOR V0.6/021583 WITH DOS MANAGER V5.1/071382 BY BOB FAIRB6HH`Ȣ E #6 6$QLCƷ7L¥ o 6 ķ L¥ o  Ln  Ly`  Ĥ>å ͽ  &   ݩ L B Ly+ 6âL|LL| y s` `hhh y HH Ő QưhhL s ŭ4Ɂ l4Ɂ"H4ɁɀɅ iXh Ly s 뷆I Ţ y JEJ%ILy ũ54I40L:L ŭ4I4 L㢣  )8``KH55 8ƊIߍ5 8ҩԍȩAԩ`лSе8`4JСj jj 8`8`38`ܠJJJ JόLƦwƩL1  !     ^_`abcdefghijklmnopqrstuvwxyz{|}~ AIB80* (?"7/)'>:6.2&=95- %<4, $E!J;1K@AIBO80G (?N7/M'>F6.L&=D5- %<4, E!J;PKH@AIB80* (?"7/)'>:6.2&=5- %<4, $E!J;1K@@@@@ @8 @;@5ABCD396E174F28GA}lWARRIOR OF RASWR2AVOL #2SGKAIVSG-KAIVSG----------------SGVOL #3SG WYLDESG -WYLDESG---------------- PET EMULATOR.REL7 ADAPTED BY DAVID A. HOOKQ AS OF JUNE 10, 1983p(53280,12:53281,15:646,02((43)(44)256191)+,"#%$"$#%LAIRN (C) 1982 COMMODORE BUSINESS MACHINES OFF ON EMULATOR PET CBM64 MODE ARE YOU SURE? *** WARNING *** NOT IN PET MODE L|ԩԩԩԩ5L ŅɬɌɧɯBɤ #:LL  u,%, .%.- Y 3ɭ/L LL|L YLb¤6)6) i Ly sL ĩ`|zH{H" sh{hz y"{\ hh sV"R=:[ 6 s. s&]"*ʩ?,4J ĭ40 `49ō)ݩЅ,8L^@ ݩЩ,8 55 Į55 Ģ  DL  Y `L4J. &"&iiƅHȱh8``4JL)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ $ "4ZA140:(A$,10)13)"B W I G G M "Wd(A$,10)13)" O L N A E":xn(A$,10)13)"BOWLING GAME"xA19:(A$,8)A)A$(B):B(B1):C1100:C,A(A$,8)10)A$(B)"B"A901:(A$,8)A)A$(B)"B ":B(B1):C1 (1)" ݒ Χ "GD$(1)"    V  "E$(0)"#&$  ":E$(1)"   "$C$(2)"ߒ   ":C$(3)"ߒ ݒ Χ ".C$(4)"#$%&  ":"ݠ ݠ ݠ ":""I j""26)" 7 8 9":26)""w t26)"ݠݠݠݠݠ ":26)"ݠ" ~26)"ݠ ݠ ݠ ":26)"" 26)" 10":26)"":26)" ݠݠ" 26)"":26)"ݠ (HAYAI_ )(OSOI _ )"] (A$,14)" HAYASA (HAYAI_1)(OSOI _2)" G$:G$""(G$)1(G$)21225 (A$,22)1)D$(0) G%(G$):(A$,14)"   " (A$,14)" FRA12( A(A$,16)27)"RIGHT _ 6LEFT _ 4"E B(A$,20)27)"'SPACE'"r FG$:II(G$"4")(G$"6"):G$(32)1370 PI(I3)(I35)I:(A$,21)I)D$(1) U(A$,20)27)"' '":1346 Z(A$,21)I)D$(2):JI1 `(A$,20)27)"  ":C$(A$,16)27)"  "H:A09:Z:C%(A)0B%(A)(Z){:B%(4)YD%(0)(1)1.1Y:D%(1)TNR(1)1.1YB%(5)YD%(1)(1)1.1Y:D%(1)(2)1.1YB%(6)YD%(2)(1)1.1Y:D%(3)(2)1.1YB%(7)YDYD%(8)Y:D%(4)Y:D%(0)(1)1.2Y:D%(5)(1)2Y\JB%(8)YB%(9)YD%(7)Y:D%(6)Y:D%(8)(1)1.2Y:D%(5)(1)2YTB%(7)YB%(9)YK0D%(6)(1)2Y:D%(6)YD%(3)(1)1.5Y^B%(8)YB%(9)YK0D%(6)(1)2Y:D%(4)YD%(0)(1)1.5Y%(R)3 M%2L10SC%(R)0:P45:10010:4000D M%2L%(2)10SC%(R)L1:P206:A%(R)1:10060y M%2L%(2)1L%(2)9SC%(R)L1:P48L1:10100 M%1L%(1)10SC%(R)10:P214:A%(R)2:O1O12:10040RQQRA%(Q)0A%(Q)3SC%SC%SC59468,12:827,0:828,0K A$(0)"  O  W  "yA$(1)"  O  W  "<HI%(828)256(827):AA59409:A%(22),SC%(22)FH%1:Y32:M%1:N%3:O3:Q1:S5:R1:U48:O11:T2 P"":A$"100:C,A,(A$,8)"    "TA115:(A$,10)" ":B1100:B,AqF$"  ϥ"|AA,52B$(0)"    V "B$(1)"    V Χ"C$(0)"   ":C$"@8D$(2)"   ":D$(0)"  V  "vB" 1 2 3":"":"ݠݠݠݠݠݠ"L"ݠ":"ݠ ݠ ݠ ":""V" 4 5 6":"":"ݠݠݠݠݠݠ" `"ݠ":26)""D (A$,17)"    ":Z%M%j "":A120:14)""7)"": 10)" " 525,0 :A09:Z:C%(A)0Z,81 :AA,60:(A$,22)1)F$ (A$,14)" HAYASA ME "H%" "% (A$,16)" BALL "Z%" ":A1500:E (A$,18)2)"":A1200:c 2)"":A1200: (B13:2)" ":A1200:A,B 2B1:A112:(A$,21)A)B$(B):B(B1):C150:C,A 7525,0 <(A$,21)12)D$(1):I "$dA2011:(A$,A)J)"":B1G%3:G$ZnKK(G$"4")8(G$"6")8:B:(A$,A)J)"  "txJJK:J15J221450A:1500K0:J(J15)13(J22)24CA11:(A$,C)J)"":B12G%3B:(A$,C)J)" %(4)(1)1.1Y:D%(5)(2)1.1Y7B%(8)YD%(5)(1)1.1Y:D%(6)(2)1.1Yf"B%(9)YD%(7)(1)1.1Y:D%(8)(2)1.1Y,B%(4)YB%(7)YD%(1)Y:D%(5)Y:D%(2)(1)1.1Y6B%(6)YB%(8)YD%(2)Y:D%(5)Y:D%(1)(1)1.1Y@B%(7)YB%(9) A09:D%(A)YB%(A)Y- :A09:Z:B%(A)YC%(A)1Z,111B B%(A)YC%(A)1e :A09:L%(M%)L%(M%)C%(A): M%1L%(1)0SC%(R)0:P71:10010 M%1L%(1)1L%(1)9SC%(R)L%(1):P48L%(1):10100 M%2L1L%(2)L%(1):A %(Q):QQ1:50001A%(Q)2RQ2SC%SC%SC%(Q)SC%(Q1)SC%(Q2):QQ1:5100iA%(Q)1RQ1SC%SC%SC%(Q)SC%(Q1):QQ1:5100s6000A%(Q1)06000A2Q6000SC%99(A$,S)T2)SC%""SC%100Z1(((SC%10))0): :O1O114O138O8O10:O127A%(R)2M%2;A09:B%(A)0:D%(A)0:M%2C%(A)0AK0:RR1:M%M%1:M%3M%1:H%H%1:L%(1)0:L%(2)0:L108A511:(A$,A)15)""BB1100:B:(A$,A)15)" ":AH HI%SC%&A117:(A$,5)A10)""(Z$,A,1)&B150:B,AB&A1830:(A$,10)A8)""(Z$,A,1):X&23)" "SC%" "&A3143:(A$,12)A21)""(Z$,A,1):&827,HI%255:828,HI%256:23)" "HI%" ":525,0&13)"PRESS ANY KEY" 50:C,A:(A$,22)1)F$:8'A115:(A$,10)17)" ":B120:BLB'A%(R)2(A$,10)17)"STRIKE":B150:B,AL'B120:(A$,21)I2)E$(C%):A150:A:C%(C%1)V'B:B0:AI11:(A$,22)A)C$(B):B(B1)`'C150:C,A:(A$,22)1)F,9)A)A$(B):C150:'(A$,10)A1)"   ":C150:C:B(B1):AK'A920:(A$,A)20)A$(B)"  "e'B(B1):C150:C,A'A2034:(A$,20)A)A$(B):B(B1):C150:C,A'(A$,20)35)"    ":A$,22)1)F"","X","","Z","","S","","A"Wn"2","3","4","5","6","7","8","9","10","J","Q","K","A"wxC(4,13),N$(13),S$(4),A$(4)H(14)S(X)(4(7))1N(X)(13(7))1R3" BRIDGE BIDDING TRAINER"" BY JAMES C DOWNER")@I JI14TJ113+^C(I,J)04002hJ9rIB|""K760T420]530coNN(X){SS(X)C(S,N)0430C(S,N)3S14:N113C(S,N)0460N:S"OUT OF CARDS ERROR"P90  DECLINE(HUMAN) C(S,N)3:420+ C(S,N)14 580= 790G 1000]  PRINTHAND W/BOXk "":980 I1140:"";:I1 *I1114:"","",""," ";:I1 4I1140:"";:I1 >"CLUBS","DIAMONDS","HEARTS","SPADE L90 PPH(13)4H(12)3H(11)2H(10)* J914= S(J9)0VV1R $S(J9)1SSSS1e .S(J9)2DD1 8S(J9)4LLS(J9)4:L9J9 BJ9 LB1 VPTPPV3SS2DL `PTB1"RIGHT":1240 j"WRONG: HERE IS THE POINTS";PT t" N$"P""PASS ";:1320 N$"N"1380/ SS$"1""1";B SS$"2""2";U SS$"3""3";k SS$:SS$""1264 SS$"A""SPADE" SS$"S""HEART" SS$"Z""DIAMOND" SS$"X""CLUB" 1530 N$"P""PASS ";:1320(A$,S)TZ1)SC%TT4:T12S9T20SS7:T2/T12S10T20S5:TT14C T38S12:T28WpA%(Q1)34000izA%(Q)34000A10A%(R)2O1O12(A$,O)O1)(P)O1O12:O113O4O115OO7:O11O125O113O8O3%108000X1180@A0H%10M%1Z%1:A2R:A11:1200&EZ%39900?JZ%2A%(R1)39900eTZ%2A%(R1)3Z%3:H%10:1200^Z%1A%(R1)2Z%2:H%10:1200(#Z%M%:1200&Z$"G A M E O V E R YOUR SCORE HIGH SCORE ":HI%SC%&A$:A$""9970&103'32784,32786,32788,32790,32825,32827,32829,32866,32868,32907j'B2:(A$,22)I3)C$(4):C1500:C:A130:AA,52'C120:C:AA,60:C120:C,A:A1500:$'AI11:(A$,22)A)C$(B).'B(B2)3(B3)2:C1$j'A%(R)210130o't'B0:AI11:(A$,22)A)C$(B):B(B1)<'C150:C,A:(A$,22)1)F$:o'A34161:(A$,21)A)A$(B):B(B1):C150'C,A:A2091:(A$,A)16)A$(B)" "'B(B1):C150:C,A'B0:A1620:(A$! WRITTEN BY JAMES C DOWNERB COPYRIGHT COPY ONLY 2/6/79a THIS PROGRAM IS INTENDED TO TEACH THE BIDDING OF BRIDGE HANDS USING WINNING CONTRACT BRIDGE COMPLETE BY EDGAR KAPLAN PUBLISHED BY BANTAM IN PAPERBACK @ $1.95d" BASED ON'WINNING CONTRACT BIDGE"C " COMPLETE'"^" BY EDGAR KAPLAN""DO YOU WANT INSTRUCTIONS?"SS$:SS$""230SS$"Y"1660"DEALING" STARTI14S$(I),A$(I)"I,I1136N$(IP91 C(S,N)1&4200C(S,N)35: DEAL&EVAL(COMP)>D420KNS4630XXC(S,N)2jb420:C(S,N)3sl330vN9680 DECLINE(COMP)C(S,N)3:420C(S,N)2330C(S,N)2 ACCEPT(COMP)420:C(S,N)333S" H870 R \ f"";- pJ1113:I114A zC(I1,J1)1920H ,Q 950p "";N$(J1);" ";S$(I1), H(J1)H(J1)1 S(I1)S(I1)1 I1 J1    H80:H70 "HOW MANY POINTS DO YOU HAVE" SS0 ACES ";H(13),"VOID SUITS";V0 ~"KINGS ";H(12),"SINGLETON ";SSS "QUEENS";H(11),"DOUBLETON ";Dv "JACKS";H(10),"LONG SUITS";L SS$:SS$""1180 6000 "WHAT WILL YOU BID "; "P=PASS;N =NO TRUMP" SS$:SS$""1251 N$SS$ N$"N"1380PT12N$"P"13005"I DON'T UNDERSTAND":1240IS$:S$""1300^ CHECK FOR PASSh#1400x(PT1313502"NO YOU SHOULD HAVE BID"<1240F"YOU WERE RIGHT TO PASS"P1500Zd NO TRUMPe" NO T L901490M9S(1)G124#S(G1)M914507S(G1)M9M8M9DM9S(G1)JRG1X^dj PASS NOW PARTNER BIDSSU((7)41) J6S(I)0@I)JJ0:K0:B20:T0:T10:Z0:C0:C10:B10:P906TL50:R3K^V0:SS0:D0:L0fh"OKAY, LET'S DEAL."or330| INSTRUCTIONS" POINT-COUNT SYSTEM""HIGH CARDS SHORT SUITS""ACES...4PTS  "20-21 MAXIMUM ,,""22-UP TWO BID")"16-18 1 NO TRUMP"@&"22-24 2 ,, ,,"W0"25-27 3 ,, ,,"^:"D"PRESS ANY KEY TO CONTINUE"NWW$:WW$""1870b BIDDINGl"v"1.OPEN ONLY WITH 13 OR MORE""2.BID LONOR RESPONSES TO PARTNER"""ONE IN A NEW SUIT...6PTS OR MORE"N" AT LEAST 4 CARDS"w"TWO IN A NEW SUIT...10PTS OR MORE"" AT LEAST 4 CARDS" "1 NOTRUMP...........6 TO 9PTS""2 IN PARTNEGHT TO PASS"SS$"1""1"; SS$"2""2";SS$"3""3";3SS$:SS$""4020ISS$"A""SPADE"_SS$"S""HEART"wSS$"Z""DIAMOND"SS$"X""CLUB"1530p BLANKING ROUTINEz""" N "" """;$:SS$""4020ISS$"A""SPADE"_SS$"S""HEART"wSS$"Z""DIAMOND"SS$"X""CLUB"1530p BLANKING ROUTINEz""" "--."THE HOUSE HAS ADVANCED YOU $500"3/Z2"PLACE YOUR BET AND PRESS RETURN"`7x<"YOUR BET PLEASE";F WP W1 "MINIMUM BET IS $1": 60Z W100 "HOUSE LIMIT IS $100": 60 COMPUTE RESULTS Z$"CHERRY"  Q23 835 Q27 840- Q31 845> Q36 850O Q42 855` Q48 860q Q60 870 Q70 872 Q80 874 Q90 876 Q100 878 Q110 880 Q120 882 Q130 884 Q132X$:L$X$:M$X$ + W1(W18): 22003 /K$V$:L$V$:M$V$K 0 W1(W14): 2200a 4K$V$:L$V$:M$Y$y 5 W1(W14): 2200 9K$W$:L$W$:M$W$ : W1(W10): 2200 >K$W$:L$W$:M$Y$ ? W1(W10): 2200 CK$Z$:L$Z$:M$W$ D W1RUMPS"fPT16"NO POINTS TOO LOW":12401h"HOW MANY TRICKS":NTPiPT15PT19NT1"RIGHT"ojPT21PT24NT2"RIGHT"kPT24PT28NT3"RIGHT"l1390m"WRONG TRY AGAIN":1380n1530x LONGEST SUIT HIGHEST RANKyM80"NEXT PLAYER PASSES ALSO" 4"YOUR PARTNER BIDS 1";FSU1"CLUB"[SU2"DIAMOND"nSU3"HEART"SU4"SPADE""WHAT WILL YOU BID NOW?":4000 ZEROI14J113C(I,J)0"H(J)0, VOID SUIT..3PTS""KING...3,, SINGLETON..2,,"@"QUEEN..2,, DOUBLETON..1,,Q"JACK...1,,"LONG SUITS:1PT FOR EVERY CARD OVER FOUR""POINT RANGER TO REMEMBER""13-16 MIMIMUM OPENING""17-19 STRONG ,,"GEST SUIT AND THE HIGHESTRANKING OF EQUAL SUITS"C"3.WITH TWO 4 CARD SUITS BID THE LOWESTRANKING"s"4. WITH 3 4 SUITS BID ONE UNDER SIGLETON""5.OPEN 1 NO TRUMP WITH 16 TO 18 & EVEN DISTRIBUTION"WW$:WW$""1970" RULES FRS SUIT..6 TO 9PTS" "2 NOTRUMPS..........13 TO 15 PTS"=*"3 IN PARTNERS SUIT..13 TO 16 PTS"g4"JUMP TO NEW SUIT....17 PTS OR MORE"m>RWW$:WW$""2130\250 BIDSS$:SS$""4010SS$"P""PASS"PT5SS$"P""RI """ "P" "~" "" ""  "SLOTS"" INSTRUCTIONS+ ""1< 3000J PP120l"WELCOME TO THE PET CASINO."r"OUR ONE-ARM-BANDIT HAS A HOUSE""LIMIT OF $100.""HERE IS THE PAYOFF TABLE""" PP 6000" Y$"BAR "" X$"BELL "6 W$"ORANGE"J& V$"PLUM "^0 U$"LEMON "rX RANDOM NUMBERb Q(200(1))g Q5 801l Q7 805q Q8 810v Q10 815{ Q12 820 Q15 825 Q19 830 886 Q145 888" Q160 8904 Q170 892F Q180 894X Q190 896j Q201 898  WHEEL PRESENTATION & WINNER PAYOFF!K$Y$:L$Y$:M$Y$" W1(W20): 2200%K$X$:L$X$:M$Y$& W1(W18): 2200 *K$ (W5): 2200 HK$Z$:L$Z$:M$X$/ I W1(W5): 2200E MK$Z$:L$Z$:M$V$\ N W1(W5): 2200r RK$Z$:L$V$:M$Y$ S W1(W2): 2200 WK$Z$:L$W$:M$U$ X W1(W2): 2200 \K$Z$:L$Y$:M$Y$ ] W1(W2): 2200 e WHEEL PR $:W1W: 2200# tK$Y$:L$Z$:M$Y$:W1W: 2200G vK$U$:L$U$:M$U$:W1W: 2200k xK$Y$:L$Y$:M$V$:W1W: 2200 zK$V$:L$V$:M$X$:W1W: 2200 |K$V$:L$Y$:M$Y$:W1W: 2200 ~K$W$:L$W$:M$X$:W1W: 2200 K$V$:L$V$:M$W$: ";" ORANGE" ""<6);"BELL ";" PLUM ";" BAR "F""x6);"PLUM ";" LEMON ";" CHERRY""" A""6);K$"" B112 16);"LEMON ";" BAR " ""$  w ""x AAy AB13z 26);"BAR "'| ""0} AB=~ AC13R 26);"LEMON "\ ""e ACr AD13 26);"BELL " "" AD AE13 26);"CHERRY" "" AF13 AF AG00 L$Y$ 2580 2600 M$Y$ 2590" 2600- 30003! 9# ?& W( "YOUR BET WAS $";W]2 } W10 "PAYOFF IS $";W1 W10 "YOU LOST $";W  W2W2(W1)" W20 2900, "YOU ARE AHEAD $";W26  Q3 Q4 3064   "GIVE THE HOUSE A CHANCE"" ( .! Z& "CHERRY ---- ---- PAYS 2 TO 1`+ v0 15);"GOOD LUCK"5 PQ: %*"YOU HAVE LOST $";(W2)/4"WE WANT YOU TO STEP INTO THE OFFICE"9 PAYS 18 TO 1"BELL BELL BAR PAYS 18 TO 1$P"PLUM PLUM PLUM PAYS 14 TO 1V"PLUM PLUM BAR PAYS 14 TO 1"ORANGE ORANGE ORANGE PAYS 10 TO 1"ORANGE ORANGE BAR PAN SEGEL. MODIFIED BY STEVE NORTH.j PUBLISHED IN 'BASIC COMPUTER GAMES'; EDITED BY DAVID AHL, CREATIIVE COMPUTING PRESS, MORRISTOWN,N.J.,1978. MODIFIED AND ADAPTED FOR THE PET BY PETE WEILER, MAY 31,1978,  AND ALSO HARVEY SHERMAN, J ,Y) Y,XI07:J07=((IJ)2)((IJ)2)S(I,J)3GJ:Ix"DO YOU WANT THE FIRST MOVE N";C$:""; (C$,1)"Y" 14204000: X0 7: Y0 7: S(X,Y)1 3506 S(X,Y)1 A1 12:BG:650:AJS(X,Y)2 A112: B112: 650:B,A,^ Y,X:1140[UXA:VYB:(U0 U7 V0 V7) 870w S(U,V)0 910:870 S(U,V)0 870UUA:VVB:(U0 U7 V0 V7) 870R S(U,V)0 910f V0 S(X,Y)1 QQ2ESENTATION LOSERS' fK$Y$:L$Y$:M$U$:W1W: 2200K hK$U$:L$U$:M$V$:W1W: 2200o jK$W$:L$W$:M$U$:W1W: 2200 lK$W$:L$W$:M$V$:W1W: 2200 nK$U$:L$Y$:M$Y$:W1W: 2200 pK$X$:L$Y$:M$X$:W1W: 2200 rK$X$:L$X$:M$WW1W: 2200 K$Y$:L$Y$:M$W$:W1W: 22005  SPINNING VISUAL> ""I ""V  A110 6);"CHERRY";" ORANGE";" PLUM " "" 6);"ORANGE";" CHERRY";" BELL " ""6);"LEMON ";" BAR16);"ORANGE";" CHERRY") ""6+ 16);"BELL ";" BELL "@. ""d8 16);"PLUM ";" PLUM "n= ""? 16);"BAR ";" LEMON "@ "B BL 16);L$V ""o C17t AA13v 26);"ORANGE"13 26);"PLUM " "" AG C" ""/ 26);M$5 ; N K$U$ 2520Y 2560l L$U$ 2540w 2560 M$U$ 2550 2560 "ONE MORE LEMON AND YOU CAN MAKE A PIE"  K$Y$ 2570 26 2910T "YOU ARE BEHIND $";(W2)Z W2500 5925!^ * 60G SLOTS JACKPOT FLASHINGP ""a ""o T1150 12);"SLOTS JACKPOT" "" 12);"SLOTS JACKPOT" "" T1 >"TO SIGN A NEW I.O.U.!!!"CH"NEXT PLAYER PLEASE"/R G1 40007\ G=aFf 12Yp PAYOFF TABLEbu""pz PQ11513);"PAYOFF TABLE"BAR BAR BAR PAYS 20 TO 1"BELL BELL BELL AYS 10 TO 1"CHERRY CHERRY ---- PAYS 5 TO 1J"CHERRY ---- ---- PAYS 2 TO 1Ph 13);"GOOD LUCK!"q""z PQ'"BAR BAR BAR PAYS 20 TO 1"BELL BELL BELL 4" CHECKERS 5-SHERMAN ":60000B:""V14)"C "j14)"H "~14)" E "14)"C "14)"K "14)"E" 14)" R " 14)"S"::::  WRITTEN BY ALUNE 29, 1978.! MEMORY NEEDED: 7K_"DO YOU WANT INSTRUCTIONS N";C$: (C$,1)"Y"2020gK:P R(4),S(7,7):G1:R(0)99Z 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15x X0 7: Y0 7:J: J15 180S(X,Y)J: 200: S(X  (YV)2 QQ5  Y7 QQ27  Y0 U7 QQ1p  C1 1 2:(UC0 UC7 VG0 VG7) 1080  S(UC,VG)0 QQ1: 1080  UC0 UC7 VG7 1080  S(UC,VG)0 (S(UC,VG)0 (UCX VGY)) QQ2( S(R(3),R(4))2:1310& S(R(3),R(4))S(R(1),R(2))R S(R(1),R(2))0: (R(1)R(3))2 1420w 2S((R(1)R(3))2,(R(2)R(4))2)0 <XR(3):YR(4): S(X,Y)1 B2: A224:1370 F S(X,Y)2 A224:B224: 1370: B P A: R(0)99 FROM >";P$0 @OK1: 1920: OK0 1590Q TEX1:HY1: S(E,H)0 1590 h"TO >";P$ mP$"X"1590 |OK1: 1920: OK0 1640 AX1:BY1:XA:YB(S(X,Y)0 (AE)2 OK1: 1920: OK0 "WHAT? ";: 1780" A1X1:B1Y1T (S(A1,B1)0 (A1A)2 (B1B)2)1780xEA:HB:AA1:BB1:II15: 1750 B7 S(A,B)2& 230X"YOU WIN!";:1880 P$"B" "THE PIECES ARE SHOWN AS FOLLOWS":3" = YOUR MAN = MY MAN"^" K = YOUR KING K = MY KING": "WHEN IT IS YOUR TURN I WILL PROMPT YOU""WITH 'FROM?'. TYPE IN THE SQUARE YOU" "ARE MOVING FROM. WHEN I PRINT 'TO?'," A SQUARE, TYPE"f"IN THE LETTER OF ITS ROW AND THE"9p"NUMBER OF ITS COLUMN.":bz"PRESS ANY SILVER KEY TO CONTINUE."z C$: C$"" 2175 C$: C$"" 2180:"AFTER YOU MAKE A JUMP I WILL ASK YOU""IF YOU WANT TO JUMP AGAINNT THESE INSTRUCTIONS" "REPEATED, TYPE IN 'H' OR 'HELP'.":G "PRESS ANY SILVER KEY TO CONTINUE."_ C$: C$"" 2325v C$: C$"" 2330. ::  BOARD REFRESH"";:"A":::"B":::"C"::"D"::"E":MP40,102:MP41,1024900 S(X,Y)24300!(MP)1394300OMP41,108:MP40,98:MP39,123:MP1,225hMP39,123:MP1,225MP,139: HUMAN'S KMP1,97:MP39,124:MP40,226:MP41,1264900S(X,Y)14340(MP)EN POSITION MP1,96:MP39,96:MP40,96:MP41,964900+S(X,Y)14380I (MP)32(MP1)934380t MP41,85:MP40,64:MP39,73:MP1,93 MP,32: COMP'S PCMP1,93:MP39,74:MP40,64:MP41,754900S(X,Y)249068,12jS$;"tS$;" :~S$;" [S$;" PET CASSETTE EXCH |S$;" 1929 NORTHPORT DR S$;" S$;" S$;"  8 C: QR(0) R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)V2 LQ0:H t R(0)99 1880u "FROM "; (72R(2));(R(1)49); "TO "; (72R(4));(R(3)49);:R(0)99  R(4)0  1420& U"TO ";R W(72R(4));(R(3)49);:R(0)99: 1240 ZUXA:VYB:(U0 U7 V0 V7) 1400 d S(U,V)0 S(XA2,YB2)0 910 x "";   4000  6" (AE)(BH)) 1700 1640I46FS(A,B)S(E,H):S(E,H)0: (EA)2 1810_S((EA)2,(HB)2)0"AGAIN N";P$(P$,1)"Y""TO >";P$ (P$,1)"N" 1810 P$"BOARD" 1430:OK0:- P$"H" P$"HELP" 2020:OK0:MX1((P$,1)):Y1((P$,1))m X1Y1 X2Y1:Y1X1:X1X2X1X149:Y172Y1(X10 X17 Y10 Y17) OK0:"THIS IS THE TRADITIONAL GAME OF CHECKERS " *"TYPE IN THE SQUARE YOU ARE MOVING TO.">4"IF I DON'T UNDERSTAND YOU OR I DETECT"k>"A MISTAKE, I WILL PROMPT YOU AGAIN.":H"A SQUARE ON THE BOARD IS LABELED WITH"R"A LETTER FOR THE ROW AND A NUMBER FOR"\"THE COLUMN. TO TYPE IN. IF YOU""CAN NOT JUMP TYPE IN 'NO'. IF YOU CAN"B"JUMP, TYPE IN THE SQUARE YOU WANT TO"T"JUMP TO.":"IF YOU TYPE IN THE WRONG 'FROM' SQUARE,""YOU CAN CANCEL IT BY TYPING AN 'X'""AFTER THE 'TO?' PROMPT.":"IF YOU WA::"F":::"G":::"H"r:" 1 2 3 4 5 6 7 8".Y701:X07TMP3276740((7Y)120)((X1)3)hS(X,Y)34280|(MP)1024280MP41,102:MP40,102:MP39,102:MP1,102MP,102: SHADEDMP1,102:MP39,102:2244340MP41,108:MP40,98:MP40,98:MP39,123:MP1,2251MP,224: HUMAN'S PC_MP1,97:MP39,124:MP40,226:MP41,126i4900}S(X,Y)04360(MP)96(MP1)964360MP41,96:MP40,96:MP39,96:MP1,96MP,96: OP 0(MP)114900MP41,85:MP40,64:MP39,73:MP1,93)!MP,11: COMP'S KT"MP1,93:MP39,74:MP40,64:MP41,75^$X:Y&" ";(L120:" ";:L`S$" ":594ROOM 6 S$;" MADISON, WI 53704 !S$;" BS$;" cS$;"yQ1999::"":$ ";(L120:" ";:L`S$" ":594 248I):& s1,(1)4:56334,(56334)1? xI832936:A:I,A:h I12288358122884587:A:I,A: I12288278122883187:A:I,A: I12288588122886287:A:I,A: SC1024 CM54272 SH54273:SL54272:V54296:WF54276:O ,303,300,305,300,307,300; CLZ:V,15:SH,50:WF,17:400:WF,16G DF500e TL,32:CL,58:CMCL,3CF 700:CC1X11500::170 600:DF500 210 , -ZZQ: /ZZP: 1ZZQ: 3ZZP:  COLLISION CHECK (CL)4 SKILL LEVEL"AA2 "ROUND"RN"SCORE"SR[ "PLAY AGAIN? Y ORN"n &A$:A$""550 0A$"Y"CF0:570 2A$"N"550 52048 :RN0:SR0:DF0 ?165 X MOVE SPIRITS bI((1)(AA2))1 lTLA(I):Z/"THE WITCH IS AWAY, FLYING ON HER BROOM. ";S4"SHE HAS CAPTURED YELLOW CATS AND WILL ";9"TURN THEM INTO WITCH CATS UNLESS YOU RESCUE THEM.">"GUIDE YOURSELF WITH A JOY STICK. PICK UP ";@"ONE CAT AT A TIME. BRING IT TO THE  PRESS ANY KEY";RA$:A$""850CW"IF YOU RUN INTO A BAT OR GHOST, YOU'LL ";\"JUMP IN FEAR, DROP ANY CAT YOU ARE CARRYING AND LOSE POINTS."a"THE HOUSE IS ALSO HAUNTED BY EVIL ";b"SPIRITS FLOATING ALONG THE HALLWAYS.,0:53281,0:"".">>.>.>>>>>>>>>>>>>>-,>.>>>>>>>>>.>>>>>>>";a">>>>>>>.>>.>>>>>>>-##,>.>>$%>.>>>>.>>>>>";">>>>.>>>>>>>>>>.>-####,>>&[\'>>.>>>>>>>>";">>>>>>>.>>>>>>>>-######,>(]^)>.>>>.>>>>>";">>>>>>>>>>.>>>>-########,#####,>>>>>>>>>>";,">>>>>>>>>-####################,>>>>>>>>>";_">>>>>>>>-######################,>>>>>>>>";$">>>>>>>-########################,>>>>>>>";)">>>>>>-##########################,>>>>>>";3">>>>>-################# ############>>>>>>";*F">>>>>#############################>>>>>>";]G">>>>>#############################>>>>>>";n BUILD MAZEA(0)2:A(1)80:A(2)2:A(3)80:WL35:HL32:ASC846A,4J((1)4):XJBAA(J):(B)WLB,J:AA(J)2,HL:AB:1220J(J1)(J3):JX12309J(A):A,HL:J4AAA(J):1220aISC216SC85640:I,32:I7,32:ISC140SC86040:I,32:ISC372SC85240:I,32:I15,32: ISC489SC84940:I,32:I21,32: ISC Z""d52,48:56,48:4f53280,0:53281,0h"************THE WITCHES CAT************ PLEASE STAND BY...."iT1500:j" I'M LOOKING FOR SOME CATS !!"l56334,(56334)254:1,(1)251 nI0511:12288I,(530:P1:Q40:A(13):V,15+ SL5,17:SL6,2414 800= 900Z 53272,((53272)240)12l 1000:RNRN1z CLSC859 JP15(56320)15:JP8JP3:215 JP2JP5:215 JP4JP7:215 JP1215 JP2 TLCL:ZTL:JP301,3004(CL)45(CL)35CLTL:4 CFCLSC873CLSC8452000M CF(CL)60CLTL:t (CL)60CF4:WF,33:I1100:: (CL)61(CL)591800 (CL)311900   GOTCHA! "ANOTHER VICTIM!" 53272,21 "TL:A(I),32 v((1)4)1301,303,305,307;{ZSC845ZSC873660M(Z)581900a(Z)32A(I)Z{A(I),31:CMA(I),4:"ROUND"RN"SCORE"SR" ";: "YOU WILL ENTER A WITCH'S HAUNTED HOUSE. ";! ";(C"BOTTOM ROW. WHILE CARRYING A CAT, YOU ";ZE"WILL TURN YELLOW. YOU CAN PICK UP ONLY ";H"ONE CAT AT A TIME, AND YOU GET POINTS ";M"FOR EACH CAT YOU SAVE. WHEN YOU SAVE 10 CATS, YOU GET A NEW HOUSE."O: " "$c"IF YOU TOUCH A SPIRIT, YOU LOSE THE GAME!"Bd"(BOTTOM ROW IS SAFE) "f"HIGHER SKILL LEVELS SCORE MORE POINTS BUT ARE HARDER."z"ENTER SKILL LEVEL 1-6"A$:A$""920AA(A$):AA1AA692053280>*+>.>>>>>>>>>>";-">>>>>.>>>>>>>>-##########,>>>.>>>>>>>.>>";`">>>>>>>>>>>>>-############,>>>.>>>>>>>>>"; ">>>.>>>>>.>>-##############,>.>>>>>>.>>>";">>.>>>>>>>>-################,>>>.>>>>>>>";">>>>>>>>>>-########################>>>>>>";+8">>>>>#############################>>>>>>";^=">>>>>#############################>>>>>>";B">>>>>#############################>>>>>>";D">>>>>#############################>>>>>>";E">>>>>################# 372SC387:I,32:  ISC489SC510:I,32:4 ISC687SC712:I,32:I160,32:P PLACE GAME CHARACTERSbPLACE GHOSTSp(IP3AA2X((1)680)SC40<BL0:1700:BL1330FX,59:CMX,1:xPLACE BATSIP3AAX( :A(I)X::((X)32)((XP)32(XP)35)BL1L((XP)32(XP)35)((XQ)32(XQ)35)BL1n((XQ)32(XQ)35)BL1t SCARED!CFO1840X((1)680)SC40&(X)321820+X,60:CMX,7:CFO:SRS CMCL,4:DF1vSL,100:I14:WF,17:SH,25:X1150::WF,16#wX175:=yI1I3CL,31:1920HzCL,58lSL,0:X1200:::X1500:: LINE UP SAVED CATXSC985:XCC,60:CMXCC,7:CCCC1:SRSR10AA2:CFOWF,33:I150: 0A#232,224*F#9,240,8,221,160,3,208,246,142,62,3,104,141,34,145,104,141,19,145,1047K#170,104_P#168,104,40,88,96,2,3,1,5,4,12,8,10'255,255,255,255,255,255,255,255'0,0,0,0,0,15,63,255'0,0,0,0,0,240,252,255$'1,1,3,3,7,7,7,75,255,191,63,15,15,7,63!'240,249,240,228,0,252,255,255)!'255,255,127,35,1,112,63,255B!'0,102,0,24,0,0,28,0b!'56,84,56,16,124,186,40,108!'62,42,62,28,28,28,60,120!'40,124,85,125,57,57,61,127!'0,16,124,254,214,130,0,0!'0,0,0,0, :T1T F0 199:: 910+ T$"3" "":6200F T$"2" 2500: 200Y T$"1" 200c 920{*** DESIGN MAZE***"": F0 2VM("  ",2HM3):H(HM(1)1):V(VM(1)T(3),M(200) 2000 1000H " COUNTDOWN:5";:TTTI:D5] TITT60 220s "";: D0 250 DD1: TP18,D48:TTTI: 220 C$ T0:M0 , T T0: 360 6T1:MCMC1: MC0 MC3 @D(PCT(MC)) J DSP 600 D(IN)  D255 M0:>  D12 (56321)253 M40:^  D7 (56321)251 M1:|  D2(56321)247 M1: & D10(56321)254 M40: 0 XT(0)1:T(2)1:T0:S1 b F0 29:: P,32 l (PT(S))WC 660 v  (F)S1 F,SP  C$:Z$""+  PC,SPD  F0 9: T$::""f >2)"(1) SAME MAZE AND SPEED" R2)"(2) NEW MAZE AND SPEED" \2)"(3) QUIT" f"";N$; T0  T$: T$"" 960  T0 " ";: 940 Z$; "";1)PP(X):M0 P,S2:T0 5000A (P80)WC T(T)40:TT1a( (P2)WC T(T)1:TT12 (P80)WC T(T)40:TT1< (P2)WC T(T)1:TT1F T1 DT(T(1)):M(M)P:MM1: PD,S1:PP2D: 1300 P T1 DT(0(1)680)SC40BL0:1700:BL1430X,61:CMX,5:&PLACE CATS8CC11:IP10PX((1)680)SC40hBL0:1700:BL1530|X,60:CMX,7:@PLACE SPIRITSTIPAA2^X((1)680)SC40h(X)321630rX,31:CMX,4R2AA2:SROSRO0TL,32:CL,58:CLCM,113I1511:SL,100:SH,100:WF,33:V,ID4II125:II,IZ5I1400::WF,32:TLCL:ZTL:((1)4)1301,303,305,307DCLZ:SRSRAA2:SROSRON400l GOTCHA! SOUNDqTL,32:CL,58::"(#120,8,72,152,72,138,72,173,19,145,72,173,34,145,72,169,0,141,62,3,1410-#63,3,169|2#127,141,34,145,173,32,145,73,255,41,128,42,8,169,195,141,19,145,173,177#145,73<#255,41,60,74,74,40,42,168,41,16,201,16,208,3,141,63,3,152,41,15,162,.'128,128,192,192,224,224,224,224 8'7,7,7,7,3,3,1,1, B'224,224,224,224,192,192,128,128E L'255,63,15,0,0,0,0,0` V'255,252,240,0,0,0,0,0 `'128,192,224,240,248,252,254,255 j'1,3,7,15,31,63,127,255 t'255,255,255,255,250,246,244,224 ~'2500,0,0,0! NJP15(56320)15!*NJP:20000,3,3,1,1, B'224,224,224,224,192,192,128,128E L'255,63,15,0,0,0,0,0` V'255,252,240,0,0,0,0,0 `'128,192,224,240,248,252,254,255 j'1,3,7,15,31,63,127,255 t'255,255,255,255,250,246,244,224 ~'25  ""156576,149:53272,4:648,128H53281,1:53280,13R5500ydP(TI):PC0:MC0:D0:M0:T0:S0nSP32:SS96:WC160xIN197CC102:C90TP32768C$" "P(X)TPV80H2 DS1 DC 360' T MC3 MCMC1: 3206 ^MC0: 320d h PC,SP:PCPCT(MC): PC,CC:(PC22528),2u r PPC 700  F1 S: 500:  P,SP:PPM: (P)WC PBE PPM:M0  PPC 700  P,C:(P22528),0  PHO 300  PT(S)BE 660#  T3 Z$ "": 800? TT1:SS1: S4 S0k PPT(T): P,C:P(5529632768),0: 610 "";HM4);"CHOMP CHOMP"  F0 150: P,C: P,CC: C$:HM);"BERP"  MT1 F0 799:: 760  FTP 33685: ): PD,S1:PP2D: 1300x M0 1500+MM1:PM(M)Y (P80)(P2)(P80)(P2)AS 1400d 1300V(VM(1))1:HHM:HOP(0)1: HO,SSV(VM(1))1:H1:BEP(0)1: BE,SSPBE1: P,CPCHO1: PC,CC:MC((1))4 EFT" " RT. CRSR..TO MOVE RIGHT"1" A..........TO MOVE UP"R " Z..........TO MOVE DOWN"w*"KEEP YOUR FINGER ON THE KEY."/"YOU MAY ALSO USE A JOYSTICK IN PORT 1."4"THE DRAGON IS SHOWN AS ">"THE KNIGHT IS SHOW :S2SP:2590 S12244:S2224 AS4S21( "PLEASE SPECIFY SPEED:"L2 " 1(SLOW) -- 5(FAST)g< "SPEED";:T5: 2900wF S(5T)21 "PLEASE SPECIFY MAZE SIZE:" " 1-3 (1 BEING SMALLEST)" "SIZE";:T3: 2900 : F1T: TF:Z$:)54296,15:54276,17:54277,128:54273,1:54272,90654296,0<E|""S""cI1250:I|14)"D":I1450:I15)"R":I1450:I16)"A":I1450:I17)"G":I1450:I18)"O":I1450: "16)" "pS54272:ISS24:I,0:I<zS5,144:S6,255:S3,8:S2,0IS24,15WHF,LF,DRpHF0S24,0::100S1,HF:S,LFS4,65:I1DR:IS4,64:I150:I603015,70,150,11,114,150,15,70,150"":56576,199:53272,21:648,4:B"LOAD"(34)"MADD"(34)",8":"RUN":""WL631,13:632,13:198,2:F0S24,0::100S1,HF:S,LFS4,65:I1DR:IS4,64:I150:I603015,70,150,11,114,150,15,70,150"HOW MUCH DO YOU BET";4 " MY NEXT NUMBER LIES";R " BETWEEN";A;"AND";B::Z Ej ED 180 E1 ::"COWARD!!" Z1 999: Z ::"MY NUMBER IS";C E1 250 (CA CB CA CB) 235 "WELL DONE '"THE GAME IS OVER!!"/ ,"YOU ARE BROKE "J 6" PLAY AGAIN Y/N "R 8A$a @ A$"N"r J A$"Y"100 T A$"Y"A$"N"312 999: Z ::"MY NUMBER IS";C E1 250 (CA CB CA CB) 235 "WELL DONE "12)" "C 11)" "k 10)" ":T14 " ";: " "; " 1 2 3 4 5 ";L " "; " ":"HI SCORE"(2) T19842023:T,160:T54272,13: bDI. 400 c 300 dJVJO(.):WB111 eJV1JV5JV9T(0)1((1).5)2$T(1)40:T(3)40:T(2)T(0)1*?3""_"THE OBJECT OF THE GAME IS TO GET THE""KNIGHT OUT OF THE MAZE WITHOUT BEING""EATEN BY THE DRAGON.""TO MOVE THE KNIGHT USE:"" LFT. CRSR..TO MOVE LN AS "6)"(PRESS ANY KEY TO CONTINUE)"1 Z$:Z$"" 2210S "PLEASE SPECIFY MAZE TYPE:"h " 1:ORDINARY"| " 2:KINGDOM " " 3:FOREST" "TYPE";:T3: 2900 MTT: M 2560,2570,2580 S1SP:S2SP: 2590 S1224 HM,VM: F099 ::  10,7 14,9# 18,11LT "? ";: F0 9: Z$::R0:T$" "_^ TTTI45:R1Rwh R T$;"";:2940r " ";| Z$: Z$"" 2970 TITT 2940 2910 F(Z$)48: F1 FT R0: 2910 I19)"N":I1650:I21)"C":I1450:I222)"H":I1450:IL23)"A":I1450:If24)"S":I1450:I25)"E":I1450:I16)"ϣΣ"16)" SIR "16)"KNIGHT"16)" "16)",17,37,150,19,63,150,17,37,150C15,70,150,17,37,150,19,63,150,0,0,150,15,70,150,0,0,150,15,70,4500,0,150,11,114,150,15,70,150,17,37,150,19,63,150,17,37,15015,70,150,17,37,150,19,63,150,0,0,150,15,70,150,0,0,150,15,70,450-1,-1,-18d TIGHT SQUEEZEiD504j53281,1:53280,1Kn"": CLEARSCREEN^sA((1)13)1qxB((1)13)1} (BA)2 115C((1)13)1 AC BC 130"MY TWO NUMBERS ARE";A;"AND";B"""YOU HAVE $";D;"" " "YOU WIN $";2E DD2E) 250A "SORRY,YOU LOSE";N " $";E;X DDEh D1 295} Z1 2000: Z Z1 24: L((1)500)1 C((1)8)1  7680L,160 34800L,C  X1 50: X  Z " 110 TRAP SHOOT0V53248:V16,.:54296,15ZJ56320:V28,1:V37,1:V39,9:PO1e 2000V38,22:2041,192:2042,193:V27,4:V23,1:V29,1V21,421:V40,.:V41,1: JO(O)15((56320) 15)FB(O)(56320) 16$ " Y2Y2S fJV2JV6JV10Y2Y2S6 gJV3JV7X2X2SN hJV7JV11X2X2St iX2255V16,(V16)2:X2X2255 jX2.((V16)2)2X2255X2:16,(V16)2 kY2.Y2. lY2255Y2255 mX2.X2. nX2255X2255 oKL(5327 )500,510,520,530,540,5403 /"SCORE=";SC"/25","ROUND"POB PO25600j JVJO(.):FBFB(.):JV.FB16398s 100 " >>>> TRAP SHOOT <<<< " "ENTER BLUE ROCK SPEED (1-15)";DI:"ENTER SIGHT SPEED (1-40)";S"SE Y/UP=N)!FBFB(.):JVJO(.):FB16JV.411b"";:T110:" ";:tS1S40400DI1DI15400FB.400X3.:Y3.:10 POST >1<:PDATAV+16,.XX1:YY1:2040,191:X133:Y1192:X2126: 1:Y1192:X2169:Y2157:X3170:Y3167:900@ V1,Y1:V2,Y2:V4,X3:V5,Y3:590O POST >4<XX1:YY1:2040,190:X1220:Y1192:X2189:Y2157:X3170:Y3167:900V1,Y1:V2,X2:V3,Y2:V4,X3:V5,Y3:590 POST >5<XX1:YY1:2040,115)"FB=START" Y15)"UP= END "0ZSC(2)2,SC:"HI SCORE"SCX[JVJO(.):FBFB(.):FB0V21,0:b\JVk]602| WB1: SHOOT!54273,2:54272,255:54277,.:54278,252:54276,129*KL6200+2042,194:D2D2:SCSC1z200135,.,10,189,80,4,124,.,1,60,.,.,60,.V.,60,.,.,60,.,.,255,.,.,195,.,.,195,.,.,195,.,.,195,.,3,.,192,3,.,192u3,.,192,3,.,192,3,.,192,. SPRITE 1.,.,.,3,240,.,3,208,.,3,80,.,3,66,170,21,250,160,.,244,64,.,241,..,240,.,.,240,.,.,2255,254,127,255,252,63,255,248,31,255,240,15,255,224,7,255,19293,255,128,1,255,.,.H SPRITE 3,,,,,,,,,,,,,,,,,,,,,,,,3,255,128,7,255,192,15,255,224,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, SPRITE 4.,.,.,.,.,6,.,2,.,2,.,.,.,32,12,.,3" " "%:15)" "S14)" "k14)" "17)"    "12)"   ":1000:""5)"."  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++(UR$"":UI$"":UO,0*UL0UL80"-UC,062UI$:UI$""50`7UI$(13)(UR$)1UC,1:" ";:85s<UI$(20)105> (UR$)UL50A120: CHECK FOR VALID CHARACTERFUR$UR$UI$KUI$;P50U +++ CHECK FOR HELP REQUEST +++ZUR$8):V2,X2:V3,Y2:FB(.).WB.800V HH1:X3X3D1:Y3Y3D2:X3255X3.:V16,(V16)4m Y3. Y3255 300 H40WB1300 X3.300 +V4,X3:V5,Y3:54276,128:100 ,WB.:H.:POPO1:((V16)2)2V16,(V16)2 .((PO5)5E ONE (FB=Y/UP=N)"(FBFB(.):JVJO(.):FB.4064JV410=403n590:X3170:Y3167:2042,193:V21,4:T110HH1:X3X3D1:Y3Y3D2:X3255X3.:V16,(V16)4Y3.Y3.V4,X3:V5,Y3:Y175:Y,T:V21,7"CHANGE (FB=Y2157:X3170:Y3167;V1,Y1:V2,X2:V3,Y2:V4,X3:V5,Y3:V,X1:590J POST >2<XX1:YY1:2040,191:X197:Y1192:X2149:Y2157:X3170:Y3167:900V1,Y1:V2,X2:V3,Y2:V4,X3:V5,Y3:590 POST >3< XX1:YY1:2040,191:X11690:X128:Y1192:X2216:Y2157:X3170:Y3167:900HV1,Y1:V2,X2:V3,Y2:V4,X3:V5,Y3N2042,193:D1((.)5)DI:D((.)100)1:D50D1D1OD2((.)5)DI:D2D2:((V16)4)4V16,(V16)4WX:""15)"GAME OVER":XX1 V16,.:XX1TXX1:V,T:Y110:Y,T.XX19104cU.:TXX1255:T255V16,(V16)1:U1zU1V,T256:913V,TY15:Y,T:T1216012479:A:T,A: SPRITE 0 0,0,0,0,63,0,0,31,0,0,23,.,170,40,.,3,252,.,3,12,.,3,12,.,3,12,.,3,12,.,12,3,.,1263,.,12,3,.,12,3,.,12,3,.,.E SPRITE 2.,.,.,1,57,.,3,57,128,7,255,192,15,255,224,31,255,240,63,255,248127,255,252,255,255,254,255,255,254,255,255,254,255,255,254,255,255 254,255,3,.,.,.,.,36,96,64,.,.,.,4,.,32K4,4,.,3,104,1,32,16,49,.,.,.,.,16,.,6,16,.,6,80,.,.,1,128,3,.,.,.,.,16Y128,.,.,_N$" BY GARY HELLER & LARRY MILLER ":""" "" ":" "" "T1500:654273,2:54272,255:54277,.:54278,252:54276,129L""N$tT1100::54276,128:T12000::ARRY MILLER ":""" "" ": UX$195: EXIT TO HELP ROUTINE*_UF12407dUF0::Pf ++ CHECK DELETE ++ai(UR$)150ynUR$(UR$,(UR$)1)s" ";:50x ++ CHECK FOR VALID CHARACTERS ++}(US$)0150US1(US$)UI$(US$,US,1)UI$ EXIT +++ 2502452UQUB(U2%256U1%U3%2)NUQ%(UQUB)(UQ)::""aUZ1:UV%(UT)j300UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14UT$UL$:"";:UT,UV%:UQUB(U2%256U1%U3%3)UQ,UQ%(UQUB) , ** MENU ** -:? ."":UT,UU%:(50003)053281,9:53280,8E /:b 1" MENU" 6" --------------------------------------" ;" 1. BEGIN MUNCHKIN MULTIPLY" @" 2. STUDENT INSTRUCTIONS" E"  ABLE STOP KEY AND END **7 (50003)1(50003)160(50003)0399a UU71:(50003)053281,6:53280,14m "":x 875:  ** STUDENT INSTRUCTIONS ** "":UT,UL%:(50003)053281,0:53280,0 UP0:UT$" Π.":UG$"URN KEY."835:UT$" MUNCHKIN MULT."(UZ1UP%:217.O ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UT$" .":UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE," " " (416) 499-4292"UP1: 835: 850:N" ROGRAM AME: UNCHKIN ULTIPLY"t" RITTEN Y : USSEL EST" PGRADED Y : OHN IDLER" HIS PROGRAM WILL RUN ON ANY" à2.0 ":850 ** TO USE 8032 LOAD CBM4032 **E"BEFORE RUNNING THIS PROGRAM ON AN 8032 {" LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032."  "0" @2" h4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);" E **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)E\" --------------------------------------"T`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **\UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO158(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU"": ** STANDARD INPUT **+(UI$)46<UI$(32)Y(UI$)48(UI$)57170_|(UI$)65(UI$)90180(UI$)193(UI$)218UI$"":(UT)UU%UI$((UI$)128):UI$"":UF1: +++ HELP ROUTINE: U1,U1% U2,U2% U4,U4%* U3,U3%12 35d UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL 3. TEACHER INSTRUCTIONS". O" 4. QUIT"] T" --------------------------------------" Y" PRESS A NUMBER KEY (1-4) "; ^UL1:US$"1234":35: INPUT ROUTINE `US$"" c(UR$)1000,400,500,396 h300  ** RE-ENTUDENT NST":850- "HE MACHINE WILL ASK YOU QUESTIONS,"Y "FIRST IN ORDER, THEN RANDOMLY. OU "MUST TYPE THE ANSWER IN. F YOU MAKE "A MISTAKE USE THE INST/DEL KEY. O "ENTER YOUR ANSWER YOU MUST USE THE "RET" THIS PROGRAM IS IN THE PUBLIC"9" DOMAIN. F THIS IS NOT THE CASE"V" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24" 4.0 Ԡ5" 8032 Z" 64 y 835:UT$" MUNCHKIN MULT."NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD LOAD CBM 4032 PROGRAM"1093:(  ** T I T L E P A G E **\""";:UT,UU%:(50003)053280,14:53281,6r$I138:"";:&I122:"";:(I137:"";:*I122:"";:," PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828C>T1$"":T2$"":T3$"":T4$"":I0L@300hC ** SPACE BAR PRESS **H(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0LUI$:UI$" "844NR ** PAGE DESIGN ROUTIN 2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198@UD$""rUP$" "UT$" MUNCHKIN MULT.": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VA PROGRAM !"UU71 "":(50003)09629 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **w1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3'UU48: DISABLE STOP KEY8800: TITLEH300: MENUy"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281 `" *****************************0j" * *at" * נߒ  ߒ נߒ *"~" *  à   *"" *  * ""  * "" * *( " *****************************"R " e  I1 2000:k  UH1:850:"" "HELLO MY NAME IS PET!" " (N(UR$)!850!"" "/"" "Y"" NOW DO THESE QUESTIONS """ """ """  ";$" ";7$" ";h$" ";$ " ";$!" RONG..TOO LOW! ":TRTR1:&^TR3" THE CORRECT ANSWER IS"NI:TR0:WRWR1:1650*&hDL1500::1560<&rUL1500:ULD&| IS&I1500:z&850:" YOU GOT"WR"WRONG!&:" AND"MNWR"CORRECT!"& WAIT FOR SPACE BAR& ' W0'& C0'0I1MN':B(I)1((1)MN) (DJ0I1: B(I)B(J)1850(NJ(XI'(b I1MN2(lBB(I)B(v""({DL110:" ";:DL:""(" "N;"X";B;"= ";(UL4:US$"+-.0123456789":35:X(UR$)( XNB C0: 2000()CC1) C2C0: 2040>)" WRONG...TRY AGAIN"W)DL1650:DL: 1910c) WW1k)"")"  CORRECT "N$" ") 2050)" THE ANRIABLES **900MN10: MAXIMUM NUMBER B(MN)+ ** CHECK FOR 8032 **I"":"": SHIFTED SPACE`(UB40)96700y ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS(50003)1609551093,88:1094,228:1097,85:1102,228:965*(50003)1990Y1093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,141,6:53280,14ZZ(TI):UG$"":UP0 ETOBICOKE BOARD OF EDUCATION; MUNCHKIN MULTIPLICATIONJ 81/07/28] RUSSELL WESTv$ 29 BASILDON CRES.,. BRAMALEA, ONT.8 (416) 457-8543L""V" * *"" * MUNCHKIN MULTIPLICATION *"C" * * "t" * נߒ נߒ נߒ *"" *   à  *"" *   2"************************************** <!F"WHAT IS YOUR NAME ? ";2!PUL10:US$"":35:N$UR$8!Z>!dD!n[!x850:""u!"WHICH TIMES TABLE"{!!"WOULD YOU LIKE TO DO, "N$" ? ";!UL2:US$"+-.0123456789":35:"" I1 200:"WR0" I1MN#""B#" ";s#" ";#" ";#"  ";$"" "N;"X";I;"= ";%,UL4:US$"+-.0123456789":35:A(UR$)$%6h%@(ANI).5"  CORRECT! "; ""N$ " ":TR0:1650%J ANI " WRONG..TOO HIGH!":TRTR1:%T ANI " W835&850&" **************************"'" * *"A'" * NOW I'LL MIX THEM UP *"j'" * *"'" **************************"'' I1 2000:'' 06 C$:TTTT1:TTTF" ";0@ TTTF2"";:TT00J C$""28700T LE(IN$)41^ C$""(144)88144,85:2870: RE-ENABLE STOP KEY]1h ((C$)127)31C$(34)LE2029601r C$(13)LE0IN(IN$):" ":1| C$(20)LE0IN$(IN$,LE1) SWER IS ";NB)DL1650:DL: I)  WMN.9 2460) GOSUB 2080 *  X1 START -X2 END - DL DELAY:** DN$-SCREEN POSITIONe*4X11:X215:XX1:DL50:DN$""p*> 2150|*HX2X26*R 2110*\:*f PRINT MONSTER*p XX1 X2 K 0: L: DN$;+ X)" "+ X)"  ߒ "+ X)"  " , X)" "#,$ : X)" "),. j,8 UH1:850:"r,B "",L " "N$", YOU WERE CORRECT ",V " ";W;"TK- PRINT MONSTER- XX1 X2 XX- DN$- X)"  ߒ " . X)"  ". X)" "0. L1 DL: L>.( X:XX1Y.2 L1 DL5: L:DN$;n.< X)" ".F X)" Ơߒ ".P X)" ɒ ".Z X)" KD ";W;" CORRECT."/ ""/ ""/ "0 83570 UH1:850:"DO YOU WISH TO TRY AGAIN? ";T0 UL1:US$"YN":35:S$UR$k0 (S$,1)"Y"1400q0 0" INPUT ROUTINE #10, TF10:TT0:IN$"":" ";KK6:" ";1 28701 IN$IN$C$:C$"";:28700 83570 UH1:850:"DO YOU WISH TO TRY AGAIN? ";T0 UL1:US$"YN":35:S$UR$k0 (S$,1)"Y"1400q0 0" INPUT ROUTINE #10, TF10:TT0:IN$"":" "; XX*z DN$* X)"  ߒ "* X)"  "* X)" "+ L1 DL: L+ X:XX1:+ L1 DL5: L:DN$;M+ X)" "b+ X)" * *ߒ "w+ X)" ˒ "+ X)" "+: X)" WOW!"+ L1 DL2KIMES OUT OF"MN,` "",j "",t "-~ 835 - 2800- I13000:?- X1 START -X2END - DL DELAYY- DN$-SCREEN POSITION- X11:X215:XX1:DL50:DN$""- 2530- X2X26- 2490- :K ".d : X)"RATS!!!".n L1 DL20: L: DN$;.x X)" "/ X)" Ơߒ "/ X)"  "./ X)" "E/ : X)" "/ UH1:850:""/ ""/ " "N$", YOU ONLY HAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK