ఘ333? `` DĎb@?IZZA OY REQUIRES THE 128 GAMER TO NAVIGATE A NEIGHBORHOOD FULL OF SPEEDING CARS AND RABID DOGS AS HE RACES TO DELIVER HIS PIES BEFORE THEY GET COLD. OYSTICK IN ORT 2. 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4, ?UELING TATION CHALLENGES YOU TO MANEUVER FOUR SPACESHIPS INTO THEIR DOCKS SIMULTANEOUSLY BEFORE YOUR EQUIPMENT RUNS OUT OF POWER. EYBOARD CONTROL. OYSTICK IN ORT 2. 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4,AKE WO RESTORES ACCIDENTALLY ERASED GRAPHIC TEXT SCREENS TO THEIR ORIGINAL STATE WHEN YOU PRESS AND 7 SIMULT- ANEOUSLY. EYBOARD CONTROL. OYSTICK IN ORT 2. 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4,K  Ƈ0 eg DD((DDDD kEDIRECT 64 ALLOWS YOU TO ARRANGE YOUR DISK DIRECTORIES IN ANY ORDER YOU DESIRE - QUICKLY AND EASILY. - - AND 7 SIMULT- ANEOUSLY. EYBOARD CONTROL. OYSTICK IN ORT 2. 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4, x?lEDIRECT 128 ALLOWS YOU TO ARRANGE YOUR DISK DIRECTORIES IN ANY ORDER YOU DESIRE - QUICKLY AND EASILY. - - AND 7 SIMULT- ANEOUSLY. EYBOARD CONTROL. OYSTICK IN ORT 2. 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4,wPRITE-N LETS YOU MOVE A SPRITE AROUND THE SCREEN WHILE TELLING YOU THE HORIZONTAL () AND VERTICAL () POSITIONS. - ULT- ANEOUSLY. EYBOARD CONTROL. OYSTICK IN ORT 2. 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4,LEARNER IS USED TO CREATE THE LEARNING MODEL DESCRIBED IN EC. UPERT EPORT ON ARTIFICIAL INTELL- IGENCE. HE ARTICLE DESCRIBES HOW TO MODIFY THE PROGRAM FOR THE -64. . 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4, ?-128 SOLUTION TO THE UGUST 1987 OMMODARE REQUIRING A PROGRAM THAT WOULD PRINT ALL POSSIBLE SUMS OF POSITIVE INTEGERS WHICH EQUAL A GIVEN INTEGER. OGRAM FOR THE -64. . 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4, ~~33 ``  Ƈ0-64 SOLUTION TO THE UGUST 1987 OMMODARE REQUIRING A PROGRAM THAT WOULD PRINT ALL POSSIBLE SUMS OF POSITIVE INTEGERS WHICH EQUAL A GIVEN INTEGER. OGRAM FOR THE -64. . 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4,OLUTION TO THE UGUST 1987 OMM- ODARE REQUIRING A PROGRAM TO DETERMINE THE AGES OF FIVE CHILD- REN - GIVEN CERTAIN MATHEMATICAL RELATIONSHIPS. R. OGRAM FOR THE -64. . 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4,NOTHER SOLUTION TO THE UGUST 1987 OMMODARE REQUIRING A PROGRAM TO DETERMINE THE AGES OF FIVE CHILDREN - GIVEN CERTAIN MATHE- MATICAL RELATIONSHIPS. RAM FOR THE -64. . 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4, uOLUTION TO THE UGUST 1987 OMM- ODARE WHICH CHALLENGED THE USER TO WRITE AN UNORDERED (INSTRING) ROUTINE. - TAIN MATHE- MATICAL RELATIONSHIPS. RAM FOR THE -64. . 4:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4, ??{3? ```8``|8a`????????8I#qXHHςpHHp!! ??? ?>< qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" | !! '%   @|>|>><||? !! ?aaa```aa`8????????0IIx Xq ? ????? " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8  8!!C? <@@@@,$LD|cL@ ???????xxxxxxxχ? H PHE8@8??HI  |x???????? ????????8,$$, qIIqQ$$D0$y? !!!ఘ```  ?????xxx 00!!$$bbHHO <FEDpp C!!! IIIIIy$$$ $ ALTERNATOR BY MICHAEL JAECKSH INCLUDE 'POKE 58,219:CLR' ATk THE BEGINNING OF YOUR BASIC( PROGRAM IN ORDER TO RESERVE2 MEMORY IN BANK 1<S4864FI061:A:SI,A:BBA:IPB10168"ERROR IN DATA!":Z:"SYS   (14)""5dA$" "An 60000z"SE -S TO DIRECT YOUR MENU TO YOUR COMMENTS.""OR SUB-DIRECTORIES.""SE ANOTHER - FOR ""- TO ENTER A CHOICE...." 10000 :"TOPPED ON K$""210 `j6,11:5,1FtB$"":TL$"":TR$"":BL$"":BR$""~LL$""Ꙧ10)TL$LL$TR$ I 122:10)B$61)B$:IꙦ10)BL$LL$BR$11,1,60,215,8ꙣ(50((A$))) 'd"RIVE ATROL 64":6300063006I *** DRIVE PATROL (C-64) ***rS700: *** CHANGE S TO RELOCATE ***JSS47:A:J,A:XXA:JX6790"ERROR IN DATA...": 165,254,72,169,2,133,254,198,254,48,31,169 "0,133,144,169,8,32,1 $ *** DRIVE PATROL (C-128) ***NS3072: *** CHANGE S TO RELOCATE ***mJSS47:A:J,A:XXA:JX6860"ERROR IN DATA...": 165,254,72,169,2,133,254,198,254,48,30,169"0,133,144,169,8,32,177,255,32,183,255,16$238,238,32 6 *** DRIVE PATROL (C-128) 80 COLUMN DISPLAY ***`S3072: *** CHANGE S TO RELOCATE ***JSS71:A:J,A:XXA:JX9448"ERROR IN DATA...": 165,254,72,169,2,133,254,198,254,48,50,169 "0,133,144,169,8,32,177,255,32,183,255, \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" 60,A5,BA,20,B1,FF,A9,6F,85,B9F 20,93,FF,A9,53,20,A8,FF,A0,00j 20,AE,F7,20,A8,FF,C8,C4,B7,D0 F5,20,AE,FF,4C,00,00 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa NcefRSWX "S"TO SWAP SCREENS"4d 169,0,133,250,133,252,169,28Xn 133,251,169,219,133,253,160,0zx 177,250,72,169,252,162,1,32 116,255,145,250,169,252,141 185,2,104,162,1,32,119,255,169 63,197,250,208,5,197,251,208 1,96,230,250,230, LINE 210": 60100' 100002(# MENU82#_<#A$" / "kF# 60100wP# 10000'"RESS '' FOR NEXT PAGE"'"RESS '' FOR MENU"$' 50000Pá K$ZËK$""50000dËK$"M"K$""9000nËK$"N"-2)A$ 5,1I150:"";:I#(# MENU82#_<#A$" / "kF# 60100wP# 10000'"RESS '' FOR NEXT PAGE"'"RESS '' FOR MENU"$' 50000Pá K$ZËK$""50000dËK$"M"K$""9000nËK$"N"y77,255,32,183,255,16B $238,238,32,208,173,141,2,201,5,208,249,206s &32,208,169,0,133,198,104,133,254,76,174,255 NNER1 INNNER2 INKEY INRESAVER INU,208,165,211,201,5,208,250,206,32O&208,169,0,133,208,104,133,254,76,174,255,0AGIC ORMATNPUT OUTINELIP LOPALTERNATOR 80 COL TEXT DUMP16/ $238,162,26,142,0,214,174,0,214,16,251,238] &1,214,165,211,201,5,208,250,162,26,142,0 (214,174,0,214,16,251,206,1,214,169,0,133 *208,104,133,254,76,174,255,65,0,72,0,83 D.PATROL 128/80 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr   >> ?~ > ~ ?-252,208,216% 230,251,230,253,208,210INCLUDE 'POKE 58,219:CLR' ATk THE BEGINNING OF YOUR BASIC( PROGRAM IN ORDER TO RESERVE2 MEMORY IN BANK 1<S4864FI061:A:SI,A:BBA:IPB10168"ERROR IN DATA!":Z:"SYS * ==================================N COMMODARES PROBLEM #44-1 :j ADDED DIFFICULTY SOLUTION BY TIMOTHY SLATE ==================================H "ENTER A COUNTING NUMBER HIGHER THAN 1 ";NU:NU2NU * ==================================N COMMODARES PROBLEM #44-1 :j ADDED DIFFICULTY SOLUTION BY JIM LOSTETTER =================================="SHOW ALL COMBINATIONS THAT ADD UP TO";N FF1:FUTINE, nFSNLSMS : FSF FSF(FSF) Q x PF FS F:F;::MS0 140k PM MS M: M;: PL 0 1: L(P);:::CC1 MS0 MSMSM: 110=========="SHOW ALL COMBINATIONS THAT ADD UP TO";N FF1:F "PLEASE WAIT..."B ==================================f COMMODARES PROBLEM #44-2 : FRANK'S CHILDREN SOLUTION BY NECAH BUYUKDURA ================================== ABC2 : BEA2 : C22E : D  ""4 ==================================X COMMODARES PROBLEM #44-2 :s FRANK'S CHILDREN SOLUTION BY KEITH KUSHNER ================================== R$(13):E199:DE1:C2E2:B2EC2:A2EC "INNER STRING"@ ==================================d COMMODARES PROBLEM #44-3 :{ INNER STRING SOLUTION BY LARRY SCHAFER ================================== P(80): A$,B$: J1 (A$): A1 (  ""4 ==================================X COMMODARES PROBLEM #44-3 :o INNER STRING SOLUTION BY DAVID SHOBE ================================== "ENTER TWO STRINGS";A$,B$ A(255),B(255)  J390 F2$"":LL2:J029> 15,"B-P";5;JL:#5,A$:A$""A$(0)R F2$F2$A$:J:_ 15,8,15| 15,EN,EM$,ET,ES:EN0 EN;EM$;ET;ES:5:15:$:S1S:L1L:CT1:5:15:30 ,"SWAPPING...":L$ 615,"U1";5;0;18;S:470 @15,"B-PST STRING." ==================================X COMMODARES PROBLEM #44-3 :o INNER STRING SOLUTION BY DAVID SHOBE ================================== "ENTER TWO STRINGS";A$,B$ A(255),B(255)  J   1004 ==================================V COMMODARES PROBLEM #44-4:n KEY FUNCTIONS ========= C-128 ONLY =========== ---- JIM SPEERS ----------------- 5,(27)"QDSAVE"(34) 7,"LIST -4999" (NU)10:ՆSP(NU1):SP(1)1:PS1:D$(20)::NM0:T1PS1:NMNMSP(T):Q1NUNM:Q10TTTQ11:SP(T)1::TTNU1:SP(T)0::50:SP(PS)SP(PS)1:PSPS1::ՋQ10SP(PS)0:50PSPS2:PSSP(PS)SP(PS)1:PSPS1:SP(PS)1::Հ*(T1NU:S N2C;"COMBINATIONS":1 (MF1:L(0)F:LSF:100W 2L(L)L(L)1:LSLS1:L(0)FN 30 < L0 L(1)L(0) L0:LSL(L): 50 F 100:MSM: 100:MS0:L(L)M 50 PLL1:L(L)M1:LSLSL(L) : LSFN 70 ZL1:LSL(L)L(0): 50 d SUBRO XT"(13)/d---- WALLACE LEEKER ----------------nC$(13):1,".12"C$:2,".25"C$:3,".37"C$:4,".50"C$:5,".62"C$:6,".75"C$:7,".87"C$---- JOHN LOCKE --------------------R$(13):Q$(34):E$(27)1,"DIRECTORY:"E$"R"R$E1 : E(CD)4X  (AV)(BW)(CX)(DY)(EZ)5 VA : WB : XC : YD : ZE : 10 "ANDY:";A,,,,"BILL:";B,,,,"CARL:";C,,,,"DAVE:";D,,,,"EMMA:";ENNER2 INKEY INRESAVER INc:(E(CD)4)20: E:] "ANDY:";A;R$;"BILL:";B;R$;"CARL:";C;R$;"DAVE:";D;R$;"EMMA:";E;R$:RANK2 IN NNER1 INNNER2 INKEY INRESAVER INOB$):  (B$,A,1)(A$,J,1) P(A)1 P(A)1:J:"YES":I A:"NO": RANK2 IN NNER1 INNNER2 INKEY INRESAVER IN 1 (A$)) (X((A$,J,1)) : A(X)A(X)11 2 JC < J1 (B$)d FX((B$,J,1)) : B(X)B(X)1l P J{ ZIS$"DOES" d J0 255 n A(J)B(J) IS$"DOES NOT" x J "THE SECOND STRING ";IS$;" CONTAIN" "THE LETTERS OF THE FIR7,E$"I""RUN:"R$.2,"DLOAD "E$"@"R$V6,"SCRATCH :"E$"@"R$"Y"R$z3," "E$"TDIRECTORY"R$4,E$" CLOSE4:OPEN4:CMD4:LIST"R$"PRINT#4,7:CLOSE4"R$FORI=14TO0STEP-1:PRINTMID$(STR$(-((BAND(2^I))=(2^I))),2,1);:NE (d* RESAVER 128 ---- SHAWN K. SMITHOnS5555:B46: S RELOCATES UTILITY!ixDSSB:Y$:D,(Y$):XS11:L(X256)S45,(818):SB,(819)S3,L:S1,X256L:(S):"RESAVER 128 ACTIVATED! A9,00,A2,14,8D,32,03,8E,33,03 .( 1,"X%=A/256:B%=A-256*X%:PRINTB%;X%"(13)2 3,"X=A:FORI=3TO0STEP-1:B=INT(X/(16^I)):PRINTCHR$(48+B-7*(B>9));:X=X-B*16^I:NEXT"(13)< 5,"X=(A>32767):PRINTCHR$(48-X);:B=A+32768*X:FORI=14TO0STEP-1:PRINTMID$(STR$(-((BAND(2^I))=(2^I))),2,1);:NEsP(T)1SP(T)SP(T1):Ղ:Q1T1Q1:"1+";:k2T1PS1:((SP(T)),2)"+";::SP(2)D$::ՙD$D$D$:"DONE" SOLUTION BY TIMOTHY SLATE ==================================H "ENTER A COUNTING NUMBER HIGHER THAN 1 ";NU:NU2NU 0,,,,,,,,,,,,,,,,,,,,,,,,0*- 0,,,,,,,F,80,,2,30,,2,30,,1,FC,,,7A,,,7A,0V-  0,32,,,78,,,84,,,86,,1,80,,,,,,,,,,,0w-* 0,,,,,,,,,,,,,,,,,,,,,,,,0-4 40,,,80,,1,D8,C0,3,FF,E0,7,3F,D0,,20,88,,20,88,,41,,,0-> 0,,,,,,,,,,,,,,,,,,,,,,,7,63.H W$BV2O3I$BO4I$EV3O3IGI$BV2O4IGIGV3I$EO3I$BV2IFI$EV3O3IGI$BV2O4IFQGV3Q$EO3Q$BV2O4Q$EQ$EV3O3QG"S+ MUSIC STRINGS+"V1O4T0U12X0SDDS#DV2T6U12X0V3T5U12X0V1O4SEV2O4IRV3O3ICV1O5ICV2O4IEV3O3IGV1O4SEV1O5ICV2IRV3O2I#AV2O4IEV3O3IGV1O4SEO5.QCV2IRV3O2IAV2IRV3O  *** REDIRECT C-64 ***; J4915249240:A:J,A:J[(147)16)(18)"REDIRECT"L$" --------------------------------------"(J0:S1:N$""::"FILE NAME? ";:(34);2204,0:A$:A$""50<A$(13)204,1:(34)A$:120 FJ15 (34)N$(34)$ "SEARCHING FOR ";R$D (N$)16N$N$(160):160\ 15,8,15:5,8,5,"#"{ 15,"U1";5;0;18;S:480:L4 B$"":J1 15,"B-P";5;JL:#5,A$:A$""A$(0) B$B$A$:(B$,J)(N$,J)240 JJ1:J16290 200 L,"U1";5;0;18;S:480% J15,"B-P";5;L:5,F1$;@ T15,"U2";5;0;18;S:480\ ^15,"U1";5;0;18;S1:480w h15,"B-P";5;L1:5,F2$; r15,"U2";5;0;18;S1:480 |"DONE..." 5:15:L$: "ANOTHER SWAP (Y/N/$)";A$:A$"Y":20 A$"N" A$,186,255,169,1,162,251,160,0,32,189G255,32,192,255,162,5,32,198,255,32,207,255x32,207,255,32,207,255,32,207,255,32,207,25572,32,207,255,168,104,170,165,144,208,22,152&32,205,189,169,32,32,210,255,32,207,255,208 0248,169,13,32,210 *** REDIRECT C-128 ***= (147)16)(18)"REDIRECT"nL$" --------------------------------------"J0:S1:N$""::"FILE NAME? ";:(34);(2599,0:A$:A$""402A$(13)2599,1:(34)A$:110<J152599,1:A$:100 FA$(FOR ";R$$ (N$)16N$N$(160):150< 15,8,15:5,8,5,"#"[ 15,"U1";5;0;18;S:470:L4i B$"":J1 15,"B-P";5;JL:#5,A$:A$""A$(0) B$B$A$:(B$,J)(N$,J)230 JJ1:J16280 190 LL32:L229180 P01:15,"66,90,60,.1.83,,60,106,86,106,86,60,.2886,,126,231,255,60,126,126,.=2B87,,60,90,126,66,66,60,.`2L88,248,88,124,26,25,36,36,1022V160,182,109,219,182,109,219,182,1092`219,126,,,231,231,,,126,-18192A8I,B::9700 169,,133,2501,21,,41,,FF0 80,,,,3,FF,E0,4,,10,3,FF,E0,,#0 REDEFINED CHARACTERS0980:15:SUM0:I28162869:J:SUMSUMJ:I,J::SUM7491"ERROR!"::՞2816:2604,(2604)2408010600A:A1:ՁI.7:B:8192A8I,B::9700 169,,133,250 70,5,FF,D0,5,,50,7,,70,1,,40,1,FF,C0,1,7F,40,1,80,C0,1,,40Z.R 1,80,C0,1,7F,40,1,FF,C0,1,,40,7,,70,5,,50,5,FF,D0,7,63,70,0.\ 0,,,,,,,,,,,,,,,,,,7C,,3E,44,,22,7F.f FF,FE,21,42,84,61,81,86,21,81,84,21,81,84,61,81,86,21,42,84,7F,FF,FE,44,0.p2I$AI$AV1O5SC"g,"V2O4IFV3O3I$AV1O5SDS#DV2IRV3O2IGV1O5SESCV2O4EV3O3IGV1O5SDIEV2IRV3O2IGV1O4SBIDV2O4IFV3O3IGV2O4HEV1O5HCV3O3ICO2IGQC", SPRITE SHAPE DATA, 0,,,,,,,,,,,,,,,,,,F,80,,2,30,,2, 30,,1,FC,,,7A,,,7A,,,32,,,78,,,84,,1,84,,,6, 204,1:A$:110# PA$(20)J150K ZA$;:A$(20)JJ1:N$(N$,J):50b dN$N$A$:JJ1:50 n:(18)"YOU ARE OVER THE 16 CHARACTER LIMIT.":40 xN$""(18)"PLEASE ENTER A FILE NAME.":40 N$"$"49152:198,0:470:15:L$:40 R$L32:L2291908 P01:15,"B-P";5;P:#5,A$:A$""A$(0)g A(P)(A$):P:A(0)18A(1)1A(1)18280w SA(1):180 :"UNABLE TO LOCATE ";R$:390 "440::L$:CT1310 ,F1$F2$:S1S:L1L:CT1:5:15:40 6"SWAPPING...":L$ @15"$"49152:198,0:470:15:L$: 4009 F2$"":LL2:J029c 15,"B-P";5;JL:#5,A$:A$""A$(0)w F2$F2$A$:J: 15,8,15 15,EN,EM$,ET,ES:EN0 EN;EM$;ET;ES:5:15: 32,68,229,169,36,133,251,169,5,162,8,1600,324,255,184,80,214,32,204,255":169,5,76,195,255"":LL2:J029c 15,"B-P";5;JL:#5,A$:A$""A$(0)w F2$F2$A$:J: 15,8,15 15,EN,EM$,ET,ES:EN0 EN;EM$;ET;ES:5:15: 32,68,229,169,36,133,251,169,5,162,8,1600,3220)J1400 PA$;:A$(20)JJ1:N$(N$,J):40G ZN$N$A$:JJ1:40~ d:(18)"YOU ARE OVER THE 16 CHARACTER LIMIT.":30 nN$""(18)"PLEASE ENTER A FILE NAME.":30 xN$"$":208,0:460:15:L$:30 R$(34)N$(34) "SEARCHING B-P";5;P:#5,A$:A$""A$(0)G A(P)(A$):P:A(0)18A(1)1A(1)18270W SA(1):170z :"UNABLE TO LOCATE ";R$:380 430::L$:CT1300 "F1$F2$:S1S:L1L:CT1:5:15:30 ,"SWAPPING...":L$ 615,"U1";5;0;18;S:470 @15,"B-P ";5;L:5,F1$; J15,"U2";5;0;18;S:470< T15,"U1";5;0;18;S1:470W ^15,"B-P";5;L1:5,F2$;s h15,"U2";5;0;18;S1:470 r"DONE..." |5:15:L$: "ANOTHER SWAP (Y/N/$)";A$:A$"Y":10 A$"N" A$"$":208,0:460:15:L$: ,133,252,169,208 1 133,251,169,32,133,253,169,252,1 141,185,2,169,16,141,54,11M1 160,,169,250,162,14,32,116o1 255,162,,32,119,255,200,2081 241,206,54,11,240,7,230,2511 230,253,76,26,11,961 CHARACTER DATA1$81,,60,90,126, 22,7C,,3E,,,,,,,,,,,,,,,,,,,,,0)/z 0,,,,,,,,,,1,,40,3,,60,,80,80,,5D,,,2A,0e/ 0,3E,,,14,,,14,,,3E,,,41,,3,80,E0,1,,40,,,,,,,,,,,,,0/ 0,,,,,,,,,,,,50,,1,50,FF,81,51,,41,22,80,A1,24/ 41,15,65,A2,D3,75,88,D7,6C,8,19,25,,51,24,80,91,22,7F,2-\\\­-L3L1L=0\(LP-  LkMн\L\(-  LMн\L= \L\ Ͻ\L)LkLQxX`INCINS 0 "* YHyy*""""*Y@*j@*""*Y@yy *""""*Y@*j@*F 3Y]nM}M2`9""""*Y@*j@*""*Y@yy *""""*Y@*j@* * .,1:4,1:1,1:.:(147)(11)(142)""6)"PLEASE WAIT...LOADING DATA":760:X35843584764:A$:X,(A$)::X4032403245:X,.:X4077407718:X,255::950:16)"OKAY!!"( 2:5324821,.:""7)"7)""Jn7)"žÖߩÁ"vx7)"Ö ߩ Á"7)"žÖ Á"7)"Ö Á"7)""15":(2)127:410. INITIALIZE VARIABLESv : J,X,Y,C,U,M,T,H,I,K,F,P,B,Z,W,V,C(6),X(7),Y(7),L,PB,CS,F$,M$,E$ P2040:B56:I.005:Z.:U1:M2:T3:K129:W65:PB3:V53248:F$"###.##":"0":E$"GAME"(160)"OVER" !610:J.6:C(J):U):C(M):C(M)::V21,255"" MAIN LOOPo"":X(U,.):Y(U,U):A(M):JA15:JU,T;(JU)45:P,BZ:U,P,U,,,,T",AJ.CKF." ":FU:I.009:M,P,M,,,,U"6Z(Z.)U:HHI:U,,C(H):C(M):(CU)U,X,Y #@C(U):((C60,93:F.:" ": 1:360:270:ՁJ.99:5,(U)15M:"";E$::M$:40$hJ(U)8:7,X(J),Y(J):7,U:F.:J.3:U,223,48,,,,M,75: 1::U,30000,40,U,,10000,M$rJ.12:" ":X.10::"":X.10::Q%|J.9:"UU}UU@U@U@U@U@U@U@U@U@U@U@U@U@.}UUPiPUPUPiPUPUPiPUPUPiPUPUPB ے ے"8)"";9&" ے"13)"ے"8)"";g&" "9)" ے"13)"ے"8)"";&" ے ے "8)"";&" ɭýý ے ے"14)""; '" "12)ے ے ے ے"8)"";:O("{{{{ {{{{ {{{ {{{ {{{{ {{{";i(" "38)" "38)" ";(&"{{{{ {{{{ {{{{{{{{{ {{{{ {{{";(0"ے"9)"ے ے ے ے"8)""; ):X.1*j@ ""*" @"ª""  *<B $0 <B B@B@$$ZZ<<,154,294,154,55,213,175,213,290,213!* MOB STARTING COORDSS* 60,93,,183,109,,129,,360,125,232,40,,,60,84i* SPRITE POINTERS* 56,58,59,59,60,59,62,63* DIRECTIONAL INDICATORS* 270,180,,90,180* FANFARE?+"V1O1Q$BV2O2I$BV1O5."027)" î ’ Ò Ò ߒ "d<7)" ’ ’ ’   ’ ’ "F7)" ý ’   ó "P7)" ’ ’   ’ ’ "Z7)" ’ ’ Ò Ò ’ ’ "d:10V10)"A GAME FOR THE C-128":14)" BY  ":9)"CLEVELAND M. BLAKEMORE"p730:A$,B$:A$:B$.,10,21,"JOYSTICK IN PORT TWO":.,7,23,"PRESS FIRE BUTTON TO BEGIN" X1::5,(.)152:XX1(X4)4:.,8,7X,":J.7:X(J),Y(J):u!1,.,11,.,.,.,.:2,.,10,.,.,.,.:J18:X,Y:J,X,Y::J.7:X:2040J,X::J36:J,.,J,.,.,.,.:!7,.,3,.,.,.,.:8,.,1,1,.,.,.:J26:X:J,X#1::M$:.,3,3," ":"$";:F$;CS:360"J.10:C(U):C(U)CK)HU:CWF.290n#JCW7,.:F.:LLU:M$:CSCS40(H.1):"";:F$;CS:360:(L5L10L15)U390:270#TP,B5:U,P,5,.,100,100,M:M,P,10,.,600,150,M,220:Y.10:JU16:U,U,J:::U,.:.,UPBM,T," ":PBPBUE$^PBP,B:U, ":X.30::U,500(U)500,5,.,,,3:"":X.30:::"":H6:I.005:~%690:JM6:X:J,X#((J,M)(JU))::% GAME SCREEN%(27)(77)" PIZZA BOY ې "; &" "9)" } ` A} UU@}@@@@@iiiiiiiiii}  "ے ے ے"8)"";?'" "12)"ے ے ے"8)"";y'"  {{{{{{{{{ {{{{{{{{{{";'" "38)" "38)" "38)" ";'"{{{{{{{{{{{ {{{{{{{{{ {{{{{{{{{{";(X.2:"ے"9)" :"ے"15)"ے"13)"ے"8)"";:@)D"ے"9)"ے ے ے ے"8)"";w)N"ې ې ";:)X PIZZA TEMPERATURE COLORS)b 1,7,10,3,11,8,1)l PIZZA DINER COORDS*v 175,74,290,71,54,154,175 )d (12351)65 "SILSPRITES",8,1^n JY(X)15((56320)15): JB(X)((56320)16)xS54272: XS S24: A: X,A: 64,5,0,0,32,0,176,0,31,0,0,16,0,250,0,5,0,0,128,0,248,0,0,0,15 X0 4: FH(X),FL(X):: 4,48,4,180,5,71,5,152 LE SCREEN5  53281,12: 53280,12: "";: (2047)65 600t "Y60:SX0:EX255:IC1:SP95:SO14:FL1:S13:S22:S31:460 , 12);"THE GOOD GUYS:" 6" POLICEMAN PROFESSOR YOUNG LADY" @ 2044,194: 2045,193: 2046,192: V8,(V2) REDD":M$"-"M$(3):560U| S11,17: S11,16: 5);" IN "{ 5);" . " 5);" ɰ " 5);" ݠ ݫ " 5);" 1,SO S,64: S1,5: S4,336 XSX EX 4IC: V2,X:AXSPq V4,A(AZ1 AZ2):AASP: V6,A(AZ1 AZ2): S4,32: FL0  S11,17: S11,16 2041,191S1: 2042,191S2: 2043,191S3:& PLAY MUSIC0 X1 SCORE:";SC: 30);"GUNS:";GNgv "";B$;" ";A$;" "; " ";A$;" ";A$;"";B$;" " 2040,199: V1,185: V,124: V21,1 J1 7:S1(2)SN(SR2040)191: 2040SR,198' SN4 1040:780_SCSC10: 214,11:: 211,70: "";SC:TMTM(TM10) K: SR1 3:SN(SR2040)191: SN3 SN7 1040 SR Y168:SX185:EX0:IC1:SP72:SO15:FL0:460: V21,1 J"R J1 5:B1(4(1)):B2(4(1))<\ X0 19: 781,X: 782,27: 59905: X`f "";B1$(BT(B1));B2$(BT(B1));p B1$(BB(B1));B2$(BB(B1));z "";14);B1$(BT(B2));B2$(BT(B2)); B1$(BB(B2));B2$(BB(B2));"": V,XX(0): V1,XY(0) S18,129: S18,128#SN(2041)191: 2041,198: SR0 1000< SN4 1030:1010hSCSC10: "";30);SC:TMTM(TM10) L:SN(2041)191: SN3 SN7 1030AAEX:EXSX:SXAA:ICIC:FL0:460 K:M$M$(6(1)1):550: J:[ ": A$: A$"" JB(0) 1070#8 A$"N" 2047,0: V21,0:"";:3B 2047,65:10hSCSC10: "";30);SC:TMTM(TM10) L:SN(2041)191: SN3 SN7 1030AAEX:EXSX:SXAA:ICIC:FL0:460 K:M$M$(6(1)1):550: J:#,160,0,0,65,72,79,89,33,0,0,50093,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,16,6,71L M$(1)"CCCCEEEEG-D-C-":M$(2)"CDE-EFG-GEFDC-":M$(3)"GGFFEEDDC-E-C-" M$(4)"GGG-FFF-E-D-C-":M$(5)"C-E-D-F-E-D-C-":M$(6)"GFEDGFEDG-E-C-" V53248: V29,126: V23,126: V28,126: V37,0: V38,10 V39,1: V27,254: X1 6: CO":B$"  ":C$""i B$B$C$:A$A$C$:B1$(2)A$B$B$B$B$:B2$(2)B$B$B$A$A$ :D$"":B1$(1)""D$C$D$C$ B1$(0)"":A$" ":B$A$A$A$A$:GN5:TM50:Q(TI)  TIT/ J V9,Y: V10,(V4): V11,Y: V12,(V6): V13,Yh T V43,CO(S1): V44,CO(S2): V45,CO(S3): V21,112 ^Y195:SX0:EX255:IC1:SP95:SO126:FL1:S16:S25:S34:460 h 11);"AND THE BAD GUYS:"r" LOUIE SLIM " 18);"BY": 11);"CURTIS F KAYLOR"D 56464,16,16: V21,0:GN5:600W MOVE SPRITES 2041,198: 2042,198: 2043,198:Z10:Z2256 V2,0: V3,Y: V4,0: V5,Y: V6,0: V7,Y V40,CO(S1): V41,CO(S2): V42,CO(S3): V2 (M$):A((M$,X,1)): A45 580C: S4,32: S,FL(A67): S1,FH(A67): S4,33fD PA1 100: PA,X: S4,32:xN RIFLE RANGEX 53280,11: "";: X1 10: B$;:b 8);"RIFLE RANGE": X1 10: 28);" ";A$;:l 30);"((1)3)1:S2((1)3)4& (1).5 SSS1:S1S2:S2SSNS3((1)6)1: S3S1 S3S2 680Y168:SX0:EX185:IC1:SP72:SO15:FL1:460 K1 TMJYJY(0): V,XA(JY):SR(V30)14: JB(0) 760 S18,129: S18,128:SR(SR):M$M$(6(1)1):550: "";   CITYG* X1 20: 28);" ";A$;:: B$;B$;B$;B$;"";5);4 "SILHOUETTE CITY": "";B$;" ";30);"SCORE:";SC> "";30);"GUNS:";GN: "";H 31);"  K1 5:XX(2(1)):B0B1(XX0)B2(XX1)AYY((1)(1(BT(B0)0))):S1(6(1))1Y15280YY:SX240XX:EX56112XX:IC12XX:SO3:FL1:460 L1 TM2:JYJY(0): V,XX(JY): V1,XY(JY)SR((V30)2): JB(0) SR0 1000600GX5: 2041,SN191: 214,17:: 211,32:1050JGX15: 2040SR,SN191: 214,21:: 211,39(3SR) "MISS";:M$"EEEEE":560: " ":GNGN1:TMTM1$ 214,GX:: 211,30: "";GN;" ": GN0 ." PLAY AGAIN? (Y/N) 0} ` A} UU@}@@@@@iiiiiiiiii}  (X):: 6,11,2,6,0,25 X0 10: XA(X),XX(X),XY(X):y 124,124,124,124,124,124,124,124,124,0,0,0,52,124,124,52,68,90 52,68,170,0,0,0,196,124,124,196,183,90,196,183,170 X0 3: BT(X),BB(X):: 0,1,0,2,1,2,2,2' A$"  Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/fLOADER d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(A)T(1)T(0)16:ADA1  A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:"INPUT A 4 DIGIT HEX VALUE!":415F":"ENDING IS LESS THAN STARTING!":B0:415|":"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415":"NOT ZERO PAGE OR ROM!":B0:415""?ERROR IN SAVE":415""?ERROR IN LOAD":415"::"END OF ML ARE5:$A$"/"A$":"T(A)(A$)48:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(AN:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B06357 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3FKUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,10,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465!2,201,32,208,4,165,2,240,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,1654272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(133)535 A$(134)560220 !O LAST LINE'!T" ":TAD((AD256)256)M!YB0A1:TTA%(B):T255TT255S!^k!cA%(A)T375:195!hB0A1:ADB,A%(B):!m:"YOU ARE FINISHED!":535!r BELL AND ERROR MESSAGES!w:"LINE ENTERED INCORRECTLY"::415"|:A":#54276,17:54276,16:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14:A$(T$,A,1):450:T(A)16380:430#:B(T(1)4096)(T(2)256)(T(3)16)T(4):#A$"@"A$"G"T(A)(A$)5CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC 92,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173, ,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,239 2,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1A HAHOY! DECEMBER872ABOOTERLANKSPEED 64 UG EP ɠ 128 BUG REP II ARSHIPILHOUETTESILSPRITESLIFFHANGER ADDED IN DDED IN RANK1 IN RANK2 IN NNER1 INNNER2 INKEY INRESAVER INCLIFFHANGER.MLCLIFFHANGER.SPPIZZA BOYUELING TATIONFUELING.OBJ AKE WOEDIRECT 64REDIRECT 128ORD INABELS IN LIP INALTERNATOR INWINDOW INATROL IN PATROL IN PATROL80 IN PRITE-NLEARNER 128 ADDED DIFF. 128 DDED IFF. 64 RANK'S HILD 1 RANK'S HILD 2 NNER TRING 1 NNER TRING 2 LIP IDELIP INS LANK INUG EP INBUG REP IN KEY FUNCTIONS RESAVER 128ORD ROCESSORABELSAGIC ORMAT LIP LOP ALTERNATOR WINDOW BORDER .ATROL 64 D.PATROL 128 D.PATROL 128/80 DDLOGO%DIR 1LOADERARSHIP IN IL INLIFF IN PIZZA IN UEL IN AKE IN EDIRECT IN REDIRECT IN PRITE IN LEARNER IN 6 (147)"LOADING AND CHECKING THE DATA...":J4864SB011:A:A0A25540rJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(66)256(65):2X0:JJ12:J521320<208,0:5213,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)0F" :"FILENAME";F$:F$N$(F$,14):L(F$)P5215,L:J1L:5215J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,198:771,77:4864:32,58,20,169,41,162,19,236,3,3,208,4,95 169,0,166,235,164,236,133,253,133,254,142,47,1932] 20,140,48,20,24,101,22,69,254,230,254,24,1206 101,23,69,254,170,230,254,164,252,185,0,2,1704 133,251,201,34,208,6,165,253,73,255,133,253,1965 201,32,208,4,165,253,240,8,138,24,101,251 ,93,12982"J20,240,27,165,161,201,212,176,4,165,160,240,1771d"T17,32,65,20,238,32,208,238,1,214,32,225,1322"^255,208,6,32,49,20,76,198,77,232,208,242,1603"h200,208,239,32,66,193,173,95,20,162,96,160,1644"r20,32,189,255,169,0,170,32,104,28,206,1222,$1,214,169,0,170,168,76,219,255,32,79,20,1403_$169,26,141,0,214,173,0,214,16,251,96,162,1462$0,142,0,255,96,19,18,32,32,32,32,146,804$0,1,0,0,65,72,79,89,33,0,0,0,33920,162,96,160,1644"r20,32,189,255,169,0,170,32,104,2@d JS(X)(56464)X: FR(X)A$(13) A$" " JS(16)0~n UD(X)(A$"" JS(2)0)(A$"" A$"^" JS(1)0)x LR(X)(A$"" A$"_" JS(4)0)(A$"" JS(8)0) X1 30:RT$RT$"":DN$DN$"":SQ$SQ$" "::SO$" SP$;AN$;SP$;SP$;SP$;WN$;SP$;SP$;X "";SQ$;" ";: X0 9: C$(X),WN$(X): "  ","<<<<"," "," <<<"," "," <<"," "," <"," " " ","  ","> "," ",">> "," ",">>> "," ",">>>>"' ",,,,,,,,,,,,,,,,5,,,5,,,7,128,,7,128,,7,192,n  255,255,255,127,255,254,127,255,254,199,,,,,,,,,,,,,,,,,,,,,,,,,,,,  ,,,,,,,,,,,,128,,2,128,,2,128,,7,192,,7,193,,7,227,224,31,255,192,15 " 255,192,199,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,ION SHIPS___A^ K0 3:SH(J,K)256(1):XJ8K2:SD(J,K)(900(1))100zhSHJ4K: VX,SH(J,K): VX1,117104J: V39SH,0r 2040SH,192K: K,J: V29,255: V27,255: V21,255 PL0 1:SH8PL:PRPL13: PLAY GAME___WN4(9(PL)AN(PL)(AN(PL)1)(AN(PL)46)> "";(DN$,9PR);15);C$(AN(PL)10);n "";(DN$,4PR);37(AN(PL)10));AN(PL) 1FR(0) 440: S4,32 S7,0: S8,3: S12,0: S13,250: S11,129: S11,128AGAN(PL)13: Y8 AG 1: "DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90RP"NO AUTOMATIC SAVES...":150Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)#xF$"BACKUP":5+169,198,162,77,141,2,3,142,3,3,224,19,1143\208,7,32,125,255,79,78,0,96,32,125,255,129279,70,70,0,96,162,0,134,251,189,0,2,1053240,19,201,48,144,9,201,58,176,5,133,251,1485232,208,238,134,252,165,251,208,3,76,198,77,2042* ,16253!69,254,170,44,198,254,230,252,164,251,208,213,2307e!"138,41,240,74,74,74,74,24,105,65,141,88,1138!,20,138,41,15,24,105,65,141,89,20,32,79,769!620,189,85,20,240,6,32,210,255,232,208,245,1742!@174,47,20,172,48,20,24,32,240,255,17355,169,0,13953#|174,94,20,168,32,186,255,169,45,174,16,18,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20";(DN$,YPR);15);"";>& PA1 50:: " ":: PA1 1000: : YAG 8w: "";(DN$,YPR);15WN);".";: PA1 50:: " "N:SD1000:SG1: SH0 3:SISH(PL,SH)BR(PL)255:SESD(PL,SH)X SI115WN8 SI135WN8 SESD SGSH: "R SP$RT$SO$:KL$RT$" KILLS: 0 ":AN$RT$" ANGLE: 45":WN$RT$" WIND " 53280,0: 53281,14: "";RT$;" PLAYER 1 ";SP$;KL$;SP$;AN$; SP$;SP$;SP$;WN$;SP$;RT$;" WARSHIP ";SQ$;" CF KAYLOR";SO$;SQ$; RT$;" PLAYER 2 ";SP$;KL$; "," ":S54272: XS S24: A: X,A:b (DN$,9);15);C$(4);" ";(DN$,11);C$(4);" " 0,2,0,0,32,0,199,0,3,0,0,128,0,252,0,3,0,0,128,0,252,0,0,0,15 (12351)199 X12288 12543: A: X,A:$  ,,,,,,,,,,,,,,,,,,,,,,,,,,C , 64,,,64,,1,196,,1,239,,7,254,,3,254,,199,,,,,,,,,,,,,,,,,,,,,,,,,,, 6 ,,,,,,,,,,,,,,,,,,,,,,,,1,192,,1,196,,7,255,192,15,255,224,199 @ ,,,,,1,192,,1,196,,7,255,192,15,255,224,199TAN(0)45:AN(1)45:V53248:Q(TI): J0 1: POSIT (1)): "";(DN$,8PR);36);WN$(WN4)Z A$: S4,32(UD(.)2LR(.)2):BR(PL)BR(PL)LR(.)255 VSH,SH(PL,0)BR(PL)255: VSH2,SH(PL,1)BR(PL)255 VSH4,SH(PL,2)BR(PL)255: VSH6,SH(PL,3)BR(PL)255AN(PL)AN(PL)UD(.):AN $ CLIFFHANGER-JC HILTY-7/87,127 S4,0l S24,15:S1,10:S,100:S5,3:S6,1:S4,129:u 900~ 80049600,252JY(56320)15JY730JY1140JY1350JY1460(R)32200 W1(V30):W11 1,Y1:10:25< FBOBO10:""33)" ":""32)BO:BO0200D H28o KX20442047:X,Z::ZZ1:Z196Z192w L28 P(V4)190V4,68 R28 U(V12)LB49613,2:49500,64 V(V12)RB49613,254:49500,64 W(V13)20049614,25 16,0:28 49600,0& Y1Y14:Y1220250; V1,Y1:10:202a 2040,197:LILI1:""32)LI X024:SX,0::SP10:S,150:S1,SP:S6,240 S24,15:S4,17 SP102504:S1,SP: X024:SX,0: LI0400& V21,0:2 100:lS4,20:T0100::0nX024:SX,0::V40,4UpLELE1:""32)LEyqPH(3(4)252):PL(3(5)2)sV21,0:2040,196:R1879:X1132:Y1204:BO500:""32)BOt850:14V21,0:"":X20412043:X,Z::53280, PLAY AGAIN"938DPL3:PH252:LI4:LE1:SC0:BO500:X1132:Y1204:R1879:L1L13 53280,2:"CLIFFHANGER"33)"BONUS":32)BO:"9)"  ߒ  "33)"LIVES"$9)"   "32)LI&8)"  ߒ SDSEb SH: SG1 640El S7,0: S8,8: S12,63: S13,251: S11,129:S11,128sv "";(DN$,6PR);31);"MISS ":720SF(45(AN(PL)45))20100:DSSDSF: (DS)100 690 S7,92: S8,1: 12,0: S13,252: S11,129: S11,128";DS( DS0 "";(DN$,6PR);31);"LONG ";DS[ K(0)4 K(1)4 PA1 1000: PA,PL:420 K(0)4 "";(DN$,6);31);"WINNER " K(1)4 "";(DN$,19);31);"WINNER " A$: FR(.) 750 A$: 1FR  "33)"LEVEL">64)"  ߒ"32)LEc84)"  ":3)"  "<3)"  ">2)"  "@2)" ,0:V29,0:V28,253 V2040,196:V39,5:V,X1:V1,Y1GX2041,199:V40,4:V2,136:V3,58oZ2042,198:V41,5:V4,142:V5,094\2043,198:V42,5:V6,142:V7,142^2044,Z:V43,14:V8,80:V9,190`2045,Z:V44,2:V10,186:V11,70  DATA...."147,0:57812"CLIFFHANGER.ML",8,1:62631H147,0:57812"CLIFFHANGER.SP",8,1:62631V53248:S54272:LI4:LE1:SC0:BO500:X1132:Y1204:R1879:L1:LB40:RB200PL3:PH252V16,0:2040,200:Z192:2041,Z:2042,Z:2043,Z49600,0:350% L70,75,80,85,90,1008 LL1:L7L1@ 20_ X1X18:X1252X1252:25w RR1:V,X1:10:25 (X1X18:X128X128:25 *RR1:V,X1:10:25 2Y1Y18:Y1204Y1204:25 4RR40:V1,Y1:10:25 <Y1Y18:RR40:V4:49500,64) X(V13)10049614,2:49500,641 Y28I Z(V6)60V6,210Q [28x d(V14)(V)49615,PL:49500,128 f(V14)(V)49615,PH:49500,128 h(V15)(V1)49616,PL:49500,128 j(V15)(V1)49616,PH:49500,128 lV040,196:R1879:X1132:Y1204:BO500:""32)BO/ 850< LE114` PH(3(4)252):PL(3(5)2)h 14v ^W12360 `200 hSCSCBO:""32)SC jS1,130:S5,9:S15,30:S24,15:QQ1 kX112:S4,21:V40,QQ:QQQQ1:T00+V40,2:V41,14:V42,7:V23,14:V29,14:V28,14dV2,50:V3,180:V4,150:V5,180:V6,250:V7,180""11)"G A M E O V E R"::SCHSHSSC11)"SCORE "SC::11)"HIGH "HS:V21,14:6)"PRESS ANY KEY TO " (8)"   "33)"SCORE"F*7)" ߒ"32)SCd,7)" ".6)"  ߒ"33)"HIGH"06)"  "32)HS25)"  "45)" V21,(V21)2552(SG4PL):SD(PL,SG)1000MK(PL)K(PL)1: "";(DN$,2PR);37);K(PL)z "";(DN$,6PR);31);"HIT ":720 S7,0: S8,8: 12,63: S13,251: S11,129: S11,128 DS0 "";(DN$,6PR);31);"SHRT (.) 760:(V21)2552(SG4PL):SD(PL,SG)1000MK(PL)K(PL)1: "";(DN$,2PR);37);K(PL)z "";(DN$,6PR);31);"HIT ":720 S7,0: S8,8: 12,63: S13,251: S11,129: S11,128 DS0 "";(DN$,6PR);31);"SHRT   "/B"  "WD"  "F" "H" "RX4960149616:X,0::49500,255:49600,0:49376TV23 b2046,Z:V45,7:V12,116:V13,1205d2047,Z:V46,13:V14,166:V15,120af49605,2:49607,253:49610,255:49612,2h49614,2:49613,253:49500,252pV21,255:X024:SX,0::W1(V30):53281,0:53280,0:"ONE MOMENT....LOADING V23,15:V29,15:V28,14:V37,1:V38,0:V39,8HV40,2:V41,14:V42,5:V,120:V1,60:V2,160V3,200:V4,60:V5,200:V6,250:V7,200:V21,15""20)"PRESENTS"7)"     ""     "#"         "X4)"      ":14)"BY JC HILTY"::12)"JOYSTICK-PORT 2":4)"AVOID THE CROCODILES AND HOOTIES"""14)"PRESS ANY KEY" A$""940"":V21,0:5 10814,2,5407,2,5103,2,5407,2,5728,2,6430,2,7217,2,8101,2s 8583,2,5407,2,5103,2,5407,2,8101,2,5407,2,4817,2,5407,2 7217,2,5407,2,5103,2,5407,2,5103,2,5407,2,5103,2,5407,2 8583,2,5407,2,5103,2,5407,2,8101 407,2,5103,2,5407,2* 8583,2,7217,2,8101,2,8583,2,9634,2,10814,2,11457,2,12860,2h 14435,4,14435,4,12860,2,14435,2,12860,2,11457,2,12860,2 14435,4,10814,4,10814,8 14435,4,14435,4,12860,2,14435,2,12860,2,11457,2,12860,2 14435,4,12" A0A1:"FUELING.OBJ",8,1. 49152SG RACTION UNECHNI-ITLESSCREEN CLOCKSPRITE PRINT 128CROLL-A-ATICO OADS  Zǭ[Ǣ؝ٝڝ( pP Щ!Т pP0Ɲ@?(\ǩYǩ ЩЍЩ&Щ(Щ )Щ *Щ+ЩТ(ТxТȎТЩۅ (/ǝ(.!*cLiЮ] ?)0]ǭЮ^ ?)0^ǭЮ_ ?)0_ǭ Ю` ?)0`ǭ]82Lh­i2Э^ 8L­iЭ_ 8L­iЭ` 8 L­ i ЭaǐfbǰaaǐYbǰTaǐLbǰG aǐ?bǰ:x XĭYLCyaǩbL+ĩمڅaǩb` @0(`8ɰi `ƝԢԎԩ fʎ& hʎ&ԩ&Щ hũ hũԢ`مڅY @0L h0L hLɰɰɰxhhhL1FUELING STATION JOHN KRUTCH 1987 */* CCCCCCCCCCrCCCCCCCCCrCCCCCCCCCrCCCCCCCCCCCCCCCCCCCqCCCCCCCCCqCCCCCCCCCqCCCCCCCCC+ *** TAKE TWO *** BUCK CHILDRESS ***X *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J49152(B011:A2B0L(64)256(63):(19)31)L:<A0A25580FJB,A:XXA:DD1:B:A:AX90        "Y"         ߒ     ""               ""           X024:SX,0::*S3,8:S5,41:S6,89:S14,117:S18,16:S24,143BFR,DR:FR0:940NS4,65jT1DR:FQFR(S27)2HF(FQ256):LFFQ255S,LF:S1,HF::S4,642041,Z:2042,Z:2043,Z:ZZ1:Z196Z192A$:,2,5407,2,5103,2,5407,2- 7217,2,5407,2,5728,2,6430,2,7217,2,8101,2,8583,2,9634,2l 10814,2,5407,2,5103,2,5407,2,9634,2,5407,2,5103,2,5407,2 8583,2,5407,2,5103,2,5407,2,5103,2,5407,2,5103,2,5407,2 10814,2,5407,2,5103,2,5407,2,9634,2,50814,4,10814,8  14435,4,14435,4,12860,2,14435,2,12860,2,11457,2,12860,2E 14435,4,10814,4,10814,4,9634,4 8583,4,5407,4,5103,4,5407,4,8101,4,5407,4,5103,4,5407,4,0,0,5103,2,5407,2,5103,2,5407,2 10814,2,5407,2,5103,2,5407,2,9634,2,5 P"ERROR IN DATA LINE:"L:4 ZX0:JJ12:D25240O d"THE DATA IS OK...":q n"SYS 49152 TO ACTIVATE...": x169,160,162,224,160,0,133,252,134,254,132,251,2031 132,253,177,251,145,251,177,253,145,253,230,251,2518 230,253,208,242,230/؍]""ۍnԩԩԭYYL| YL| YL|Yǩ { ,ĠoƑƑ(ƍ 1ōЩƍ 1ō ЩЩ(\x΢ōXɰɰɰx yZǍ[ǍXƝpPLf@LL@XXE9Xǭ]I]Lz8Xǭ^I^Lz3Xǭ_I_Lz Xǭ`I``Y)@م0څqaǩbL+)hم0څyaǩbL+)hمĩ\Ǭ\ǩ\ȭ\( L0ũ @ٍhٍڍ0ڍ`<Ȱ`ȐLS<LSũ ` ` ` ```WǠWǭW`"ǝ ԩԩԩԩԢ ԩ hũ hLũ ԩ hũ hũ `HHHLf\( L C 't(WǠWǭW`"ǝ ԩԩԩԩԢ ԩ hũ hLũ ԩ hũ hũ `HHHLf\( L C ' , *** SPRITE-ON *** BUCK CHILDRESS ***Y *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J53000(B011:A2B0L(64)256(63):(19)31)L:<A0A25580FJB,A:XXA:DD1:B:A:AX90 73 208,232,142,21,208,32,126,207,173,141,2,201,1693i 4,144,6,232,208,253,200,208,250,165,203,201,2074 2,208,39,173,141,2,41,1,208,8,238,0,1061 208,240,16,76,37,207,206,0,208,172,0,208,1578 192,255,240,3,76,37,207,173,16,208,73,1,14 794/ 100,176,12,169,32,32,210,255,224,10,176,3,1399c 32,210,255,173,16,208,240,5,169,18,32,210,1568 255,169,0,32,205,189,169,146,76,210,255,147,1853 32,32,32,32,32,88,32,80,79,83,73,84,679 "73,79,78,32,32,32,32,32,32,32,32,32,518   << RR48-1 >>====================================Y --- LEARNER ---{ AN EXPERIMENTAL MODEL FOR MACHINE LEARNING RUPERT REPORT #48 C-128 (SEE TEXT FOR C-64) ====================================5PLOSEFALSE : WINFALSEWZ 1000 : READ SENSORStd 1100 : GET MOVEn 1900 : SHOW MEMORYx 200 : CHECK KBD 1400 : MAKE MOVE 1500 : INTERPRET MOVE ,252,230,254,208,236,169,76,2588S 162,100,160,192,141,68,229,142,69,229,140,70,1702 229,169,76,162,109,160,192,141,234,232,142,235,2081 232,140,236,232,169,76,162,118,160,192,141,129,1987 233,142,130,233,140,131,233,169,127,162,192,120,228,203,22527 240,42,201,3,208,38,169,194,162,4,160,0,1421n 32,218,192,169,198,162,216,32,218,192,162,25,1816 189,247,192,149,217,202,16,248,232,134,199,134,2159 207,134,212,134,216,32,102,229,76,72,235,169,1818 4,162,194,160,0,32 A$"X" 300#  -PRESS X TO EXIT-0  1,1,22U  : <<<<<<<<<<<<<<<<<<<<<<<<<s " -S KEY TO SINGLE STEP- , A$"S" SSTRUE : 220 6 -ANY OTHER KEY RANDOMIZES- @ 340 : MAKE RANDOM MOVE J!T ------ PICK RANDOM SPO " : " (DS$)0 BL$(27)"Q"A"SZ10 : SIZE OF MATRIX["& X1 4 : Y1 5j"0MEM(X,Y)1t": Y,X"D N0 2 : SC$(N) : N"N ".","O","#" : SCREEN CHARACTERS"XBG0 : TG1 : BD2 : BACKGROUND, TARGET, BORD : BORDERS&$:SCRN(X,0)BD : SCRN(X,SZ1)BD.$ X?$ Y0 SZ1c$:SCRN(0,Y)BD : SCRN(SZ1,Y)BDk$ Yq$$  ----------------------------------------------------DRAW SCREEN---------$* X1 SZ : DRAW MATRIX$4: Y1  P"ERROR IN DATA LINE:"L:5 ZX0:JJ12:D21640R dJ1228812351:J,255:Jm n"THE DATA IS OK...": x"SYS 53000 TO USE SPRITE-ON...": 169,187,160,207,32,30,171,169,170,141,0,208,1644 141,1,208,169,192,141,248,7,162,0,142,16,142810 141,16,208,76,37,207,201,7,208,19,173,141,1434_ 2,41,1,208,6,238,1,208,76,37,207,206,1231 1,208,76,37,207,201,63,208,184,96,173,0,1454 208,133,251,160,9,32,143,207,173,1,208,133,1658 251,160,28,162,1,24,32,240,255,166,251,224,1,,89,32,80,79,83,73,84,73,79,78,0,0,75073,141,1434_ 2,41,1,208,6,238,1,208,76,37,207,206,1231 1,208,76,37,207,201,63,208,184,96,173,0,1454 208,133,251,160,9,32,143,207,173,1,208,133,1658 251,160,28,162,1,24,32,240,255,166,251,224,1=============================F SENS(5),MEM(4,5),PROD(4),SCRN(21,21)aFALSE0 : TRUE FALSE 500 : INITIALIZE( 800 : DRAW SCREEN2 =================================< ==== MAIN PRGM ================F ===1600 : UPDATE SCREEN/ 1800 : LEARN8 80 --------------------------------------------------- CHECK KEYBOARD ----- A$ : A$"" 250 SS A$ : A$"" 220 A$"S" SSFALSE 330 : RETURN ,20121 141,143,2,142,144,2,169,47,162,53,133,0,1138b 134,1,88,96,32,191,192,173,136,2,76,71,1192 229,32,191,192,165,172,72,76,237,232,32,191,1821 192,165,172,72,76,132,233,173,141,2,201,2,1561 208,54,165,203,174,246,192,141,246,192,218,192,169,216,162,198,1707J "32,218,192,162,25,181,217,157,247,192,202,16,1841 ,248,96,133,252,134,254,132,251,132,253,162,3,2050 6177,251,145,253,230,251,230,253,208,246,230,252,2726 @230,254,202,16,239,96,65,46,72,46,83,46,1395,192T --------!^ 1,XP,YP%!h SC$(SCRN(XP,YP))9!rXP((0)SZ1)M!|YP((0)SZ1)[! 1,XP,YPd!"X"j!! ------------------------------------------------------ INITIALIZATION --! (147) : CLEAR SCREEN! N1 18 : BL$BL$" ER VALUES1#b X1 SZ : Y1 SZ : NORMAL SCREEN VALUESJ#lSCRN(X,Y)BG : Y,XT#v X,Yv# X0 SCRN(X,Y)TG : 630# 1,1,1,2,1,3,1,4,1,5,1,6,1,7,1,8,2,8,3,8,4,8,5,8,6,8,7,8,8,8# 8,7,8,6,8,5,8,4,8,3,8,2,8,1,0,0$ X0 SZ1  SZ%>: 1,X,Y%H: SC$(SCRN(X,Y)) %R: Y(%\ XI%f 370 : INITIAL CURSORV%p 1,1,22{%z"S=SINGLE STEP:X=EXIT:R=RANDOM"%% ------------------------------------------------------- READ SENSORS --%SENS(1)SCRN(XP,YP1) : j: ROW1 5't: SUMSUM SENS(ROW)MEM(COL,ROW)*'~: ROW=':PROD(COL)SUMG' COLM']'MAXPROD(1)' COL2 4 : FIND MAX VALUE' PROD(COL)MAX MAXPROD(COL)' COL''N0 : FIND ALL SUMS EQUAL TO MAX' COL1  --- MAKE MOVE -----)PREVSCRN(XP,YP) : SAVE OLD&)X0XP0)Y0YPQ) MOVE 1460,1470,1480,1490W)m)YPYP1 : : UP)XPXP1 : : RIGHT)YPYP1 : : DOWN)XPXP1 : : LEFT* --------------------------------------- P,YP*h LOSE "X" +r 1,XP,YP+| WIN "*".+ LOSE 340<+ 1,21,10F+ BL$T+ 1,21,10+ LOSE LSLS1 : "LOSER" : 1,200,10+ WIN WNWN1 : "WINNER" : 1,2000,10+ 1,10,21+ "WINS/LOSSES = " WN " / " ------------------------------------------------ SHOW MEMORY ------/-v Y1 5<- 1,21,YF- BL$S- 1,21,Ya- SENS(Y)i- Yw- Y1 5-: 1,24,Y-: X1 4-: MEM(X,Y);-: X- Y- 1,21,7- BL$ : BLANKS-390,830,880,1610,1630/ 1650,1680,1700,1730,1920,1940-/ 1980,2030,2050,2080P/( EACH STATEMENT OF THIS FORM:o/2 CHAR 1,5,22 SHOULD BE/< REPLACED BY THE FOLLOWING:/F XX=5 : YY=22 : GOSUB 2700/P YOU MUST USE XX AND YY./Z --  A$(200):53280,0:53281,01""T" WORD PROCESSOR"y(" BY KEVIN ASHBY"2T13000::""<F1200FB$PA$(F)B$Z53280,2:53281,2:H1100:R$d R$"P" 140nH x 53280,0:53  D3:1,D: FOR PRINTER D=4FSP$" ": ADJUST TO FIT LABELSM1h( CENTER TEXT ON LABEL{21,SP$"AHOY!"<1,SP$"45 WEST 34TH ST SUITE 500"F1,SP$"NEW YORK, NY"P1,SP$"10001"Z1dII1:I10 30n1A"MIKE " 01 2A=BLOCKS FREE. LABELSM1h( CENTER TEXT ON LABELz21,SP$"AHOY!"<1,SP$"45 WEST 34TH ST SUITE 500"F1,SP$"NEW YORK, NY"P1,SP$"10001"Z1dII1:I10 30n1!d"LIP LOP":6300063006VS49152: *** CHANGE S TO 4864 FOR THE C-128 *** *** S CAN ALSO BE CHANGED TO RELOCATE IN BOTH COMPUTERS ***JSS92:A:J,A:XXA:JX14751"ERROR IN DATA...": 169,4,162,216,160,0,133,252,1 UP&SENS(2)SCRN(XP1,YP) : RIGHT4&SENS(3)SCRN(XP,YP1) : DOWNV&SENS(4)SCRN(XP1,YP) : LEFTx&SENS(5)SCRN(XP,YP) : BODY~&$&L ------------------------------------------------------ GET MOVE -------&V COL1 4&`:SUM0& 4(: PROD(COL)MAX NN1 : TMP(N)COL( COL?(R((0)N1) : PICK RANDOMe( MOVETMP(R) : MOVE FROM MAX'S( (0)10 10 MOVE((0)41) : SOMETIMES PURELY RANDOM((x ------------------------------------------------------------INTERPRET MOVE----------*SCRNSCRN(XP,YP)2* SCRNTG WINTRUEM* SCRNTG LOSETRUES**@ --------------------------------------------------- UPDATE SCREEN -----*J 1,X0,Y0*T SC$(SCRN(X0,Y0)) : RESTORE SCREEN*^ 1,XLS+6, ----------------------------------------------------- LEARN ---------V, RETURN :REM NO LEARNINGo, (LOSE WIN) ,& LOSE K1,0 WIN K1,: Y1 5,DMEM(MOVE,Y)MEM(MOVE,Y)KSENS(Y),N Y,X!-l ---- 1,24,7-  X1 4 . PROD(X); : X.  1,22,9/.* "NEXT MOVE =" MOVE5.4. ================================VVVVVVVVVVVVV C-64 ONLY VVVVVVVVVVV. C-64 USERS MUST REPLACE THE. CHAR STATEMENTS IN THESE LINES:. 270,350,------------------------------0d YOU MUST ALSO DELETE THE SOUNDA0n STATEMENTS IN LINES 1710 & 1720g0x --------------------------------~0 XX1 XX24 0 YY0 YY38 0 214,XX1 : 0 211,YY : HESE LINES:. 270,350,281,0 FA "SORRY NO MORE SPACE WOULD YOU LIKE TO PRINT":Y$S Y$"Y" 140c Y$"N" m 135 1,4:1:F1200 A$(F) A$(F)"" 1:1:175 53280,0:53281,0 1034,254,132,251? "132,253,169,7,162,219,160,231,133,100,134,102n $132,99,132,101,160,0,177,99,72,177,101,72 &177,251,145,99,177,253,145,101,104,145,253,104 (145,251,162,0,232,208,253,165,99,208,10,198 *100,198,102,165,100,201,3,240,16,19h8,99,1989 ,101,230,251,230,253,208,205,230,252,230,254,208` .199,32,228,255,240,166,133,254,96ALSO BE CHANGED TO RELOCATE IN BOTH COMPUTERS ***JSS92:A:J,A:XXA:JX14751"ERROR IN DATA...": 169,4,162,216,160,0,133,252,1'********************************M * MENU PROGRAM V2.0 *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67 Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING  54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135,71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, : 632,13: 198,2:F "":AT,2,2:""u %AT,1,5:"(C)1987 OUBLE OFTWARE V2.0" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": Y1Y18:Y1188Y1100+V1,Y1:I0F:LCI,0:?HH1:H12H1SPP1:P18P7sLCLC40:LC56030LC55590|204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55 9:NATAT22:M:N,M:4 ,32,180,2,132,251,32,180,2W .166,251,76,240,255,32,253,174u 032,158,173,32,170,177,96 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN3:B.:5190 d53280,0:53281,1: AIN ENU...."< "LOAD";(34);"DIR 1";(34);",8,1"T "RUN":""q 631,13:632,13:198,2: HI(25),LO(25),DU(25),H3(64),L3(64)  54291,134: 54277,136:54284,136  54292,136: 54278,134:54285,134  54290,17: 54  28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, ":1000(AN$:AN$""1670>882:V21,1:225_ ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIO- >AT,20,2:"  "d CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:"590LC56030(204828:V21,0IAT,12,4:""u"4)" HIS IS A 128 ROGRAM.T MAY ",4)" NOT BE LOADED IN THE 64 MODE."64)" OU MUST SWITCH TO THE 128 "@4)" MODE IN ORDER TO LOA(14):2500+ n2040,15:V39,10:V,X1:V1,Y1P x800:53265,(53265)16:53296,0m LC55590:P7:H1:V21,1 BB1:BNNB1 I112:AT,I6,14:""P$(B,I)::V1,Y1 F(P$(B,H)):A0F:LCA,8::1000 AN$:AN$""206 AN$(17276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) |16,195,8,97,16,1952 X 8,97,16,195,8,97,16,195,8,97,16,195\ b 8,97,16,195,8,97,16,195,8,97,16,195 l 8,97,16,195,8,97,16,195,8,97,16,195 v 8,97,16,195  5,152,11,48,5,152,11,48,5,152,11,48  5,152,11,48  6,71,12,143,6,71,12,143,6NS" 11)"UN ROGRAM ",11)"ANCEL INDOW "K 11)""\PO55507:X0x I116:POI,0::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55587PO55507>X2X0HAN$(13)2140":fAT,3,10:""`pAT,4,10:" "zAT,5,10:""S54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100::S4,0: D THIS "%J4)" PROGRAM SUCCESSFULLY. SE THE"QT4)" PRESCRIBED METHOD WHICH IS..."}^4)" OAD ''ROGNAME'' "h4)" [RESS ANY EY] "r4)""|AT,22,3:" )1250 AN$(145)1300) AN$(13)2000J AN$(32)3000:Y1100:140S 204w "";:53280,0:53281,6:V21,0 "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" "RUN": ""  631,13BORDER":IN$(3,2)"WINDOW IN"' P$(3,3)".ATROL 64":IN$(3,3)"ATROL IN"W P$(3,4)"D.PATROL 128":IN$(3,4)"PATROL IN" P$(3,5)"D.PATROL 128/80":IN$(3,5)"PATROL80 IN" P$(3,6)"LIP IDE":IN$(3,6)"LIP INS" P$(3,7)" ":IN$(3,DIRECT IN" ( P$(1,11)"REDIRECT 128":IN$(1,11)"REDIRECT IN"O2 P$(1,12)"PRITE-N":IN$(1,12)"PRITE IN"7 P$(2,1)"LEARNER 128":IN$(2,1)"LEARNER IN"< P$(2,2)"ADDED DIFF. 128":IN$(2,2)"ADDED IN"F P$(2,3)"DDED IFF. 64":IN$(2,3)"DDED IR2080\X0882:4100aX221805bB1H3B1H7B1H112155_cB2H1B2H2B2H8B2H92155dB3H1B3H2B3H4B3H52155e IFB=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D135:: B,H) 2,8,2,"@0:"ZZ$",S,R" XX15 2,TX$(XX) :2RAT,7,1:""I813:AT,I,1:" ""AT,14,1:" [/=ANCEL * PC=UN ROGRAM] "  5,250 4,153,250,192,185,250,216,153  234,196,185,244,5,153,244,193C  185,244,217,153,228,197,185,238g  6,153,238,194,185,238,218,153  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185,250,192,153ARSHIP REQUIRES TWO PLAYERS TO DEVELOP PINPOINT MARKSMANSHIP IN ORDER TO SINK ENEMY VESSELS DIS- PLAYED ON A SPLIT SCREEN. OYSTICK IN ORT 2. **  S54272:I024:SI,.: S24,15:S5,15:S6,12:S1,32:S,155:S4,33 D1125::S4, 7)" " P$(3,8)" ":IN$(3,8)" "L P$(3,9)" ":IN$(3,9)" "| P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11)" "" P$(3,12)" ":IN$(3,12)"  N"P P$(2,4)"RANK'S HILD 1":IN$(2,4)"RANK1 IN"HZ P$(2,5)"RANK'S HILD 2":IN$(2,5)"RANK2 IN"zd P$(2,6)"NNER TRING 1":IN$(2,6)"NNER1 IN"n P$(2,7)"NNER TRING 2":IN$(2,7)"NNER2 IN" P$(2,8)"KEY FUNCTIONS":IN$(2,8)"KEY IN" zV21,0:230882:225I116:POI,5::I P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN"{ P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 UG EP 2":IN$(1,3)"BUG REP IN" P$(1,4)"ARSHIP":IN$(1,4)"ARSHIP IN" P$(1,5,AT,15,1:""D1AT,22,3:" ":1000j6XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204TB1H3B1H7B1H114195VB2H1B2H2  250,4,185,234,196,153,250,216! 185,244,193,153,244,5,185,228