KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK x<<|  8!!C?⒒  $(0($"yAAqAyRIOJI=!!9!,$LD|cL@K ?KK ~~33 ``  Ƈ0ÁÃ<<<<<<<< pK KK ÁÁఘ333? `` DĎb@?K ?KKK  Ƈ0ÁÃ<<<<<<<< ???eg DD((DDDD K ???????xxxxxxxχ? " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8   >> ?~ >  |x???????? H PHE8@8??HH ?????xxx ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` ~ ? IIIIIy$$$ ??{3? ""|q# CbbHHO <FEDpp C!!! ??? ```8``|8a`????????8I#qXHHςpHHp!! ?>< qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" @|>|>><||? !qq   ? !! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8Xq ?????INI-OMP FOR THE -64 IS A MINIMAL COMPILER. ROM THIS MONTH'S UPERT EPORT ON SPEEDING UP THROUGH THE PROCESS OF COMPILATION. EE DOCUMENTATION IN MAGAZINE. IDEO NAPSHOT FOR THE -64 IS A GRAPHIC OR TEXT SCREEN DISPLAY UTILITY THAT LETS YOU SAVE GRAPH- IC OR TEXT SCREEN IMAGES TO DISK FOR LATER USE. OUBLE ORT IS THE -128 SOLUTION TO THE ARCH 1988 OMMODARE THAT REQUIRED THE USER TO WRITE A ROU- TINE THAT WOULD ALPHABETIZE THE LETTERS WITHIN A WORD LIST. QUARED IRCLES IS THE -128 SOLUT- ION TO THE ARCH 1988 OMMODARE THAT REQUIRED THE READER TO WRITE A PROGRAM THAT WOULD FILL IN A 3-INCH SQUARE WITH 1/2-INCH CIRCLES. CREEN LASH FROM IPS HOY! IS A ROUTINE THAT GENERATES CHARACTERS OF VARIOUS COLORS BY INCREASING THE SPEED OF THE OMMODORE 64'S INTERNAL CLOCK. . Y. EN. ROBLEM. LES. RYPTIC RODUCT IS THE -128 SOL- UTION TO THE ARCH 1988 OMMODARE THAT REQUIRED THE USER TO WRITE A ROUTINE THAT WOULD SOLVE A SPEC- IFIED MULTIPLICATION PROBLEM. LES. ORTH BY OUTH FROM IPS HOY! IS A -64 UTILITY THAT CLEARS YOUR COM- PUTER SCREEN BY SENDING THE PRINT- ED CHARACTERS OFF THE TOP AND BOT- TOM OF THE SCREEN. LEM. LES. ILE LICER FROM IPS HOY! IS A -64 SEQUENTIAL TEXT FILE UTILITY THAT LETS YOU SPLIT FILES UP INTO SMALLER PORTIONS FOR A COMPUTER WITH LIMITED MEMORY. N. ROBLEM. LES. HE 'LURIAN INES FOR THE -128 IS AN ACTION/STRATEGY GAME. LY THE NITEON THROUGH TREACHEROUS MINES ATTEMPTING TO RETRIEVE THE CRYSTALS. OYSTICK IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -  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 276,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) |   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,,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, \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 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 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 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,6 PcefRSWX aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr @*@ ==================================N@ COMMODARES PROBLEM #51-3 :j@ SQUARED CIRCLES@ SOLUTION BY@ JIM BORDEN@ ==================================@ 1,1: 0,13: 4,12@MC0: Z0 5: VS,HS: 50: J53281,0:53280,1:" CRYPTIC PRODUCT":"PLEASE WAIT..."r ================================= COMMODARES PROBLEM #51-4 : CRYPTIC PRODUCT SOLUTION BY JUSTIN SMALLEY  =========================== ) =================================L COMMODARES PROBLEM #51-4 :f CRYPTIC PRODUCTz SOLUTION BY JIM SPEERS =================================dTBTI: % :" CRYPTIC PRODUCT":n I1 9: N$()&:  L K J" I I1 9: J1 9: JI 280\A$N$(I)N$(J)C$} K1 9: KI KJ 280 L1 9: LI LJ LK 260B$N$(K)N$(L): T$(((A$)(B$)),2,10) PRINT A$"*"B$"="T$ (T$)5  A53000)(147)"LOADING DATA ";OJAA122:B:J,B:XXB:"*";:JwX18480::"ERROR IN DATA...": 169,12,133,2,169,7,162,219,160,191,133,252"134,254,132,251,132,253,160,0,177,251,160,40 $145,251,160,0,169,32,145,251,17 'd* FILE SLICER BY SHAWN K. SMITH<n1,8,15:R$(18)Ix""y:"NAME OF FILE TO SPLIT";SN$:SN$""1:8,8,8,SN$:260:8:"NAME OF NEW FILE";NF$(NF$)14:R$"14 CHARACTERS MAX.":150 :"HOW MANY BLOCKS PER FILE 5A 500,500,433,500,416,555,390,625,357,714,277,833rA( : "UNFILLED AREA="33(.25.25MC)"SQ. INCHES.":A2 Z SGHS2: STAGGER STEPA<R1: CC0AA 1,1: 1,3010,3020AF X250 2750 VS: RR1AP Y250(R 1)SG 2750 ====== A0:C2 :( AA1:AC208 B1:A9N BB1:BABC30^ D0:B920x (DD1:DADBDC40 )E1:D930 2EE1:EAEBECED50 3E940 7: <P(A10B)10C:QD10E:RPQ =R$(R):(R$)650 A: I): : 1,3,4,5,6,7,8,9,0FxC$"2": I1 9: J1 9: JI 280\A$N$(I)N$(J)C$} K1 9: KI KJ 280 L1 9: LI LJ LK 260B$N$(K)N$(L): T$(((A$)(B$)),2,10) PRINT A$"*"B$"="T$ (T$)5  CK03 B49152 49208: A:CKCKA:B,A:W CK6273 "ERROR IN DATA":c 49152 169,1,141,5,220,160,0,173,162,0,153,0,4,153,0,5,153,0,6,153,0,7,200,208 238,160,0,173,162,0,153,0,216,153,0,217,153,0,218,153,0,219,200,208,23 7,253,160,40= &145,253,165,251,208,2,198,252,198,251,165,253n (208,2,198,254,198,253,165,252,201,5,208,214 *169,4,162,0,160,216,133,140,134,139,134,141 ,132,142,160,40,177,139,160,0,145,139,160,40 .169,32,145,139,177,141,160,0,145,141,2 ";BF$ BF(BF$):BF01:3 :8,8,8,SN$:260\ 9,8,9,NF$"."(VN65)",S,W":260} "WRITING "NF$"."(VN65) D1254BF #8,A$:ST08:9:1:"FINISHED!": 9,A$;::9 VNVN1:200: NEXT SLICE 1,E,E1$,E2$,E3$:lHSBZ 1,Y,X,250,2505BdCCCC1: : : CCMC MCCCdBn 1,5,5,"TOTAL CIRCLES="(CC),1: A$: @ SOLUTION BY@ JIM BORDEN@ ==================================@ 1,1: 0,13: 4,12@MC0: Z0 5: VS,HS: 50:  FN15:Y((R$,N1,1))2 GYAYBYCYDYE50P IM1N1:MNYF(M)50_ J:F(N)Y:e K:z PP;"*";Q;"=";R: U: d --- TO FIND ALL SOLUTIONS, n ***CHANGE THESE LINES: x 20 A=A+1 30 B=B+1: IF B=A THEN 30 31 C=-1y> T$W$(I): W$(I)W$(J): W$(J)T$: T$S$(I): S$(I)S$(J): S$(J)T$n  J,I: "": I1 N: W$(I)18)S$(I): 1 N: X$W$(I): L(X$): L1 200 J1 L1: KJ L (X$,J,1)(X$,K,1) 190 T$(X$,J,1): (X$,J,1)(X$,K,1) 2606 Y1 4: ZY1 5: (T$,Y,1)(T$,Z,1) 260@ Z,Y\ Z1 5: X$(T$,Z,1) X$N$(I) X$N$(J) X$N$(K) X$N$(L) X$C$ 260 Z"THE ANSWER IS "A$"*"B$"="T$TETI: "TIME IS";((TETB)60.5);"SECONDS": {30,1393 0208,2,230,140,230,141,208,2,230,142,165,139d 2201,216,208,218,165,140,201,5,208,212,198,2s 416,138,96 169,12,133,2,169,7,162,219,160,191,133,252"134,254,132,251,132,253,160,0,177,251,160,40 $145,251,160,0,169,32,145,251,17/E0' :R$E;E1$,E2$" ";E3$:9:8:1:,8,15:R$(18)Ix""y:"NAME OF FILE TO SPLIT";SN$:SN$""1:8,8,8,SN$:260:8:"NAME OF NEW FILE";NF$(NF$)14:R$"14 CHARACTERS MAX.":150 :"HOW MANY BLOCKS PER FILE48.  169,0,141,33,208,141,32,208,76,0,192,139 CRYPTIC PRODUCT ORTH BY OUTH ILE LICER CREEN LASH: IF B>9 THEN 20( 41 E=-1: IF D>9 THEN 36N 80 PRINT P;"*";Q;"=";R: GOTO 50h ***ADD THESE LINES: 36 C=C+1: IF C=A OR C=B THEN 36 37 D=0: IF C>9 THEN 300 7: <P(A10B)10C:QD10E:RPQ =R$(R):(R$)650 A:HIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - THE THERMISTOR THAT YOU'VE MADE.  % *VIDEO SNAPSHOT FOR THE C-64*C BY JIM PARTIN FOR AHOY!f T52374 53246: D:T,D: Tq(523742" *VIDEO SNAPSHOT* INSTALLED!"<"HIT 'RESTORE' TO ACTIVATE WHEN NEEDED.."FP169,161,141,24,3,169,204,141 Z25,3,9 69,92,32,210,255( J32,130,207,144,3,76,12,207I T169,0,162,4,141,247,207,142n ^248,207,173,176,207,174,177,207 h141,116,207,142,117,207,32,45 r207,144,3,76,12,207,169,0 |162,32,141,247,207,142,248,207 173,178,207,174,179,207,141, ,255,162,8,32,201&255,169,0,32,210,255,169,96G32,210,255,32,130,207,144,3h76,12,207,169,64,162,31,141247,207,142,248,207,173,178,207174,179,207,141,116,207,142,117207,32,45,207,144,3,76,12207,169,232,162,3,141,247,2,3,76,12,207,173,33,208(v32,210,255,169,8,32,195,255H76,12,207,169,6,141,32,208h32,142,207,201,13,208,3,7612,207,141,222,207,141,238,207173,17,208,41,239,141,17,208169,8,170,168,32,186,255,16916,162,215,160,207,32,182,195,255,169,8,170" 168,32,186,255,169,16,162,231E160,207,32,189,255,32,192,255d 162,8,32,201,255,169,0,32*210,255,169,216,32,210,255,324130,207,144,3,76,12,207,169>232,162,3,141,247,207,142,248H207,169,0,162,216,141,1162,110,207,32,210,25532,130,207,144,1,96,238,249@207,208,3,238,250,207,238,116c207,208,3,238,117,207,173,249207,205,247,207,208,15,173,250207,205,248,207,208,7,32,110207,32,210,255,96,76,56,207120,162,53,134,1,173,2,0,48,58 868,68,83,78,65,80,32,49'B44,80,44,87,48,58,129,80DL73,67,32,83,78,65,80,32aV49,32,32,32,32,44,80,44~`87,48,58,83,78,65,80,32j49,46,83,67,78,44,80,44t87,48,58,83,78,65,80,32~49,46,67,76,82,44,80,4487,0,0,$" DOUBLE SORT":L =================================p COMMODARES PROBLEM #51-2 : DOUBLE SORT SOLUTION BY JIM SPEERS =================================d W$(20),S$(20) nNN1: : (X$,K,1)T$ K,J: W$(I)X$@ I: I1 N1: JI1 N_ (W$(I))(W$(J)) 230 T$W$(I): W$(I)W$(J): W$(J)T$: T$S$(I): S$(I)S$(J): S$(J)T$ J,I: I1 N1: JI1 N (W$(I)W$(J)) ((W$(I))(W$(J))) 2601,192,133,195,189,202,156,133> 196,152,24,101,195,144,2,230b 196,133,195,160,0,177,195,133 174,165,196,24,105,188,133,196 162,255,36,216,16,17,120,165 1,72,41,254,133,1,177,195 41,15,170,104,133,1,88,134 175,165,176,72,138,72,152,720 d173,13,221,16,3,76,188,254S n173,251,207,208,23,32,188,246t x32,225,255,208,18,32,21,253 32,163,253,32,24,229,32,150 204,108,2,160,76,34,207,169 1,141,251,207,165,1,141,252 207,169,55,133,1,173,32,208 240 3,76,165,205,169,0,141,32= 208,32,142,207,201,13,208,3_ 76,12,207,141,189,207,173,17 208,41,239,141,17,208,169,8 "170,168,32,186,255,169,14,162 ,180,160,207,32,189,255,32,192 6255,162,8,32,201,255,169,0 @32,210,255,1116 207,142,117,207,32,45,207,169< 8,32,195,255,76,12,207,169] 1,141,32,208,32,142,207,201} 13,208,3,76,12,207,141,206 207,173,17,208,41,239,141,17 208,169,8,170,168,32,186,255 169,21,162,194,160,207,32,189255,32,19207&142,248,207,173,176,207,174,177=0207,141,116,207,142,117,207,32]:45,207,144,3,76,12,207,169D232,162,3,141,247,207,142,248N207,169,1,141,254,207,169,0X162,216,141,116,207,142,117,207b32,45,207,169,0,141,254,207l1449,25532,192,255,162,8,32,201,2553169,0,32,210,255,169,4,32T210,255,32,130,207,144,3,76v12,207,169,232,162,3,141,247207,142,248,207,173,176,207,174177,207,141,116,207,142,117,20732,45,207,144,3,76,12,207169,8,3,207R142,117,207,32,45,207,169,80\32,195,255,76,12,207,32,204Tf255,173,253,207,141,32,208,173tp17,208,9,16,141,17,208,169z0,141,251,207,104,168,104,170104,173,252,207,133,1,64,24169,1,141,249,207,169,0,141250,207,355,255 172,254,207,240,2,41,15,162,55,134,1,96,32,183,255,10K144,5,169,8,32,195,255,96m32,204,255,32,159,255,32,228255,120,240,247,201,13,240,16201,48,144,239,201,91,176,235$201,65,176,4,201,58,176,227.96,0,0,0,01,0,0,55,00207,240,2,41,15,162,55,134,1,96,32,183,255,10K144,5,169,8,32,195,255,96m32,204,255,32,159,255,32,228255,120,240,247,201,13,240,16201,48,144,239,201,91,176,235$201,65,176,4,201,58,176,227.96,0,0,0,0N20 NN1: 140E x"ENTER WORD";W$(N): W$(N)"^" NN1: 140O 110m I1 N: S$(I)W$(I): I1 N: X$W$(I): L(X$): L1 200 J1 L1: KJ L (X$,J,1)(X$,K,1) 190 T$(X$,J,1): (X$,J,1)(X$,K,1)A4,170,41,15,72,1380 74,74,74,74,170,164,175,1049" 96ICK0_I0L:D:CKCKDn IDI,D:CK11135"DATA ERROR":"IDENTIFY INSTALLED"ID"TO"IDL 201,40,144,3,76,40,125,224 25,176,249,168,32,116,160,189 5 141,253,207,173,0,221,73,2556 41,3,10,10,10,10,10,10X 141,175,207,173,24,208,74,74{ 41,252,24,109,175,207,141,177 207,173,17,208,10,10,10,176 3,76,89,206,173,24,208,41 8,10,10,24,109,175,207,141 179,207,173,22,208,41,16, 0U@U@U@U@*  J@E@ .`!0>  #d *** COLOR EDITOR LOADER ***?nCE4864: WILL RELOCATEHxCK0bD:CKCKD:D999150k130CK38505"ERROR IN DATA":SACE:NASAD:D999230D0NA,D:220ADSA256(D):HAD256:LAD(AD256)256 132,195,32,-34,240,25,160,05, 120,165,1,72,9,1,37,207W6 133,1,177,172,37,195,13,-22y@ 145,172,104,133,1,88,32,-54J 208,221,169,4,141,-21,24,96T 164,118,240,190,32,-78,32,-71^ 160,255,132,207,160,15,208,194h 164,118,240,172 133,195  132,196,160,0,120,165,1,72?  9,1,37,207,133,1,177,172c  37,196,205,-22,208,23,177,172  37,195,13,-23,145,172,104,133  1,88,32,-24,32,-54,208,214  24,96,104,133,1,88,202,16  242,230,206,162,7,208,236,160 ! 1,106,164,206""N 185,-125,96,32,193,238,76,183C"X 238,32,-78,240,3,32,-95,32e"b -103,160,0,132,206,162,8,96"l 160,28,132,173,160,31,132,175"v 160,232,132,174,160,0,132,172" 96,160,216,132,173,160,219,208" 237,164,206,141,-21,142,-@#@dCE4864: COLOR EDIT LOCATION;@nP$" PRESS ANY KEY"]@x0,16:1,2:4,15:5,8:BG(0)n@2,1,12:0,1@0,13,39,24,1@" STANDARD HI-RES":490@1,20,20,90,60,,1@ 2@ CE,1,(1)1,(5)1@ 2@480@ CE,0,BG1,(5)10 BrI3TYPE2B|OC(I)$B460:,B 17BJ01UBI014: CE,3,I,I1: .5gB CE,4: .5:mBB 2:2,,12::B CE,TYPE,OC1,OC: 2:480BB CE,4: 2:BP$: A$B"";(27)"Q":@480@ CE,0,BG1,(5)1"""A$;B$:B$"":20$""A$;:480[U4,0:U5,0:U4,128:U5,Q:U1,A:U,W:U4,129axDF1:TC2:53281,7""10)"1. DIFFICULTY "DF&10)"2. "TC"SHELLS PER TARGET"010)"3. BEGIN GAME":A$:A(A$):A121,255:260"|V6,X9:V7,Y8H:T194196]2043,T:W170:W,T:V7,0:V21,227:HTHT1:2043,15f140 2,192,,193,,198,1,13,0,13,0,197,0,197,175,200,175,221,,,,,,,92195,235,195,TERRIBLE,BAD,ABOUT AVERAGE,WELL,LIKE A PRO53281d COLOR TOTAL LOADERBnCT3072: RELOCATABLE START ADDRESSUxL126: LENGTH^CK0tI0L:D:CKCKD CTI,D:CK16858"DATA ERROR":"COLOR TOTAL INSTALLED"CT"TO"CTL 201,3,144,3,76,40,125,224  16,176,249,133  ꪬz_UUTUPU@ (*# # *( K BOOTNIGHT'S KWESTBNA,L:NANA1:NA,H"NANA1:180J"COLOR EDITOR INSTALLED"SA"TO"NA1k 201,5,176,22,201,4,144,125 173,-21,240,14,201,1,240,70 201,2,240,84,201,3,240,98 56,96,164,118,240,250,32,-78 32,-71,160,255,132,207,160,240" ,36,216,16,168,r 32,-95,32,-71,160,254,208,172P| 32,-95,32,-71,160,255,208,162r 224,16,176,15,192,16,176,11 201,3,240,110,132,206,164,118 208,2,56,96,201,2,240,107 32,-60,160,255,132,207,173,-21 208,65,169,240,160,15,85,-22,10,10,10,10,1530! -22,136,16,243,169,15,160,240U! 208,174,132,206,32,-65,160,255v! 208,9,36,216,16,139,32,-65!& 160,254,132,207,208,148,4,0!0 0,32,-41,29,108,206,153,-125!: 96,32,-41,61,108,206,96,202!D 16,4,162,7,230,2C22,140# -23,169,0,162,124,157,-125,2021# 16,250,96,99908,174,132,206,32,-65,160,255v! 208,9,36,216,16,139,32,-65!& 160,254,132,207,208,148,4,0!0 0,32,-41,29,108,206,153,-125!: 96,32,-41,61,108,206,96,202!D 16,4,162,7,230,2A 2A480A 22A" MULTI-COLOR/TEXT"KA0,16:1,2:2,3:3,4_A4,0,12:490:3sA1,5,5,30,30,,1A"2,35,35,60,60,,1A,3,65,65,90,90,,1A6 2A@I115:5,I:"COLOR EDIT DEMO ";AJAT 2A^I13:TYPEIAhI2TYPE62,240,165( 207,10,10,10,10,133,207,134J 206,120,165,1,72,41,254,133m" 1,177,172,37,206,197,207,208, 6,230,195,208,2,230,196,1046 133,1,88,32,193,238,32,183@ 238,208,222,165,196,166,195,36J 127,48,3,76,50,142,9649,133QDFDF1:DF5DF1DA2TCTC1:TC5TC12NA3GS3DF2:;X540"}A%HTTS100:5)"OF THE SHELLS FIRED,"A%"% HIT."A$"YOU SHOOT "A$((A%W%)50)".":20(A$)2)A$"":A$" HIT ANYTHING TO CONTINUE ,2:V21,0:U24,0DW%HTTT100:""6)"YOU SHOT"W%"% OF THE TARGETS."}A%HTTS100:5)"OF THE SHELLS FIRED,"A%"% HIT."A$"YOU SHOOT "A$((A%W%)50)".":20(A$)2)A$"":A$" HIT ANYTHING TO CONTINUE ,206,134,207,320 116,160,165,206,201,2,240,18T 160,28,132,173,160,31,132,175x 160,232,132,174,160,0,132,172 240,15,36,216,48,3,76,231 119,160,216,132,173,160,219,208 229,132,195,132,196,162,15,165 206,201,1,208,10,1 d COLOR IDENTIFY LOADER7nID3328: RELOCATABLE@xL88ICK0_I0L:D:CKCKDn IDI,D:CK11135"DATA ERROR":"IDENTIFY INSTALLED"ID"TO"IDL 201,40,144,3,76,40,125,224 25,176,249,168,32,116,160,189 55% A0 A1:"TURBO SKI.ML",8,11 49152 R  }ƭL {  k  6L ˭é ˭Ю)Ѝ*ЩL ˭˭`ˠ`L3ȝ=ȝٝ  k }ˍˍˍˍˍˍˍˍ˩ˍR L­ )P)ЩЩ`< ˭R­ R©ˍ`LEiаL­ 8`ɮ@Ѝ˽>) 8ЍL8ЍmЍZ` é /ɺ`/ `NNɺ`NM`EɹE`Eɰ`E`iаLTĭ ЩЭ Щ) Щ`JJJТ``˭)Э)Щ`ԩ˩Э)Щ`ԭȝ90::9;s;y;6;v; ;;;ɝ >ɝI>ʝ>Kʝ>xʝ ?ʝI?-ע~ȝOȝ/` Ʃ@Ʃ#Ʃˢ#@(i(ưL˭ ֢ڝǝxdddddddddddd    ffRp $ " *d0?0<<><~*"** """"**TD@P@D@T"""("" ""(""" TD@D@D@D@  ** """"**TD@P@D@T"""("" ""(""" TD@D@D@D@A A0A1:""11)"LEAVE DISK IN DRIVE":"TRAP.SPRTS",8,1x53280,0:D$"":T140:D$D$"":C$C$" "::""530:53281,14:"  "30)""(A$"":T15:W$W$A$: 221)" "23)"#,160,0,0,65,72,79,89,33,0,0,50048:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(A1023:T,0::832,14:896,28:899,62:960,62O x963,127:U54272:U24,15:V29,96c T04:A$(T):~ TT29T1600::430 T1400::V4,175:V5,140:V21,231:T11100: B0:A89:Q23:K195:H%(1)2:Z140:W%(1)150100:AE3DF2:SCz ÍŢ _L`˭)()  L~)')$)Э) 9`1˩ˮ˽z˨ʝ1iiL˭ `mˍа ``))ɰGȝ~' )Ѝ*Э1, d i ÍCz  Ly *ĩˍˍ˩;< k`ˢ <<ɺ`<;`33ɺ`322ɺ`211ɺ`100ɺ`0/ԍԩ Î˭)`89:;<=>?ȝ94əR:+ə::ə:Iə ;XəF;gɝ> 000 0 0 0 TU@f`UUTUTU@UUTUD@UE@@DPDD@U@@@QUT"*"""" (08@HPX`HPX`hp`x@Hlt~p^ZTGS J1W60DGS# J2W185DGS7 F16STC330W V4,(V4)C:V5,(V5)Dm ACAC1:AC3190 AC0:YYAE:X(YB)M:W15:Y167W14:Y152W13:AB(AB1.1) "2043,W:2044,W:W14HHAB(3DF3) ,H0V21,231:140 "/ <9)" "Y F6)" " PA$C$C$:(D$,11)""W$""C$""A$""A$A$""A$A$A$; ZV53248:V28,103:V37,9:V38,7:T06:W,A dVT39,W:2040T,A::T013:W:VT,W:( nT832+ 6V7,YH:V9,Y:V6,X:V8,X:AEAE.93:V21,255P @V4,(V4)C:V5,(V5)D:190u JV21,235:V1,201:SS1:TSTS1 TQ28:A3:W8:510:V1,200 ^W((V4)X):A(V5)YH:C15(2043) hWC2W12C2A14C2A9380 rAC2:V0 H%110H%145:H%W%160V 510:M(KZ)(H%W%):BKMH%:YK:AB(.6).4:H0:TTTT1 J(56320):FJ16:JJ15:J15J:A(V4):W(V5) "  SHELLS"TCS"  HIT"HT" OF"TT1"  USED"TS" " C0:D0:J4A97CGS J8A250C Ѝ!  < ة XL7N`H|䧆HN3LH1fGJP3W>/f.LOADER572A 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"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` lAHOY! SEPT 1988572ABOOTERLANKSPEED 64 UG EP ɠ 128 BUG REP II V'LUR. MINES.URBO KITURBO SKI.ML RAP HOOT KKTRAP.SPRTSCOLOR EDITORCOLOR DEMO COLOR TOTALIDENTIFYINI-OMPIDEO NAPSHOTDOUBLE SORTKK SQUARED CIRCLES RYPTIC RODUCT CRYPTIC PRODUCT ORTH BY OUTH ILE LICER CREEN LASH LANK IN UG EP INKK BUG REP IN V'LUR INURBO IN RAP IN COLOR INCOLOR DEMO INCOLOR TOTAL INIDENTIFY INKK INI-OMP IN IDEO IN DOUBLE IN SQUARED INRYPTIC IN CRYPTIC IN ORTH IN ILE LICER INKK CREEN LASH IN LOADERDDLOGO%SNAP H.SCNSNAP H.CLRDIR 1KK 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,339$A256:520$A16:520$A1:520$%T(A@ @55F@X(1,.):Y(1,1):X325RR1:PXPX1:49:1,15,Y:6o@X12RR1:PXPX1:49:1,322,Y:6@Y40:R.18:RRMX:PYPY1:49:1,X,230:6:@Y232RRMX:PYPY1:49:1,X,42@PS,1@47:Z1(1):Z1(2)A(PS)BuBF10PS,.:1,1,7:2,1500,60,2,1000,180,3:I47:2040I1,193:I,,,,,,1:: 1:I47:I,.::FF10:R(R,4).{BBPS,.:TS,.:TT(TM60TI60):I18:I,.::BS37B: 1:,3,2,"MISSION COMPLETED MINE LEVEL ":"##";LV: 2pCBYMX,5,15,"TOTAL DEVESTATION OF MINE = 1000":2,3500,120,1,3000,75,.:SCSC1000:25DBS,3,16,"BOMB MISPLACED MINE LEFT INTACT":,12,17,"500 PTS DEDUCTED":2,4000,120,1,.,25,3:SCSC500:256E,2,15,"BOMB NOT SET MINE LEFT OPERATION#F,7,11," FUEL SUPPLY DEPLETED ":31SF,7,11," ANITEON DESTROYED ":31F,7,11," BOMB SELF-DESTRUCT INIT "F,7,10,"":,7,12," MISSION FAILURE ":,7,13,":!H'X(1,.):(X115X225)(1,1)2218:44RH(Z12:R(R,7).:2,.:CRCR1:"V2O3T0IC"hH):SCSC50LV:7H*Z14:R(R,6).:3,.:FFR(12)LV:"V2T3O3WC":F99F99H+:SCSC25:7I,PS,.:X(1,.):Y(1,1):I47:2039I,193DO 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:I,.,8,1,.,.,1:I,.#.:I,X,Y:I,1:lI-2,5000,155,.,100,600,3:I140:R(3)4,XR(16)8,YR(20)10::I18:I,.:tI.29I/,.,24,"SC:":"######";SC;:" X:##";PX;:" Y:##";PY;I0" TIME:.##,##";(TI$)1E4;:" FUEL:##";F.2:Ջ(2)583HA C(1,1):Z1(1):Z2(2):Z2139:Ջ(Z11)C1340sA CTCT1:CTFCC7CT.:FF1:F.28A BSTITM30A A$:A$"B"14:ՋA$" "16A 47:8ABS.BS1:BRR:53:"V2T8O3WC":TI$"000000":TM2000LV120:4888,30CRNC,5,10,"REMAINING FUEL BONUS = ":I1F:,30,10,"":"###";I5:2,4000I25,1,,,,1:J125:::SCSCF5: 1CBS,5,12,"REMAINING TIME BONUS = ":I1TT:,30,12,"":"###";I5:2,5000I25,1,,,,.:J110:::SCSCTT5: 1QDBSBRBXAL":,12,17,"1000 PTS DEDUCTED":2,4000,120,1,.,25,.:SCSC1000WE 2:SC.SC.:ՋSCHSHSSCE,14,20,"SCORE: ":"######";SC:,14,22,"HIGH : ":"######";HSE,3,24,"PRESS  TRIGGER TO ENTER NEXT MINE"::(2)127::LVLV(1LV10):76 "G PS,.:TS,.:I18:I,.:FG!F.I50003000500:2,I,25,1,500,400,.:RG"BS37cG#SCHSHSSCoG$ 6:64G%15:I160:14336R(8),R(256):2,300R(300),2,,,,3:G&5:I130:14336R(8),.:J110::2,300R(100),2,,,,3::15 ,Y1,"3",1::ՋR(B,6),X1,Y1,"2",1SV92%SWR(B,.).,X1,Y11,"",1CSXR(B,1).,X1,Y11,"",1aSYR(B,2).,X11,Y1,"",1SZR(B,3).,X11,Y1,"",1S[,X1,Y1," "S\::,BX21,BY21,"X",1!T],.,19," ,25,12,"X - BOMB POS":,25,13," - ANITEON"DU`,25,20,"PLANT BOMB AT":,25,21,"":"X:##";BX;:" Y:##";BYUaBS,25,16,"DETONATE AT:":,25,17,((TM60))" SEC"Ub&::47:(2)5:49:6Uc,PX21,PY21,"":CTCT1:CTFC2CT.:FF1: A1065109:AAD(J):105/Wm1066,32:I1R(MXMY):XR(MX):YR(MY1):1105X2Y80,32:rWnY.MY1:X.MX1:A1065X2Y80:BXYMX:Z.9:R(B,Z).:Wo(A40)32R(B,.)1Wp(A40)32R(B,1)1Wq(A1)32R(B,2)1Wr(A1)32   "Y| "       "TY} "        "Y~ "      ",Y " ߒ      "Y "  [ " "5[ " "`[ "",," WRITTEN BY MIKE HOYT"o[ "",,,,,,[ " F1 BEGIN MISSION",[ " F3 SELECT MINE LEVEL",[ " F7 RESIGN ;:QJ1BO:SH,R(R,9):%:I28:I,.::N1,R(R,.):S1,R(R,1):E1,R(R,2):W1,R(R,3):C1,R(R,8):8278J2R(R,4).I1R(R,4):3I,1,3,.,.,.,.:3I,.,.:3I,R(360)#R(3)3LV3.5:J3R(R,7)2,1,6,.,.,.,1:2,150,130J4R(R,6)3,1,3,.,.,.,. ":D(.)2:D(1)80:D(2)2:D(3)80:Z(TI):R(Z)((1)Z): "0.:"_L;D$(27)"W":I18:I,(132I):L<PS4878:CS4875:N14864:S14865:W14866:E14867:C14868:SH4869:LV1:SD54272:TS4890:BO9657!M=V2$"V2O2W":V3$"V3O3Q":I212:,.,I," ":,39,I," "::,.,24,""B$"":1,1,38,23:(27)"L":&UNBD$D$D$;:I121:,.,.,A$(.,22I):D$:NC16: 7,9,9,12,12,R(2)1,(1)400050: 9,2,9,7,8,R(2)1,(1)400050NDI.12:A$:A$""69:M$(I):'OEI116:,9,22,A$(1,IV(1LV10)PJ,26,17,"":"##";LV:71PKSC.:.,.,39,24}PLBO:MX(3LV2.2):MY(3LV2):NC(LVR(3)):%:104:BX(MX2):BY(MY2):PX.:PY.:BS.PM:&:,9,10,"ENTERING MINE LEVEL ":"##";LVQN500,1,.,.,15:"V1X1V2X1V3X1":,10,14,"",.RRPS,1:TS,1:4888,100:CS,(6LV2):TI$"000000":6tRSR(R,4).2,1100,5:9:՞BO:S.:PS,.:%:I18:I,.:::5,12:I.MY2:(B$,MX22):RTI.MX1:J.MY1:BIJMX:X1I21:Y1J21:S.87RUR(B,7):,X1,Y1,"1",1:R(B,6),X1":" TRIGGER - SCAN MINE":" STICK DOWN - RETURN"vT^,25,.," CRYSTALS ":,25,2,"RETRIEVED:"(CR):,25,3,"LEFT :"(NCCR)U_,25,7," MAP VIEW ":,25,9,"1 - CRYSTAL":,25,10,"2 - FUEL":,25,11,"3 - BOTH 1 & 2":F.28UdBSTITM30Ue(2)128VfF511,2000,10:&VgFF5:S1:84`Vh"";:A1065:I.MY2:(B$,MX22)::A,3:1025,32pViJR(4):KJVjBAD(J):(B)160B,J:AD(J)2,32:AB:105VkJ(J1)(J3):JK106VlJ(A):A,32:R(B,3)1WsB.R(B,4)R(5)Xt(1).85R(B,6)1'XuR(B,8)R(9)3:R(B,9)R(7)87Xv::I1NC_XwZR(MXMY):R(Z,7)1119:R(Z,7)1gXx:Xy " AHOY! PRESENTS",,Xz " T H E",X{ "    ߩ     "3Z "      "jZ "      "Z "      "Z "     COMMAND",[ "",,<\ C,CCCCM,D,DDDD,F,FFFF,C,CCCC,E,EFEF,A,ABAB,G,GAGA,E,EGEG,C,CDCD,#C,#CE#CE,O1.WE,O2EFGF.HE\ A9,1,8D,,FF,A9,,85,FB,A9,D0,85,FC,A9,,85,FD,A9,38,85,FE,A2,8,A0,,B1,FB,91,FD,C8,D0,F9,A5,FC,69] 1,85,FC,A5,FE,69,1,85,FE,CA,D0:3,180,1506K52041,195:2042,194:1,1:BSBRR,18,11,"ڙڝڝ"?K6&:qK7:.,1:4,1:%:1:.:R(99,9),A$(1,21),M$(12)K8142:I81929818:A$:I,(A$):K9121:I121:A$(.,I)::I116:A$(1,I):9L:B$" A$:M$(I)V2$A$:A$:M$(I)M$(I)V3$A$"M":: 3,9,.,.,9,1M>M$(.)"V2X0T7O2WCV3X0O3T9ICDECDECDEV2O1AWR":M$(1)"V2O2WGV3O2IABO3CO2ABO3CO2ABO3CV2O2AWR"M?8192:PS,.:TS,.:8466:3,7M@BO::%:.,.,39,24:(27)"M")NA,.,.,""B$"":I123:):::,10,22,"LAST SCORE: ":"######";SC::,10,22,"HIGH SCORE: "iOF"######";HS::,10,22,"MINE LEVEL: ":"##";LV::::OGI1200:J$:J$""75:ՋJ$"".,.,39,24,1:8491:OHJ$""J$"":66OIJ$""LVLV(1LV1):LVL :"RETRIEVE ## CRYSTALS";NC:3,2000,240,.,1000,25,.: 4tQO4873,1:4886,10(LV2)4:4885,1:4880,4:4879,1:2040,202:F45LV5:CR.:R.:FC18:49QP1,1,13,1,.,.,.:1,160,130QQSD6,105:SD5,.:SD,90:SD1,5:SD15,3:SD14,.:SD19,8:SD20 ,A0,,AD,,DC,4A,B0,1,88,4A,B0,1,C8,4A,B0,1,CA,4A,B0,1Mf E8,4A,8E,C,13,8C,D,13,60,,A4,,4,2,80,1,14,14,20,46,4,45,45,50,46,14,50,55,55,50,22,11,28,15,95f 48,85,41,52,50,46,19,89,52,58,56,11,41,45,95,90,4A,45,94,14,50,40,9,55,50,4,48,60,,51,5,33,,,6 6,,18,8C,,C,98,,3,E0,,,80,,,80,5,,20,,,20,,,70,,,70,,,F8,,,F8><==================================B\ MINI-COMP A MINIMAL COMPILER FOR THE C-64 RUPERT REPORT #57====== RUN 2000 TO COMPILE ======= Z0U1D1(S147 -,E8,A9,,8D,,FF,A9,1E,8D,2C,A,A9,4,85,D9,A2,5F,BD,C2,25,9D,8,3A,CAr] 10,F7,A2,37,BD,22,26,9D,C8,3B,CA,10,F7,4C,7F,22,A9,4,85,FC,A9,,8D,9,13,85,FB,85,FD,A9,D8,85,FE,A2,18] A0,26,A9,,91,FB,AD,4,13,91,FD,88,10,F4,CA,F0,1C,18,A5,FB,69,28,85,FB,A5,FC,13,D0,B,A9,30,85,FC,A9,5,85,FD,20,F3,20,A9,24,85,FC,A9,5,85,FD,20,F3,20,60,A2,A{_ A0,E,A9,20,91,FC,88,10,F9,CA,F0,10,18,A5,FC,69,28,85,FC,A5,FD,69,,85,FD,4C,F5,20,60,AD,14,3,8D,7,13_ AD,15,3,8D,8,13,78,A9,3A,8D,14,3,A9,21,8D,15,3,58,60,78,AD,7,1,AD,D6,11,C9,45,90,2,B0,B,AD,D7,11,C9,29,90,4,C9,E8,90,5,A9,,8D,E,13,6C,7,13,EE,9,13,AD,9xa 13,CD,B,13,D0,47,A9,,8D,9,13,AC,,38,8C,A,13,A2,,BD,1,38,9D,,38,E8,E0,7,D0,F5,8C,7,38,60,EEa 15,13,AD,15,13,CD,16,13,D0,20,A9,,8D,15,13,EE,17,13,AE,17,13,0,5,A9,80,8D,4,D4,60,A9,81,8D,4,D4,AE,10,13,BD,55,22,A8,BD,4D,22,AA,20,E8,22,60,,1,1,1,,FFwc FF,FF,FF,FF,,1,1,1,,FF,A9,30,85,FD,A9,,85,FC,A2,F,A0,40,A9,,91,FC,88,10,FB,A5,FC,69,40,85,FCc A5,FD,69,,85,FD,CA,10,E8,A9,51,85,FB,A9,23,85,FC,A9,40,85,e 8D,12,D4,A9,21,8D,12,D4,60,8E,12,13,8C,13,13,C0,,D0,5,E0,,D0,F,60,C0,,10,5,CE,D7,11,D0,F2,EE,D7e 11,D0,ED,AC,12,13,C0,,10,13,AD,D6,11,C9,,D0,8,AD,E6,11,29,FE,8D,E6,11,CE,D6,11,60,AD,D6,11,C9,FF,D0e 8,AD,E6,11,9,1,8D,E6,11,EE,D6,11,60,A2,Dg 80,,DE,C0,,3F,,,3F,,,DE,C0,,6D,80,,33,5,3,,,D,C0,,36,70,,DA,9C,,36,70,,DQg C0,,3,5,,,,,,,33,E6,,1C,1C,,1E,3C,,37,F6,,33,E6,,33,E6,,33,E6,,37,F6,,1Eg 3C,,1C,1C,,33,E6,5,,80,,,80,,3,E0,,C,98,,18,8C,,31,C6,,33,E6,,FF,FF,80,33,E6,g 31,C,,,1,C0,,1,E0,,1,F0,,3,F8,,3,FEi ,,77,80,3,F3,E0,3,F1,F8,3,F3,E0,,77,80,3,FE,,3,F8,,1,F0,,1,E0,,1,C0,5,,,,bi ,,,,,,E,,,2E,,,7E,,,3E,,1,9E,,1,DE,,4,FF,,E,7B,,F,F3,,1F,E3,80i F,C7,80,F,FF,80,,3F,C0,,3,C0,,,C0,5,,,,,,,,,,,,,,,,,,,3i 76,,1,3E,7E,,FC,7E,,3E,7E,,F,70,,3,FE,,k FE,,,7C,,,3C,,,1C,5,,,,,,,,,,18,,,1E,,,1F,E0,,F,FF,80,F,1F,80hk E,3F,C0,6,7F,80,6,F3,80,7,F9,,3,DC,,3,CC,,3,E0,,3,F0,,3,A0,,3,80,5,AD,11,D0,29,EFk 8D,11,D0,60,1F,1F,3F,3F,7F,7F,FF,FF,1,1,3,3,7,7,F,F,F8,F8 3,3,3,F0,F6,F6,F0,F,6F,6F,F,,7E,7E,7E,7E,7E,7E,,18,18,,C3,C3,,18,18,66,60,66,66,66,6,66,66:m C3,66,3C,18,3C,66,C3,81,18,18,FF,99,99,FF,18,18,9E3,E0,,3,F0,,3,A0,,3,80,5,AD,11,D0,29,EFk 8D,11,D0,60,1F,1F,3F,3F,7F,7F,FF,FF,1,1,3,3,7,7,F,F,F8,F8 (S); 2N34 <X128 FCN) PH195 Z (H);? dT999I nCCUY x CX 999e (C);o TTD~ TZ 90 130   --- COMMON ROUTINES --- LC(M): MM1: C,: C32 1100: IGNORE SPACES V C0 `! 69,,85,FC,A5,FD,69,28,85?^ FD,A5,FE,69,,85,FE,4C,69,20,A2,,AC,5,13,B9,C8,3B,9D,,38,C8,E8,E0,8,D0,F4,AD,,13,D0,B,A9,C,85^ FC,A9,4,85,FD,20,F3,20,AD,1,13,D0,B,A9,3C,85,FC,A9,6,85,FD,20,F3,20,AD,2,13,D0,B,A9,18,85,FC,A9,5_ 85,FD,20,F3,20,AD,3,3,8D,14,3,AD,8,13,8D,15,3,58,60,20I` 9F,21,AD,1A,13,F0,3,20,CE,22,AD,E,13,D0,7,A9,80,8D,4,D4,D0,4B,20,C6,21,AD,,DC,29,10,D0,7,A9,6,8D` 27,D0,D0,3A,A9,C,8D,27,D0,20,F2,21,20,32,23,C0,,10,2B,20,39,22,AD,E6,11,6A,B0,9,AD,D6,11,C9,D,B0,Ba 90,14A9,C4,E0,2,D0,7,A9,C5,A2,,8E,17,13,A2Gb 3,9D,FB,7,CA,10,FA,60,CE,F,13,AD,F,13,F0,1,60,A9,6,8D,F,13,20,32,23,E0,,F0,27,10,10,CE,10,13,ADb 10,13,10,17,A9,7,8D,10,13,4C,28,22,EE,10,13,AD,10,13,C9,8,D0,5,A9,,8D,10,13,18,69,C6,8D,F8,7,AD,Dc 13,3 FD,A9,30,85,FE,A2,D,A0,,B1,FB,C9,5,F0,5Jd 91,FD,C8,D0,F5,A9,,C8,8C,14,13,88,88,C8,91,FD,C0,40,D0,F9,CA,F0,1D,18,A5,FB,6D,14,13,85,FB,A5,FC,69,d 85,FC,A5,FD,69,40,85,FD,A5,FE,69,,85,FE,4C,91,22,60,CE,19,13,AD,19,13,F0,1,60,AD,18,13,8D,19,13,A9,20VFTRUE: C65 C90 VFFALSE: 6 AD(C65)2 VMd (NXAD: 1400: A0NL: A1NH : VAR LSB 2NXAD1: 1400: A2NL: A3NH : VAR MSB < xNH(NX256) NLNX256NH   KK1 N  CMEM "OUT OF MEMORY - COMPILED P 3400 : 'B  <<< A=(-)NN >>>$ C171 C$"-" : '-G C171 C$" "(C) : '0-9g 1100 : GET DIGITS OF NNx C0 3120 (C)"0" (C)"9" EC48: 10000:  C$C$(C) 30700 NN(C$): NN%NN : ERROR CH JI : CHECK ITEMS IN JUMP TABLE7~ :MMJT(N,1) : REFERENCED LINE #b : J1 SN : CHECK ACTUAL LINE #S : - GET OBJ MEM TARGET ADDRESS AND JMP ADDRESS: : MMLL(J,1) TADDRJT(N,2): JADDRLL(J,2): 2490 : J : NO MATCH $" + ": 10000: : TEST '+5 1100: 1300: VF EC65: 10000: : 'Cb 1100: C0 EC0: 10000: : 'EOL S4A0: S5A1 : ADDR C'S LSB S6A2: S7A3 : C'S MSB CLC, LDA B(LSB), ADC C(LSB),STA A(LSB) LDA B(MSB ): MM2 : NEXT LINE PTR;\LNPTR(M): MM2 : CURRENT LINE #lf LN999 "=== END OF PASS 1 ===": 2400p " CURRENT LINE # ="; LNzLL(SN,1)LN : CURRENT LINE #LL(SN,2)CM : START OBJ MEM LOCSNSN1  'A 1300: VF EC65: 10000: 'S0A0: S1A1: S2A2: S3A3Z 1100: C178 EC178: 10000: : '=p 1100 : 'B 1300: VF EC65: 10000:  1100 : 'THEN C167 EC167: 10000: C RGM TOO LARGE":   CM,C(KK)-  CM;":";C(KK)< CMCM1: B h  ====== INITIALIZATION =========  LL(50,2) : LL(N,1)=LINE # OF NTH LINE : LL(N,2)=COMPILED MEM LOCATION OF THIS LINE  C(50) : STORES OBJECT CODE BYTES ECK/D NN0 NNNN65536 : CONVERT (-32768,32767) TO (0,65535)AN NXNN: 1400Tb MSBNH: LSBNLg : LDA #NN(LSB), STA A(LSB), LDA #NN(MSB), STA A(MSB)l N10: C(1)169: C(2)LSB: C(3)141: C(4)D0: C(5)D1v C(6)169: C(7)MSB: C(8 FOUND :EC1: LNJT(N,0): 10000:6 :NXJADDR : ADDR OF LINE # MMT : 1400 : CONVERT LINE # : TADDR,NL : USE ADDR IN JUMP TABLE : TADDR1,NH N : NEXT JUMP TABLE ITEM "=== END OF PASS 2 ===" "TO EXECUTE THE ), ADC C(MSB), STA A(MSB)' N19: C(1)24: C(2)173: C(3)S0: C(4)S1c C(5)109: C(6)S4: C(7)S5: C(8)141: C(9)D0: C(10)D1 C(11)173: C(12)S2: C(13)S3: C(14)109: C(15)S6: C(16)S7 C(17)141: C(18)D2: C(19)D3 1500 : # SOURCE STATEMENTS --- GET BYTE ---@ 1100 : FETCH NEXT BYTEp 1300: VF 3000 : 2290: 'VARIABLE C139 4000: 2290: 'IF C137 5000: 2290: 'GOTO C153 6000: 2290: 'PRINT C128 $"" 1100: C0 4120 : GET MMC$C$(C): 4100'MM(C$)O" MM0 MM999 EC1: 10000: u,JIJI1 : JUMP TABLE INDEX6JT(JI,0)LN : CURRENT LINE #@JT(JI,1)MM : TARGET LINE #JJT(JI,2)CM17 : MEM FALSE0: TRUE FALSE/  PTR(M)(M)256(M1)\ VM49152 : $C000 START OF VARIABLE MEM PM49408 : $C100 START OF OBJECT MEMORY EM53247 : $CFFF END OF OBJECT MEMORY BT2049 : $0800 START OF BASIC TEXT % 11000 : PUT)141: C(9)D2: C(10)D3, 1500 : POKE VALUES INTO OBJECT MEMORY2 MH <<< A=B OR A=B+C >>>pR S0A0: S1A1 : B'S LSB ADDR\ S2A2: S3A3 : B'S MSBf 1100p C0 3600 : A=Bz <<< A=B+C >>> C170 EC170: ECCOMPILED PROGRAM, ENTER" " SYS"; PM( ; <<< A=(-)NN, A=B, A=B+C >>>_ D0A0: D1A1 : ADDR OF A'S LSB{ D2A2: D3A3 : A'S MSB 1100: C178 EC178: EC$" = ": 10000: : '= 1100 : '-, NN, OR B 1300: VF <<< A=B >>> LDA B(LSB), STA A(LSB), LDA B(MSB), STA A(MSB)_$N12: C(1)173: C(2)S0: C(3)S1: C(4)141: C(5)D0: C(6)D1.C(7)173: C(8)S2: C(9)S3: C(10)141: C(11)D2: C(12)D38 1500B <<< IF A=B THEN MM >>> 1100 : 7000: 2290: 'END+ C143 8000: 2290: 'REM_ "UNKNOWN COMMAND CODE";C;"IN LINE";LL(SN,1): C0 EC0: 10000: : 'EOL 2130 : BACK FOR MORE` - PASS 2 - FIX JUMP ADDRESSESj JI0 2570 : NO JUMPSt N1 LOC AFTER 'JMPT LDA A(MSB), CMP B(MSB), BNE EXIT,@Y LDA A(LSB), CMP B(LSB), BNE EXIT, JMP MMe^N19: C(1)173: C(2)S2: C(3)S3hC(4)205: C(5)A2: C(6)A3rC(7)208: C(8)11: C(9)173: C(10)S0: C(11)S1|C(12)205: C(13)A0: C(14 PRINT RTN IN MEM5 *MBT : NEXT SOURCE MEMORY TO PEEKf 4SN1 : CURRENT SOURCE STATEMENT NUMBER >CMPM : NEXT OBJECT MEMORY TO POKE H NVM VM51: N,0: : CLR VAR'S M ============= MAIN ============RPTRPTR(M00: ""X <<< END >>>"] RTS #bN1: C(1)96: 15002#l 1100: C0 EC0: 10000: 8#vJ#@ <<< REM >>>c#J 1100: C0 8010i#T#':"SYNTAX ERROR IN LINE";LN#' EC0 "EXPECTED END-OF-LINE NOT FOUND":#$' EC1)32: C(8)224: C(9)192 1500# PC32: 6200 : ADD SPACE AFTER DIGITSV  1100: C0 PC13: 6200: : PRINT CR  C59 EC59: 10000: : ' ;  1100: C0 EC0: 10000:  8 --- PRINT CHARACTER PC ---\''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa )A1 C(15)208: C(16)3: C(17)76: C(18)0: C(19)0 15004 <<< GOTO MM >>>>C$""] 1100: GET DIGITS OF MMn C0 5060}C$C$(C) 5020MM(C$) MM0 MM999 EC1: 10000: JIJI1 : JURYPTIC RODUCT IS THE -64 SOL- UTION TO THE ARCH 1988 OMMODARE THAT REQUIRED THE READER TO WRITE A ROUTINE THAT WOULD SOLVE A SPECIFIED MULTIPLICATION PROBLEM. CLES. HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -128 PROGRAMS PRINTED IN HOY! (OR PROGRAMS FROM AY 1987 ONWARD ONLY! THERWISE USE 128 UG EP.) .)  "INVALID LINE NUMBER":$.' EC48 "NUMERIC VALUE 0-9 EXPECTED": <$8' EC65 "VARIABLE A-Z EXPECTED": m$B' EC127 "EXPECTED BASIC KEYWORD ";EC$: $L'"EXPECTED CHARACTER ";(EC);" WITH ASCII VALUE"EC :$* -- PUT M.L. PRINT RO B LDA #PC, JSR $FFD2 !L:N5: C(1)169: C(2)PC: C(3)32+!VC(4)210: C(5)255: 15001!`Q! <<< PRINT CHR$(A) [;] >>>! 1100: C40 EC40: 10000: : '(! 1100: 1300: VF EC65: 10000: ! LDA A(LSB), JSR $FFURBO KI FOR THE -64 IS A THREE- DIMENSIONAL FLYING SIMULATION. AN- EUVER YOUR JET THROUGH A SERIES OF GATES WHILE SHOOTING AT 'S. OYSTICK IN ORT 2. 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -MP TABLE INDEXJT(JI,0)LN : SOURCE LINE#$JT(JI,1)MM : TARGET LINE#VJT(JI,2)CM1 : OBJ MEM LOCATION AFTER 'JMP'd JMP MMN3: C(1)76: C(2)0: C(3)0  1500p <<< PRINT, PRINT A[;], OR PRINT CHR$(A)[;] >>>z RAP HOOT FOR THE -64 IS A CLAY PIGEON SHOOTING SIMULATION. IM YOUR SHOTGUN USING THE CROSSHAIRS IN THE CENTER OF THE SCREEN. OYSTICK IN ORT 2. IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -OLOR DITOR FOR THE -128 IS A UTILITY THAT LETS YOU EDIT THE GRAPHICS MODE COLOR SOURCE FOR BOTH STANDARD HI-RES AND MULTICOLOR IMAGES. IN ORT 2. IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -UTINE INTO MEMORY --$+M49376 : $C0E0% +CS3319 : CHECKSUM%+ B: B0 110609% + M,B: MM1: CKCKBE%*+ 11030%4+ CKCS "ERROR IN DATA STATEMENTS STARTING AT 11120":%>+%H+ 169, 32, 200, 136, 16, 2%R+ 169, 45, 32, 210, 25D2!: N6: C(1)173: C(2)A0: C(3)A1"C(4)32: C(5)210: C(6)255 " 1500P" 1100: C41 EC41: 10000: : ')i" 1100: C0 6400": PC13: 6200: " C59 EC59: 10000: : ';"  1100: C0 EC0: 100OLOR EMO FOR THE -128 WILL DEMONSTRATE THE CAPABILITIES OF OLOR DITOR. IRST LOAD AND RUN OLOR DITOR THEN LOAD AND RUN THE OLOR EMO PROGRAM. IN ORT 2. TX$(AN)yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -1100: C199 6300 : 'CHR$ C0 PC13: 6200: : 'PRINT@ 1300: VF EC65: 10000: V <<< PRINT A >>> LDY $A(LSB), LDX $A(MSB), JSR $C0E0: N9: C(1)174: C(2)A0: C(3)A1C(4)172: C(5)A2: C(6)A3C(7OLOR OTAL FOR THE -128 IS TO BE USED IN CONJUNCTION WITH OLOR DITOR. HIS ROUTINE GIVES COUNT OF THE NUMBER OF TIMES A PARTICULAR COLOR OF A PARTICULAR TYPE OCCURS. yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -DENTIFY FOR THE -128 IS TO BE USED IN CONJUNCTION WITH OLOR DITOR. HIS ROUTINE PROVIDES A MEANS OF DETERMINING THE TYPES OF COLORS IN AN AREA. RTICULAR TYPE OCCURS. yTX$(AN)""TX$(AN)"-"~110000   **** READ FILES **** -l5, 152, 16, 12%\+ 138, 73, 255, 24, 105, 1, 170, 152#&f+ 73, 255, 105, 0, 32, 205, 189, 96,&p+ -1ECTED": m$B' EC127 "EXPECTED BASIC KEYWORD ";EC$: $L'"EXPECTED CHARACTER ";(EC);" WITH ASCII VALUE"EC :$* -- PUT M.L. PRINT RO240  201,5,176,22,201,4,144,125 250  173,-21,240,14,201,1,240,70 260  201,2,240,84,201,3,240,98 270  56,96,164,118,240,250,32,-78  .  N '********************************M * MENU PROGRAM V2.0 *s"* (C) BY DOUBLE L SOFTWARE *$* ION INTERNATIONAL INC. *&* (C) 1988 ALL RIGHTS RESERVED *(********************************):53296,1 *AT67 )1250 AN$(145)1300) AN$(13)2000J AN$(32)3000:Y1100:140S 204w "";:53280,0:53281,0:V21,0 "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" (142)"RUN": ""  6 "CfAT,3,10:""ipAT,4,10:" "zAT,5,10:""S54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100:       4864  5244 .  .  NER TO LOAD THIS ".J4)" PROGRAM SUCCESSFULLY. SE THE"ZT4)" PRESCRIBED METHOD WHICH IS "^4)" ";(34);"ROGNAME";(34);". "h4)" [RESS ANY EY] "r4)"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:NN2:B.:5190 d53280,0:53281,1:31,13: 632,13: 198,2:K "":AT,2,2:""~ %AT,1,3:"ENU ROGRAM (C) OUBLE OFTWARE" *AT,3,2:"  " /I419 4AT,I,2:2)" :S4,0:Y1Y18:Y1188Y11004V1,Y1:I0F:LCI,0:HHH1:H12H1\PP1:P18P7|LCLC40:LC56030LC55590204Y1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC /V *    V *   .  N"+|AT,22,3:" ":1000AAN$:AN$""1670W882:V21,1:225x ************************** **** WINDOW ROUTINE **** **************************828AT,4,11:""(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$(17 ":6 >AT,20,2:"  "m CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE "\AT,24,1:"40:LC55590LC56030(204828:V21,0RAT,12,4:""~"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 ORD *  *  !   ''     .. . N" P$(1,5)"URBO KI":IN$(1,5)"URBO IN"> P$(1,6)"RAP HOOT":IN$(1,6)"RAP IN"m P$(1,7)"COLOR EDITOR":IN$(1,7)"COLOR IN" P$(1,8)"COLOR DEMO":IN$(1,8)"COLOR DEMO IN" P$(1,9)"COLOR TOTAL":IN$(1,9)"COLOR TOTAL IN" P$(1,10)"11)"EE NSTRUCTIONS"&11)"UN ROGRAM "E11)"ANCEL INDOW "d 11)""uPO55507:X0 I116:POI,0::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55587PO55507>X2 ":IN$(2,8)" "' P$(2,9)" ":IN$(2,9)" IN"V P$(2,10)" ":IN$(2,10)" " P$(2,11)" ":IN$(2,11)" " P$(2,12)" ":IN$(2,12)" " P$(3,1)" ":IN$(3,1)"  ":IN$(3,12)" ", P$(4,1)" ":IN$(4,1)" "  R CL718:AT,CL,14:" "::}POKE657,128:REM DISABLE SHIFT/COM KEYPOKE775,200:REM DISABLE LISTINGPOKE808,234:REM DISABLE STOP/RESTORE 8B1H94195VB1H104195WB2H1B2H2B2H44195#X IF B=44^882:V21,1T`I035:V,X1I:D135::ebV21,0:230tc882:1550~h4160I828935:A:I,A:: 160,0,185,0,4,153,0,192 185,0,216,153,240,0,0,1,192!n 0,0,224,0,0,112,0 "x 255,252,0,255,255,0,255%" 252,0,0,112,0,0,224;" 0,1,192,0,0,0,0O" 0,0,0,0,0,0,0c" 0,0,0,0,0,0,053  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,216,185,250,1 IDENTIFY":IN$(1,10)"IDENTIFY IN"5( P$(1,11)"INI-OMP":IN$(1,11)"INI-OMP IN"h2 P$(1,12)"IDEO NAPSHOT":IN$(1,12)"IDEO IN"7 P$(2,1)"DOUBLE SORT":IN$(2,1)"DOUBLE IN"< P$(2,2)"SQUARED CIRCLES":IN$(2,2)"SQUARED IN"F P$(2,3)"RYPTIC X0HAN$(13)2140 R2080\X0882:4100+aX22180]bB1H3B1H4B1H7B1H8B1H92155pcB1H102155dB2H1B2H2B2H42155e IFB=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D " P$(3,2)" ":IN$(3,2)" "= P$(3,3)" ":IN$(3,3)" "m P$(3,4)" ":IN$(3,4)" " P$(3,5)" ":IN$(3,5)" " P$(3,6)" ":IN$(3,6)" " P$(3,7)828:V21,0:ZZ$IN$(B,H)  2,8,2,"@0:"ZZ$",S,R" XX15' 2,TX$(XX)0 :2hAT,7,1:""I813:AT,I,1:" ""AT,14,1:" [/=ANCEL * PC195,185,250 4,153,250,192,185,250,216,153#  234,196,185,244,5,153,244,193I  185,244,217,153,228,197,185,238m  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,1HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -64 PROGRAMS PRINTED IN HOY! (OR PROGRAMS PUBLISHED FROM AY 1987 ONWARD ONLY!) OR THAT YOU'VE MADE.  RODUCT":IN$(2,3)"RYPTIC IN"3P P$(2,4)"CRYPTIC PRODUCT":IN$(2,4)"CRYPTIC IN"dZ P$(2,5)"ORTH BY OUTH":IN$(2,5)"ORTH IN"d P$(2,6)"ILE LICER":IN$(2,6)"ILE LICER IN"n P$(2,7)"CREEN LASH":IN$(2,7)"CREEN LASH IN" P$(2,8)" 135::zV21,0:230 882:225%I116:POI,5::R 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 BUG REP II":IN$(1,3)"BUG REP IN" P$(1,4)"V'LUR. MINES":IN$(1,4)"V'LUR I" ":IN$(3,7)" ". P$(3,8)" ":IN$(3,8)" "b P$(3,9)" ":IN$(3,9)" " P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11)" "" P$(3,12)" =UN ROGRAM] ",AT,15,1:""Z1AT,22,3:" ":10006XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204TB1H3B1H4B1H7B1H92,153  250,4,185,234,196,153,250,216! 185,244,193,153,244,5,185,228B! 197,153,244,217,185,238,194,153f!  238,6,185,222,198,153,238,218{! 200,208,205,96!FI9601022:N:I,N::!P 0,0,0,0,0,0,0!Z 0,0,0,0,0,0,0!d 0,0,0,aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa???@|>|>><||??????