KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK LOAD THE MOVE ARRAY! R$"L" 1690 : F01 : ! 2130 : BAD KEYU!` LOCATE CURSOR AT COLUMN ONE OF LINE LL (LL=1 TO 24)h!j 214,LL1 : n!t ! CHECK DISK ERROR STATUS! 15,EN,EM$,ET,ES! EN20 2550! EN;EM$;ET;ES : K ,0,0,0,0 * 8 *H  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0% * 6 ** 0,0,0,K ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0X 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0d * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,19KKKKK, 15 : 1 : 120! : NO ERROR! : USER PLAYS!  R$"P" PL2 : @ : DISPLAY THE MOVE ARRAYU  R$"D" 2290  F00 "THINKING..." : 1580 : F01  1360 : : SAVE THE MOVE ARRAY  R$"S" 1450 : : K0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,192,248c4 15,128,0,15,128,0,15,191,128,15,255,224,15,255,240,15,227,248> 15,193,248,15,193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0@ 0,03,240,7,255,240,3,255,224,0,255,128,0,0K 2,1,255,192,1,255 192,0,0,0,0,0,0 * 9 *h 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0K  *< 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131,224 7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7,129,240 7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0 * . * 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0KKKK TENING."x"2) CONFUSING."7y"3) BETTER THEN USING A MANUAL."tz"4) A ROYAL PAIN COMPARED TO USING A WORD PROCESSOR.";A| A1TT3} A2TT2~ A3TT1 A4TT0 A0A5 730"TRY A NUMBER, 1-4": 630"SET WASTE OF TIME."( "3) SOMETIMES CONVENIENT."? "4) WONDERFUL.";AO  A1TT3_  A2TT2o  A3TT1  A4TT0  A0A5 530 "TRY A NUMBER, 1-4": 430 "AUTOMATIC TELLER MACHINES ARE" "1) A NUISANCE." "2ING TO THE NEXT GENERATION."?"YOUR SCORE IS";T;"!"_@"FORGET IT! IT'S HOPELESS. A CLASSIC CASE OF COMPUPHOBIA."J"HOW DID YOU SURVIVE TAKING THIS TEST?!"LD BE."<x T20 1500}"YOUR SCORE IS";T;"." "WITH A VERY SLI ANY FROM ROW";RW; TK$ : TK$"M" 160TK(TK$)(: TAKE TOO MANY?> TKB(RW) 1960]: CHOOSE A DIFFERENT ROWo TK1 1820B(RW)B(RW)TK XB(1) : YB(2) : ZB(3)LL5 : 2400  "USER: ";X;Y;Z*4: "YOUR SCORE IS A MEASLY";T;"WHICH MEANS YOU ARE AT HOME WITH"i("THE COMING COMPUTER REVOLUTION. IF YOU AREN'T ALREADY ACTIVELY"2"INVOLVED WITH THE BEASTIES, YOU SHOULD BE."<x T20 1500}"YOUR SCORE IS";T;"." "WITH A VERY SLI 1,A(I,J,K,P) P,K,J,I : 1: - - - - - - - -0 USER PLAYSG: - - - - - - - -dB(1)X : B(2)Y : B(3)Z J1 5 : SP$ : J&LL10 : 24000 "ROW 1 =";X: "ROW 2 =";YD "ROW 3 =";ZN " TO DISPLAY THE MOVE ARRAY "z "PRESS TO SAVE THE MOVE ARRAY TO DISK" : :  R$ : R$"" 2190 R$: MODE CHANGEMDCHGTRUE: RANDOM TING THE AUTO-DIALING FEATURE ON A PHONE IS"3"1) BEYOND ME."N"2) TOO MUCH BOTHER."q"3) WORTH IT IN CONVENIENCE.""4) EASY, BUT I LET MY COMPUTER DO ALL MY DIALING.";A A1TT3 A2TT2 A3TT1 A4TT0 ) A WASTE OF TIME.") "3) SOMETIMES CONVENIENT."@ "4) WONDERFUL.";AP  A1TT3`  A2TT2p  A3TT1  A4TT0 $ A0A5 630 %"TRY A NUMBER, 1-4": 530 v"I FIND USING A SELF CORRECTING TYPEWRITER" w"1) FRIGH COMPUTER PLAYS R$"C" PL1 : : USER PLAYS!  R$"P" PL2 : @ : DISPLAY THE MOVE ARRAYU  R$"D" 2290  F00 "THINKING..." : 1580 : F01  1360 : : SAVE THE MOVE ARRAY  R$"S" 1450 : : - - - - - - - - - -> READ KEYBOARDH: - - - - - - - - - -2R : SP$,SP$ : L$|\ "PRESS FOR RANDOM COMPUTER TO PLAY AGAINST ELMAC"f"PRESS

TO PLAY AGAINST ELMAC "p "PRESS TO GHT ATTITUDE ADJUSTMENT, YOU COULD BE"H"HAPPILY ENJOYING THE BENEFITS OF A COMPUTER COMPANION."N` T25 1600{"YOUR SCORE IS";T;".""GETTING YOU INTO COMMUNION WITH A COMPUTER WILL TAKE""A TREMENDOUS EFFORT. BETTER OFF LEAV S M TO GO TO MENU>"X ""SP$""b "PICK FROM WHICH ROW";RW$>l: M = BACK TO MENU & RESTARTRv RW$"M" 160`RW(RW$)y RW1 RW3 1820: 0 = EMPTY ROW B(RW)0 1820LL17 : 2400 SP$"" "TAKE HOW M   A2TT2 A3TT1 A4TT0. A0A5 1100N"TRY A NUMBER, 1-4": 1030vL "HOW MANY COMPUTERS DO YOU OWN";AQ A10 "TRY A NUMBER LESS THAN 11"V A10 1100` T10 T10 TTA T10 1400# X,Y,Z,P)1: P| Z,Y,X!: - - - - - - - - - - - - - - -B FILL MOVE ARRAY FROM FILEg: - - - - - - - - - - - - - - -"LOAD FROM WHAT FILE";F$ 1,8,8,F$",S,R" : 2500 I0 3 : J0 4 K0 5 : P0 12 D ONE."("3) THERE MUST BE SOMETHING I CAN DO WITH ONE."j"4) I CAN THINK OF AT LEAST A DOZEN THINGS TO DO WITH ONE";Az A1TT3 A2TT2 A3TT1 A4TT0 A0A5 1030"TRY A NUMBER, 1-4": 930"I WO REATE MOVE ARRAY IF IT'S NOT ALREADY LOADED; F00 "ONE MOMENT ..." : 1580 : F01Z 1,8,8,F$",S,W" : 2500t I0 3 : J0 4 K0 5 : P0 121,A(I,J,K,P) P,K,J,I1 : 1": - - - - - - - - - -  A0A5 830 "TRY A NUMBER, 1-4": 730j>"IF MY CAR'S DASHBOARD LOOKED LIKE THE COCKPIT OF THE SPACE SHUTTLE"?"1) I'D SELL IT"@"2) I'D IGNORE IT."A"3) EVENTUALLY I'D FIGURE EVERYTHING OUT." B"4) I'D BE FIGURING OUT HOW TO :  ** M.L. J-STICK DATA **:/169,0,133,254,173,0,220N74,176,4,160,1,132,254,74n176,4,160,2,132,254,74,1764,160,3,132,254,74,1764,160,4,132,254,169,0,133253,173,1,220,74,176,4160,1,132,253,74,176,4z ݩ 048)ܥ)Ѕ0  )i `AHOY! FEB862A ARE:" "PLAYER ONE:"P1$"PLAYER TWO:"P2?"THE WINNER IS:"O""PL$}" PLAY AGAIN Y/N ?";I11000::198,0A$A$"N""";:A$"Y"1020P10:P20:RD0:II0:140$:. ";%" ";W&" ";j0646,(0)151p: ݒ      ݒ ";" ݒ      0,HL:A9CD20,1J4A9A9A(J):680%:A  *** PLAYFIELD SUB ***G:^ B,J:A9A(J)2,HLr*A9CDA(J)2,14B20,J:(A9A(J)2)20,HL>20A9CDA(J)2,1:A9BHR:\ ** SETUP SOUND CHIP **f:pI024:SII  ݒ ";," ݒ     ߒ  ߒ ݒ ";o" ݒ        ݒ ";" ݒ      ݒ ";" ݒ      O1,32:M1,C(J1)O1M1:C1C(J1):530'M1O1<49152:J2(254)UM2O2X(J2):W2(M2)j&W2C2W2WL6000W2HLTPTP1:P2P210:M220,32:W286P2P2500:M220,32DO2,32:M2,C(J2)NO2M2:C2C(J2):610XM2O2b"SCO  ݒ        ݒ ";Vr" ݒ      ݒ ";|" ݒ        ݒ ";" ݒ ݒ ";"  96,22,17,15,195,16,17,15 24,14,17,15,195,16,17,159 96,22,17,15,195,16,17,15X 24,14,17,15,195,16,17,15x 239,14,17,15,195,16,17,15 239,14,17,15,195,16,17,15 239,14,17,15,195,16,17,15 209,18,17,15,31,21,17,15":  "SLIPSHOD VERSION"B" COPYRIGHT 1985 CHERYL PETERSON""USING MY MICROWAVE'S AUTOMATIC TIMER AND PRE-PROGRAMMED""COOKING CYCLES DISTURBS ME""1) NONE""2) A LITTLE""3) SOME""4) VERY MUCH";A A1T0 160,2,132,253,74,176,4,160 3,132,253,74,176,4,160/4,132,253,965:V( ** INTERRUPT MUSIC DATA **\2:y<120,169,84,141,20,3,169F192,141,21,3,88,96,173,148P192,208,40,174,149,192Z232,224,64,208,2,162,0,189d150,192,1 T1 A3TT2 A4TT34 A0A5 330S "TRY A NUMBER, 1-4": 230 J"WATCHING A TELEVISION SET OR MONITOR FOR HOURS" K"1) GIVES ME A HEADACHE, SO I DON'T DO IT." L"2) MAKES MY EYES HURT SO I DON'T DO IT." M"3) KEEPS M *** CHECK FOR END ***8:BRD0IIRD L:>V *** WAIT FOR INPUT ***D`:j"PRESS RETURN TO CONTINUE";tCL(0)151~RD0646,CL:1600:DS$"BY DOUG SMOAK "((197)1)1140198,0: E PLEASANTLY OCCUPIED."/ N"4) IS A WAY OF LIFE.";A? P A1TT3O Q A2TT2_ R A3TT1o S A4TT0 \ A0A5 430 ]"TRY A NUMBER, 1-4": 330 "A REMOTE CONTROL DEVICE FOR A TELEVISION IS " "1) A NUISANCE." "2) A ,0::SI24,15:SI6,240:z:& *** GAME OVER ***,:fP1P2PL$"PLAYER ONE, THAT'S YOU ON THE LEFT!":950P2P1PL$"PLAYER TWO, THAT'S YOU ON THE RIGHT!":950P2P1PL$" NOBODY, IT'S A TIE!!!??""THE FINAL SCORES    ݒ ";&" ݒ ݒ ";[" ݒ BY DOUG SMOAK ݒ ";" ݒ ݒ ";"  ";" RE"P120)"SCORE"P2,lTP19649287:880:1090:II:9205v450;:Z *** CREATE PLAYFIELD ***`:nZM(MZ)J((1)4):X3JBA9A(J)(B)WL800:680J(J1)(J3):JX3690J(A9)A9,HL:A9CD,1A92 ݒ   ݒ ";B" ݒ    ݒ ";}" ݒ    ݒ ";" ݒ    ݒ ";" ݒ , *** TITLE PAGE ***6:-@" ";`J"  ";T" ݒ ݒ ";^" ݒ     ߒ  ߒ ݒ ";h" A2T1 A3T2" A4T37 A0A5 230V "TRY A NUMBER, 1-4": 130 "USING THE AUTOMATIC RECORDING FEATURES OF A VCR BOTHERS ME" "1) NONE" "2) A LITTLE" "3) SOME" "4) VERY MUCH";A A1TT0 A2T 41,0,212,232,189n150,192,141,1,212,232,1892x150,192,141,4,212,232,189S150,192,141,148,192,142,149r192,206,148,192,76,49,234120,169,49,141,20,3,169234,141,21,3,88,96 0,255: ** MUSIC NOTES DATA **: 7,79,78.Ƀ19,32,32,32,32,32,13,32,32,32,32,32 /Ƀ12,96,14,96,16,96,19,192,16,96,19,2556/ʃ14,0,112,14,0,112,3,0,192,1,255,128f/ʃ3,255,192,15,255,240,31,255,248,63,255,252/ ʃ127,255,254,255,255,255,255,255,255,231,255,231/,ʃ227,255,199,112 ƙǙ ș ə !Ѝ Щ   D  ?ƥwS MFLY L Lԩԩԩԩ z @ k Ġƙ(x7ƍ8ƍX T T L` ,:NGiЩ455Щ"#iЩЩ `)`!2%````)`)<9A,Iƪɪ U 6L V ɪ U vL `ԥɜ  7 hhLQL @ ` `#L1 L1Hh`qq: 0qLhĈ` Թv 7 7 7 7L"qqrst`/Lĩ&aa:0a` $ E! _ S! k !  q `d߿ @ SCORELIVESSPRITESLEVELHIGH I GIVE UP!!! - YOU WIN!!!!!!GAME SPEEDSLOW,MEDIUM OR FAST?2d2dddd  ????? ) *********************************Q * *y * 'HEAD TO HEAD' (C) 1985 * * BY DOUG SMOAK * * 303 HEYWARD ST. * * COLUMBIA, S.C. *  * 0,0,0,0,0,0,0,01ʃ0,254,0,1,255,0,115,255,128,195,57,1282ʃ195,57,128,227,255,128,113,255,0,24,254,0B2ʃ12,124,120,6,124,206,3,255,135,1,255,3j2ʃ3,252,3,15,248,3,56,48,64,96,48,962ʃ96,24,48,48,12,24,24,6,24,12,3,242˃7,129,240,00tʃ2 BO53280:BGBO1:SC1024:WL160:HL466 <SID54272:CDSIDP FDN$""p PDS$DN$"" Z880:BO,0:BG,0:646,14 d1600 nI4915249152213 xA:I,A: 1130 ""DN$"BONUS FEATURE Y/N"; BS$ " ,0,7,63,224,14,31,135,252/8ʃ14,1,248,7,128,112,3,225,224,0,7,1920Dʃ0,0,0,0,0,0,0,3,224,0,7,135B0Pʃ192,14,1,224,31,128,112,63,225,248,112,7r0\ʃ252,224,0,14,225,195,135,225,195,135,227,00hʃ199,241,255,143,255,255,255,255,255,255,127,2550tʃ2 )I ` ` ` ` ` ԙ ``` Uԙ ```3 ԙ` ``U ԙ` `` V`  ` v` 6`)lЍЭЍХ ` Ԡ% 99ƍ`)[)`9AC%ă198,201,11,208,7,169,1,133,252,76,244,198kă201,7,208,7,169,2,133,252,76,244,198,76ă204,196,173,2,208,201,98,144,6,206,2,208ă206,2,208,96,173,2,208,201,239,176,248,238ă2,208,238,2 ,169,3,141,201,2,238 %Pǃ187,2,32,199,198,169,16,141,192,2,173,2005%\ǃ2,208,87,206,201,2,173,201,2,24,105,48_%hǃ174,179,2,224,1,208,6,141,3,6,76,120%tǃ199,141,83,6,173,201,2,208,57,173,179,2%ǃ201,1,208,6,32,242,199,76,141,199,32,21%ǃ200,3 ,2,76,19,195,32,56,200,169,33#ƃ141,4,212,169,240,141,6,212,169,2,141,1C#ƃ212,96,32,56,200,169,33,141,4,212,169,240q#ƃ141,6,212,169,6,141,1,212,169,13,141,192#ƃ2,76,19,195,32,56,200,169,129,141,4,212#ƃ169,240,141,6,212,169,5,141,1,212,16 2,32,32,32,40,49,45-Ƀ50,45,51,41,63,32,13,13,32,32,80,76.Ƀ65,89,69,82,83,32,32,32,32,40,49,45B.Ƀ50,41,63,32,13,13,32,32,67,79,77,80k.Ƀ85,84,69,82,32,40,49,45,50,45,51,41.Ƀ63,32,19,3,15,18,5,20,9,13,5,32.Ƀ19,78,61,78,69,87,13,67,61,6 6,85,198,201,20,208,27,173!Hƃ21,208,56,233,16,141,21,208,169,2,141,190E!Tƃ2,169,3,133,252,32,242,199,32,242,199,76u!`ƃ147,198,201,36,208,17,173,21,208,56,233,32!lƃ141,21,208,169,3,141,190,2,76,137,198,201!xƃ68,208,47,173,21,208,56,233,64,141 0,0,140,248,2,140+$Ƀ249,2,172,249,2,185,252,201,141,1,212,185),0Ƀ253,201,133,251,32,74,200,238,249,2,238,249U,<Ƀ2,173,249,2,201,11,144,226,169,0,141,1,HɃ212,32,74,200,238,248,2,173,248,2,201,3,TɃ176,5,160,0,76,35,201,32,56,200,32,119,`Ƀ20 ,76,161,197,173,0,208,141,4,208,173$Ń1,208,141,5,208,165,162,201,96,176,20,173QŃ4,220,201,160,176,7,201,96,144,6,76,159Ń195,76,170,195,76,181,195,76,64,199,173,179Ń2,201,1,240,11,201,2,240,28,173,30,208Ń201,5,208,17,173,0,208,141,4 0,141,190,2,32,74)ȃ200,160,0,200,192,128,208,251,32,225,255,208/*ȃ25,32,56,200,32,119,201,32,228,255,240,251\*ȃ201,78,208,3,76,0,192,201,67,208,240,32*ȃ135,201,173,194,2,208,19,173,192,2,240,8*ȃ206,192,2,173,192,2,208,3,32,56,200,76* ,208,76,108,197,173,5,208,201,138%@Ń176,13,173,1,208,201,84,144,35,206,1,208VLŃ76,108,197,165,252,201,170,240,13,173,1,208XŃ201,108,176,16,238,1,208,76,108,197,173,1dŃ208,201,126,176,3,238,1,208,198,253,173,179pŃ2,208,18,173,30,208,201, 73,30,208,173,227,5,201(ȃ57,176,4,238,227,5,96,169,48,141,227,5/((ȃ173,226,5,201,49,144,5,169,1,141,194,2\(4ȃ238,226,5,96,160,0,152,153,0,212,192,23(@ȃ176,4,200,76,59,200,141,192,2,96,162,0(Lȃ160,0,200,192,255,208,251,232,228,251,208,244( ,208,96,173,3,208,201,195,176'ă234,238,3,208,96,173,3,208,201,153,144,223Tă206,3,208,96,173,240,2,201,1,208,10,173ă179,2,201,1,208,13,76,139,197,76,230,197ă165,254,133,253,76,110,197,165,253,240,245,173ă179,2,208,44,173,0,208,205,4 2,199,198,169,255,133,251,32,74,200,32&ǃ56,200,32,74,200,173,194,2,240,3,76,222D&ǃ200,169,0,141,173,2,141,179,2,141,187,2s&ǃ141,207,2,76,222,193,206,200,2,76,158,200&ǃ173,52,6,24,105,5,201,53,208,6,141,52&ǃ6,76,173,198,169,48,141,52,6,3 9,13#ǃ141,192,2,173,179,2,201,1,208,12,173,1%$ǃ208,24,105,24,141,5,208,76,39,199,173,3R$ ǃ208,56,233,24,141,5,208,169,0,141,173,2~$,ǃ141,179,2,141,187,2,169,51,141,3,6,141$8ǃ83,6,173,30,208,76,158,200,173,187,2,208$Dǃ21,169,255,141,200,2 ^80 Щ!Щܭ ˀ<L< S ݍݩݭ ݭ ) o L3 ( Ǡ +, -. Y 3 3 쀝<L<0:?*ީ,0 78(lީ,0  1 "LOADING DATA..PLEASE WAIT 30 SECONDS..."UJ4915251975:A:J,A:XXA:JzX350432"ERROR IN DATA...":(49152160,0,140,21,208,140,32,208,140,33,208,185 149,201,32,210,255,200,192,25,144,245,32,228 255,240,251,201,4 ,192,22,144,245= `32,228,255,240,251,201,49,144,247,201,52,176m l243,32,210,255,32,74,200,56,233,48,133,253 x169,5,56,229,253,133,253,133,254,169,147,32 210,255,160,0,152,153,167,2,200,192,56,144 248,141,4,208,169,160,141,8,4,141,30,4 76,8,152,24,105,40,168,76,166B 192,160,0,162,6,169,160,153,9,4,169,102m 153,49,4,153,89,4,153,129,4,153,233,5 153,81,7,153,121,7,153,161,7,169,160,153 201,7,138,153,9,216,169,2,153,49,216,153 89,216,153,129,216,138,153,233,217,169,01,153,178,5,169,5,153,145,217,153,178Kh217,200,192,5,144,231,160,0,162,192,138,153|t248,7,232,200,192,4,144,246,169,195,153,2487,200,192,7,144,248,160,0,185,8,202,1530,48,200,192,0,208,245,169,127,141,21,208169,120,141,6,208,14,170#141,0,208,141,2,208,141,4,208,133,252,169S83,141,1,208,133,251,169,195,141,3,208,169~139,141,5,208,169,51,141,3,6,141,83,6ƒ173,30,208,32,56,200,32,74,200,169,21,141ƒ4,212,169,240,141,6,212,169,48,141,1,212ƒ32,74,200,238  7,128,0,15,128,0,31,128,0,0,0,0,0,0,0"q * E *lv 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224 7,255,240,7,255,240,7,255,224,0,0,0,0,0,0 * B,206dƒ4,208,173,5,208,201,55,144,6,206,5,208Jpƒ76,19,195,169,4,133,252,76,188,199,201,2x|ƒ208,40,173,4,208,201,242,144,7,169,1,133ƒ252,76,218,198,238,4,208,238,4,208,173,5ƒ208,201,55,144,6,206,5,208,76,19,195,169ƒ5,133,252,76,188ƒ215,199,201,5,208,37,173,4,208,201,242,144Eƒ7,169,4,133,252,76,218,198,238,4,208,238rÃ4,208,173,5,208,201,224,144,7,169,2,133 Ã252,76,215,199,238,5,208,173,1,220,41,16Ã208,8,169,6,141,39,208,76,39,195,169,2$Ã141,39,208,173,1,220lÃ195,201,22,208,9,32,227,195,32,202,195,76AxÃ238,195,201,25,208,9,32,216,195,32,188,195pÃ76,238,195,201,21,208,9,32,216,195,32,202Ã195,76,238,195,172,179,2,192,1,208,246,201Ã13,208,7,169,3,133,252,76,244,198,201,11Ã208,7,169,4,1378(LK TURNKEY.BIN9,144,247,201,52,176,243,32H $210,255,56,233,48,141,254,2,160,0,185,174z 0201,32,210,255,200,192,22,144,245,32,228,255 <240,251,201,49,144,247,201,51,176,243,32,210 H255,56,233,48,141,240,2,201,1,208,29,160 T0,185,196,201,32,210,255,200) 162,6,142,8,216,142,30,216,160,40,169,160T 153,8,4,153,248,4,153,232,5,153,216,6 153,30,4,153,14,5,153,254,5,153,238,6 138,153,8,216,153,248,216,153,232,217,153,216 218,153,30,216,153,14,217,153,254,217,153,238 218,192,240,14,153/ 81,219,153,121,219,153,161,219,138,153,201,219] ,200,192,21,176,3,76,233,192,160,0,169,48 8153,226,5,153,50,6,169,2,153,226,217,141 D3,218,169,4,153,50,218,141,83,218,200,192 P3,144,227,160,0,185,218,201,153,145,5,185\223,21,10,208,169,220,141,87208,141,12,208,169,59,141,7,208,141,9,208g169,219,141,11,208,141,13,208,169,2,141,39208,169,4,141,40,208,169,1,141,41,208,16915,141,42,208,141,24,212,169,5,141,43,208169,7,141,44,208,169,3,141,45,208,169,207,2,173,207,2,201,5,1447(ƒ219,32,56,200,173,254,2,133,251,173,173,2g4ƒ208,14,165,252,208,20,173,5,208,201,55,144@ƒ6,206,5,208,76,19,195,169,3,133,252,76Lƒ188,199,201,1,208,40,173,4,208,201,95,176Xƒ7,169,2,133,252,76,218,198,206,4,20873,0Ã220,41,16,208,8,169,6,141,40,208,76,2=Ã196,169,4,141,40,208,173,0,220,41,15,141iă169,2,173,0,220,41,16,24,109,169,2,201ă27,208,6,32,154,196,76,204,196,201,23,208 ă6,32,168,196,76,204,196,201,29,208,6,32,ă182,196,76,204,196,,199,201,3,208,20,173,50ƒ208,201,224,176,6,238,5,208,76,19,195,169]ƒ0,133,252,76,215,199,201,4,208,40,173,4ƒ208,201,95,176,7,169,5,133,252,76,218,198ƒ206,4,208,206,4,208,173,5,208,201,224,176ƒ6,238,5,208,76,19,195,169,1,133,252,76 ,41,15,141,167,2,173%0Ã1,220,41,16,24,109,167,2,201,27,208,6T<Ã32,188,195,76,238,195,201,23,208,6,32,202HÃ195,76,238,195,201,29,208,6,32,216,195,76TÃ238,195,201,30,208,6,32,227,195,76,238,195`Ã201,26,208,9,32,227,195,32,188,195,76,2383,252,76,244,198,201,7,208,Ã220,169,5,133,252,76,244,198,173,0,208,201WÃ98,144,6,206,0,208,206,0,208,96,173,0Ã208,201,239,176,248,238,0,208,238,0,208,96Ã173,1,208,201,126,176,234,238,1,208,96,173Ã1,208,201,84,144,223,206,1,208,96,1 201,30,208,6,32,193,196$8ă76,204,196,201,26,208,9,32,193,196,32,154SDă196,76,204,196,201,22,208,9,32,193,196,32Pă168,196,76,204,196,201,25,208,9,32,182,196\ă32,154,196,76,204,196,201,21,208,9,32,182hă196,32,168,196,76,204,196,172,179,2, MNX1M(J,1) : Y1M(J,2) : Z1M(J,3) M1M(J,0)DA(X1,Y1,Z1,M1)A(X1,Y1,Z1,M1)1fA(X1,Y1,Z1,0)A(X1,Y1,Z1,0)1n J: UPDATE SCREEN PL1 1260 WIN "ELMAC WON. PRESS ANY KEY." WIN "YOU WON. PRESS ANY K NUM "RANDOM:";X;Y;Z &: - - - - - - - - - -; GAME OVERV: - - - - - - - - - -x: INCREMENT NUMBER OF GAMESNGNG1 WINTRUE 1110: > > ELMAC LOST! < <: PUNISH THE LAST MOVELASTA(X0,Y0,Z0,MV0  A0A1:"MOVECHRS.O",8,1, 327680  )i `AHOY! FEB862A 0Z: MV STORES THE SELECTED MOVE3 MV4 XXMV : 770Q MV8 YYMV3 : 770^ZZMV7|: SHOW BOARD AFTER MOVE "ELMAC: ";X;Y;Z : NEXT MOVE : - - - - - - - - - - -* RANDOM PLAYER4: - - - 'L$"":H53280,6:53265,(53265)239r I124:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I1254412 ELMAC'S MOVE: - - - - - - - - - -<&: HOW MANY VALID MOVES?N0TMA(X,Y,Z,0)z:: RETURN IF NO VALID MOVES; ELMAC LOSTD TM0 790N: SELECT NEXT MOVEXRN((0)TM)1b: STEP THRU THE CHOICES TO FIND THE SELEC15:V12,240& FV16,128:V14,5:V15,YF d"": SC,1:V21,255:TA10] n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B7)TA)""A"-"PR$ B12 175 150 A2R PLAYER'S MOVE T PL 810,17909 ^: DID OTHER PLAYER WIN?Z h XYZ0 WINFALSE : 460o r: ELMAC'S TURNy | 530 : DID ELMAC LOSE?  TM0 WINFALSE : 460 : DID ELMAC MAKE LAST MOVE?  XYZ0 WINTRUE : 460 0 4x K0 5 : "";I;J;K;"", P0 12 : A(I,J,K,P); : PS : R$ : R$"" I3 :J4 : K5g K : J : I: SAVE MOVE ARRAY TO DISK "SAVE THIS ARRAY (Y/N)";A$ A$"Y" 1560 "WHAT FILENAME";F$ : CB.:150 TM$(13)AN$" " 2258 AN$AN$TM$:AN$;"_";p T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN24" ":190EY." R$ : R$"" 1250/ J1 8 : SP$ : J :LL1 : 2400AWSTRKWSTRK1W WIN WSTRK0u  WSTRKWMAX WMAXWSTRK "# GAMES, WINS, LOSSES % WIN" 2)NG;9)NW;16)NL;25)((100NWNG)" ",7)( "CURRENT/LO)A(X0,Y0,Z0,MV)0%$A(X0,Y0,Z0,0)A(X0,Y0,Z0,0)LASTH.: INCREMENT NUMBER OF LOSSEST8NLNL1jB: UPDATE SCREENuL 1220V: > > ELMAC WON! < <`: INCREMENT NUMBER OF WINSjNWNW1t: REWARD ALL WINNING MOVES~ J1  "::V 64 BUG REP,FLANKSPEED,INSTA BUG 64,VIC BUG REP,WINDOWS,EXT BACKROUND SLIPSHOD,STRUCTURED,ELMAC,MAKING CHANGE,MAKING CHANGE 2,MAKING CHANGE 3 SIMPLE COMP.,ARENA BOOT,TERNARY,LONG LINE,ALIGNMENT CHECK,CRABFIGHT8- - - - - - - ->: PICK RANDOM MOVE*HROW((0)3)1>R ROW1 MAXXR\ ROW2 MAXYff ROW3 MAXZp: IF ROW EMPTY, TRY AGAINz MAX0 840NUM((0)MAX)1 ROW1 XXNUM ROW2 YYNUM ROW3 ZZ606:SP:I,SP:, I1260812670:SP:I,SP:K I1267212734:SP:I,SP:j I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX22:VI,X::I1132:VI,Y: <V8,195:V10,2TED MOVElCT0 : P1 12,vCTCTA(X,Y,Z,P) : MVPR: FOUND MOVE VALUE (MV=1 TO 12)f CTRN P12n P: RECORD THE MOVEMNMN1 : M(MN,0)MV : M(MN,1)XM(MN,2)Y : M(MN,3)Z: SAVE THE BOARDX0X : Y0Y : Z 4 :A04 (L$,23)7)" DIST. BY DOUBLE L SOFTWARE"s (L$,24)7)" (C) ION INTERNATIONAL INC ":198,0:AN$"" (L$,21)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$""300:TA10:: READY FOR NEXT MOVE  3409 : GO TO GAME OVER ROUTINEC  970e : HAS ANY KEY BEEN PRESSED?  R$ : R$"" 160 : START NEXT GAME, SAME MODE  300 : <><><> END OF GAME LOOP <><><> : - - - - - - - - - -  CHARACTER DUMP,TREASURE WHEEL,HEAD TO HEAD,MEASURE DEC.,MOVCHR BOOTL DOUBLE L NEWSXW * F *X 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7,128,0b 7,128,0,7,128,0,7,252,0,7,254,0,7,252,0,7,128,0,7,128,0,7,128,0l AN(AN$):: CH1 AN: PR$:> V21,0: "": 53280,0: 53281,0b (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI619 6(L$,LI)" NGEST WIN STREAK ";BK$;WSTRK;"/";WMAX : L$42: READY FOR NEW GAME:<_F: - - - - - - - - - - - - - - -P DISPLAY & SAVE MOVE ARRAYZ: - - - - - - - - - - - - - - -_: DISPLAY MOVE ARRAYd (147)n I0 3 : J ( *** EXTENDED BACKGROUND DEMO ***Q SET EXTENDED BACKGROUND COLOR MODEj 53265,(53265) 64 SET UP REGULAR STRING FOR BACKGROUND #0 A$(0)"ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 !#$%&'()+-\_*^@=;:[]/.,<>?" A$(0)A$(0)(34)(  "STRUCTURED VERSION"153280,0:53281,7W"COPYRIGHT 1985 CHERYL PETERSON"v"HIT ANY KEY TO CONTINUE" Z$: Z$"" 31d"""USING MY MICROWAVE'S AUTOMATIC TIMER AND PRE-PROGRAMMED""COOKING CYCLES DISTURBS ME" 1 E, SO I DON'T DO IT."A L"2) MAKES MY EYES HURT, SO I DON'T DO IT."i M"3) KEEPS ME PLEASANTLY OCCUPIED." N"4) IS A WAY OF LIFE.";A% T 5000 ^ A%0A%4 330 h 10200 "A REMOTE CONTROL DEVICE FOR A TELEVISION IS "  10050  A MANUAL."A z"4) A ROYAL PAIN COMPARED TO USING A WORD PROCESSOR.";A%L  5000b  A%0A%4 630n  10200 "SETTING THE AUTO-DIALING FEATURE ON A PHONE IS" "1) BEYOND ME." "2) TOO MUCH BOTHER." "3) WORTH IT IN CONVENIENCE.GURE EVERYTHING OUT."UB"4) I'D BE FIGURING OUT HOW TO GET COMPUTER MAPPING SYSTEM RUNNING";A%`H 5000vR A%0A%4 830\ 10200"I'D LIKE TO HAVE A COMPUTER BECAUSE""1) IT'S A GREAT STATUS SYMBOL.""2) MY KIDS WILL NEED ONETHOSE COMPUTER RUN CONTRAPTIONS."J"2) WHO CARES ABOUT ALL THAT TECHNO-MUMBLE ANYWAY."l "3) I'D BE TOO BUSY EATING!" "4) I'VE ALREADY RIDDEN ON ALL OF THEM";A% 5000 A%0A%4 1030$ 10200L "HOW MANY COMPUTERS DO YOU OW2"INVOLVED WITH THE BEASTIES, YOU SHOULD BE."!<3x T20 1500N}"YOUR SCORE IS";T;".""WITH A VERY SLIGHT ATTITUDE ADJUSTMENT, YOU COULD BE""HAPPILY ENJOYING THE BENEFITS OF A COMPUTER COMPANION." T25 1599"YOUOU SURVIVE TAKING THIS TEST?!"  A%0A%5 (""W"TRY CHOOSING AN INTEGER BETWEEN 1 AND 4"f'"1) NONE"y'"2) A LITTLE"'"3) SOME"'"4) VERY MUCH";A%'B'"1) A NUISANCE."G'"2) A WASTE OF TIME."L'"3) SOMETI << RR26-1 >> 3 RUPERT REPORT #26K ELMAC PLAYS NIMQ_ (147);v(: - - - - - - - -2: INITIALIZE7: - - - - - - - -< A(3,4,5,12),M(6,3)FFALSE0 : TRUE FALSEPBK$"" ZSP$"  GAME - -$ : - - - - - - - - - - - -: : READ KEYBOARDE 2110` : PLAYER CHOSEN YET?q PL0 160 : MOVE ARRAY FILLED YET? F01 230 : FILL MOVE ARRAY INITIALLY : "THINKING ..." : 1580 : F01 MDCHG34)J  CONVERT REGULAR CHARACTERS TO SHIFTED CHARACTERS FOR BACKGROUND #1z A$(1)"": I1 (A$(0)):A((A$(0),I,1))  A64 AA128: 18 AA32 A$(1)A$(1)(A):  ADD REVERSE-ON/OFF CHARACTERS TO BOTH STRINGS FOR BACKGROUNDS 20001 5000# A%0A%4 130/ 10100q "USING THE AUTOMATIC RECORDING FEATURES OF A VCR BOTHERS ME"} 10001 5000 A%0A%4 230  10100 J"WATCHING A TELEVISION SET OR MONITOR FOR HOURS" K"1) GIVES ME A HEADACH 5000  A%0A%4 430"  10200G "AUTOMATIC TELLER MACHINES ARE"S  10050^  5000t & A%0A%4 530 0 10200 v"I FIND USING A SELF CORRECTING TYPEWRITER" w"1) FRIGHTENING." x"2) CONFUSING." y"3) BETTER THAN USING"3 "4) EASY, BUT I LET MY COMPUTER DO ALL MY DIALING.";A%>  5000T  A%0A%4 730`  10200 >"IF MY CAR'S DASHBOARD LOOKED LIKE THE COCKPIT OF THE SPACE SHUTTLE" ?"1) I'D SELL IT" @"2) I'D IGNORE IT." A"3) EVENTUALLY I'D FI.")"3) THERE MUST BE SOMETHING I CAN DO WITH ONE."l"4) I CAN THINK OF AT LEAST A DOZEN THINGS TO DO WITH ONE";A%w 5000 A%0A%4 930 10200"I WOULDN'T GO THROUGH THE RIDES AT EPCOT CENTER BECAUSE""1) I DON'T TRUST N";A%Q A%10 "TRY A NUMBER LESS THAN 11"3V A%10 1100N` T10 T10 TTA%` T10 1400"YOUR SCORE IS A MEASLY";T;"WHICH MEANS YOU ARE AT HOME WITH"("THE COMING COMPUTER REVOLUTION. IF YOU AREN'T ALREADY ACTIVELY"R SCORE IS";T;"."9"GETTING YOU INTO COMMUNION WITH A COMPUTER WILL TAKE A"w"MIRACLE. BUT STRANGER THINGS HAVE HAPPENED. GOOD LUCK!"}?"YOUR SCORE IS";T;"!"@"FORGET IT! IT'S HOPELESS. A CLASSIC CASE OF COMPUPHOBIA."J"HOW DID YMES CONVENIENT."Q'"4) WONDERFUL.";A%V'%t' A%1TT06~' A%2TT1G' A%3TT2X' A%4TT3a'""g'x' A%1TT3' A%2TT2' A%3TT1' A%4TT0("" (C CASE OF COMPUPHOBIA."J"HOW DID Y "K dL$"======================================"a i53280,0:53281,6 n "ELMAC "53)"PLAYS NIM" : x 15,8,15 : DISK ERROR CHANNEL }: - - - - - - - - - - - - - - BEGIN NEW 300 : NEW GAME IN NEW MODEI (147); : LL5 : 2400 : MDCHGFALSEP :v : <><><> MAIN GAME LOOP <><><><>} : ": NEW GAME IN PREVIOUS MODE ,X3 : Y4 : Z5 : MN0 6: DOES ELMAC GO FIRST? @ (0).5 380 J: OTHEL & 3, A$(2)""A$(0)"":A$(3)""A$(1)""D  I0 3: A$(I):R MODEj 53265,(53265) 64 SET UP REGULAR STRING FOR BACKGROUND #0 A$(0)"ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 !#$%&'()+-\_*^@=;:[]/.,<>?" A$(0)A$(0)(34)( #"":53280,0:53281,6:646,1U" BUG REPELLANT INSTALLED "| X 49152 49488 : Y: X,Y:: 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177  251, 208, 3, 76, 138  SA49152EI100148:ZZ0:J18:A:SA,A:SASA1:ZZZZA:JeA: ZZA CKCKZZ: I:50(" ERROR IN LINE #";I:2 SACK1377 49152:d 169,90,141,2,3,169,192,141,907e 3,3,160,0,185,37,192,240,820 f 6,32,210,255,200,2 0,1,96,200,11252 n 177,251,240,1,96,104,104,76,1049V o 63,192,72,152,72,138,72,8,769} p 165,157,208,3,76,63,192,169,1033 q 1,133,251,169,8,133,252,169,1116 r 0,133,254,133,255,165,20,133,1093 s 254,165,21,133,255,32,72,192,1124 t ,0,141,167,806. { 2,240,38,133,255,177,251,208,1304S | 27,165,255,41,240,74,74,74,950w } 74,24,105,129,141,2,4,165,644 ~ 255,41,15,24,105,129,141,3,713  4,76,15,193,230,254,32,84,888 193,165,255,160,0,170,177,251,1371 201,34, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32c  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138!15 153,4,4,200,208,245,234,165,1213C 20,133,99,165,21,133,98,162,831i 144,56,32,73,188,32,221,189,935 162,0,189,1,1,240,10,41,644 63,9,128,157,12,4,232,208,813 241,169,160,157,12,4,32,91,866 193,76,63,192,230,251,2 208, 2491  96, 32, 205, 189, 169, 13, 32, 210, 255, 32c  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138! ""*" BUG REP INSTALLED "N X 828 1023 : Y: X,Y:: 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230  251, 208, 2, 230, 25, 2, 230, 64, 230>  251, 208, 2, 230, 252, 76, 11, 192, 169, 153p  160, 192, 32, 30, 171, 166, 63, 165, 64, 76  231, 192, 96, 76, 73, 78, 69, 83, 58, 32  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83, 8, 113, 251, 69, 254, 170K  138, 133, 253, 177, 251, 208, 226, 165, 253, 41{  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63, 192, 230, 251, 208, 2E  230, 252, 76, 43, 192, 76, 73, 78, 69, 32u  35, 32, 0, 169, 35, 160, 192, 32, 30, 171  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 2308,245,169,13254 g 1,133,251,169,8,133,252,165,1112V h 0,141,167,2,96,18,32,73,529x i 78,83,84,65,78,84,32,66,570 j 85,71,32,82,69,80,69,76,564 k 76,69,78,84,32,13,0,40,392 l 104,170,104,168,104,76,131,164,1021 m 160,0,177,251,24 160,2,177,251,197,254,240,6,1287D u 32,105,193,24,144,239,200,177,1114l v 251,197,255,240,6,32,105,193,1279 w 24,144,226,169,1,133,254,169,1120 x 0,133,255,165,251,24,105,4,937 y 133,251,165,252,105,0,133,252,1291 z 169,0,160,0,169,208,8,173,167,2,73,8664 255,141,167,2,173,167,2,208,1115[ 12,177,251,201,32,208,6,198,1085 254,138,76,187,192,138,113,251,1349 69,254,170,138,76,187,192,169,1255 160,141,0,4,169,186,141,1,802 4,160,0,185,127,193,240,6,9# 32, 35  32, 0, 0, 0, 0, 08, 133, 253, 177, 251, 208, 226, 165, 253, 41{  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 6308,2,1215! 230,252,96,173,134,2,160,0,1047I 153,0,216,200,192,21,144,248,1174n 96,160,0,177,251,170,32,84,970 193,177,251,133,252,138,133,251,1528 96,0,0,0,0,0,0,160,256 140,137,142,133,160,163,160,0,103527,193,240,6,9 113, 251, 69, 254, 170, 138, 76, 88, 192, 0O 0, 0, 0, 230, 251, 208, 2, 230, 252, 96 170, 177, 251, 201, 34, 208, 6, 165, 2, 73 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169 13, 76 2, 169, 244, 160, 3, 32I  30, 203, 160, 0, 177, 251, 170, 230, 251, 208|  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165, 253, 160, 0, 170, 177, 251  201, 32, 240, 6, 13240, 6, 2016  80, 208, 245, 230, 254, 32, 210, 255, 169, 4j  166, 254, 160, 255, 32, 186, 255, 169, 0, 133  63, 133, 64, 133, 2, 32, 189, 255, 32, 192  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1,, 208, 2, 230, 64, 230A  251, 208, 2, 230, 252, 76, 74, 3, 169, 236q  160, 3, 32, 30, 203, 166, 63, 165, 64, 32  205, 221, 169, 13, 32, 210, 255, 96, 230, 251  208, 2, 230, 252, 96, 0, 76, 73, 78, 69  83, 58, 32, 0, 76, 73, 78, 69,0, 254, 32, 37, 193B  234, 165, 253, 160, 0, 76, 13, 193, 133, 253v  177, 251, 208, 237, 165, 253, 41, 240, 74, 74  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, 63, 208Al AHOY! FEB862A64 BUG REPINSTA BUG 64VIC BUG REPFLANKSPEED WINDOWS EXT BACKGROUND SLIPSHODSTRUCTUREDKKELMACMAKING CHANGEMAKING CHANGE 2MAKING CHANGE 3SIMPLE COMP.ARENA BOOTTERNARY LONG LINEKK  ALIGNMENT CHECK TURNKEY.BINCRABFIGHT+CHARACTER DUMP TREASURE WHEEL$ ARENA HEAD TO HEADMOVECHRS.SKK MOVECHRS.OMEASURE DEC.MOVCHR BOOTMENU C-64DOUBLE L NEWSKKKKKKKK 53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ ( (2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADA 4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 " 1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":11008"@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:307081200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN S *** WINDOWS ***b CREATES THE ILLUSION OF WINDOWS USING EXTENDED BACKGROUND COLOR MODE SET EXTENDED COLOR MODE 53265,(53265) 64 800 100' GET RAW JOYSTICK VALUE AND INVERT IT (JOYSTICK PORT 2)(JY255(56320))1: VV$(I)ML(QQ)1);. Q "";: QQ1 "";T R (BL$(QQ),MR(QQ)ML(QQ)2);::o c ** MAIN KEYREAD LOOP d 40: 50: A$"" D0 JY0 JB0 100 e(D132)(D137) QQD133: 100 f D137 58235 g D147 HP(QQ)ML(QQ):VP(100 CURSOR DOWNA VP(QQ)VP(QQ)1: VP(QQ)MB(QQ) VP(QQ)MT(QQ)G W CURSOR UP VP(QQ)VP(QQ)1: VP(QQ)MT(QQ) VP(QQ)MB(QQ) CURSOR RIGHT HP(QQ)HP(QQ)1: HP(QQ)MR(QQ) HP(QQ)ML(QQ): 200 CURSOR LEFT ,53284)$ SET MARGINS & STARTING CURSOR POSITIONSk% I0 3: MT(I),MB(I),ML(I),MR(I):VP(I)MT(I):HP(I)ML(I):& 1,15,1,18,1,9,21,38,18,23,1,18,12,23,21,38) VERTICAL PLACEMENT STRINGS*VV$(0)"": I1 24:VV$(I)VV$(I1)"":354272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,T1EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134)(20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY"::::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$ A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:TCAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T ) GET SEPARATE BUTTON VALUE- *JBJY 16V + CLEAN UP JOYSTICK VALUE AND RETURNg ,JYJY 15:{ 1 READ KEYBOARD 2D0: A$: A$"" 3A(A$): A32 A95 DA:A0:A$"": 4AA32: O ** CLEAR WINDOW P IMT(QQ)1 MB(QQQQ)MT(QQ): 80: 100> h D19 HP(QQ)ML(QQ):VP(QQ)MT(QQ): 100Q i D17 200e j D145 210x k D29 220 l D157 230 m D13 D10 200:HP(QQ)ML(QQ): 100 n VV$(VP(QQ))HP(QQ))FC$(QQ)CH$(QQ,A);: 220: 100  * HP(QQ)HP(QQ)1: HP(QQ)ML(QQ) HP(QQ)MR(QQ)0   VV$(24),CH$(3,63),FC$(3),BC(3),VP(3),HP(3),CB(3),MT(3),MB(3),ML(3),MR(3) ! INITIAL COLOR VALUES " I0 3: FC$(I),BC(I),CB(I): # "",2,53281,"",14,53282,"",7,53283,"",5 SET UNSHIFTED CHARACTER TABLESF4 I0 63:CH$(0,I)(I32):CH$(2,I)CH$(0,I):h5 SET SHIFTED CHARACTER TABLE6 I0 31:CH$(1,I)(I160):CH$(3,I)CH$(1,I):7 I32 63:CH$(1,I)(I64):CH$(3,I)CH$(1,I):8 SET UNSHIFTED BLANK LIN[MB(QQ)1: 1024I40MR(QQ)1,3264QQ::!AQQ0?B I0 3: CB(I),BC(I):Ez SET SHIFTED CHARACTER TABLE6 I0 31:CH$(1,I)(I160):CH$(3,I)CH$(1,I):7 I32 63:CH$(1,I)(I64):CH$(3,I)CH$(1,I):8 SET UNSHIFTED BLANK LIN  << CD26-1A >>. COMMODARE #22-1 :J MAKING CHANGEj SOLUTION BY JIM SPEERSpd"ENTER AMOUNT: $";T:T%T100.5:T%1000100n"ENTER # OF COINS:";C%:X%T%C%:X%0160xY%X%4:D%X%4Y%:Y%Y%2D%:Y%0160  << CD26-1B >>:d PROBLEM #22-1 : MAKING CHANGE@n:Vx PAUL T. DAWSON\: "AMOUNT OF MONEY (CENTS)";X "NUMBER OF COINS";Y Q ((XY)24) 0 1 D 0 100N (XY(24Q)(9D))4P Y (QDN)2  << CD26-1C >>. COMMODARE #22-1 :J MAKING CHANGEj SOLUTION BY B. ZIDOVECp "AMOUNT $";A:AA100:"# OF COINS";C::" Q D N P":Q0A25:D0A10:N0A5:P0A:QDNPC40  25Q10D5NPA  << CD26-2 >>- COMMODARE #22-2 :M SIMPLE COMPARISONa SOLUTIONS BY NORM GREEN (LINES 100-130) FRANK SMITH (LINES 200-250) & DENNIS FURMAN (LINES 300-350) 1,2,3,4,5,6,7,8,9,10  10,9,YB : "MATCH" : ) "NOT A MATCH" : O ================================{ C1 10: DC 10:A(C)B(D) 220 HB(C):B(C)B(D):B(D)H: 240 D "THE TWO SETS ARE NOT THE SAME": C "THE TWO SETS CONTAIN THE SAME N << CD26-3 >>- COMMODARE #22-3 :M MEASURED DECIMALSm SOLUTION BY MATT SHAPIROs "HOW MANY INCHES (DECIMAL)";DW(D):N(64(DW).5):D64: N64 W1 : N2N2: N2(N2) NN2:DD2: 30 ( W;"A << CD26-4A >>. COMMODARE #22-4 :N TERNARY TURNABOUTo SOLUTION BY DAVID HOFFNERuB3 : FB1 "DECIMAL";DC(DB):E(F(DBC)):A$((E),1)A$: C DC: 20"BASE"B": "A$  << CD26-5 >>+53281,1:646,11:H LONGEST LISTABLE LINEc BY DONALD H. GRAHAMi THE FOLLOWING STATEMENTS MUST BE ENTERED IN DIRECT MODE!! POKE46,10 : CLR   POKE2050,9:POKE2051,0:POKE2052,0  "";: QQ0 3: 80? CLEAR WINDOW EDGES@ IMT(QQ)1 XETURN>R  FORI=2053TO2302:POKEI,140:NEXT:POKE2303,0:POKE2304,0:POKE2305,0+CHARACTER DUMP TREASURE WHEEL$ ARENA HEAD TO HEADMOVECHRS.S. Q%Y%6:N%Y%6Q%:P%C%Q%D%N%:P%0160_ Z%Q%:Z$"QUARTER":170:Z%D%:Z$"DIME":170 Z%N%:Z$"NICKEL":170:Z%P%:Z$"PENNY":170: "NO SOLUTION POSSIBLE": Z%;Z$;:Z$"PENNY"Z%1"IES": Z%1"S": :u Q0 N0 P0 N(N) "Q"Q"D"D"N"N"P"PD N 0 D[ Q : "FINISHED"o P Y (QDN) TREASURE WHEEL$ ARENA HEAD TO HEADMOVECHRS.S4Q;D;N;P:F1. ( P,N,D,Q: F0 "NO SOLUTION"CRABFIGHT+CHARACTER DUMP TREASURE WHEEL$ ARENA HEAD TO HEADMOVECHRS.S8,7,6,5,4,3,2,2)  N1 10 : A(N) : E ( N1 10 : B(N) : Q 2CTCT1h < CT 100,200,300x F CT3 50~ P c================================= d N1 10:XAXAA(N):YAYAA(N) nXBXBB(N) : YBYBB(N) :  x XAXB YAUMBERS":) +================================H , I1 10:J10 I1 1v 6 A(J)A(J1)CA(J1):A(J1)A(J):A(J)C @ B(J)B(J1)DB(J1):B(J1)B(J):B(J)D J J TA(I)B(I) "NOT EQUAL": ^ I : "EQUAL":  x XAXB YAND";(N);"/";((D),2): TURNKEY.BINCRABFIGHT+CHARACTER DUMP TREASURE WHEEL$ ARENA HEAD TO HEADMOVECHRS.S+ A0A1:"ARENA",8,1' 49152???? $ "":53280,0:53281,15:(14)S" *+*+* OUBLE OFTWARE EWS *+*+*"Y" OUBLE OFTWARE THE COMPANY"(" THAT BRINGS YOU THE HOY! ISK"2" EVERY MONTH, TOGETHER WITH" <" MERICAN NTERNATIONAL OMPU COMPANIES"1 " LIKE PYX,RODERBUND,RECISION"Z " CCESS,BACUS,ICROPROSE AND" " CTIVISION WILL BE AVAILABLE" " AT UPER ISCOUNT RICES." " RINTER RIBBONS,BLANK DISKS AND" " OTHER ACCESSORIES WILL AL 'L$"":H53280,6:53265,(53265)239r I124:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I1254412 15:V12,240& FV16,128:V14,5:V15,YF d"": SC,1:V21,255:TA10] n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B7)TA)""A"-"PR$ B12 175 150 A2B.:150 TM$(13)AN$" " 2258 AN$AN$TM$:AN$;"_";p T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN22" ":190 "::Y 64 BUG REP,FLANKSPEED,INSTA BUG 64,VIC BUG REP,WINDOWS,EXT BACKROUND SLIPSHOD,STRUCTURED,ELMAC,MAKING CHANGE,MAKING CHANGE 2,MAKING CHANGE 3 SIMPLE COMP.,ARENA BOOT,TERNARY,LONG LINE,ALIGNMENT CHECK,CRABFIGHTl 7,128,0,15,128,0,31,128,0,0,0,0,0,0,0%q * E *ov 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224 7,255,240,7,255,240,7,255,224,0,0,0,0,0,0 ,192,1,255,192,1,255 192,0,0,0,0,0,0  * 9 *k 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0[ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0g * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255 S53280:S,6:S1,6:TL$""^BL$""yT18:TKT:15,8,15,"I"" "TL$""#" 1541 ALIGNMENT CHECK "(" "TL$""-" BY GREG GRANVILLETER"1 F" RODUCTS, WILL BE MAKING AVAILABLE"Y P" TO ALL OF ITS CUSTOMERS HE" Z" OFTWARE UYS OF A IFETIME." d" LL YOUR FAVORITE GAMES, UTILITIES" n" AND BUSINESS APPLICATIONS FROM" " ALL THE BEST SOFTWARE oSO BE" " AVAILABLE."@ " ATCH FOR OUR IRCULARS WITH"e " YOUR MONTHLY HOY! ISK." UYS OF A IFETIME." d" LL YOUR FAVORITE GAMES, UTILITIES" n" AND BUSINESS APPLICATIONS FROM" " ALL THE BEST SOFTWARE 606:SP:I,SP:, I1260812670:SP:I,SP:K I1267212734:SP:I,SP:j I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX22:VI,X::I1132:VI,Y: <V8,195:V10,24 :A04 (L$,23)7)" DIST. BY DOUBLE L SOFTWARE"s (L$,24)7)" (C) ION INTERNATIONAL INC ":198,0:AN$"" (L$,21)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$""300:TA10: AN(AN$):: CH1 AN: PR$: CHA V21,0: "": 53280,0: 53281,0e (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6196(L$,LI)" ; CHARACTER DUMP,TREASURE WHEEL,HEAD TO HEAD,MEASURE DEC.,MOVCHR BOOTO DOUBLE L NEWS[W * F *X 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7,128,0b 7,128,0,7,128,0,7,252,0,7,254,0,7,252,0,7,128,0,7,128,0,7,128,0"+ 2" ACTUAL HEAD POSITION"Q 7" TRACK ="12)""g <" "BL$"" A" POSITION READ FROM DISK" F" TRACK ="12)"" K" "BL$"" P" ERROR STATUS" U" "25)""' Z" "BL$""R _" ALIGNMENT STATUS"j d" "25)"" i" "BL$"" n"PUSH JOYSTICK LEFT & RIGHT TO MOVE HEAD" s" HOLD FIRE BUTTON TO READ DRIVE STATUS" x: } *************** B *? 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131,224 7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7,129,240 7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0 * . * 0,0,0,0,0,0,0,0,0,0,0,0,0, 252mCBBTr15,"M-W"(0)(28)(1)(C)'wE00|1456:T ***********************r *** READ THE HEADER *** ***********************:M$"":Y111:X:M$M$(X):15,"M-W"(0)(3)(11)M$15,"M-W"(0) :#15,B$:TK(B$(0))145:: ****************************] *** EXIT/DRIVE MOTOR OFF *** ****************************:15,"M-W"(0)(28)(1)(0) X110:X$:15:"MOTOR OFF"(13)"PROGRAM TERMINATED": & ******************************K ** **p ** CHARACTER DUMP ** ** BY JIM SANDERS ** ** FOR AHOY! MAGAZINE ** ** **  ************************ OKE 53024,4", A"TO CHANGE TO F3 POKE 53024,5"P F"TO CHANGE TO F5 POKE 53024,6"t K"TO CHANGE TO F7 POKE 53024,3" P"TYPE 'NEW' AFTER POKE" U"HIT RUN/STOP TO DISABLE" Z"SYS 52992 THEN PRESS F7":"TO PRINT THESE INSTRUCTIONS"F 9,255,133,254,169,4. 0σ133,186,169,126,133,184,169,0Q 8σ160,4,133,113,132,114,133,183t @σ133,185,32,192,255,166,184,32 Hσ201,255,162,25,169,13,32,210 Pσ255,32,225,255,240,46,160,0 Xσ177,113,133,103,41,63,6,103 `σ36,103,16,2,9,128,112,2"DATA STATEMENTS ENTER" "INCLUSIVE DECIMAL":"MEMORY LOCATIONS"::"FROM";A5 :"TO";C::"BYTES PER LINE";BZ CC256:251,(C(C))256:252,Ci 2,B:""; BA256:253,(B(B))256:254,B :((A),2,((A))1);"DATA"; I0 "::""; tA(253)256(254)(2):63750 ~Q(43):U(44) (Q4256U)13163900R Q1(Q256U):U1(Q1256U):QQ1:UU1:63880l PQ256U:P,0:P1,0u "" "TYPE LIST TO SEE DATA" ""A))1);"DATA"; I0************' *** CALCULATE T/S READ ***H **************************N :e 15,"M-R"(0)(28) #15,F$:F$""F$(0) A(F$) BT3A A(159A)(9632((T17)(T24)(T30))) 15,"M-W"(0)(28)(1)(A4) : ******R$" "& TR$(R$,2):""22);TR$Q E0 (TR$)(T.5)(TR$)(T.5)245 E1T(T)""14)"ALIGNMENT OK ":E0:275 E1T(T)""14)"ALIGNMENT BAD":E0:275 250 ""14)"ALIGNMENT BAD":E0:275(197)3315,"I":T18:E0:A214:160)1(197)23520261458;:[@ ****************************~E *** CHANGE HEAD POSITION ***J ****************************O:TBT(BTC)3YTTC.5:T1T1^TK(T)cT35T35hBA(0)(1)(208)15,"M-R"(0)(0),#15,ER$:E(ER$(0));E127340IE1145O:r **************************** *** NO ERROR/GET TRACK # *** ****************************:15,"M-R"(22)(0)(4)Z12:#15,B$-169,48,133,69,169,0,133,63,76,177,243,ER$:E(ER$(0));E127340IE1145O:r **************************** *** NO ERROR/GET TRACK # *** ****************************:15,"M-R"(22)(0)(4)Z12:#15,B$******#  53280,12:53281,12:""D *DATA LOADER FOR DUMP 52992R "":CS0r  I52992 53140: A: I,A (CSCSA:I -CS 2CS18597 "****ERROR IN DATA STATEMENTS****": 7"TO ACTIVATE F7 KEY SYS 52992" <"TO CHANGE TO F1 P_"CHARACTER DUMP MAY BE ACTIVATED FROM":"PROGRAM BY LINE ENTRY:SYS 53034"L dl σ120,173,20,3,141,169,2,173 σ21,3,141,170,2,169,29,141 σ20,3,169,207,141,21,3,169 σ0,133,254,88,96,165,197,201 σ3,208,4,165,254,240,3,108 (σ169,2,16 hσ9,64,32,210,255,200,192,409 pσ208,230,152,24,101,113,133,113\ xσ144,2,230,114,202,208,205,169~ σ13,32,210,255,32,204,255,169 σ8,32,195,255,169,0,133,254 σ76,188,254,96,255"":53280,6:53281,6:646,1:"TO CONVERT MEMORY TO" (2)1 A$((AI))"," AI(251)256(252)63780 (A$,2,(A$)1);. AI(251)256(252)63830< I:63830M $"": 63870e V"":631(198),13 `"G63850":A631634:A,145::A,13:636,13:198,6 a j"":A13:" ' *******************************M ** TREASURE WHEEL **s *** BY ***( **** BOB BLACKMER ****2 *** 6118 S. BRIAR BAYOU ***< ** HOUSTON, TX 77072 ** F ******************************************5 *** PRINT STATUS TO SCREEN ***Z ******************************` :| ""21)T" " E2""12)"NO ERROR DETECTED" E1""12)"READ ERROR SENSED" R$(TK):E1 ""14)" NOT CERTAIN "8 ***************************Z ****** READ JOYSTICK ******|  ***************************:J(56320)15(653)410((56320)16)410"J4T1C1:340'J8T35C1:340, USE,GHOSTBUSTERS,HEAD FOREMANS MASTER OF CEREMONIES,SUPREME COURT JUSTICE,NEW YORK TIMES,RAMBO QUEEN OF ENGLAND,CANNONBALL RUN,INTERNAL REVENUE SERVICE,STAR WARS GONE WITH THE WIND,MAJOR LEAGUE BASEBALL,VICE PRESIDENT,FAMILY CIRCLE- CK0:"LOADING ML DATA...":L828980:A:L,A:CKCKA:[CK20211"ERROR- CHECK ML DATA STATEMENTS":CK0:"LOADING SPRITE DATA":L1228812864:A:L,A:CKCKA:CK9993"ERROR- CHECK SPRITE DATA STATEMENTS":A1:+V5324 S24:L,0::S24,143:S18,129:S14,1293XCL(0): **** SPIN ??? ****]bN2,0:N,14:N1,26:PR:""WH$(9);AlN2,0:N,16:N1,26:PR:""WH$(11)vN2,0:N,18:N1,26:PR:""WH$(12)198,0:198,1:AN$:AN$""AN$""640AN$ 6:N1,25:PR:WH$(10)2N2,0:N,18:N1,28:PR:A$:(A$)65(A$)91740C(A$)1740g1080:L$A$:1000:W1W0:7101180:G0810:790 G01100:1230:AA1AA1:A3A1 600*S,180:S1,5:S5,14:S6,146:S4,17SP$z810:810:AA1:A3A1 600( **** SPIN THE WHEEL ****CS1,10:S5,5:S6,67aLO1((1)7)4:S4,33L114896:V2,L:V4,L25::PP2:P200P192:S4,322041,P:S4,33L114896:V4,L:V2,L25::QQ2N2,0:N,X:N1,Y:PR:L$:YY1:Y37X10:Y24$X10Y37".D8 **** CLEAR PLAYER AREA ****tBL12182:N2,0:N,L:N1,24:PR:SP$::L **** PLAYERS SCORE ****VL1G:SC(A)SC(A)WH((684)191):`B3SC(A)0jA1N2,*************X P100,1000,-1,400,200,500,0,300,100,1000,TILT,400,200,500,LOSE A TURN,300 Z PLAYER #,ENTER LETTER,F1 TO SPIN,F3 TO SOLVE,!!WAY TO GO!! d PERSON,PLACE,THING,PHRASE,TITLE n **** DATA FOR PERSON ****, x ALEXANDER THE GREAT,CHACH,JOHN BYNER BURT REYNOLDS< **** DATA FOR PLACE **** WEST GERMANY,UNITED STATES OF AMERICA,ASTRODOME,NEW ENGLAND,KENTUCKY HAWAIIAN ISLANDS,GREAT SMOKY MOUNTAINS,NORTH DAKOTA,CANDY STORE MOVIE THEATER,WEST POINT,BEAUTY PARLER,COMPUTER,MAGAZINE,STEERING WHEEL`  BARBECUE GRILL,AUTOMOBILE,MOTORCYCLE,PARKING GARAGE,WATER COOLER  HARDCOVER BOOK,COFFEE MUG,BEER STEIN,STEREO RADIO,ROLLTOP DESK  **** DATA FOR PHRASE **** " NEVER ON SUNDAY,ONCE IN A BLUE MOON,THE AD,WATCH YOUR STEP>T DAY IN AND DAY OUT,ONCE UPON A TIME,TO EACH HIS OWN~^ A WATCHED POT NEVER BOILS,APRIL SHOWERS BRING MAY FLOWERSh UP A CREEK WITHOUT A PADDLEr **** DATA FOR TITLE **** | THE WALL STREET JOURNAL,SPEAKER OF THE HO UNITED STATES SENATOR,GOVERNOR OF MINNESOTA,SPORTS ILLUSTRATED@ DUKE OF EARLhSC(3)0:SC(4)0:SC(5)0:SC(6)0:A1WH(8),WH$(13),U$(26),CG$(5):L1126:C$::490:C$"":L18:WH(L):L113:WH$(L)::L15:CG$(L):540&8:S54272:P192:Q193:PR65520:N781:E(TI):SP$" "e&1420:X9:Y24:U1:SC(1)0:SC(2)0:L126:U$(L)"":0V39,0:V40,7:V41,7:V3,108:V5,108:V2,114:V4,139:V,116:V1,101:V21,7D2041,P:2042,Q:2040,Q7NLS(134)8501080:910:B31100:AA1:A3A1-B3830:600TB7TT13:810::AA1:A3A1aB7600 **** ENTER YOUR LETTER ****N2,0:N,12:N1,29:PR:WH$(B):720N2,0:N,14:N1,26:PR:WH$(9);AN2,0:N,1:ZZ1300:4S4,16:4>S,180:S1,5:S5,14:S6,146:S4,17:ZZ25511LHS1,ZZ::S4,16:iR **** SOLVE PUZZLE ****\N2,0:N,4:N1,6:PR:A$fA$B$SC(A)SC(A)100:1130:1270pA$B$A$"":N2,0:N,4:N1,6:PR:SP$SP$:Q201Q193:S4,32$2042,Q:LO:E((1)7)3:L1E:990:828:7B(684)191:dS1,10:S5,5:S6,67:S4,33:S4,32: **** USED LETTERS ****T1U$(T)L$W1:U$(T)L$TT1:T2710501020 U$(U)L$:UU1:0:N,21:N1,32:PR:" " tA1N2,0:N,21:N1,32:PR:SC(A)L~A2N2,0:N,23:N1,32:PR:" "uA2N2,0:N,23:N1,32:PR:SC(A){YY8:G0:"":L1(B$):K$(B$,L,1)L$K$N2,0:N,2:N1,YY:PR:L$:1220:YYYYRISTOPHER COLUMBUS,ASTRONAUT,POSTMASTER,MAGELLANx RONALD REAGAN,PETE ROSE,SYLVESTER STALLONE,JIMMY CARTER,JOHNNY CARSON KERMIT THE FROG,ELVIS PRESLEY,NUCLEAR SCIENTIST,REGISTERED NURSE DOLLY PARTON,CAPTAIN KANGAROO,JOHN GLENN,ROGER STAUBOR,SHOPPING MALL,BOWLING ALLEYZ MASSACHUSETTS,HOUSTON,DISNEYLAND,NIAGARA FALLS,MOUNT RUSHMOREp CENTRAL AMERICA **** DATA FOR THING **** LOOSELEAF PAPER,ASHTRAY,TELEVISION SET,COFFEE TABLE,FOUNTAIN PEN THREE PIECE SUIT,LAWNMOW EARLY BIRD GETS THE WORM3, NEW AND IMPROVED,SHARP AS A TACK~6 A STITCH IN TIME SAVES NINE,SWEET LAND OF LIBERTY,PAR FOR THE COURSE@ PRETTY AS A PICTURE,NUTTY AS A FRUITCAKE,OUT ON A LIMBJ TOO CLOSE FOR COMFORT,FOLLOW THE YELLOW BRICK RO ,206,168,2,173,168,2,201,0,208,246,206,170% 2,173,170,2,201,0,208,231,96/% **** SPRITE DATA ****n% 0,16,0,48,16,12,0,80,0,0,16,0,0,16,0,0,16,0,0,84,0,0,0,0% 0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0% 1,1,0,1,1,0,1,1,0,1,1, 64,0,0,64,0,0 'D 64,0,0,84,0,0,0,0,0,84,0,0,16,0,0,16,0,0,16,0,0,0,0,0H'N 0,4,0,48,20,12,0,36,0,0,132,0,1,4,0,1,85,0,0,4,0,0,0,0'X 0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0'b 1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,40,0,48,130,12,0,2' 4,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0") 133,74,149,132,72,16,132,74,148,132,64,144,132,64,144,165e) 74,149,0,0,0,0,40,0,0,68,0,0,170,0,0,130,0,0,130,0,0,130,0,0) 0,0,170,74,145,34,72,153,34,73,21,34,74,21,34,73) 19,33,136,145,0,0,0,0,0,17,0,0,0,0,0* 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,44132,72,16,132,74,148,132,64,144,132,64,144,165e) 74,149,0,0,0,0,40,0,0,68,0,0,170,0,0,130,0,0,130,0,0,130,0,0) 0,0,170,74,145,34,72,153,34,73,21,34,74,21,34,73) 19,33,136,145,0,0,0,0,0,1* *movechar * org $8000 * r6510 equ $0001 newadr equ $3000 chrbas equ $d000 ciacre equ $dc0e c2ddra equ $dd02 memreg equ $d018 chrout equ $ffd2 * fretop equ $0034 memsiz equ $0038 * tablen equ 512 mvsrce equ $fb mvdest equ mvsrce+2 * lenptr equ $200 1:GG1:L$K$YYYY1:7S1,129:S5,9:S6,5:S4,17:ZZ1300::S4,16:\K1112:L1: * LETTERS FILLED? *z(K)32(B$,L,1)" "KK1:LL1:L(B$)SC(A)SC(A)100:12701240""11)"PUZZLE IS SOLVED":SC(3)SC(4)10""11)"ANOTHER SET (Y/N)?":CP1:1360.F""11)"PLAY AGAIN (Y/N)?"fPL1015010:S,180:S1,L:S5,14:S6,146:S4,17ZZZ200225:S1,ZZ:::S4,16d198,0:198,1:B$:B$"Y"B$"N"1380nCP1B$"Y"53269,0:"    "$ 3)"   "K 3)"   "r 3)"   " 3)"   " 3)"   " 3)" $(Z)"JKZ1:K0L1((1)20)1:B$::YY8:16303"TL1K20:B$::L1((1)20)1:B$::YY8F"^K(B$):L1K"h(B$,L,1)" "N2,0:N,3:N1,YY:PR:"-":YYYY1::1660"rN2,0:N,3:N1,YY:" ":YYYY1:"|" **** ML DATA * 2,208,136,202,224,90,208,3,76,141,3,32,182,3,76,1208$ 3,202,202,202,142,4,208,238,250,7,238,250,7,173,250,7u$ 201,201,208,5,169,193,141,250,7,173,249,7,141,172,2,96$ 173,250,7,141,172,2,96,234,234,234,169,3,141,170,2,169$ 255,141,168,20,0,84,0,0,0,0,0,48,16,12,0,80& 0,0,16,0,0,16,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,0,84V&& 0,0,0,0,0,84,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0,1,1&0 0,1,1,0,0,84,0,0,0,0,0,48,84,12,0,16,0,0,16,0,0,16,0,0&: 0,0,0,40,0,0,16,0,0,16,0,0,40,0,0,0,0,0,l 0,0,4,0,0,40,0,0,128,0,1,85,0,0,0,0,0,84,0,1,1,0,1,10(v 0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1o( 0,1,1,0,0,84,0,0,0,170,0,48,128,12,0,168,0,0,2,0,0,2,0,0( 130,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0( 84,0,0,0,0,0,870,0,49,1,12,0,1,0,0,21,0,0,1,0,1* 1,0,0,170,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0O* 84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0* 0,126,0,0,60,0,0,60,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0* 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0i/ooff,charromon * lda r6510 and #$fb sta r6510 * *copycharactersintoram * lda #chrbas sta mvsrce+1 * lda #newadr sta mvdest+1 * lda #tablen sta lenptr+1 *  * *setciabitstooutputs * lda c2ddra ora #3 sta c2ddra * *switchtouppercase * lda #142 jsr chrout * *clearramforchrmemory * lda #48 sta fretop sta memsiz * *turnoffkbinterrupttimer * lda ciacre and #$fe sta ciacre * *switch12)WH$(13):""11)WH$(9)A"WINS!"#A1SC(3)SC(3)1:SC(5)SC(5)SC(1)L A2SC(4)SC(4)1:SC(6)SC(6)SC(2)Y53269,0""8)"GAMES WON"19)"TOTAL POINTS"(""4);WH$(9)"1:"SC(3)25)SC(5)2""4);WH$(9)"2:"SC(4)25)SC(6) <xB$"Y"53269,0::460""7)""K6)"  ߒ USED LETTERS"}5)"  ߒ "4)"  "3)"   " 3) " 4)" "!5)" CATEGORY "9!"6)" "s!,7)"î "WH$(9)"1:":7)" "!67)"ý "WH$(9)"2:"!@Z((1)5)1:N2,0:N,22:N1,10:PR:""CG *** # 162,115,160,140,142,2,208,140,4,208,136,202,224,90,208,9E# 202,202,202,142,2,208,76,91,3,32,182,3,76,64,3,238# 249,7,238,249,7,173,249,7,201,200,208,5,169,192,141,249# 7,173,27,212,201,128,16,56,162,115,160,140,142,4,208,140#KKKK*startmove * ldy #0 ldx lenptr+1 beq mvpart mvpage lda (mvsrce),y sta (mvdest),y iny bne mvpage inc mvsrce+1 inc mvdest+1 dex bne mvpage mvpart ldx lenptr beq mvexit mvlast lda (mvsrce),y sta (mvdest),y iny dex bne mvlast mvexit * *swit * *startmove * ldy #0 ldx lenptr+1 beq mvpart mvpage lda (mvsrce),y sta (mvdest),y iny bne mvpage inc mvsrce+1 inc mvdest+1 dex bne mvpage mvpart ldx lenptr beq mvexit mvlast lda (mvsrce),y sta (mvdest),y iny dex bne mvlast mvexit * *sKK,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,192,248f4 15,128,0,15,128,0,15,191,128,15,255,224,15,255,240,15,227,248> 15,193,248,15,193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0@ 0,03,240,7,255,240,3,255,224,0,255,128,KKKKKchi/obackin * lda r6510 ora #4 sta r6510 * *turntimerbackon * lda ciacre ora #1 sta ciacre * *setvicmemorycontrolregister * clc lda memreg and #$f0 adc #$0c sta memreg * rts * end * blen sta lenptr lda #>tablen sta lenptr+1 * witchi/obackin * lda r6510 ora #4 sta r6510 * *turntimerbackon * lda ciacre ora #1 sta ciacre * *setvicmemorycontrolregister * clc lda memreg and #$f0 adc #$0c sta memreg * rts * end * blen sta lenptr lda #>tablen sta lenptr+1K0,0,0,0,0,0 * 8 *K  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0% * 6 *"* 0,0KKK