KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK ,76,250,158,173,3159,141,32,208,169,06141,24,212,169,30,141N32,159,76,26,159,0f0,10,173,2,159,240 16,173,3,159,141,32208,169,0,141,24,212169,0,141,2,159,1738,220,76,49,234,30!0,0,25559,20836,169,1K 5,9,176,141,35y4,169,186,141,36,43173,9,220,41,112,74K74,74,74,9,176,141b37,4,173,9,220,41y15,9,176,141,38,4173,11,220,41,159,20533,159,208,100,173,10220,41,127,205,34,159208,90,173,2,159,20836,169,1K  A$"P"PM1 ' 120,173,20,3,73,40> 141,20,3,173,21,3V 73,116,141,21,3,88n 169,0,141,8,220,96 173,35,159,240,121,160 31,173,32,208,153,0 %216,200,192,40,208,248 +173,11,220,41,16,74 174,74,74,9,176,201 7K KK  K 81,141,0,212169,23,141,1,212,16910,141,5,212,169,240K141,6,212,169,33,141eǞ4,212,173,32,208,141~͞3,159,169,255,141,2Ӟ159,206,32,159,208,38ٞ174,32,208,236,3,159ߞ208,14,173,4,159,141垃32,208,169,15,141,24랃212K 176,208,2,169,160,141# =31,4,173,11,220,41: C15,9,176,141,32,4U I173,11,220,41,128,240m O8,169,144,141,39,4 U76,93,158,169,129,141 [39,4,169,186,141,33 a4,173,10,220,41,112 g74,74,74,74,9,176 m141,34,4,173,10,220s41,1K FDSD J"AUDIO ALARM? (Y/N)"3 TA$:A$""340H ^A$"N"40680,0Z h40449:"":n r ** SUBROUTINE |A$(NUM):(A$)3FD((A$,2,1)):400 FD0 SD((A$,1))   ** SUBROUTINE "AM OR PM" A$:A$""440KKO LE,KNOCKOUT,ALARM CLOCK,GENERATOR,C-64 MENU< DOUBLE L NEWS,AHOY! NEWSHW * J *X 0,0,0,0,0,0,0,0,248,0,0,248,0,0,248,0,0,248,0,0,248,0,0,248,0,0,248b 0,0,248,0,0,248,15,128,248,15,128,248,15,128,248,15,193,248,15,255,240l 7,255,240, $ "":53280,0:53281,15:646,1S" *+*+*+*+* AHOY! NEWS *+*+*+*+*"]::" AVAILABLE AS OF THE DECEMBER"(" 1985 ISSUE, WILL BE THE BEST"2" GAMES DISK AND THE BEST" <" UTILITIES DISK. THESE FULLӌ " 1986 ISSUE WILL BE THE BEST"R " OF 1985 DISK, WHICH WILL INCLUDE"{ " THE BEST PROGRAMS PUBLISHED" " IN 1985. WATCH FOR OUR TIME" " BARRIER ADD FOR DETAILS."BEST" <" UTILITIES DISK. THESE FULL $ "":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 0,03,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0* * 8 *v  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,19 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 8,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0* * 8 *v  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,19  **** AHOY! SPEAKS ****; ***C-64/128 VERSION***X **BY MORTON KEVELSON**zx"":53280,0:53281,6:646,1}"PLEASE READ INSTRUCTIONS IN MAGAZINE..."DRT56577:DDR56579:DFL56578:DCB56576: C-64 USER PORT DDR,127: SET DRT  * . *> 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,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,0 * 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,62T CONTROL LINE HIGH, READY FOR NEXT% 0 :  ALLOPHONE DATAJ  23,27,5,3c  8,24,16,24,33,58,3z  25,31,43,52,55,3PLEASE READ INSTRUCTIONS IN MAGAZINE..."DRT56577:DDR56579:DFL56578:DCB56576: C-64 USER PORT DDR,127: SET DRT 3,255,224,0,255,128,0,0,0,0,0,0q * A *av 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,193,248 15,128,248,15,128,248,15,128,248,15,128,248,15,255,248,15,255,248 15,255,248,15,255,248,15,128,248,15,128,248,15,128,248,15,128,  DISKS"1 F" WILL INCLUDE THE BEST GAMES AND"\ P" THE BEST UTILITIES EVER PUB-" Z" LISHED IN AHOY! SEE OUR TIME" d" BARRIER ADD FOR DETAILS AND" n" PROGRAMS." x: " ALSO AVAILABLE AS OF THE JAN."#  **** AHOY! SPEAKS ****; ***C-64/128 VERSION***X **BY MORTON KEVELSON**zx"":53280,0:53281,6:646,1}"PLEASE READ INSTRUCTIONS IN MAGAZINE..."DRT56577:DDR56579:DFL56578:DCB56576: C-64 USER PORT DDR,127: SET DRT TER"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  FOR OUTPUT A(DFL) 4< (DFL),A: SET BIT 2 FOR INPUTG 3110X **SPEAK!!**g  I1 17o  X  (DRT)127 2020  DRT,X 3100  I:  DCB,(DCB)251: SET CONTROL LINE LOW, UTTER ALLOPHONE & DCB,(DCB)4: SEoSO 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 2,1,255,0,0,0,0,0,0,0% * 6 *M* 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,192,2484 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@ FOR OUTPUT A(DFL) 4< (DFL),A: SET BIT 2 FOR INPUTG 3110X **SPEAK!!**g  I1 17o  X  (DRT)127 2020  DRT,X 3100  I:  DCB,(DCB)251: SET CONTROL LINE LOW, UTTER ALLOPHONE & DCB,(DCB)4: SE ,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255? 192,0,0,0,0,0,0K * 9 * 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 24T CONTROL LINE HIGH, READY FOR NEXT% 0 :  ALLOPHONE DATAJ  23,27,5,3c  8,24,16,24,33,58,3z  25,31,43,52,55,3PLEASE READ INSTRUCTIONS IN MAGAZINE..."DRT56577:DDR56579:DFL56578:DCB56576: C-64 USER PORT DDR,127: SET DRT 248 0,0,0,0,0,0 * N *X 0,0,0,0,0,0,31,128,248,31,192,248,31,224,248,31,224,248,31,240,248 31,248,248,31,248,248,31,124,248,31,124,248,31,62,248,31,62,248 31,31,248,31,31,248,31,15,248,31,15,248,31,7,248,31,3,248,0,0,0,0,0,0 #"":53280,0:53281,6:646,10 SA49152gI100148:ZZ0:J18:A:SA,A:SASA1:ZZZZA:JA: ZZA CKCKZZ::50(" ERROR IN LINE #";I:2 SACK1377 49152d 169,90,141,2,3,169,192,141,907 e 3,3,160,0,185,37,192,24 ,0,0,0,0,0"Ń0,0,0,0,0,0(Ń0,0,0,0,0,0 .Ń0,0,0,0,0,0 4Ń0,0,0,16,0,02 :Ń12,0,0,16,0,0C @Ń0,0,0,0,0,0T FŃ0,0,0,0,0,0e LŃ0,0,0,0,0,0v RŃ0,0,0,0,0,0 XŃ0,0,0,0,124,0 ^Ń0,254,0,127,254,0 dŃ127,254,0,60,248,0 jŃ30,124,0,15,0,00  A0A1:"SKETCHER.O",8,1, 32768 'L$"":H53280,6:53265,(53265)239r I122:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I1254412  193,76,63,192,230,251,208,2,1215? 230,252,96,173,134,2,160,0,1047g 153,0,216,200,192,21,144,248,1174 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,1 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$ B11 175 150 A2 ,170,177,251,1371+ 201,34,208,8,173,167,2,73,866R 255,141,167,2,173,167,2,208,1115y 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 pŃ15,0,0,31,224,0 vŃ63,224,0,63,240,0!|Ń63,224,0,31,224,0#!Ń15,0,0,15,0,0:!Ń30,124,0,60,248,0S!Ń127,254,0,127,254,0h!Ń0,254,0,0,124,0y!Ń0,0,0,0,0,3!Ń224,0,7,240,1,255!Ń240,3,255,240,7,135!Ń192,15,3,224,15,0!Ń0,31,2 1,133,255,32,72,192,11249 t 160,2,177,251,197,254,240,6,1287b u 32,105,193,24,144,239,200,177,1114 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, B.: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 0,820+ f 6,32,210,255,200,208,245,169,1325R g 1,133,251,169,8,133,252,165,1112t h 0,141,167,2,96,18,32,73,529 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,1 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)" "::P 64 BUG REP,FLANKSPEED,F-SPEED OVER,INSTA BUG 64,SKETCH BOOT RECEIVER,SEQUENTIAL REC,ASCII TRANSMITTE,SEQ TRANS,STREAMER FONT TALKING CLOCK,C-64/128 BABBLER,INFRARAID,MICROSIM,MARTIAN MONSTER HAUNTED CAST 24,0,63,224!Ń0,63,240,0,63,224"Ń0,31,224,0,15,0"Ń0,15,0,0,30,1240"Ń0,60,248,0,127,254G"Ń0,127,254,0,0,254Z"Ń0,0,124,0,0,0k"Ń0,0,0,0,0,0"Ń0,62,0,0,127,0"Ń63,255,0,255,255,3"Ń224,124,7,192,62,31"Ń224,0,63,224,0,63"63,160,0,103527,193,240,6,915; 153,4,4,200,208,245,234,165,1213a 20,133,99,165,21,133,98,162,831 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 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,2  4,160,0,185,127,193,240,6,915; 153,4,4,200,208,245,234,165,1213a 20,133,99,165,21,133,98,162,831 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 2 :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: 252,1291$ z 169,0,160,0,169,0,141,167,806L { 2,240,38,133,255,177,251,208,1304q | 27,165,255,41,240,74,74,74,950 } 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}Ń240,0,63,224,0,31"ƃ224,0,15,0,0,15#ƃ0,0,30,124,0,60!# ƃ248,0,127,254,0,1276#ƃ254,0,0,254,0,0C#ƃ124,0,0127,254,0h!Ń0,254,0,0,124,0y!Ń0,0,0,0,0,3!Ń224,0,7,240,1,255!Ń240,3,255,240,7,135!Ń192,15,3,224,15,0!Ń0,31,2 64,1021) m 160,0,177,251,240,1,96,200,1125P n 177,251,240,1,96,104,104,76,1049t 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,2 224,193 138,240,19,173,4,197'240,14,173,16,197,41A12,74,74,168,185,219Z196,168,208,8,189,0s220,41,15,73,15,168189,0,197,24,121,179196,201,68,144,7,201253,176,3,157,0,197189,2,197,24,121,190196,201,71 8 0208,237,173,15,197,722 6152,73,255,168,104,153M <255,61,152,73,255,168j B200,208,208,169,128,133 H251,169,61,133,252,169 N252,133,253,169,63,133 T254,169,4,141,15,197 Z162,0,160,2,177,251 `145,253,136,16,249,24 f16 16,208,20,138,41,3 ƒ24,105,1,41,3,141&ƒ15,197,138,41,12,13Aƒ15,197,76,198,194,138Yƒ41,12,41,15,153,16vƒ197,170,189,163,196,153ƒ7,197,185,13,197,201ƒ10,176,13,138,41,8ƒ74,74,74,170,189,209ƒ196,153,9,197,136,16ƒ 98,254202,208,244,169,64,160-28,153,85,4,153,117H 7,136,208,247,169,125c&133,253,169,4,133,254|,162,19,169,93,160,02145,253,160,29,145,253824,165,253,105,40,133>253,165,254,105,0,133D254,202,208,230,169,160J Ã189,213,196,168,169,11 Ã153,0,4,169,15,200%Ã153,0,4,104,104,76AÃ251,194,232,136,16,198YÃ162,0,160,10,24,32tÃ240,255,169,1,141,134Ã2,174,24,197,169,0Ã32,205,189,162,0,160Ã28,24,32,240,255,169Ã0,141,134,2,174,25 ,138,41,15,9Pă48,141,61,4,173,13Vă220,41,1,240,3,76,\ă49,234,76,188,254,142Dbă8,147,144,80,76,65[hă89,69,82,83,63,32qnă40,49,47,50,41,0tă147,76,69,86,69,76ză63,32,40,49,47,50ă41,0,80,82,69,83ă83,32,70,55,32,70ă7 ,144,7,201 188,176,3,157,2,197(ƒ202,16,172,173,30,208A ƒ240,9,32,58,195,173[ƒ30,208,76,24,194,141vƒ23,197,238,18,197,173ƒ18,197,41,3,240,3"ƒ76,233,194,160,1,185(ƒ16,197,41,3,170,189.ƒ223,196,153,19,197,1894ƒ227,19 5,251,105,3,133,251& l165,252,105,0,133,252@ r56,165,253,233,3,133[ x253,165,254,233,0,133w ~254,232,224,21,208,216 230,251,208,2,230,252 198,253,208,2,198,254 206,15,197,208,197,160 0,185,231,196,153,0 212,200,192,25 155,162,14,160,230,136ƒ208,253,202,16,248,173-ƒ26,197,208,3,76,177Gƒ193,169,0,141,11,212aÃ32,217,195,162,1,189{Ã16,197,41,12,168,185 Ã163,196,157,248,7,152Ã41,8,74,74,74,168Ã185,209,196,157,250,7Ã202,16,228,162,23, 141,85,4,141,114,4P141,117,7,141,146,74V169,0,160,3,153,58O\216,136,16,250,169,58gb141,59,4,160,3,185h201,196,153,0,197,185n205,196,153,7,197,136t16,241,169,0,141,40z208,141,42,208,160,2153,8,220,136,16,250 Ã197,169,0,32,205,189 Ã96,160,21,140,4,212$Ã136,140,4,212,96,32>Ã228,255,201,49,240,4WÃ201,50,208,245,41,1pÃ96,169,1,141,25,208Ã173,26,197,208,89,173Ã0,197,141,0,208,141ă4,208,173,2,197,141ă1,208,141,5,208,173 9,82,32,65,32,82ă69,77,65,84,67,72 ă0,1,2,4,8,16&ă32,64,128,18,14,245Că255,254,255,245,246,247`ă246,250,249,248,249,250wă252,253,252,0,0,0ă0,255,255,255,0,1ă1,1,0,255,1,0ă0,255,1,0,0,255ă1,70,250,73,185,245 6,153,21,197,136:ƒ16,235,172,17,197,173-@ƒ16,197,174,2,197,236EFƒ3,197,144,13,13,21_Lƒ197,72,152,45,20,197yRƒ168,104,76,97,194,45Xƒ19,197,72,152,13,22^ƒ197,168,104,174,0,197dƒ236,1,197,144,11,9jƒ8,72,152,41,247,168pƒ10 ,208,245 169,1,141,26,197,1204 169,127,141,13,220,169N 1,141,26,208,169,235i 141,18,208,169,27,141 17,208,169,241,141,20 3,169,195,141,21,3 88,169,11,141,32,208 141,33,208,169,0,141 21,208,169,97,160,19632, 160$Ã9,24,32,240,255,169*Ã130,160,196,32,30,17130Ã32,228,255,201,136,208N6Ã249,76,207,192,141,15i<Ã197,174,23,197,208,12BÃ162,128,142,11,212,232HÃ142,11,212,142,23,197NÃ160,1,185,13,197,9TÃ6,153,13,197,185,16ZÃ197,41, 160,15,153,11,197,13616,250,169,1,141,399208,141,41,208,174,60S4,224,32,240,249,169m15,141,23,208,141,29208,141,21,208,32,217195,32,174,195,173,30208,162,1,189,13,197240,10,222,13,197,18911,197,168,76, ă1,197,141,2,208,141ă6,208,173,3,197,141!ă3,208,141,7,208,160: ă3,185,7,197,153,248S&ă7,136,16,247,173,10m,ă220,240,14,201,2,1442ă3,238,26,197,41,158ă9,48,141,58,4,173>ă9,220,170,41,240,74Dă74,74,74,9,48,141Jă60,4 ă250,244,251,244,251,4ă8,10,28,6,5,10ă9,5,6,9,10,251)ă255,255,255,4,0,0<ă0,0,143,0,0,0Oă1,10,0,41,0,0bă0,34,0,0,32,0să0,0,0,0,0,0ă0,15,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 4,76,124,194,41,247vƒ72,152,9,8,168,104,|ƒ141,16,197,140,17,197Fƒ160,1,185,16,197,170`ƒ152,240,29,173,4,197yƒ240,24,173,3,197,56ƒ237,5,197,205,2,197ƒ176,39,24,109,6,197ƒ205,2,197,144,30,76ƒ175,194,185,0,220,41ƒ 30,171,32,227,195141,4,197,240,21,169:116,160,196,32,30,171V32,227,195,170,189,161p196,141,5,197,10,1416,197,169,147,32,210255,169,0,133,253,169219,133,254,162,4,160231,169,7,145,253,136208,251,145,253,1 12,74,74,170`Ã189,215,196,153,11,197!fÃ136,16,231,173,15,197:lÃ41,12,240,104,162,0SrÃ160,1,173,15,197,57nxÃ211,196,240,46,169,15~Ã153,13,197,169,243,153Ã9,197,153,250,7,254Ã24,197,189,24,197,201Ã100,144,23,238,26,197 255,,7,252,,15,224,,62,,,,,,,,,,,,,,12,,,30,,,63Mu0,,109,128,,127,192,,255,192,1,255,224,1,255,240,3,255,240,3,255v240,3,255,248,3,255,248,1,255,248,,255,240,,63,248,,15,252,,,254w0,,31,,,,,,,,,,,,,,,,,,7,128,,31,192,,127,224,1x255,24 ((S(Z1,0)),2,1)-RDS$"NONE":Z0DS$"#"(S(Z,1))((S(Z,0)),2,1)[S"STAIRS: UP-"US$" DOWN-"DS$TTR$"NONE":TR(Z,0)10TR$"#"(TR(Z,1))((TR(Z,0)),2,1)U"TREASURE LOCATION: "TR$:VS32,0:S33,0:" ,240,4,32,20,192,96,173,,208,201,155,144@!198,201,190,144,1,96,173,170,2,201,1,208,186,169,3,141,172,2,96,173,!208,201,29,240,29,173,173,2,201,2,240,9,169,1,141,173,2,32,24,192,96!169,250,141,248,7,169,1,141,175,2,76,218,192,173,16,208,9,25 144,,,,,,,'h252,,3,51,,15,255,192,,168,,,168,,,168,,,252,,3,255,,3,255,Zi11,255,,11,255,128,,,128,3,255,,3,207,,,252,,j252,,,170,,,,,,,,144,,,,,,,,63,,,204,192,3,255,240k0,42,,,42,,,42,,,63,,,255,192,,255,192,,255,224,2,255,224,2 l0 7,240,6,238,248,7,76,222,193,169,2,141,175,2,173,248,7C%201,245,240,226,206,248,7,169,,141,31,208,141,30,208,96,173,177,2%201,1,208,103,238,178,2,173,178,2,201,2,208,93,169,,141,178,2,173,16%208,9,254,201,255,208,9,173,16,208,9,253,201,255,  KNOCKOUT"(147)(159)@53280,0:53281,0:V53248Y A832895:Z:A,Z:vV,140:V1,111:2040,13V23,0:V29,1:V39,3:V21,1P214,7::19)"N O C K":21)"U T"Z214,12::14)"READING DATA" @191,158,0,206,56,0,78 0,7,255,240,9,255,192,14,255,48,22,252,240,27,115,240,29,79,240[y30,63,240,31,127,240,31,127,224,31,127,192,15,127,,7,124,,3,112,,1hz64,,,,,{1,254,2,253,4,251,8,247,16,239,32,223,64,191,128,127,222,1,208,96,254|1,208,96,189,,208,201,,20 "11)"THE HAUNTED CASTLE<W" PRESS THE FIRE BUTTON WHEN READY"(142)(8)UX((56320)16)1688]Y11Z153:SO5,8:SO6,255:SO4,23:SO15,9:A125[S39,R(16):S38,R(16):156::SO6,15:S21,0\""11)"TH 4,201,255 "240,218,173,1,208,201,145,144,87,201,168,144,1,96,173,171,2,201,1,208h"75,169,4,141,172,2,96,173,,208,201,59,240,29,173,173,2,201,1,240,9"169,2,141,173,2,32,44,192,96,169,245,141,248,7,169,1,141,175,2,76,32"193,173,16,208,9,2 ,,,255,192,,243,192,,63,,,63,,,170,,,,,,,,144,,,,Hm0,,,63,,,204,192,3,255,240,,42,,,42,,,42,,,63,,,255,192n0,255,192,,255,192,,251,192,,8,,,255,192,,243,192,,243,192,o243,192,2,170,128,,,,,,,144,,,,,,,,63,,,204,192,3,255p240,,42,,,42,, 208,39,173,16,208,9 &254,201,255,240,9,173,16,208,9,253,201,255,240,8,173,2,208,205,,208h&144,13,162,2,32,24,192,169,252,141,249,7,76,64,194,162,2,32,44,192&169,251,141,249,7,173,3,208,205,1,208,176,8,162,2,32,20,192,76,85,194&162,2,32, ,112 H0,78,224,0,79,192,0,79: P224,0,79,112,0,78,56,0V X206,28,0,191,143,0,0,0p `0,0,55,252,0,78,78,0 h156,39,0,156,39,0,156,39 p0,156,39,0,156,39,0,156 x39,0,78,78,0,39,252,167  STORE ML  A49152 50714:Z:A,Z:CKCK 8,9,173,16,208,61,1,192,141,16,208,222,?}208,96,189,,208,201,255,208,9,173,16,208,29,,192,141,16,208,254,~208,96,162,,142,172,2,142,176,2,173,31,208,9,254,201,255,208,6,169,5141,172,2,96,173,30,208,9,254,201,255,208,6,169,6,141,172,2,96,17 E GHOST GOT YOU!-]9)"PUSH UP TO PLAY AGAIN":11)"PUSH DOWN TO STOPE^A(56320):A126]_(A125)194:2048p`(49759)96aA1568016255:B:A,B::A4915249759:B:A,B:bc0,,,,,,,252,,3,51,,15,255,192,,168,,,168,,,1 54,201,255,208,218,173,1,208,201,145,144,17,201,168E#144,1,96,173,169,2,201,1,208,5,169,2,141,172,2,96,173,176,2,208,29#238,174,2,173,174,2,201,5,208,19,169,,141,174,2,173,173,2,201,1,240#10,201,2,240,56,76,222,193,76,222,193,173,175,2,201, ,42,,,63,,,255,192,3,255,192,11,255,240,8,255Gq248,,,8,,255,192,,243,192,3,192,240,3,192,60,10,128,168,,,,,r0,144,,48,,,120,,,252,,1,182,,1,254,,3,255,,3,255,128,7,255s192,7,255,192,15,255,224,15,255,224,7,255,224,7,255,192,3,255,128,3t16,192,96,32,231,193,32,64,192,32,88,193,96'ASOSO23:A,0::='SO15,C:B11602:T029::SO1,B:S40,R(16)E':e'SO1,R(256):SO,R(200):'A17:" "38)" ";::3,16%208,9,254,201,255,208,9,173,16,208,9,253,201,255, Z:" CK168329"ERROR IN DATA":- 49152G 169,0,160,63,153,192` 60,136,16,250,160,0y 185,27,197,153,0,61 200,208,247,162,0,142 15,197,185,0,61,240 22,10,144,11,72,173 $15,197,29,153,196,141 *15,197,104,232,224, 3, 220,41,15,201,14,240,21,201,13,240,53,201,11,240,85,201,7,240,6,169,1f 141,176,2,96,76,18,193,173,1,208,201,88,240,4,32,16,192,96,173,,208 201,155,144,234,201,190,144,1,96,173,168,2,201,1,208,222,169,1,141 172,2,96,173,1,208,201,223 68,,,252,,31d255,,3,255,192,15,255,224,47,255,32,32,,,3,255,,3,207,,15,3,192,60me3,192,42,2,160,,,,,,,144,,,,,,,,252,,3,51,,15,255,192,f168,,,168,,,168,,,252,,3,255,,3,255,,3,255,,3,239,,,32,,3g255,,3,207,,3,207,,3,207,,2,170,128,,,,,,, 1,240,7,201,2,240!$21,76,222,193,169,1,141,175,2,173,248,7,201,248,240,6,206,248,7,76i$222,193,169,2,141,175,2,173,248,7,201,250,240,226,238,248,7,76,222$193,173,175,2,201,1,240,7,201,2,240,21,76,222,193,169,1,141,175,2,173$248,7,201,240,48,183,32,210,255,208%& 245,132,73,169,14,141,134C0 2,152,24,101,95,197,122a: 240,16,200,24,105,1,197D 122,208,13,177,95,240,4N 201,58,208,5,169,1,141X 134,2,164,73,96,173,229b 197,133,69,173,230,197,133l 70,32,231,FM,U,D$(3,1),W$(3),W(3),TR(10,1),S(10,1),S$(1):A03:D$(A,0):R(X)((1)X):SD2040:DR685:S53248:SO54272:SO24,15S39,9:S16,0:""," SD,245:""TR(Z,1)10:84:153:SO5,8C"SO6,255:SO4,23:C3.5TC:154:S21,1:SO6,15S#S30,0:16$(TC0)90:TCTC1:S21,1:689,0:AR(10):BR(10)%CR(11):TR(C,0)1037&TR(C,0)A:TR(C,1)B:S30,0:80:16'S31,0:CR(3):A0C( ,168,76,174 , 167,169,32,162,255,232,157<6 0,4,157,250,4,157,244Z@ 5,157,238,6,224,250,208zJ 239,162,255,232,181,217,9T 128,149,217,224,25,208,245^ 169,14,141,32,208,169,6h 141,33,208,169,14,141,134r 2,24,162,1,134,214 80:81:79& M:(U)116,17,19,21,23,25,32W YY1:A07:S1,(S1)1:P::S1,255:44~ A035:S1,(S1)1:P::39:79 XX1:A07:XR,0:SR:P::S,0:S16,0:44 A035:XR,0:SR:P::39:79 YY1:A024:S1,(S1)1:P: TR2A3BST$"":A16:SB$"":B1A:ST$ST$" ":SB$SB$"":CST$ST$SB$::S$(0)"":S$(1)"DS$(1)S$(1)"":ST$ST$"":75:A13:BR(10)ECR(10):DR(11):TR(D,0)BTR(D,1) 176,160,0,152v 145,71,174,237,197,200,138: 145,71,96,173,231,197,133Y 69,173,232,197,133,70,32x 231,176,169,237,141,40,3 169,246,141,41,3,169,237 141,40,3,160,0,177,71 41,32,240,5,169,239,141 40,3,177,71,41,64, ,"Z S,171:W$(0)D$(0,0)" ":W$(1)D$(1,0)"     ":A(TI) S1,158:W$(2)D$(2,0)" ":W$(3)D$(3,0)"     " S27,1:D$(0,1)D$(0,0)" ":D$(1,1)D$(1,0)"     ", S28,1:D$(2,1)DBR(4):(680B)140&)680B,0:CLCL1:CL3ACF*:A03:W(A)1W(A)0::^+D$(A,(680A))::,S21,1:CL0:A03:680A,1::X0683,0:W(3)1:CLCL1-X9681,0:W(1)1:CLCL1.Y0680,0:W(0)1:CLCL1/Y9682,0:W(2,160| 0,132,211,32,240,255,1693 0,133,19,133,184,165,57Q 133,20,165,58,133,21,32o 19,166,144,44,160,2,132 15,177,95,170,200,177,95 132,73,32,205,189,169,32 164,73,41,127,32,210,255 201,34,208,6,165,15,73 :44:S1,89* A012:S1,(S1)1:P::39:79\ XX1:A07:XR,0:SL:P::S16,1:S,82:44 A033:XR,0:SL:P::39:79 SS116,26,29 ZZ1:SD,250:DR,1:687,1:S,127:S1,119:A15 S,(S)16:S1,(S1)8:T09:::S,CAA1:.FTR(D,0)B:TR(D,1)C::A19:S(A,0)R(10):S(A,1)R(10)YGS(A,0)TR(A,0)S(A,1)TR(A,1)AA1:HS(A,0)TR(A1,0)S(A,1)TR(A1,1)AA1:IS(A,0)S(A1,0)S(A,1)S(A1,1)AA1:J:KA010:TR(A,0)10:TR(A,1)10::240  10,169,188,141,41,3,169( 54,141,40,3,200,177,71I 174,237,197,96,173,233,197i 133,69,173,234,197,133,70 32,231,176,160,0,177,71 141,228,197,141,238,197,200 177,71,141,227,197,13,238  197,141,238,197,96,139,2$(2,0)" ":D$(3,1)D$(3,0)"     "s D$(1,0)D$(1,0)"":D$(3,0)D$(3,0)" D$(2,0)D$(2,0)"":D$(0,0)D$(0,0)"":S38,7 "PLEASE WAIT, READING DATA.":96:66:862 ")1:CLCL10A03:W(A)1W$(A):50$1D$(A,1)A2:(TC3)76:TR1TR0]3TR(Z,0)XTR(Z,1)Y61s4TR2TR0:689,05SS0566"";:A119:" ";7:"":SS08Z059 9S(Z,0)255,133,15,200,240,7,32& 60,197,177,95,208,11,174E 237,197,169,14,141,134,2f 108,225,197,16,220,201,255 240,216,36,15,48,212,56 233,127,170,132,73,160,255 202,240,8,200,185,158,160 16,250,48,245,200,185,158 160:S1,054:SS0:S,238:S1,174:15SSD,245:DR,2:687,1:ZZ1:S,238:S1,174:A15S1,(S1)8:B(S)16:B270B15:S16,(S16)1S,B::54:SS0:S,127:S1,119:S16,0:15 TR116,33,36 !TCTC1:80:S30,0:TR(Z,0)10: LX0Y0Z0'MS21,0:""12)"CONGRATULATIONS!YN"YOU HAVE FOUND ALL THE TREASURES!":93O"ROOM #"(Y)((X),2,1)" LEVEL"Z" ":16P"TREASURES:"TC:QUS$"NONE":Z10US$"#"(S(Z1,1));27 0,0,197,210,212,210,197  204,40,196,128,01,96,173,231,197,133Y 69,173,232,197,133,70,32x 231,176,169,237,141,40,3 169,246,141,41,3,169,237 141,40,3,160,0,177,71 41,32,240,5,169,239,141 40,3,177,71,41,64,  ";:157:U684n "":157:"   2023,160:56295,11:A679695:A,0::DR,2:687,1 SL49176:SR49196:XR781:M49750:P49496:S21,1 44:39:S30,0:S31,0:XS(Z,1)YS$(1)ST$:SS2:63:Z1063A;S(Z1,0)XS(Z1,1)YS$(0)ST$:SS1I<63=S40,5:SD1,253:S2,173:S3,150:S21,3:TR1:689,0>52?TR1R(100)24(X0Y0Z0)@S2,173:S3,150:S40,1:SD1,251:S21,3:689,1:L.  Э)Щ | ` Z`  Э)Щ @ ` Z` YL.  L. 'wȑȭw >L. 'wȱw >L.  1w Lr >r 2 >w d56,158:Bn"ONE MOMENT PLEASE..."lxAD4044940739:OP:CKCKOP:AD,OP:CK31161"ERROR IN DATA STATEMENTS.":PM0:"WHAT IS THE HOUR";H:H0H23140H0H12:180H12HH12:PM1 PM0HAR.>  CLEAR FONTARE YOU SURE? (Y/N) CURSOR VELOCITY (0-9) SAVE> LOAD>  <<<<< DISK ERROR >>>>>  <<<<< DEVICE NOT PRESENT >>>>> PRINT>ABCDEFGHIJKLMNOPQRSTUVWXYZ!?$0123456789 STREAMER FONT BY BOB SPIRKO  `r=  r `  rL WsvIL. O jl #!$$%*&?'A[$0:%LT(LLL'LLH8AhLH8hLO POO!Џ`O OLT   **** AHOY! SPEAKS ****; ****VIC-20 VERSION****X BY **MORTON KEVELSON**DRT37136:DDR37138:DFL37149:DCB37148: VIC-20 USER PORT DDR,127: SET DDR FOR OUTPUTA(DCB)15(DCB),160 A: SET BIT 2 FOR INPUT 3110 ' *******************************M * *s * -- INFRARAID -- * * ERROR TRAPPING FOR THE C-64 * * * * AUTHOR: TIMOTHY VANDEVENTER *  * 3851 E.  L.  'w >r Lr $ LwL. iPi`8P`wЭwUL{ILM) IЩ`wЭw LIL) IЩM`vv(v`vv'v`rv .r  A$:A$""250# A$"N"40739,0Z PM0:"WHAT IS THE ALARM HOUR";AH:AH0AH23270t AH12AHAH12:PM1 "PM0420 ,NUMAH:370:40737,128PM16FDSD 6 "WHAT IS THE ALARM MINUTE";AM:AM0AM59270 @NUMAM:370:40738,16_ 00`````00i(i`8(`ׅ()I >` 'I >L.  @# 28 FOREGROUND CHAR.> REVERSE? (Y/N) BACKGROUND C / A\ J sv WL. 'x8xqwqxqwx >L. 'iۅ ww >8(L. / AIЩ J  KÅ J Y N / Aԅ J   **SPEAK!!**  I1 17&  X>  (DRT)127 2020J  DRT,XT 3100^  I:  DCB,(DCB)251: SET CONTROL LINE LOW, UTTER ALLOPHONE & DCB,(DCB)4: SET CONTROL LINE HIGH, READY FOR NEXT 0  ALLOPHONE DATA  23,2EATON HWY. *1  * SUNFIELD, MI 48890 *W  * *} ******************************* 53281,0:53280,0:"" I5017650670 A:CSCSA:LN100((I50176)7)10 A255A0:"BAD DATA IN LINE"LN .r .r .rmrvm` xw 1 ) ) )xx`rx) rr Lrww` xw 1 x x xxx`xw=x Lw`  V  V`  V  V` /420 H12PM PM; NUMH:370:56331,128PM16FDSDf "WHAT IS THE MINUTE";M:M0M59140 NUMM:370:56330,16FDSD "WHAT IS THE SECOND";S:S0S59140 NUMS:370:56329,16FDSD "CONTINUOUS TIME DISPLAY? (Y/N)" X"INFRARAID(50176)",8,1 Z98@ \43,0:44,196:45,239:46,197\ ^"INFRARAID(50176)",1,1x b43,1:44,8:45,1:46,8 c"TO ACTIVATE, ENTER SYS 50176": d 173,0,3,205,235,197,240 n 3,141,225,197,173,1,3 x 205,236,197,240,15,141, %ΛI WL.  ɠɁ `܈` `( ۩ ` ` ` / A J `I / A J Y WIL WIL. Э)ЭЩ2L. ' >97,5,3  8,24,16,24,33,58,31  25,31,43,52,55,3***X BY **MORTON KEVELSON**DRT37136:DDR37138:DFL37149:DCB37148: VIC-20 USER PORT DDR,127: SET DDR FOR OUTPUTA(DCB)15(DCB),160 A: SET BIT 2 FOR INPUT 3110: (I,A:LN;:XX1:X7X0:# 2Z <CS65731:"CHECKSUM ERROR. CHECK ALL DATA.":{ F:"INFRARAID LOADED!" P"DO YOU WISH TO SAVE TO DISK OR TAPE?" RC$:C$"T"C$"D"82 TC$"T"92 V43,0:44,196:45,239:46,197I A L 0:8/8 I WL. ؅`iۅ`i(i`8(`ׅ()I >` 'I >L.  @# 28 FOREGROUND CHAR.> REVERSE? (Y/N) BACKGROUND C97,208,45,104,104,96,224* 20,208,10,41,2,240,50J 173,238,197,208,29,96,224e 4,208,10,41,4,240,36 173,238,197,208,15,96,224  5,208,26,41,8,240,22  173,238,197,208,1,96,173  227,197,133,20,173,228,197 " 133,21,32,163226 197,173,235,197,141,0,36 173,236,197,141,1,3,32V 99,197,76,125,197,142,237u 197,32,189,197,32,99,197 224,128,240,6,165,58,201 255,208,3,76,17,197,32 125,197,240,74,224,15,208 12,41,1,240,66,173,238 1 << RR25-1 >>80u -=-=-=-=-=-=-=-=-=-=-=-=-=-=-T1u - RS-232 RECEIVER -o2u RUPERT REPORT #253u =-=-=-=-=-=-=-=-=-=-=-=-=-=-=4u RECEIVE AN ASCII PROGRAM FROM5u THE RS-232 PORT INTO MEMORY6u =-=-=-=-=-=-=-=-=-=-=-=-=-=-= << RR25-2 >>8 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=W - SEQUENTIAL RECEIVER -s RUPERT REPORT #25( =-=-=-=-=-=-=-=-=-=-=-=-=-=-=2 RECEIVE A SEQUENTIAL FILE< FROM THE RS-232 PORTF =-=-=-=-=-=-=-=-=-=-=-=-=-=-= P << RR25-3 >>; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[ - ASCII TRANSMITTER -y RUPERT REPORT #25 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- TRANSMIT ASCII FORM OF PROGRAM OVER THE RS-232 CHANNEL  =-=-=-=-=-=-=-=-=-=-  << RR25-4 >>8 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=Z - SEQUENTIAL TRANSMITTER -v RUPERT REPORT #25( =-=-=-=-=-=-=-=-=-=-=-=-=-=-=2 TRANSMIT A SEQUENTIAL FILE< TO THE RS-232 PORTF =-=-=-=-=-=-=-=-=-=-=-=-=-=-= P 81200T4100h" ":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   2061 ؅Ѝ{v Ѝ!Рϙיؙٙڈ᩹ A J ۩> >@ЍЍ'Щ*ЩЩ܍ЍЩЩݍР)й>>@Щ2Щ?Й? Nu (147);! Xu 2,2,0,(8)(0)C bu - GET UP TO 80 CHARACTERS -O lu 30120X vu L$j u "RUN 30000" u 631,19 : 632,13 : 633,13 : 198,3 : FILL KBD BUFFER u 2 : u == GET UP TO 80 CHARACTERS == u#2,C$ : C$"" 30120 u (147) Z 2,2,0,(8)(0)X d#2,J$ : (ST 8)0 100 : CLEAR THE RECEIVE BUFFER n"SEND FILE TO (1) PRINTER, (2) DISK, OR (3) SCREEN" : A$ xN(A$) N 150,160,180 110 : TRY AGAIN 1,4,4 : 190 : PRINTER "SA=-=-=-=-=-=-%  2,2,0,(8) : 2 : ; 2,(26):2: 2: -ADD THIS PROGRAM TO THE PROGRAM TO BE TRANSMITTED AND TYPE 'RUN 8' -WHEN THE LISTING IS DONE, -TYPE 'RUN 9' TO CLOSE THE FILE (147) Z 2,2,0,(8)(0)? d"ENTER THE -FILENAME- OF THEa n"SEQUENTIAL FILE TO BE SENT"j x F$ 8,8,8,F$",SEQ,R" #8, C$ : C$"" 140 SSST 2,C$; (C$)32 (C$)127 C$"*" C$; SS0 140 : NOT EOCAN 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@ЩЩ(Щ %Λ WL It),z t)$#t)  t)Lw L L LH L L ɝtjɅɍn_mu0:pA[kjTS-ON\JUTS!R"Q#P$O%NMɓLK L. L. L. L? C$(13) 301602 u C$(26) 2 : 2 : 30180I uL$L$C$ : 30120Y uL$(L$,79)_ u u DELETE LINES OF THIS PROGRAM u N30000 30200 10 : N : u"PRESS AND 21 TO DELETE THESE LINES";=-=-=-=-=-=-=-=-=-=VE WITH WHAT FILENAME";F$3 1,8,8,F$",S,W" : 190J 1,3 : SCREENa - RECEIVE DATA -| #2,C$ : C$"" 200 1, C$; C$(26) 200 1 : 1 2 : FROM THE RS-232 PORTF =-=-=-=-=-=-=-=-=-=-=-=-=-=-= P8@v8 iuL vu 2ЩЭuL. DЍ Щ!Lt0,8v8 iu 2ЩЭuL. vuL I L.  %Λ*LQ ' %Λ2ЩLQ L  %#F 2,(26) : 2 : 2 : 8-=-=-=-=-=-=-=-=-=-=-=Z - SEQUENTIAL TRANSMITTER -v RUPERT REPORT #25( =-=-=-=-=-=-=-=-=-=-=-=-=-=-=2 TRANSMIT A SEQUENTIAL FILE< TO THE RS-232 PORTF =-=-=-=-=-=-=-=-=-=-=-=-=-=-= P 8| x8xL3 L3 88| x8xL 81JJJq mqq .q .q|qi؅Ѝs8rsJnrrJJ~ei`(@i@i` A< J WIL. /I A*L4 L|LLQLLP L L L`L LLs L L L L L2 LsL{I{L. ɅɉɆɊɇɋɈLcLqLLLL#LLP28L. 16L. 16L. 04L. 04L. 'Ќ'Ю(Ќ(` J >O=  ( @i@i @ WIL L /I A3 J >8=  ( @i@iL=>? = `>  [>? >`>ө >LIЭvs / A J LO4  ɀ yyP( yyOL0Lw wLsv  L<`   L      Эɴ9ΛXL. IL )IЩЩ L.  L  %Эɴ1ΛL. IL^ ) Щ L.  L^ ; z zI{ LA N)Ldɴ|i8 L3 |i 8 L3 8( 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, 192, 230, 251, 208, 2 230, 252, 76, 43, 192, 76, 73, 78, 69, 32!  35, 32% X 828 1023 : Y: X,Y::W 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, 252, 169, 244, 160, 3, 32  30, 203, 16255, 32, 186, 255, 169, 0, 133G  63, 133, 64, 133, 2, 32, 189, 255, 32, 192z  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1, 208, 249  96, 32, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4,  53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ ( 1EN310 " ";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) 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 , 0, 169, 35, 160, 192, 32, 30, 171T  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, 230, 254, 32, 37, 193  234, 165, 253, 160, 0, 76, 13, 193, 133, 253"  177, 25 0, 0, 177, 251, 170, 230, 251, 208S  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, 138, 113, 251, 69, 254, 170"  138, 133,76, 195, 255, 147, 83, 67<  82, 69, 69, 78, 32, 79, 82, 32, 80, 82h  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138  113, 251, 69, 254, 170, 138, 76, 88, 192, 0  0, 0, 0, 230, 251, 208, 2, 230, 54272,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,T4100 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 "::"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$1, 208, 237, 165, 253, 41, 240, 74, 74T  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, 208, 2, 230, 64, 230  251, 208, 2, 230, 252, 76, 11, 192, 169, 153  160, 192, 253, 177, 251, 208, 226, 165, 253, 41R  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, 208, 2, 230, 64, 230  251, 208, 2,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, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4, (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(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"::"@"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:3070 32, 30, 171, 166, 63, 165, 64, 76K  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, 240, 6, 201  80, 208, 245, 230, 254, 32, 210, 255, 169, 4  166, 254, 160, 230, 252, 76, 74, 3, 169, 236H  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, 32, 35  32, 0, 0, 0, 0, 08, 133, 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:TA_lAHOY! JANUARY862A64 BUG REPVIC BUG REPFLANKSPEED F-SPEED OVERSKETCHER.OSKETCHER.SRECEIVERSEQUENTIAL RECKKASCII TRANSMITTESEQ TRANSSTREAMER FONTSEQUELA  TALKING CLOCK C-64/128 BABBLERVIC-20 BABBLERINFRARAID KK MICROSIM%HAUNTED CASTLE KNOCKOUTALARM CLOCK GENERATORRELOCATER.SRCMARTIAN MONSTER" INSTA BUG 64 KK SKETCH BOOT MENU C-64 AHOY! NEWS DOUBLE L NEWS ;0C-64/128 BABBMENU-VICKKKKKKKK 4,4. 4," "S 4," "x 4," " 4," Ϸ "4," SAVE "4," " 4," L  `nnn n  mm`JJJFf)) 8  @  % e e   % miee * *sketcher * org $8000 * color equ $10 base equ $2000 scroly equ $d011 vmcsb equ $d018 colmap equ $0400 * hmax equ 320 vmax equ 200 hmid equ 160 vmid equ 100 * scrlen equ 8000 maplen equ 1000 * tempa equ $fb tempb equ tempa+2 * tabptr equ tempa tabs dex bne partlp fini rts * *16-bitmultiplicationroutine * mult16 lda #0 sta prodl sta prodh ldx #17 clc mult ror prodh ror prodl ror mprh ror mprl bcc ctdown clc lda mpdl adc prodl sta prodl lda mpdh adc prodh sta prodh ctdown dex bne ax sta mpdl lda #>hmax sta mpdh jsr mult16 lda mprl sta tempa lda mprl+1 sta tempa+1 * *addproducttobase * clc lda #base adc tempa+1 sta tempa+1 * *multiply8*char * lda #8 sta mprl lda #0 sta mpr cs * start lda #$18 sta vmcsb * lda scroly ora #32 sta scroly * *selectgraphicsbank1 * lda $dd02 ora #$03 sta $dd02 * lda $dd00 ora #$03 sta $dd00 * *clearbitmap * lda #0 sta filval lda #base sta tabptr+1 ld "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4,"  8*`Э Э ݭ ݩ @  d 9)H-܍h8`Lp L LʎL L LLpȎL LŁ LŁʎ`` 9Lpiz equ $9000 * hpsn equ tabsiz+2 vpsn equ hpsn+2 char equ vpsn+1 row equ char+1 line equ row+1 byte equ line+1 bitt equ byte+2 * mprl equ bitt+1 mprh equ mprl+1 mpdl equ mprh+1 mpdh equ mpdl+1 prodl equ mpdh+1 prodh equ prodl+1 * filval equ prodh+1 jsv e mult rts * *plotroutine * *row=vpsn/8(8-bitdivide) * plot lda vpsn lsr a lsr a lsr a sta row * *char=hpsn/8(16-bitdivide) * lda hpsn sta tempa lda hpsn+1 sta tempa+1 ldx #3 dloop lsr tempa+1 ror tempa dex bne dloop lda tempa sta ch lda char sta mpdl lda #0 sta mpdh jsr mult16 lda mprl sta tempb lda mprh sta tempb+1 * *addline * clc lda tempb adc line sta tempb lda tempb+1 adc #0 sta tempb+1 * *byte=tempa+tempb * clc lda tempa adc tempb sta tempb lda tea #scrlen sta tabsiz+1 jsr blkfil * *setbkgandlinecolors * lda #color sta filval lda #colmap sta tabptr+1 lda #maplen sta tabsiz+1 jsr blkfil * *printdotat "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4," rǰ LLǍ, `>`>` UHH Uhh` #)/2EK)) 8  @  % e e   % mieequ filval+1 * ciapra equ $dc00 * jmp start * *blockfillroutine * blkfil lda filval ldx tabsiz+1 beq partpg ldy #0 fullpg sta (tabptr),y iny bne fullpg inc tabptr+1 dex bne fullpg partpg ldx tabsiz beq fini ldy #0 partlp sta (tabptr),y iny har * *line=vpsnand7 * lda vpsn and #7 sta line * *bitt=7-(hpsnand7) * lda hpsn and #7 sta bitt sec lda #7 sbc bitt sta bitt * *byte=base+row*hmax+8*char+line * *firstmultiplyrow*hmax * lda row sta mprl lda #0 sta mprh lda #hmid sta hpsn+1 jsr print * *readjoystick * *firstchecktriggerbutton * readjs lda ciapra and #$10 beq start * *nowreadjoystick * lda #$0f pha and ciapra sta jsv pla sec sbc ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4," ?<~????p #vmax-1 bcs lower jmp hcheck raise inc vpsn jmp hcheck lower lda #vmax-1 sta vpsn * hcheck bit hpsn+1 bpl oklow lda #1 sta hpsn lda #0 sta hpsn+1 rts * oklow lda #hmax-2 sbc hpsn+1 bcc toohi rts * toohi lda #<???x8<|? <p<?````? 2 sta hpsn lda #>hmax-2 sta hpsn+1 rts * *printdotonscreen * print jsr check jsr plot * lda hpsn pha lda hpsn+1 pha * lda hpsn bne skip dec hpsn+1 skip dec hpsn jsr check jsr plot * pla sta hpsn+1 pla sta hpsn rts * relads dfb up-m? ?y??><???x8<|? sty hpsn+1 jmp doit * upandl jsr moveup jmp left * dnandl jsr movedn jmp left * nil2 jmp readjs * right ldx hpsn ldy hpsn+1 inx bne noinc iny noinc stx hpsn sty hpsn+1 jmp doit * upandr jsr moveup jmp right * dnandr jsr movedn jmp right * *?`x???????~<~? ""' 7)"C64TIME"9 9)"BY"W 2)"ISAAC MICHALOWSKI"m 6)"12/09/83" " MOD. FOR THE C64/128" 9)"BY" 2)"MORTON KEVELSON" 6)" 5/17/85" X1800:X""A$(6)  ">~~?p>8|odr1 dfb down-modr1 dfb nil1-modr1 dfb left-modr1 dfb upandl-modr1 dfb dnandl-modr1 dfb nil2-modr1 dfb right-modr1 dfb upandr-modr1 dfb dnandr-modr1 * s * oklow lda #hmax-2 sbc hpsn+1 bcc toohi rts * toohi lda #>?<0p~???>>? <||><888888?x<<subroutinestomoveup&down * moveup ldx vpsn dex stx vpsn rts * movedn ldx vpsn inx stx vpsn rts * *"doit"subroutine * doit jsr print jmp readjs * *moresubroutinesstarthere * *makesuredotiswithinrange * check lda vpsn beq raise cm?|>?@@xC`@00TIME SET". "24 HOUR FORMAT"P "ENTER TIME IN THE"k #"FOLLOWING MANNER" ("HH=HOURS" ,"MM=MIUTES" -"SS=SECONDS" 2"HHMMSS" 7A$ 8(A$,7,7)"0"3050 < A$"23595>>?? **ERROR MESSAGE**1 "TIME SET IS GREATER THAN 235959"B E13500:EO "":30q "ENTER ONLY 6 DIGITS":3020 POKE DCB,PEEK(DCB)AND251:REM FOR C-64/128& POKE DCB,PEEK(DCB)OR4:REM FOR C-64/1280 RETURN:REM FOR C-64/128 B40 B1B40:B22:1040)  B30 B21:1080I  B30 B1B30:B21:1040i  B20 B1B20:B20:1040t  1080 **TOP OF HOUR**  T21A21 SP(3)A:SP(4)29:SP(5)33:N3:2000 SP(3)A:SP(4)A1:SP(5)29:SP(6)33:N4:2000  MICRO FLIGHT SIMULATOR4 BY TIM GERCHMEZU(49152)169(49158)6930uT491524915236:A:T,A:53265,27:56333,127:788,0:789,192:53274,129#53281,0:646,1:650,128:49169,2:49167,255:49160,11! ((147)(9)(15)(8)" 9"3000 ATI$A$! F 8)"RUNNING": xSP(1) 31 :SP(2) 24t DRT37136:DDR37138:DFL37149:DCB37148: FOR VIC-20 : DRT=56577:DDR=56579:DFL=56578:DCB=56576:REM FOR C-64/128 DDR,127 A(DCB) 15: FOR VIC-20 : A=PEEK(DFL)OR 4:RE ":""3 P"GROUNDSPEED":"MPH"t U""R1$"":R1$" ":R1$"" ZR1$"ALTIMETER" _R1$"":R1$" ":R1$"" dR1$"RUDDER"LF$" "LF$""L WI"255 198,0A$:A$""180KKJ,1:KB,J((JY)):A$:A$""450:245fA$"O"GD1GS0935~A$"X"605 :245A$"H"635 :245A$"+"A$"-"680 :245A$"R"FP1:245A$"L"FP0:245A$"<"A$"(5)B:SP(6)28:N4: 2000FLSP(3)A:SP(4)A1:SP(5)27:SP(6)B:SP(7)28:N5: 2000W**SPEAK!!**g X1 N2 (DRT)127 2020 DRT,SP(X)3100 X**TOP OF MINUTE** C$(TI$,2)C(C$)  C00 200* 2060 2000**SOUND FORMAT MINUTES**Y Z1 SP(3)A:SP(4)27:SP(5)B:SP(6)B1:SP(7)28:N5:2000$SP(3)A:SP(4)A1:SP(5)27:SP(6)B :SP(7)B1:SP(8)28:N6. 20008**SOUND FORMAT MINUTES10,20,30,40,50 ONLY** B Z1 SP(3)A:SP(4)27:S";:R1$"":LF$""E -L6$"":DN$"" .J(127):J(109)45:J(126)85:J(125)68:J(123)44:J(119)46:J(110)43 /JY56320:KB631:KJ198 2"";& 7"MICRO FLIGHT SIMM FOR C-64/128( (DCB),160 A: FOR VIC-20L : POKE(DFL),A:REM FOR C-64/128o : GOSUB 3110:REM FOR C-64/128 **STRIP TIME** A$(TI$,2) A(A$) **STRIP MINUTES** B$(TI$,3,2) B(B$) Z0 T0  A21 Z1:36$"ELEV."% iR1$"":R1$" "J nR1$"":R1$"HEADING"` sR2$"" xR1$"":R1$"BI>":R1$"FUEL" }R1$"":R1$"F ":R1$" ":R1$" " R1$"E ":,"RURU(RU45):RU$;RU;S$:A$">"A$"."RURU(RU45):RU$;RU;S$dA$"U"ELEL(EL45):EL$;EL;S$:245A$"D"ELEL(EL45):EL$;EL;S$:245A$"0"A$"8"1200A$"0"251RU0P8$RU0P7$RU0P9$DOCL$""R1$""$EL$""R1$""BFP$DN$""R1$"":FP1P7$FP$" ":P8$FP$"  ""P9$FP$" "'Q0120AS120AS120:Q0120,RU$""MJ$R2$:HE$DN$""R2P(5)B:SP(6)28:N4: 2000FLSP(3)A:SP(4)A1:SP(5)27:SP(6)B:SP(7)28:N5: 2000W**SPEAK!!**g X1 N2 (DRT)127 2020 DRT,SP(X)3100 X**TOP OF MINUTE** C$(TI$,2)C(C$)  C00 200* 2060ULATOR"] <"":" ":"":"TIME" A"":" ":"":"ERPM" F"":" ":"":"AIRSPEED" K"KTS":"":" 30 T0  A21 A11:TA:3208  A22 A12:TA:320S " A23 A13:TA:320\ @A20s J**CHECK MINUTES** T B0 1000 ^ B10 B1B:B0:1040 h B50 B23:1080 r B50 B1B50:B23:1040 | B40 B22:1080 R1$""= "":"STALLOIL TEMP"LF$"";n ""LF$"C H‘"LF$""; "P ‘" DN$""R1$"FLAPS" ""R1$""L6$" "L6$""; ""L6$"C 175FYFY6:FY6FY0:FY0 DN$RX$"NIGHT":49160,0:254XDN$RX$"DAY ":49160,11kRX$"FLYING": DEFINE VARIABLES + SET UPMJ$"":TM$"":ER$""MJ$"":AS$DN$"" GS$DN$"":AT$""R2$$:S$" "1PR$DN$""R2$""f2A$"":B$"":I1$DN$A$B$:I2$DN$""A$B$3I3$DN$""A$B$:I4$DN$""A$B$4IN$"":I1$""IN$"1"I2$""IN$"2"I3$IN$"3"I4$""IN$"4"6FL$(2):FL$(1)D1000S4,32:895:845:820AS100EL30900:845:820QPC.997(OT$)38OT$" ":OT$OT$"":OT$"^"`F21GS0KXKX1:KXKX.2(I51).5(I61).5(I71)PC.98DG0AT5000CL$" ":DG1:D3HE:D80:890DG1D8D81)"*(FL$(I4))46845:820#/M2M1:FL$(I4)"_":>#4""RX$"CRASH!!":54290,16:54276,32d#9(FL$(I4))46RX$"FUEL GONE!"q#>54287,5#C54290,129#HX15000::#MAS300:AT(AT):X501:S1,X:Y25505:S,YS15,75:S20,240:S18,17:T1300:,S15,50:X1300::S18,16CRX$R1$""oDN$RX$"":DN$RX$"":DN$RX$""""RX$"";:T122:"";:RX$RX$"":""RX$;"+ - ENGINE":RX$"< > RUDDER"RX$"U D ELEVAT 0GD0Q0Q03:Q00Q00 F1F110:ERER20:F10F1255:F2F21O S,F1:S1,F2:""AS$;AS;S$;GS$;GS;S$;ER$;ER;S$: ((EL4EL5)(AS80))(AT20FP1)(I11)790 Z7AT ATAT((EL)(.1AS)2.5EL)2PC:AT32000AT32000!AT N$MJ$""R1$"":FL$(2)FL$(1)0;OT$DN$MJ$""R2$""y@ER800:AS90:GSAS:ATGS:RUAT:HERU:ELHE:F1235:F22:F30:F46:W2ESW56180:SIF3:GD1:Q00:DGQ0:DO0:ML0:I11:I21:I30:I41:BO49169GI50:I60:I70:KX0:FY6JS5 :615lFL$(2)FL$(1):FL$(I4)"_";:,qDN$""R2$"GROUND ONLY";YvX11000::" ";:{DN$RX$"TERMINAL":RX$"INFORMATION":RX$"SERVICE"T165:X110:T1T1((1).5)::RX$"TEMP:"T1RX$"ALT:29 1:910#GS1AS1PC.88GSGS1:Q0Q02:F1F110:ERER20(ER0)GF10F1255:F2F21:F20F20YS,F1:S1,F2SISW,2:S18,17:S15,50:ATATD9(AT0):D9D924:525SW,1:S18,16:D915:530 S1,D9 3GD0745:GD0 #RAT0$WATAT100:TM$;TI$;AT$;AT;S$;AS$;AS;S$$\:X3870$a:P$bS1,F21:T1600::S1,F22:T1600::S1,F23a$cT1600::{$fS18,129:S15,200:$k880:X1500::880 $pX2011:S1,X::S4,32:S4,129:X150OR":RX$"R L FLAPS":RX$"H HEAR ATIS"(RX$"X REFUEL":RX$"O DEMO"URX$"";:1463,67:1463S,2RX$"CABIN":RX$"PRESSURE":RX$"ON":PR$" "S15,255:S18,16:S18,129TM$;TI$:TI$"000016"430 "DN$;RX$;" AT2(FP0):ATAT2(RU30 RU30):EL1ATZ7:ATAT(2PC))!AS40EL30845:820R!(RU40RU40)AS50866:845:820!EL0ATZ7:T(PC5):ATAT(T(AS40)):ATAT(T(AS95))!ATY1ATY2BO,1:770!BO,FY!HEHE((AS100)4272:TSS24:T,0::S6,240:S,F1:S1,F2LOS4,33:S24,15:S13,240:S7,F3:S8,F4:S11,17dT""TM$;TI$:P8$""yYX901W:SW,2^ER$;ER;S$;AS$;AS;S$;GS$;GS;S$;AT$;AT;S$;RU$;RU;S$;HE$;HE;S$;FL$(1)"_"cEL$;EL;S$:ELELWhOT$".95":T1(15(1))10:RX$"VIS:"T1RX$"TNMT:"ML((1).5A$"ALPHA...":665J(1).5A$"BRAVO...":665 ^A$"CHARLEY..."RX$"THIS":RX$"IS":RX$;A$:Z0(161)2""TM$;TI$;:((161)Z0)670:DN$;X112:RX$" SI(AS10):AS30EL20SI1!GD0ER300S4,32:895 :845:8205AT0GD0820F!ASQ0ASQ0[&EL40GD0SI1t+FPFP$"UP ":5650FP$"DOWN":5GD0GS0:AT10AT10:EL40AS10SI0?GD1FP0EL20GS600:$uS4,128:S4,33:%zL4(50(1))16:V(10(1))1:V1D3V:V2D3V:&%T12000:]%""RX$"ENGINE":RX$"FAILURE":S18,33w%X12000::S4,33:%HEV1HEV2DG0:CL$" ":%D8120AS%DN$""RX$"COL "RX$" ":RX$" ":S18,128: S15,90:S18,17-PR$" "jT(8000(1))1000:U(300(1))200:Y1TU:Y2TU:875p""EL$;EL;S$;TM$;TI$;ER$;ER;S$;AS$;AS;S$;GS$;GS;S$;AT$;AT;S$RU$;RU;S$;HE$;HE;S$;:PC(1)AT3RU):HE(HE):HE0HE359!HE359HE0" AS30EL0ZZ30AS:ATATZZX"COCO1:MXAS(TI606060):MTMTMXCO:ML(MT):AT(AT):"GD1:GSAS:AS0:Q00:(RU)15820"BO,2:AT0:875:" FL$(I4)" ";:GD0FL$(I4)(FL$(I4),(FL$(I4))^";:X18(X18)OT$" ";:OT$(OT$,(OT$)1)^mERERW:ASASW:GSGSW:ATATW:RURUW:HEHEW:F1F1.5:S,F1:SW,1urF2F2.021:S1,F2tX30X60X90FL$(1)" ":FL$(1)FL$(1)"":FL$(2)FL$(2)""w:TI$"000000":TM$;TI$;FP$;"UP " | "::DO1030A$"-"715 F25'F1F110:F1255F10:F2F21AGDGSGS1:Q00:710\Q0Q03:Q0120Q0120nQ0ASASQ0ERER20:740F2.25740F2.25 F1235740GD1GSGS1:AS0:Q00:GS0GSGD0:AT30:ASGS:GS0:602DAT0AT0IKX300KX0:800INGD0ASAS1:PC.7ASAS1:PC.8ASAS1bSGD0AS120AS120hXZQ0AS:TI$"000000":BO,FY:CO0:MX0:]GD1625bFL$(I4)" ";g(FL$(1))49FL$(1)FL$(1)""LISION!":845:820&169,1,141,25,208,162,69,160,11,173,18,208,48,4,162,255,160,2,142,18^&208,140,32,208,173,13,220,41,1,240,3,76,49,234,76,188,254m&1030:DO1&KJ,1:KB,("+"):175:GS65940&KJ,1:KB,("U"):175:EL29950&KJ,1: d"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B9)0)"";A;"- "PR$ B2 175 150 A2 :A0 (L$,21)" DISKS REPRODUCED WITH" (L$,22)" FDSD J"AUDIO ALARM? (Y/N)"2 TA$:A$""340G ^A$"N"40680,0Y h40449:"":m r ** SUBROUTINE |A$(NUM):(A$)3FD((A$,2,1)):400 FD0 SD((A$,1))   ** SUBROUTINE "AM OR PM" A$:A$""440@ 631,13: 632,13: 198,2:8  VIC BUG REP,VIC-20 BABBLERL$""wAA1:BB1: PR$ (L$,B9)0)"";A;"- "PR$ B2 175 150 A2 :A0 (L$,21)" DISKS REPRODUCED WITH" (L$,22)"  I1$"":)I1$"":GD1820))I21I2$"": *I2$"":&*I31I3$"":1310:;*I3$"":1330:P*I41I4$"":_*I4$"":*S11,33:S8,4:U12000::S11,32*S7,F3:S8,F4:S11,17:*F1F140:ERER M2063::"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA SAVE THIS PROGRAM TO DISK BEFORE RUNNING IT  MAKE SURE THE REM STATEMENTS ARE PACKED WITH THE PROPER AM KB,("L"):175:450:450:450&KJ,1:KB,("1"):175'KJ,1:KB,("D"):175:EL4965,'D50:PX05'175['AS60KJ,1:KB,("+"):175:980'DG1RN(10(1)):RURURN:450:RURURN'D5100PX1:KJ,1:KB,("D"):175:EL6990' 420 H12PM PM: NUMH:370:56331,128PM16FDSDe "WHAT IS THE MINUTE";M:M0M59140 NUMM:370:56330,16FDSD "WHAT IS THE SECOND";S:S0S59140 NUMS:370:56329,16FDSD "CONTINUOUS TIME DISPLAY? (Y/N)"  A$"P"PM1 & 120,173,20,3,73,40= 141,20,3,173,21,3U 73,116,141,21,3,88m 169,0,141,8,220,96 173,35,159,240,121,160 31,173,32,208,153,0 %216,200,192,40,208,248 +173,11,220,41,16,74 174,74,74,9,176,201 711,141,0,212169,23,141,1,212,16900,141,5,212,169,240J141,6,212,169,33,141dǞ4,212,173,32,208,141}͞3,159,169,255,141,2Ӟ159,206,32,159,208,38ٞ174,32,208,236,3,159ߞ208,14,173,4,159,141垃32,208,169,15,141,24랃212,80(ER0):F10F1255:F2F21:F20F20*(S,F1:S1,F2:#+2F1F140:ERER80:F1255F10:F2F21-+71320P+FFL$(I4)" ":I4I41:I43I41c+KFL$(I4)"_":w+xA$"5"I51I5+zA$"6"I61I6+|A$"7"I71I7+~ I51 DN$RX$"OUNT OF A'S:  TO RUN, TYPE 'RUN1000'. NOT 'RUN'@ x 2049,133:CK0: X20632182: A: CKCKA: X,A:  CK11741 "ERROR IN DATA STATEMENTS":  172,122,160,56,173,130,8,133,44,233,8,133,25,24,165,45$  133,27,133,29,1EL6 ELEL1:450:995'D5D51:PX0975(175:AS40KJ,1:KB,("+"):175:1002.(AT2001002T(KJ,1:KB,("U"):175:EL21005o(KJ,1: KB,("1"):175(KJ,1:KB,("R")(175:GD11015(175:KJ,1:KB,("-"):GS01020 MSD SUPER DRIVES"7 (L$,24)1)"(C)ION INT'L INC."a (L$,19)1)"CHOOSE # OR RETURN";u AN$:AN(AN$) AN$"" B0: 100 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8"  "RUN":"" 76,208,2,169,160,141" =31,4,173,11,220,419 C15,9,176,141,32,4T I173,11,220,41,128,240l O8,169,144,141,39,4 U76,93,158,169,129,141 [39,4,169,186,141,33 a4,173,10,220,41,112 g74,74,74,74,9,176 m141,34,4,173,10,220s41,1576,250,158,173,3159,141,32,208,169,05141,24,212,169,30,141M32,159,76,26,159,0e0,10,173,2,159,240~ 16,173,3,159,141,32208,169,0,141,24,212169,0,141,2,159,1738,220,76,49,234,30!0,0,25559,20836,169,18":1410+DN$RX$""+I61DN$RX$"":1414,DN$RX$""$,I71 DN$RX$"":8,DN$RX$"":I41I4$"":_*I4$"":*S11,33:S8,4:U12000::S11,32*S7,F3:S8,F4:S11,17:*F1F140:ERER65,46,133,28,101,25,133,30,133,46,165,27a  208,4,198,28,198,30,198,27,198,29,177,27,145,29,165,27  208,244,165,28,201,8,208,230,230,29,177,29,200,17,29,240 $ 21,24,177,29,101,25,145,29,133,2,136,177,29,133,29,165 . 2,133,30,76,73,8,174,1(RU0:1035:RX$" ":DO0:EL0:175)DN$""RX$"DEMO":RX$"FLIGHT":-) DN$""RX$" ":>)A$"4"1400`)A$"1"I11I1:1300:1220:|)A$"2"I21I2:1230:)A$"3"I31I3:1240:)A$"4"1350:1260:)I11';K; SOURCE CODE BASIC RELOC. q; BY JAMES HOSEK ;; 2063; ASSEMBLE PROGRAM O STATEMENTJ 25; OFFSET LOCATI K 27; TEMP. ZE  THE MARTIAN MONSTERS/ BY J.C.HILTYC 52,48: 56,48` S54272:LSS24:L,0:l(V53248"": 53280,0: 53281,0"T H E M A R T I A N M O N S T E R S" 14)"  " 15)"  "  9)" " ^ 15)"  " hM r 2)"...SPACESHIPS ARE OUR FAVORITE FOOD..."S |~  4)"...AND WE ARE GETTING HUNGRY..."  S24,15: S1,15: S5,16: S6,240: S4,21  T1 3 R10  S15,R RR1: R200 470  430 10,160,142,120,2,142,123,2,162T 8 49,142,119,2,162,82,142,121,2,162,117,142,122,2,162,5e B 134,198,96 L 16: PAGE TO TRANSFER TO V 34,0,0,0STATEMENTS":  172,122,160,56,173,130,8,133,44,233,8,133,25,24,165,45$  133,27,133,29,1 GRAMG CLC: LDA (L),Y: ADC J: STA (L),Y: STA 2; RECALCULATE POER WITH OFFSET DEY: LDA (L),Y: STA L: LDA 2: STA L1: JMP LOOP2; PO THE LINE OUT LDX 41070; A $0D FROM ROM STX 632: STX 635: LDX #49: STX 631; SET UP KEYBOARD QUEUE. L3,0: 49524,30: 49525,0: 49526,23$ *""3 + P0 18M 0T$"": I0 30:T32{ : ((2)7)1 T46: ((2)5)1 T42 DT$T$(T): I NT$T$(170) X T$ b P l" ߒ  ߒ  ߒ " v" ߒ  ߩ  RO PAGE POER- L 29; TEMP. ZERO PAGE POER] TXTTAB 43; POER START OF BASIC PROGRAM VARTAB 45; POER OF PROGRAM LDY 41082; A ZERO FROM ROM $SEC: LDA MEM: STA TXTTAB1; PO TXTTAB LOCATI )SBC #8: STA J; CALCULATE OFSC0:SH5:MS0#"":""34)SH@"":""34)SCd"":""34)MSz PREPARE SPRITES 2040,193: 2041,194 T2042 2046 T,192 T V39,1: V40,10: V41,5: V42,4 V28,1 50439,0: 50440,2 50441,0: 50442,2543  50443,0: 50444,1M* 50445,0: 50446,253g/ 50435,0: 50436,255w4 50432,124> 51104H MAIN LOOPR V0,X0: V1,Y0\X0X05: X0250 X030fJY(56321)15p JY13Y0Y04: Y0205 Y0205%z JY14 Y0Y04: Y070 Y070MFB(((56321)16)0): FB1 2000[W(V30)u W5 Q2042: 3000 W9 Q2043: 3000 W17 Q2044: 3000 W33 Q2045: 3000 W65 Q2046: 3000 49152DX #82: STX 633: LDX #117: STX 634: LDX #5: STX 198: RTSS MEM .BYTE 16; PAGE TRANSFER x .BYTE 34 0 0 0; SET UP OF LINE . RELOCATER.SRCOER BASIC LINE, IN THE FIRST LINE LOOP2 LDA (L),Y: INY: A (L),Y: BEQ OUT; CHECK OF PRO    "9  9)"   "_  10)"   " " 10)"     " , 13)"  " 6 14)" " @ 15)" " J 16)"  " T 16)"  FSET> .CLC: LDA VARTAB: STA K: STA L; LO BYTE OF P OF PROGRAM 3LDA VARTAB1: STA K1: ADC J: STA L1; SET UP TRANSFER POERS 5STA VARTAB1; PO VARTAB LOCATI 8LOOP LDA K: BNE 1: DEC K1: DEC L1 B1 DEC K: DEC L; DECENT POINTERS, T  I0 24: SI,0:K "":""4)"PLEASE WAIT FOR ONE MOMENT..."} :"..WHILE WE WORK UP AN APPETITE FOR YOU.."  X50880 51116: A: X,A:  X49152 49528: A: X,A:  X12288 12671: A: X,A:  49522,1: 4952 850 FIRE LASER 50432,0. V2,X0: V3,Y012= V21,127K 50432,2b (V3)55 2500qW1(V30) W16 Q2042: 2600 W110 Q2043: 2600  W118 Q2044: 2600 W134 Q2045: 2600  W1 ߒ  ߒ  "5 " "] " "s "": 34)"THE"  32)"MARTIAN"  32)"MONSTERS" "":33)"SCORE" :: 33)"SHIPS" :: 33)"MISSED": 33)"SHOTS"66 Q2046: 2600* 2030 MISSED SHOT% MSMS1I "":""34)MSX V21,125r V23,124: V29,124| P195 T1 8 Z2042 2046 Z,P Z PP1: P197 P195 S5,9: S6,0: S24,15: V37,6: V38,2# V43,7: V44,8: V45,65X0140:Y0160K V0,X0: V1,Y0a V4,35: V5,60w V6,85: V7,60 V8,135: V9,60 V10,185: V11,60 V12,235: V13,60 V21,125 50437,0: 50438,255   LLDA (K),Y: STA (L),Y; TRANSFER E BYTE OF MEMYr VLDA K: BNE 1: LDA K1: CMP #8: BNE LOOP; CHECK DE (K $0800) `INC L; SET UP 'L' LOOK AT POER BASIC LINE, IN THE FIRST LINE LOOP2 LDA (L),Y: INY: A (L),Y: BEQ OUT; CHECK OF PRO P195 I0 24: SI,0:& S5,9: S6,0: S24,15,0 T1 86: Q,PPD PP1: P197 P195mN S1,80: S,15: S4,33X E0 50: Eb S4,32l Tv SHSH1{ "":""34)SH 2040,193 Q,192 7,40: S11,129 T0 100: S11,128 - ML SPRITE ROUTINEh 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80 197,45,0,197,240,3,76,243,198,232,232,14,80,197  198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80T 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0 198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0  197,2 4,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174W 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204 116,193,240,20,200,177,90,72,177,92,136,145,92,104,1453,173,120,193,201,2,208,19,1368 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240~16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72  177,9218,193,232!( 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162c!2 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193!< 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152!F 24,105,40,168,104,96,72,152,56,226,0,0,255,0#x 1,255,128,3,255,192,227,255,199,63,221-#| 252,227,255,199,3,255,192,1,255,128k# 0,255,0,0,66,0,0,66,0,0,231,0,0,0,0,0,0,0,0,0,0,0,0,0,0# ROCKET MULTICOLOR DATA# 0,32,0,0,32,0,0,32,0,0,168,0,0,168,0,1,169,0,5,169,64$ S1,80: S,15: S4,33 E0 50: E% S4,32- T< W1(V30)Z Z2042 2046: Z,192:p V23,0: V29,0 50432,124 MS5 7000 850' LASER HITS MARTIAN( SCSC100* "":""33)SC-  MARTIAN EATS SPACESHIP  50432,0* Q2042 V29,4: V23,4K Q2043 V29,8: V23,8n Q2044 V29,16: V23,16 Q2045 V29,32: V23,32 Q2046 V29,64: V23,64 2040,197 3500 V21,124  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 % GOBBLE DATAG% 3,0,0,1,128,0,0,192,0,0,60,0,0,126,0,0,255,0,1,247,224~% 1,255,224,1,252,0,1,248,0,0,248,0,0,120,0,0,60,0% 0,39,192,0,35,192,0,32,0,0,112,0,0,0,0,0,0,0,0,0,0,0,0,0,0% V29,0: V23,0 X0160:Y0140 V0,X0: V1,Y0) V21,125@ V8,135: V9,60P 50432,124^ W(V30)p SH0 7000z 965 EXPLOSION SOUND I0 24: SI,0: S24,15: S12,160: S13,252 S8,80: S,208,238 76,49,234,169,0,29,0,197,208,3,76,97,199,169,128,61\ 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,040,11,254,0,198,208,20,222,255,207,76,134,199,222,0J" 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198, 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,1996 120,169,192,141,20,3,169,198,141,21,3,88,96 SCROLL DATA 17,90,200  204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104e 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116 193,200,189,114,193,170,32,30,19,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208M  234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172  116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92  104,145,90,204,115,193,208,234,236,118,193,208,221,238,133,40,168,104,96,0,40,80("P 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248X"Z 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5"d 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0"n 4,1,1"p MONSTER DATA"s 6,0,96,3,0,192,1,129,128,0,195,0,0,1  21,169,80,85,169,84,0,168,0,0,168,0,0,168,0,0,168,0,3,255,0H$ 15,255,192,63,255,240,15,255,192,0,48,0,0,0,0,0,0,0,0,0,0,0Y$ LASER DATA$ 0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0$ 0,56,0,0,56,0,0,56,0,0,56,0,0,56,0$ V21,125. Q,1970 3500F I0 24: SI,0:?G S24,15: S1,15: S5,16VH S6,240: S4,21_I R80lJ S15,RK RR1: R160 2640L 2634P I0 24: SI,0:R Q,192Z W1(V30)_ 50432,124d 850  MORE GOBBLE DATA& 3,0,0,1,128,0,0,192,0,0,60,0,0,126,0,0,255,0,1,247,128R& 1,255,192,1,255,192,1,255,192,0,255,192,0,127,128,0,62,0& 0,32,0,0,32,0,0,32,0,0,112,0,0,0,0,0,0,0,0,0,0,0,0,0,0&" EXPLOSION&, 0,0,0,76,1,0,0,128,4,32,4,32 22)"YUMMY..."': 4)"WE GOT SPACESHIPS IN OUR TUMMY!!!!"( I0 24: SI,0:6( S24,15: S1,15: S5,16M( S6,240: S4,21[( T1 2d(R10q( S15,R{(RR1( R200 7150( 7110( T( I0 24: SI,0:(   A0A1:"SKETCHER.O",8,1, 32768