d"": 53280,0: 53281,4\n 3)"        "x 3)"        ̯" 3)"         " "  96, 32, 205, 189, 169, 13, 32, 210, 255, 32W  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 113, 251, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32W  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 113, 251, "  "RUN":"":  631,13: 632,13: 198,2:}  RUPERT 1,RUPERT 2,MENU FOR 64,RUPERT 4,FAST MENU 64,RUPERT 5  RUPERT 3,WORM 64,VIC20 WEDGE,C64 WEDGE,COLOR DEMO 64,COLOR DEMO VIC  MENU FOR VIC,WORM VIC,RAID,RAID BOOT CASS,DO ": "")  631,13: 632,13: 198,2:l  RUPERT 1,RUPERT 2,MENU FOR 64,RUPERT 4,FAST MENU 64,RUPERT 5  RUPERT 3,WORM 64,VIC20 WEDGE,C64 WEDGE,COLOR DEMO 64,COLOR DEMO VIC  MENU FOR VIC,WORM VIC,RAID,RAID BOOT CASS,DOS.BOOT,NUMBERS.  "- L$"":TA12Q AA1:BB1: PR$: A9 TA11o (L$,B5)TA)""A"-"PR$ B15 175 150 A30 :A0 (L$,22)" DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNA 69, 254, 170, 138, 76, 88, 192, 0C 0, 0, 0, 230, 251, 208, 2, 230, 252, 96t 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, S.BOOT,NUMBERS.BASR  64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,2-COL SUBROUTINE  2-COL DIRECTORY,FONT EDITOR,DOS PLUS,RAID D-BOOT,TILE TIME,DSKDU & SUPER DUPER : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8 " MSD SUPER DRIVES"9 (L$,22)1)"(C)ION INT'L INC."c (L$,20)1)"CHOOSE # OR RETURN";w AN$:AN(AN$) AN$"" B0: 100 AN$"1" AN$"14" 240 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8BASA  64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,2-COL SUBROUTINE  2-COL DIRECTORY,FONT EDITOR,DOS PLUS,RAID D-BOOT,TILE TIME,DSKDU & SUPER DUPER (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8,1" "RUN TIONAL INC"2 (L$,21)9)"RETURN OR CHOOSE NO.";Q 198,0: AN$:AN(AN$):B0d AN$"" 100 : CH1 AN: PR$: CH "": 53280,0: 53281,0 (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8,1" "RUN * INVALID DIRECTION *>C1$;T$;HC2$;T$;#RF ******* SET CURSOR *******Y FL CU$BS$k C1$;CU$;C2$;v CU$T$ R(ROW1)42:C(COL1)58 251,R:252,C 49806 CU$; ROWBR COLBC FL1:3100 FL0 &~ X 49152 49488 : Y: X,Y:H"":53280,0:53281,6:646,1p" 64 CHECKSUM INSTALLED": 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, 37, 1936  234, 165, 253, 160, 0, 76, 13, 193, 133, 253j  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, 208, 2, 230, 64 ,210,145,208,104,145,212,198,211,198,254,16,201G:ƒ32,226,193,88,96,234,234,234,234,234,234,234,234,32,226,193,32Kƒ132,194,165,251,166,211,32,155,193,177,208,133,210,177,212,72,164\ƒ253,240,15,136,177,208,72,177,212,200,145,212,104,145,208,136, ,209,105,0,133+209,202,16,240,24,104,101,208,133,208,133,212,165,209,105,0,133h209,41,3,9,216,133,213,164,253,96,165,2,208,3,169,32,44177,208,153,32,192,177,212,153,72,192,136,16,236,96,120,162,30181,208,72,189,0,192,149,208,104,157 253,185,32,192,145,208,185,72,192,145,212I;136,16,243,32,226,193,88,96,234,234,234,234,234,234,234,234,32L226,193,32,132,194,170,165,251,32,155,193,32,205,193,166,254,202]240,208,56,165,208,233,40,133,210,133,214,165,209,233,0,133,211n "(98)6);(106);:X127:(96);::(107)! ROW1 51 COL1 5a ROW5 COL5 B3$;:CU$BS$:3040:8170zB3$;:CU$BS$: 3040B1$;:CU$T$:3040B2$;:CU$SZ$:3040CO$(ROW);CH$(CH);B2$;(125):CHCH1 COL vK$" " 5000:7010( K$"A" ROW1 ROWROW1:3010:7010U K$"Z" ROW5 ROWROW1:3010:7010 K$"." COL5 COLCOL1:3010:7010 K$"," COL1 COLCOL1:3010:70107010@ ******* DRAW BOARD *******JC VU(ROWBR):D4:TRROW1" BRROW D3:TRROW1BBRROW:1010:ROWTR:3040:Z ROWBR 6010:xHU(COLBC):D2:TCCOL1 BCCOL D1:TCCOL1BCCOL:1010:COLTC:3040: COLBC p ******* BUZZER *******   ******* RANDOM MIX *******BA((0)):(DO$,5);B2$;"MIXING"B1$;:3040R MX1 20\4180|A21ROWBR:COLBCA:4060ROWBR:COLBCA COL1 COL5 40303010:5010K$:K$"" 41604180A21COLB 251, 208, 29  230, 252, 76, 43, 192, 76, 73, 78, 69, 32i  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, 230, 254, 32, , 2302  251, 208, 2, 230, 252, 76, 11, 192, 169, 153d  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, 240, 6, 201 *  80, 208, 245, 230, 254, 32, 210, 255, 169, 4^  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, 249% 208mƒ241,165,2,208,3,169,32,44,165,210,145,208,104,145,212,198,211\~ƒ198,254,16,203,48,182,166,252,138,24,101,254,133,211,96,234,24ƒ164,252,166,251,32,240,255,96,234136,145,212,104,145,208,200,196,253,144,239,165,2,208)ƒ3,169,32,44,165 ,0,192,202,16,241,96,2345234,234,234,234,234,234,234,32,226,193,32,132,194,165,251,166,211yƒ32,155,193,160,0,177,208,133,210,177,212,72,144,13,200,177,208ƒ72,177,212,136,145,212,104,145,208,200,196,253,144,239,165,2,208)ƒ3,169,32,44,165 24,32,119,193,202,16,234,48,184,41,3,9,216,133,215,164,253\177,210,145,208,177,214,145,212,136,16,245,165,211,133,209,165,210133,208,165,215,133,213,165,214,133,212,96,72,169,216,133,208,172136,2,136,132,209,24,165,208,105,40,133,208,165  ROW(# ******* ML ROUTINES *******#2#I49416498151<#T:I,T:7F#|32,226,193,165,251,166,252,32,155,193,32,205,193,166,254,202,4821,24,165,208,105,40,133,210,133,214,165,209,105,0,133,211,32*119,193,202,16,235,164, H1:B1$;:K$(147)8100*THM$;6);(117);:X127:(96);::(105)Z^6)(98);" ";:X125:(164);::" "(98)sh(DO$,2): X1 20r 6);(98);(167);25);(180);(98)|HM$;(DO$,23);6)(98);" ";:X125:(163);::" zA18:54296,15:T13::54296,0:T13::=d *** PONG SUBROUTINE ***InS54272Vx S1,20b S5,9n S6,9{ S24,4 S4,17X *** GET KEYBOARD INPUT ***bK$:K$"" 2110:7010lK$(147)350 C:ROWBRA:4120COLBC:ROWBRA( ROW1 ROW5 40908"3010:5010N,K$:K$"" 4160T6r@(DO$,5);(SP$,6);:3040xJTA((1)4)1^A2((1)2)h *** PREPARE TO SCROLL *** COLBC 5060 BRROW 53280,6:53281,0:646,1* (147)FX35843660:Z:X,Z:Xm51,0:52,15:251,0:252,15:828,0("SELECT OPTION"2:"1. COPY SEQ FILE"<:"2. COPY PGM FILE"F:"3. END"PZR$:R$""90dA(R$):A1A390 nA  40* K l DOS PLUS V1.0   BOOT ER    . 3  T u   WRITTEN : MAY 1984  AUTH : D. MUSCATELLI  R.D. #1 BOX 543 MRISDALE, PA   , 53040,018: REVERSE VIDEO @$> - 53063,018: " " "^ . 50999,144: BLACK HEX #'S} / 51069,144: " " " 0 51057,005: WHITE ASCII CHRS. 1: 2TEM  R.D. #1 BOX 543 MRISDALE, PA  ) -------- THE TILE GAME ----------M (C) MURDOCK & BLACKBURN '84h 10/15/1984ndX16:CH:CO$(X)(CH):n 28,158,156,30,150,5xB1$(154):B2$(31):B3$(152):C1$B1$:C2$(144)SC$(147):HM$(19) S ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4," )(110)(163)(109)(157)(157)@ SZ$SZ$(157)(17)(125)t T$(111)(183)(183)(183)(112)L5$(17) T$T$(165)R3$(167)L5$(17) T$T$(165)R3$(167)L5$(17) T$T$(108)(175)(175)(175)(186)L5$U3$   "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4," 172,60,3,177,251,196,253,208,6,166,252f  228,254,240,16,200,140,60,3,32,210,255,192,0,208,230,230,252,76  42,14,32,204,255,96 "ONG": 253,(828):254,(252):251,0:252,15:828,0 "SWAP DISKS IF PUTTING COPY ON A NEW DISK":  JPX0:53280,PX:53281,PX$ TSC$:K$""A ^DO$;SP$;B1$;:8010:360K hHM$;q rROW5:COL1:BR5:BC5:MV0:CU$T$ | DO$;7);CO$(2);"JOYSTICK OR KEYBOARD (J/K)"C2$; KK$:KK$""390 KK$"J" 420 KK$"K" 390 DO$;SP$;:3040 120,140,290! x"SEQ FILENAME";AN$1 F$"S":160I "PGM FILENAME";AN$T F$"P"c 3,8,3,AN$p 3584:3 (252)159"FILE TOO LONG": 253,(828):254,(252):251,0:252,15:828,0 "SWAP DISKS IF PUTTING COPY ON A NEW DISK":  /  SOURCE COMPUTER : C64 N  TAR COMPUTER : C64 o   PERIPHERALS SUPPTED   2 1541 DISK DRIVES  DEVICE 4 & 5 SERIAL   BUS ! 16858 9 " Z #` $:f %:l &: (TEM0TEM49152:"DOS PLUS",8,1 ) 53230,001: AUTO-VERIFY IF 1 * 53012,008: DEFAULT DRIVE # + 51329,096: UPPER CASE 1525 **MVMV1:DO$B2$"MOVE"B1$;MV;4 D 1030,1050,1060,1080UML49661:R5:VU0:COLCOLHUg1090: *LEFTML49735:R5:VU0:1090: *RT$ML49416:R4:HU0:ROWROWVU.1090: *UP8ML49483:R4:HU0:1090: *DNBL(COL1)58:T( C$;CO$(6)< 53280,2:53281,2:249)"HOLD ON, JUST A SECOND"` DO$HM$:X124:DO$DO$(17): U3$"":X13:U3$U3$(145): R3$"":X13:R3$R3$(29): L5$"":X15:L5$L5$(157): SP$"":X139:SP$SP$" ": SZ$(17)(29 ROW1)42LH(HU1)5:V(VU1)4:V251,L:252,T:253,H1:254,V1D`6510Pj X1Rbt254,V1:2,1k~ MLq~ S4,16 K$: K$""1500 *** READ JOY STICK ***JV(56320)K$:K$(147)350 FRJ BS$B2$:X15:BS$BS$(166):X BS$BS$L5$(17):BT$"": X14:BT$BT$BS$::BS$BT$B1$ CH$(24): X124:CH$:CH$(X)CH$: " A,B,C,D,E ' F,G,H,I,J , K,L,M,N,O 1 P,Q,R,S,T 6 U,V,W,X @ (49475)234 (49806)24 9010  "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4," V16: FR16 5010:2010JV15(JV15)5 JV0 2110:2010`  JV1 ROW1 ROWROW1:3010:2010 JV2 ROW5 ROWROW1:3010:2010  JV8 COL5 COLCOL1:3010:2010* JV4 COL1 COLCOL1:3010:201042010:   *** MIX Y/N PRINT ***< CO$(4);DO$;(SP$,15);"MIX (Y/N)";O A$:A$""450 A$ "Y" DO$;SP$;:3040:4010:MV0:DO$;SP$;:490 A$ "N" DO$;SP$;:490 450 CU$T$:3040:KK$"K" 7000 2010  *** SCROLL ROUTINE * "NAME OF NEW FILE";AN$7 3,8,3,AN$","F$",W":3618:3T "- COPY COMPLETE -":30 162,3,32,198,255,32,228,255,172,60,3,145,251,200,140,60,3,192 0,208,8,230,252,166,252,224,159,240,4,165,144,240,228,32,204,255  96,162,3,32,201,255, -2068Bv 3,192,157,5,192,202,202,142,63,192,173,64,192,208,3,138,-2128IBv 16,213,96,56,173,3,192,233,40,133,251,133,253,173,4,192,-2161Bv 233,0,133,252,24,105,212,133,254,169,81,162,3,188,12,194,-2155Bv 209,251,240,19,202,16,246,32,13,196,4 2,192,173,0,192,208,17,173,1,192,201,6,208,-18113@v 10,173,2,192,201,6,208,3,238,45,192,172,68,192,177,253,-2132r@v 24,105,1,41,15,208,2,169,1,145,253,96,173,0,220,41,-1494@v 15,170,188,32,194,16,3,76,59,195,177,251,201,83,240,4,-1904@v 201 3,192,173,92,192,141,94,192,32,20,197,-2048K(x 201,255,240,14,174,90,192,160,0,136,208,253,202,208,248,76,-2657eK2x 189,197,96,173,93,192,141,224,197,173,94,192,141,225,197,173,-2697K>v 224,8,208,244,169,11,141,18,212,76,126,194,56,173,1,192,-2053Z>Hv 233,41,133,251,133,253,173,2,192,233,0,133,252,24,105,212,-2370>Rv 133,254,160,41,140,68,192,173,0,220,41,15,170,188,16,194,-2005>\v 16,3,76,59,195,177,251,201,142,41,1,13,-1565Iw 86,192,141,4,212,169,2,44,69,192,240,42,32,211,197,201,-2034DIw 255,208,1,96,201,254,208,8,169,0,141,11,212,76,118,197,-2155Iw 174,95,192,142,7,212,174,96,192,142,8,212,10,42,41,1,-1740Iw 13,87,192,141,11,212,169,1,44,69) 53272,((53272)240)2D)i)-----------------DISPLAY SCORES) CS$;CD$"PLAYER SCORE LEVEL LIVES LEFT")"------ ----- ----- ----------")TL0: I1NP:PL$" "(I)" ")# ZL%4%NB30000:ZH%B256:ZL%B(256ZH%):49154,ZH%:49155,ZL%?4*NA(49153)(256(49152)): A0 ]4/NB(49155)(256(49154))44NCA15:DC1: C50716 C50716:D049NZH%D256:ZL%D(256ZH%): 49152,ZH%:49153,ZL%4>NDB10:ZH%D256:ZL% 3$W1$" "W2$W1$" "W2$^'~L4$W2$W2$W2$W2$" "W2$W1$W2$W1$W2$W2$" "z'L4$L4$W2$W2$W2$W2$'L5$W1$W2$W1$" "W2$W1$W2$'CD$(17):CU$(145):CL$(157):CR$(29):CS$(147)'HM$(19) ,ML256: X,ML(X1)256:XX2:,2X(TI):49193,R(256)1:49194,R(256)1B249197,0:49216,0d2DL%25512LV: DL%0 DL%0t2 49217,DL%z22 ------------------CRASH EFFECTS2 IX028:SIDIX,0:2 SID24,152 SID,20:SID %HL(I)V:CTCTV%$7%) 81,88,91,98,101,108,111,118,-796c%. 881,888,891,898,901,908,911,918,-7196%3 249,250,269,270,729,730,749,750,-3996%8 483,499,500,516,517,-2515%BSID54272%DCRT1024:CO55296:MC(1)4:MC(2)12:MC(3)8:MC(4)3WHAT SKILL LEVEL (1-9)? ";0 X$: X$"" 1925,0 X$"1" X$"9" 1925>0 X$:LV(X$)f0 I1 NP:LV(I)LV:PT(I)0:LI(I)50 J1 29:HX(I,J)0:00PL1:PT0:04--------------LOAD MACHINE LANG0> CD$;" *** LOADING MACHIN1983 BY LARRY COATS"). CD$"COLLECT ALL THE HEARTS WHILE AVOIDING"W."THE BUTTERFLIES. THEN EXIT THE SCREEN"l."ON THE RIGHT.". CD$"SCORING:"." 10 POINTS PER HEART"." 100 POINTS FOR GETTING LAST HEART"." 500 POINTS FOR S:49155,ZL%5RB(49155)(256(49154))96&RDB10:ZH%D256:ZL%D(256ZH%): 49154,ZH%:49155,ZL%F60R"";B_6NR " ":"GOTO 21015"i6XR"";6bR 631,13: 632,13: 198,260u 226,219,98,91,219,215,91,215,217,215,89,87,215,254,87,254,-27927:uS$:53281,0:646,7,| L1$;: I1 4: L2$;:: L3$;D,~ I1 4: L2$;:: L4$;: L5$;b, L4$;: I1 4: L2$;:, L3$;: I1 4: L2$;:: L1$;,"PLAYER";PL;" LEVEL";LV;HM$,IX0, I1 16:IXIX1: IX4 IX1 - CRT,230,224,102,217,231,219,-296478bu 231,219,231,219,103,91,226,217,98,89,226,219,226,219,226,219,-3059|8lu 98,91,228,224,100,96,226,219,98,91,224,217,96,89,219,215,-25318vu 91,87,224,217,96,89,219,215,91,87,217,214,89,86,219,215,-24569u 219,215SC$(PT(I))" "*((SC$)7SC$" "SC$:13203*-LV$(LV(I))" "S*2(LV$)7LV$" "LV$:1330*7TLTLLI(I):LI$" "(LI(I)):LI(I)0LI$" *DEAD*"*< PL$;SC$;LV$;LI$:*A TL0 1375*FPLPL1: PLNP PL1*K LI(PL)0 135D(256ZH%): 49154,ZH%:49155,ZL%5HN"";B;"DATA ";85RN IA C:I$((I)):J$(I$,(I$)1)F5\N J$;",";a5fN: " ":"GOTO 20010"k5pN"";5zN 631,13: 632,13: 198,25N5R-----DELETE ML5 RB30000:ZH%B256:ZL%B(256ZH%):49154,ZH%'(-------------------COPY CHARSET2( 56334,(56334)254C( 1,(1)251O( 49667^( 1,(1)4u( 56334,(56334)1(2864,0:2865,231:2866,126:2867,60( 2868,24: 2869,0: 2870,0: 2871,0( 2696,0: 2697,126: 2698,120: 21,30:SID5,0:SID6,151693 SP%(53272)E3 SQ%R(256)1:(SQ%240)(SP%240)(SQ%15)(SP%15)2537_3 SID4,129:53272,SQ%y3 IX120::SID4,1283 IX13000:3 53272,SP%3' 3 NA49408:ZH%A256:ZL%A(256ZH%):49152,ZH%:49153, &F R(X)((1)X)1&HSID54272 &JE&L------------VARS FOR BACKGROUND&VRV$(18):RF$(146):W1$RV$" "RF$" ":W2$RV$" "RF$&`L1$RV$" "RF$&jL2$W1$W2$W1$W2$W1$W2$W1$W2$'tLE LANGUAGE ***";CD$ 1H I49408 50716: V&1R V0 50000: 2150H1\ 15);I: CU$;: I,V:CTCTVN1fs1----------------INIT ML STORAGE149152,NH149154,1505256:49153,1505(49154)2561X49157: I1 16:MLCRTML(I)1 X1AFE EXIT". CD$;CD$/ 2100: LOAD MACHINE LANGUAGE4/ 49670: PLAY SONG:/_/l----------------GET PLAYER INFO/nNP0:: CD$"HOW MANY PLAYERS(1-9)? ";/q NP$: NP$"" 1905/v NP$"1" NP$"9" 1905/{ NP$:NP(NP$)/ CD$" 226,219,98,219,228,219,100,91,230,224,102,217,231,219,231,219,-3073^7Du 231,219,103,91,226,217,98,89,226,219,226,219,226,219,98,91,-27987Nu 255,255,226,219,98,91,219,215,91,215,217,215,89,87,215,254,-29617Xu 87,254,226,219,98,219,228,219,100,91ML(I),102: COML(I),MC(IX)::NH0-- I1 29: HX(PL,I)0 1447V- CRTHL(I),83: COHL(I),10:NHNH1\-y- CRT481,81: CO481,14-------------DISPLAY INSTRUCTIONS- CS$;CD$" RAID !!!"- CD$" (C) ,219,215,91,87,215,210,87,82,215,210,215,210,215,210,-2915M9u 87,82,226,219,98,91,219,215,91,215,217,215,89,87,215,254,-26209u 87,254,226,219,98,91,228,225,100,97,230,226,102,98,231,228,-27409u 103,100,230,226,102,98,231,228,103,100,228,225,100+P NP1 CD$"NEXT PLAYER IS PLAYER";PL2+U 49673: I1 500:B+ZLVLV(PL):a+_ CD$;CD$"ANOTHER GAME? ";+d X$: X$"Y" X$"N" 1380+i X$: X$"N" +n+x-------------DISPLAY BACKGROUND+yBO%R(16)1:53280,BO%+z Cl1 SM1024: ISM SM999: I,(256(9)): I_CM55296: ICM CM999: I,(16(9)):h 20 BAK WORM VIC2CODEFILECARD1 CARD2l1 SM7680: ISM SM505: I,(256(9)): I_CM38400: ICM CM505: I,(16(9)):h 20 BAK WORM VIC2CODEFILECARD1 CARD2 * MENU FOR VIC--POKEING COLOR MEMORY0Y DISABLE RUN/STOP & SHIFT/COMMODORE_ w 808,100: 657,128 CO(4) SET CO() TO ADDRESSES OF OPTION FIELDS IN COLOR MEMORYCM38400:CO(0)38513: I1 4:CO(I)CO(I1) **********"CR$"* *"Y5 "* ROAST BEEF *"CR$"* CORNED BEEF *"6 "* SHAVED HAM *"CR$"* PASTRAMI *"7 "* TURKEY & SALAMI *"CR$"* *"8 "*********************"CR$CR$CR$CR$CR$CR$ NP0 NP4  MOVE DOWN?"E A63 NPNP1: NP4 NP0] IF MOVE, GO DO IT~ NPXP 920: 900:XPNP 197,64: 100 (197)64 200 CLEAR OLD CHOICE "YOU CHOSE:"CR$"   (197)64 8004* "": 808,112: 657,0: 198,0::^ POKE COLORS INTO COLOR MEMORYd ICO(NP) CO(NP)15: I,NC:: ICO(XP) CO(XP)15: I,XC::EAR OLD CHOICE "YOU CHOSE:"CR$" YOU CHOSE:"CR$" "1 B JUMP TABLEH i NP1 300,400,500,600,700 , "ROAST BEEF ON WHEAT":  "CORNED BEEF ON RYE":  "SHAVED HAM ON A CROISSANT": X "PASTRAMI ON TOAST": "TURKEY &/ WORM FOR VIC--ANIMATE WITH COLOR MEMORYG 808,100: 657,128T WM(14)CM38400:WM(0)38520:WM(1)38521:WM(2)38544:LW2(CW2:CB0:CF5: 36879,8: (144)(147);2F$""3 I0 23: F$:: F$"";4 IW): ILW 1 1:WM(I)WM(I1):W A55 WM(0)WM(0)22: WM(0)CM WM(0)WM(0)506 A63 WM(0)WM(0)22: WM(0)38905 WM(0)WM(0)506 B2 WM(0)WM(0)1: WM(0)CM WM(0)WM(0)506 B1 WM(0)WM(0)1: WM(0)38905 WM(0)  53280,1:53281,0:646,14 100-MAINLINEX 1000-ONE-TIME INITIALIZATION} 1100-VARIABLES FOR BACKGROUND 1200-SETUP CHAR SET 1300-DISPLAY SCORE  1400-DISPLAY BACKGROUND  1700-DISPLAY INSTRUCTIONS! 1900AYER INFO%" 1400: DISPLAY BACKGROUNDD" 2200: INIT MACHINE CODEb"JV(56320)31:JV31425" 49664: (49197)0 2500"HX0: I1 29: (CRTHL(I))83 HX(PL,I)0 445"PT(PL)PT(PL)10:HX(PL,I)1:HX1"# (49197)022:%?& SET OLD AND NEW COLOR LOCATIONS AND COLOR VALUESc(NP2:XP2:NC1:XC0: 36879,232n) "";t/0 PRINT THE MENU12CR$(13): " CHOOSE YOUR SANDWICH"3 " F5=UP F7=DOWN"CR$" SPACE=CHOICE"!4 "***********9 " PRESS Q TO QUIT";"< 900(a<b READ KEYBOARDBc\dA(197): A64 100bjhkxl STOP NOW?~mn A48 800uv CHOICE MADE?wx A32 200: 100 MOVE UP? A55 NPNP1: "  JUMP TABLE$E NP1 300,400,500,600,700c, "ROAST BEEF ON WHEAT": "CORNED BEEF ON RYE": "SHAVED HAM ON BUN":X "PASTRAMI ON TOAST": "TURKEY/SALAMI ON ROLL": QUIT ROUTINE LI(PL)LI(PL)1: 4708#PT(PL)PT(PL)500:LV(PL)LV(PL)1T# I1 29:HX(PL,I)0:# (49152)0 HX1 PT(PL)PT(PL)100# 1300: DISPLAY SCORE# TL0 300# 400##-------ONE-TIME INITIALIZATION#53280,2:53281,0:646,1($X(TI): ML(16),HL(29),HX(9,29):CT0;$ I1 16: VV$ V0 50000: 1030j$ML(I)V:CTCTVp$$  123,126,133,136,143,146,153,156,-1116$ 843,846,853,856,863,866,873,876,-6876$ I1 29: V$ V0 50000: 1060 SALAMI ON ROLL": " RESTORE AND END(?  (197)64 800n* "": 792,71: 808,237: 657,0: 198,0:t PRINT COLORS USING FALSE SCREEN MEMORY 648,60: V$(NP5)HC$V$(XP5)XC$: 648,4:AR OLD CHOICE + " CM21 CM505 22: I,0:;5 I7701 8185 22: I,81:W< I0 LW: WM(I),CW:fF I0 11KFCM(506(9)): ((F) 15)CB 75P F,CF:dA(197):B(653): A24 A48 800n A63 A55 B1 B2 100xXWWM(LֲWM(0)506  IS IT FOOD?"T ((WM(0)) 15)CF LWLW1:WM(LW)XW: 170` XW,CB| WM(0),CW: LW13 30 100  (197)64 800* "": 808,112: 657,0: 198,0: 65234:3 A55 B1 B2 100xXWWM(L -GET PLAYER INFO0! 2100-READ MACHINE LANGUAGEN! 2200-INIT MACHINE CODEn! 2500-CRASH SOUND/DISPLAY!n 1000: ONE-TIME INIT!x 1100: VARS FOR BACKGROUND! 1700: DISPLAY INSTRUCTIONS! 1200: SETUP CHAR SET", 1900: GET PL  << RR17-7 >> < =-=ASSEMBLER SOURCE CODE=-=B^.; SCREEN DISK s. G $C000. JMP :ENTRY.: .EQ $FFD8 ;S.A. OF ''.:SADDR ;START SAVING. .DB $04 $00 .:EADDR   QQ1 140! QQ2 (:I: -- SAVE SCREEN TO DISK --j: =RUPERT-REPORT=LISTING-1=q: H(X)(X256) : MSB OF X L(X)X256H(X) : LSB: 500 :: PUT IMAGE ON SCREEN#:(FLNAM$"@:SCRN1" -FA x AA$ : AA$"" 1203 QQ1 : FLNAM$FB$ : 600Q QQ2 : FLNAM$FA$ : 600w =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= USE KERNAL 'SAVE' ROUTINE TO SAVE MEMORY FROM (SADDR) TO (EADDR-1) IN FILE "FLNAM$" =-=-=-=-=-=-=-=- @ 8 J :% : << FILL SCREEN >>?  MEM1024 2022 3Y  (168)(127)(168);q  MEM54272,(0)16w }  R: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= S: LOAD FLNAM$ BACK INTO MEMORY T: EXECUTION RESUMES AT START U: #"":53280,0:53281,6:646,7)L DISABLE RUN/STOP AND RESTORER t 792,193: 808,239: 657,128 V$(23) SET V$() TO ROW NUMBERSV$(0)"": I1 23:V$(I)V$(I1)"":% & SET OLD AND NEW COLOR LOC , =-=DISASSEMBLED OBJECT CODE=-=2NC000 4C 07 C0 JMP $C007dC003 04 zC004 00 BRKC005 07 C006 E8 INXC007 AD 03 C0 LDA $C003 C00A 85 FC STA $FCC00C AD 04 C0 LDA $C004 C**************"CR$"* *"c 5 "* ROAST BEEF *"CR$"* CORNED BEEF *" 6 "* SHAVED HAM *"CR$"* PASTRAMI *" 7 "* TURKEY & SALAMI *"CR$"* *" 8 "***********************(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=L INSERT THESE STATEMENTS INTOf LISTING 1=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=< 190Z 230MEM49152 : ORG=$C000 (49152) BYTE$: BYTE$"DONE" 230 1000 : CONVERT T 49152 @ 8 J+  4C,07,C0,04,00,07,E8@  AD,03,C0,85,FC[  AD,04,C0,85,FB,A9,FBs  AE,06,C0,AC,05,C0  20,D8,FF,60  DONE  - CONVERT 2 DIGIT HEX TO DEC - BYTE0  NN1 2 DD((BYTE$,NN,1))48 DDDD7(DD " =-= SYMBOL TABLE =-=(F($FFD8 : $C003 :SADDRg2$C005 :EADDR $C007 :ENTRY<$C01D : $C004 :SADDR$01F$C006 :EADDR$01 ; SAVING% . .DB $07 $E81 .:ENTRYU . LDA :SADDR ;HI BYTEi . STA $FC . LDA :SADDR$01 ;LO BYTE . STA $FB . LDA #$FB ;ZERO PAGE ". LDX :EADDR$01 ;LO BYTE ,. LDY $FLNAM$" 2SADDR1024 : EADDR2024D < 220 :: SAVE SCREEN MEMORYK A:` FFLNAM$"@:COLR1"o KFB$FLNAM$ PSADDR55296 : EADDR56296 Z 220 :: SAVE COLOR MEMORY d: -- RESTORE SCREEN -- n (147):"PRESS ANY KEY TO RESTORE SCREEN"=-=-=-=-=-=-=-=  8 AREG780 : XREG781 : YREG782K 8,8,8,FLNAM$d SVE65496 : $FFD8 ZPTR251 : $FB (ZERO PAGE)  ZPTR1,H(SADDR)  ZPTR,L(SADDR)  AREG,ZPTR " XREG,L(EADDR) , YREG,H(EADDR) 6 SVEj OF PROGRAM, V: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-== X FLNAM$,8,1\ 2,8,2,"RUP1,S,W":2:9998 ZPTR251 : $FB (ZERO PAGE)  ZPTR1,H(SADDR)  ZPTR,L(SADDR)  AREG,ZPTR " XREG,L(EADDR) , YREG,H(EADDR) 6 SVEATIONS AND COLOR STRINGSS (NP2:XP0:XC$",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"i )HC$""(XC$,39)o / 0 PRINT THE MENU 1 2CR$(13): " CHOOSE YOUR SANDWICH" 3 " F5=UP F7=DOWN SPACE=CHOICE"' 4 CR$"*********00F 85 FB STA $FB- C011 A9 FB LDA #$FBI "C013 AE 06 C0 LDX $C006e ,C016 AC 05 C0 LDY $C005 6C019 20 D8 FF JSR $FFD8 @C01C 60 RTS"CR$CR$CR$CR$CR$CR$8 9 " PRESS RUN/STOP TO QUIT";H < 900:XPNPN ab b READ KEYBOARDh c dA(197): A64 100 k l QUIT? m n A63 800 u v CHOICE MADE? w x A60 200: 100  MOVE UP?O DECIMAL) MEM,BYTE : MEMMEM1 : 200< 8,8,8,FLNAM$b SS49155 : STORE SADDR @ $C003 EE49157 : STORE EADDR @ $C005  SS,H(SADDR)  SS1,L(SADDR)  EE,H(EADDR) " EE1,L(EADDR) ,: ORG IS $C000 (49152) 6(16) BYTE16BYTEDD $ . 200< 8,8,8,FLNAM$b SS49155 : STORE SADDR @ $C003 EE49157 : STORE EADDR @ $C005  SS,H(SADDR)  SS1,L(SADDR)  EE,H(EADDR) " EE1,L(EADDR) ,: ORG IS $C000 (49152) 6 A6 NPNP1: NP0 NP4& 7 MOVE DOWN?= _ A3 NPNP1: NP4 NP0e } IF MOVE, GO DO IT NPXP 900:XPNP 197,64: 100 (197)64 200 CLEAR OLD CHOICE + "f:EADDR ;HI BYTE" 6. JSR :F @. RTS ; BASICN J.:^ T. .EN G $C000. JMP :ENTRY.: .EQ $FFD8 ;S.A. OF ''.:SADDR ;START SAVING. .DB $04 $00 .:EADDR A *  l ?0cMAY852ARUPERT 1RUPERT 2 MENU FOR 64RUPERT 4FAST MENU 64RUPERT 5 RUPERT 3WORM 64VIC20 WEDGEC64 WEDGECOLOR DEMO 64COLOR DEMO VICMENU FOR VICWORM VIC RAID.RAID BOOT CASS DOS.BOOTNUMBERS.BAS 64 BUG REPVIC BUG REPFLANKSPEED F-SPEED OVER2-COL SUBROUTINE2-COL DIRECTORY FONT EDITORDOS PLUSRAID D-BOOT TILE TIMEDSKDU MENU C-64MENU-VIC SUPER DUPER SCRN1COLR1 #"":53280,0:53281,6:646,1K" TYPE 'SYS 828' TO ACTIVATE"o *** C64 *** ***SAMPLE INTERRUPT ROUTINE****** BASIC LOADER ******LOADS INTO CASSETTE BUFF****** 'SYS828' TO ACTIVATE ** ) *********************************Q ******** LISTING NO. 1 **********x ***** BY THE NUMBERS *********** * A NUMBER CONVERSION PROGRAM ** ******************************** HEX$(8),BIT$(8),BIT(8),H$(16),B$(16),TEMP$(2)%  ( CLEAR SCREEN AND PRINT MENU:K - (147):: "THIS PROGRAM WILL CONVERT:"s 2: " (A) DECIMAL TO HEXADECIMAL" < " (B) HEXADECIMAL TO DECIMAL" F: " (C) BINARY TO DECIMAL" P " (D) DECIMAL TO BINARY" Z: " (E) HEXADECIMAL : IF A$F THEN MENU7 A 140,310,470,670,850,1010[ ****** DECIMAL TO HEX ******* (147): " DECIMAL-TO-HEX CONVERSION" : " RANGE: 0 TO 99999999": A$"":: "TYPE DECIMAL NUMBER (OR 'M' FOR MENU)": A$ . WORM FOR 64--ANIMATE WITH COLOR MEMORY4W DISABLE RUN/STOP AND RESTORE]  792,193: 808,239: 657,128 WM(14) SET WM() TO WORM'S STARTING POSITION IN COLOR MEMORY CM55296:WM(0)55712:WM(1)55713:WM(2)023 40: I,81: 9, : PUT WORM ON SCREEN2 ;N < I0 LW: WM(I),CW:T Cp D PUT FOOD OUT RANDOMLYv E F I0 11 KFCM(1000(9)): ((F) 15)CB 75 P F,CF: a b READ KEYBOARD c dA(197):B(653): A6 MOVE DOWN? L A3 WM(0)WM(0)40: WM(0)56295 WM(0)WM(0)1000R c MOVE LEFT?i B2 WM(0)WM(0)1: WM(0)CM WM(0)WM(0)1000 MOVE RIGHT? B1 WM(0)WM(0)1: WM(0)56295 WM(0)WM(0)>.* 53281,6: "": 792,71: 808,237: 657,0: 198,0:6295 WM(0)WM(0)1000R c MOVE LEFT?i B2 WM(0)WM(0)1: WM(0)CM WM(0)WM(0)1000 MOVE RIGHT? B1 WM(0)WM(0)1: WM(0)56295 WM(0)WM(0)% *** VIC 20 ***I ***SAMPLE INTERRUPT ROUTINE***m*** BASIC LOADER ******LOADS INTO CASSETTE BUFF****** 'SYS828' TO ACTIVATE ****** 'SYS854' TO DEACTIVATE ***(X8288662A:X,A::? d ) MENU FOR 64--POKEING COLOR MEMORYK"":53280,0:53281,6:646,7Qt DISABLE RUN/STOP AND RESTOREz  792,193: 808,239: 657,128 CO(4) SET CO() TO ADDRESSES OF OPTION FIELDS IN COLOR MEMORY' CM55296*# *** 'SYS854' TO DEACTIVATE ***2 (X828866B 2A:X,A:: d120,169,73,141,20,3,169,3,141,21,3,88,96,165,197,141,255,4,169,4 141,255,216,76,49,234,120,169,49,141,20,3,169,234,141,21,3,88,962-COL DIRECTORY SET UP HEX-BINARY CONVERSION TABLES:B 53280,0:53281,6:646,1h # 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F $ 0000,0001,0010,0011,0100,0101,0110 % 0111,1000,1001,1010,1011,1100,1101,1110,1111 & L1 16: H$(L): L ' L1 16: B$(L): LTO BINARY"+ d " (F) BINARY TO HEXADECIMAL":^ nA$"": "WHAT CONVERSION DO YOU WANT (A-F)";A$p s A$"" 110 t (A$)1 110 u A$"A" A$"F" 110 xA(A$)64: TRANSLATE A$ INTO AN INTEGER FROM 1 (A) TO 6 (F) A1 A6 30:CO(0)55499: I1 4:CO(I)CO(I1)40:- %d & SET OLD AND NEW COLOR LOCATIONS AND COLOR VALUES| (NP2:XP2:NC0:XC7 / 0 PRINT THE MENU 1 2CR$(13): " CHOOSE YOUR SANDWICH" 3 " F5=UP F7=DOWN SPACE=CHOICE"55752:LW2 %A & SET WORM, FOOD, AND BACKGROUND COLOR VALUESo (CW7:CB9:CF5: 53281,CB: (149)(147);u / 0 FILL THE SCREEN WITH DOTS 1 2F$"" 3 I0 23: F$:: F$""; 4 I1063 23 800 j k# l LEGAL MOVEMENT?) mO n A6 A3 B1 B2 100U uk v SHIFT ADDRESSESq w xXWWM(LW): ILW 1 1:WM(I)WM(I1):  MOVE UP? A6 WM(0)WM(0)40: WM(0)CM WM(0)WM(0)1000 1000  IS IT FOOD? J ((WM(0)) 15)CF LWLW1:WM(LW)XW: 170b ERASE WORM'S TAILh t XW,CBz COLOR WORM'S HEAD WM(0),CW: LW13 30 100   QUIT ROUTINE   (197)64 800 A$"" 160! L1 8:HEX$(L)"": L3 A$"M" 40L L1 8:T$(A$,L)l (T$)48 (T$)57 160t L (A$)1 (A$)8 160 N(A$) I8 TMPN:N(N16) TMPTMPN16 TMP10 HEX$(I)((TMP),1): 270120,169,73,141,20,3,169,3,141,21,3,88,96,165,197,141,255,30,169,4 141,255,150,76,191,234,120,169,191,141,20,3,169,234,141,21,3,88,96VICWORM VIC RAID.RAID BOOT CASS < "YOU CHOSE:"CR$" "B S JUMP TABLEY z NP1 300,400,500,600,700 , "ROAST BEEF ON WHEAT":  "CORNED BEEF ON RYE":  "SHAVED HAM ON A CROISSANT": X "PASTRAMI ON TOAST":( (147);(5): 53280,14: 53281,6Q( (19);"POKE 8192,0:POKE 44,32:NEW"z2 (17);(17);"LOAD"(34)"RAID"(34)< 198,10F 19,13,13,32,32,32,82,85,78,13P I1 10: X: 630I,X: LI` )` ͽ LSCRE  COMMODORE FONT EDITOR> PROGRAMMED BY STEPHEN REEDDg( IF YOU DON'T WANT TO TYPE IN2 THIS PROGRAM, COPIES ARE< AVAILABLE ON DISK WITH SEVERALF CHARACTER FONTS. SEND $12.95 TO:PZ FONT EDITOR d 24 6,8,4,2,1 ""(142)(8)"";+ CC1:OC1\ " COMMODORE FONT EDITOR "; "" 510: GET E WINDOW 740: MENU ON SCREEN 920: DISPLAY CHARACTERS "1070: UPDATE SCRN FOR 12288,(A53248): 1,(1)44 56334,(56334)1:1070= 740Z 53272,((53272)240)12w 1390:A$"0"A$"9"450 A(A$):A0A10 A1700,1890,2070,2430,2620,2750,2920,3010,3170,3240  450   *************************) *********************************Q ******** LISTING NO. 1 **********x ***** BY THE NUMBERS *********** * A NUMBER CONVERSION PROGRAM ** ******************************** HEX$(8),BIT$(8),BIT(8),H$(16),B$(16),TEMP$(2)% Ε|&ϭ'xϭϩX hhLhˍɌɤݞ:LLυ Ʈ kHjH`J:ͧ Lhˢ奺 o   υ o 5   LHEX$(I)(TMP10("A"))* N0 II1: 2309 "HEX: ";X" L1 8: HEX$(L);: L:b, 1601 ****** HEX TO DECIMAL *********6 (147): " HEX-TO-DECIMAL CONVERSION"@: " RANGE: 0 TO FFFFFFFF":JA$""::: 4 CR$"***********************"CR$"* *"v 5 "* ROAST BEEF *"CR$"* CORNED BEEF *" 6 "* SHAVED HAM *"CR$"* PASTRAMI *" 7 "* TURKEY & SALAMI *"CR$"* *" 8 "****00  MOVE UP? 7 A6 NPNP1: NP0 NP4= N MOVE DOWN?T v A3 NPNP1: NP4 NP0 IF MOVE, GO DO IT NPXP 920: 900:XPNP 197,64: 100 (197)64 200 CLEAR OLD CHOICE "TURKEY & SALAMI ON ROLL":0 QUIT ROUTINE6M  (197)64 800|* "": 792,71: 808,237: 657,0: 198,0: POKE COLORS INTO COLOR MEMORY ICO(NP) CO(NP)15: I,NC:: ICO(XP) CO(XP)15: I," i H H>hh  u yȭ ̩  Lxhh ̩  Lj B `  `hhhhL `y0莞`qόH8  h © |¬`H" h`04 S. MYRTLE AVE.- n SANFORD, FL 327073 x9 [ ***************************} * INITIALIZE PROGRAM DATA * *************************** 53281,1:53280,7 52,48:56,48::R$(7) A07:R(A):A 128,64,32,1 CC ,(12288)60430 6: @ ***************************\ J * DOWNLOAD ROM CHARACTERS *~ T *************************** ^ h"";O$;"PLEASE WAIT 30 SECONDS" r56334,(56334)254 |1,(1)251 A02047 Aɠ `" 8   yȩ 9Į H8   9ĮHh ̮$L8Ī ̢u 莚L8Ī ̢u ȩͩ˩˩ ˩˩˩˭ y8   9ĩ $  ͩ  `H  hL Ċ)ϰϐ*ϰ ϰ% Lĩ7`6`+,%, ^%W.- Y 3/B L|d xύύXLh Y  LhHhlϭH)υ h Lh˩1ͩ8ͩ ͩ0ͩ ͩ ˭ yȩ /  Ľ 9ϭ:ϭDϭE ĩ8  ˭ y ­ϩ L Ʃ΅υ`  % 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, 16 *******************"CR$CR$CR$CR$CR$CR$K 9 " PRESS RUN/STOP TO QUIT";U < 900[ ao b READ KEYBOARDu c dA(197): A64 100 j k l STOP NOW? m n A63 800 u v CHOICE MADE? w x A60 200: 1 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, 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 "1 1 B-P:2 0 LOGGED TO # -*- DOS PLUS V1.0 -*- ^ BAD CMD OR NO (:) STATUS: ^ BAD # OR NO (, $ ') DUMPING: NEXT T&S: RETURN TO EXITNON-HEX #REWRITING $0:<> FILE TOO BIG INSERT DESTINATION DISK -PRESS RETURN TO ? 8/+,LL  נ   -H.H.-0:蹧υb -..8LuƑ-.-.hH.. B  L )ύ)υ  LoȭLoȢ ͝͝ ͩ͝͝͝͝ ˩ ĭ yȩ ͹ g LOL#H h L. ɡLoǘ`. `H h hh`W  c ͭυ  )i L0ȩ:Ƚ'Lo'򄷠$L , $uu ,ͭ$Luu ,ͭυ  LL 0  0  0     XL ĩ L(uLx Ϡ Ϡ   0    ,0)u莘 ` ͊HJJJJ !h) 0:iL u 0I0 iI.` d' +̉ĉĉċϒ1$#^/%@_*D23V_1$Q89NCRSIVMUI0U;V0#U1:2 0 18 1 U2:2 0 11 11 B-F:0 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, 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,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,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)9 COPYING:  BYTES COPIED L: '4AN[huREL DEL PRG USR SEQ DISK: , DOS VER FILENAME TYP BLK LOAD ADDRS "Bb18 1 18 4 18 7 18 10 18 13 18 16 18 2 18 5 18 8 18 11 18 14 18 17 18 3 18 6 18 9 18 12 a ȱ- ̟.͠. h.h- .8.. ̩ &.LL B h.h-L*: ʊ" "` L ,0:鍕 L ̩  ̢o  LKx ĭϭϩ^ȍX xXL8  lϩ> Lh˩` `0ȩ:Ƚ'Lo' 'Lo $LoȠuu ,( ʩ Ģ C.Lw0Lc:L[˙Lwʭ) )mLʎ"L[L[i L'L L L ʢ L ĩ  x Ϡ  ` Ϡ      X`u ,ͩ=  Lhˢu= $ W莗 Y̮0<:8) ̰0 ̰+} ̰}`>` Lhˍ _ͭ`͐_͍ɰ  ****************0 DEFINE VARIABLESG **************** 53280,6: 53281,0: 646,1: SET SCREEN, TEXT COLORSCOL1WH$(5): GR$(30): YE$(158): OG$(129): PU$(156) #CL$(147): HO$(19): RV$(145)(18): UP$( OG$;BY$;- U#6, BY$: BY$ "" BY$;: 857 Z WH$W _ ************************v d FIND AND PRINT FILENAMES i ************************ n ENTRY0 19: II1: F$"": SK0 s#6, BY$,BY$:#6, HB$,LB$ x#6, BY$: BY$ (32)  OLCOL 1! COL2 HO$"": 110B " PRESS A KEYW J$:J$"" 211g HO$""; COL2 (COL2) BL0 19: SP$: : 225 BL0 19: 19);SP$: SP$;SP$;HO$;"": 110 ***************** 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 ****************0 DEFINE VARIABLESG **************** 53280,6: 53281,0: 646,1: SET SCREEN, TEXT COLORSCOL1: FI$(40)WH$(5): GR$(30): YE$(158): OG$(129): PU$(156) #CL$(147): HO$(19): RV$(145)( (34) 75! P 8) "";OG$;BY$;J U#6, BY$: BY$ "" BY$;: 85T Z WH$t _ ************************ d FIND AND PRINT FILENAMES i ************************ n ENTRY0 19: II1: F$"": SK0 s#6, BY$,BY$:#6, HB$,LB$  #6, BY$ #6, BY$: BY$(32) 1753 ","; BY$; " "S #6, BY$: BY$ "" 185f : COLCOL 1 COL 2 COL2 (COL2) I0: 560 COL2 HO$: 110 214,22: 211,0: RV$;YE$;" ":430: 265: HO$;WH$ COL2  (COL2) BL0 19: SP$: : 225F BL0 19: 19);SP$: : 580_ SP$;SP$;HO$: 110w ***************** PRINT BLOCKS FREE ***************** BL (HB$(0)): BL$(BL256 (LB$(0))) 214,22: 211,0: R145), (SP$" ": BL0 18: SP$SP$" " : N - 6,8,0,"$": OPEN DIRECTORYo 2 ************************** 7 FIND AND PRINT DISK HEADER < ************************** A CL$: CLEAR SCREEN K#6, BY$: BY$ (34) 75 P 8) "";230 }#6, BY$: BY$ (34) 125B COL2(COL2) 19)" ";\ BL1 16: #6, BY$ BY$"" BY$(34) BY$(32) BY$;: #6, BY$ #6, BY$: BY$(32) 175 ","; BY$; " " #6, BY$: BY$ "" 185 : C PRINT BLOCKS FREE" *****************T BL (HB$(0)): BL$(BL256 (LB$(0))) 214,23: 211,10: RV$;PU$;BL$;" BLOCKS FREE ";: 6: BC1 #6, BY$: BY$(32) 175 ","; BY$; " " #6, BY$: BY$ "" 185 : C(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:T18): UP$(145)7 (SP$" ": BL0 18: SP$SP$" " : Y - 6,8,0,"$": OPEN DIRECTORYz 2 ************************** 7 FIND AND PRINT DISK HEADER < ************************** A CL$: CLEAR SCREEN F 535: HO$; K#6, BY$: BY$x#6, BY$: BY$ (32) 230= }#6, BY$: BY$ (34) 125_ COL2(COL2) 19)" ";y BL1 16: #6, BY$ BY$"" 160 BY$(34) SK1: 160 SK0 F$F$BY$ 165 BY$(32) BY$;: : FI$(I)F$  V$;YE$;" "? 214,23: 211,10: RV$;PU$;BL$;" BLOCKS FREE ";: 6: BC1_ 430: 265: WH$ CL$: }  *********************** DETERMINE USER'S CHOICE ***********************C0: R21: SC1024: X1864: D54272: OK0 BY$: DOWN.; BY$(145) RR1: OK1: R1 R1: CURSOR UP[@ BY$(29) C20: OK1: CURSOR RIGHTE BY$(157) C0: OK1: CURSOR LEFTJ OK0 265O 340: 285T ***********Y MOVE CURSOR^ ***********c YX X  C20 ZZ20 FI$(Z)"" @ "LOAD"; (34); FI$(Z); (34);",8"T "RUN" 631,19: 632,13: 633,13: 198,3:  **** BEEP **** 54296,15: 54277,7: 54278,133 54273,28: 54272,49: 54 35: GS1: 340: GS0: BC 250 210+ZR: C20 ZZ20O FI$(Z)"" R20 535: 265dKL$"S0:"FI$(Z)  15,8,15: 15, KL$: 15:  ****************** PRINT COMMAND LINE! ******************& 214,25: 211,0)N$"*DSKDU*":N1$"BY MARK JOHANSEN"8DA8:8000E *HEX IN[ N0: (H$)0  HX1(H$):N1((H$,HX,1)):N1N148: N19 N1N17NN16N1:*READ"";N$:"";N1$:"TRACK";H$:10:TN "SECTOR";H$:10:( (147);(5): 53280,14: 53281,6@ I1 6: (17):e I1 16: (29);::"LOADING"( (19);(31);"POKE 8192,0:POKE 44,32:NEW"2 (17);(17);"LOAD"(34)"RAID"(34)",8"< 198,10F 19,13,13,32,32,32,82,85,78,13 P I1 R ";HX$(S16);HX$(S 15) RK \ LP P63 4: HX$(L16);HX$(L15);":"; f BYL L3: HX$(D%(BY)16);HX$(D%(BY)15);" ";: p BYL L3:C$(D%(BY)): C$" " C$"_" C$(34) C$"." z C$;: : *ALLOW MODS L0:C0H BY$"" 285=" BY$(133) GS1: 340: GS0: : DISPLAY MORE DIR.a' BY$(134) : REPEAT DIR., BY$(135) 385: LOAD A PROGRAM1 BY$(136) 465: : ERASE A PROGRAM6 BY$(17) RR1: OK1: R21 R21: CURSOR1h (Y) 128 Y,((Y)128): YD,1*m: GS Vr 211,C: 214,R: UP$;: XSC(40R)Cw YX X1: (Y) 128 Y,((Y)128): YD,7|:  ************** LOAD A PROGRAM ************** 6: ZR: R20 276,17 K1 150: : 54276,18  54296,0: 6 ***************L ERASE A PROGRAMb *************** 214,25: 211,0: RV$;" ERASE -- ARE YOU SURE (Y/N)? "; J$: J$"" 485 J$ "Y" 500510 5!+ RV$GR$" F1=MORE F3=REPEAT F5=LOAD F7=ERASE ";: >0 **********************[5 SET FILENAMES TO NULLSx: **********************? K1 20: FI$(K)"": : D K21 40: FI$(K)"": : 5 J$ "Y" 500510 5SN* V15,"U1:2,0,"T;S:9000: ER0 1000< `15,"B-P:2,0"e jD%(0)0: 828,(71): 829,(72):880} 9000: ER0 1000 *VIEW/MOD P0 4 FLASH SCREEN 6 P0 P192 8 P192 P0 >"TRACK ";HX$(T16);HX$(T 15) H"SECTO 10: X: 630I,X:NUMBERS.BAS 64 BUG REPVIC BUG REPFLANKSPEED F-SPEED OVER2-COL SUBROUTINE2-COL DIRECTORY BYPL4C2:HXC1:H1$(0)HX$(D%(BY)16):H1$(1)HX$(D%(BY)15):C1(C1.5)p  781,L3: 782,C13: 783,0:65520|  204,0  I$: I$"" 2240  204,1: H1$(HX);  I$"" PP64:2100  I$"" PP64:2100  I$"" 1000 TOP LEFT CORNER""0-9,A-F")" OVERWRITE NIBBLE"8"F2 QUIT"S :"(ANY KEY TO CONT)"k* I$: I$"" 7210u42100@53280,2:53281,0:646,1A*INITT15,DA,15^2,DA,2,"#"h D%(255)r HX$(15): BY015: HX$(BY):0 133,251: STA !251: 134,252: STX !252/D 169,0: LDA #0HN 141,62,3: STA 830ZX 96,-1: RTSvl 860: ADVANCE POINTERv 24: CLC 165,251: LDA !251 105,2: ADC #2 133,251: STA !251 165,252: LDA !252  I$"" TD%(0):SD%(1):11100  I$"" 2750D  I$"" 2700X  I$"" 2800l  I$"" 2850  I$"" 3000 $ I$"" 4000 . I$"" 2210 ` I$"0" I$"F" I$"9" I$"A" 7000 j ""I$; ~ H1$(HX)I$:H$L1: L15 L0 2220 CURSOR UP5 LL1: L0 L15? 2220Q" CURSOR LEFTm, CC1: C0 C7:2800w6 2220 *WRITE "PREPARING TO WRITE" " TRACK ";HX$(T16);HX$(T 15);" SECTOR ";HX$(S16);HX$(S 15) :" T"DONE ..."  204,0:X*HELP+b"DSKDU HELP":Cl"F1 PREVIOUS PAGE"Wv"F3 NEXT PAGE"m"F7 READ SECTOR""F4 READ NEXT SECTOR"" IN FILE""F8 WRITE SECTOR""CRSR CONTROLS"" UP,DOWN,LEFT,RIGHT""HOME| 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F  H1$(1)7 LOAD ML ROUTINESN AD: AD0 8190u B: B0 AD,B:ADAD1: 8120 81101000 READ/WRITE ROUTINES 840: SETUP 173,60,3: LDA 828& 174,61,3: LDX 829H1$(0)H1$(1) 10:D%(BY)N? 781,L3: 782,C215: 783,0:65520v C$(D%(BY)): C$" " C$"_" C$(34) C$"." C$; FALL THRU INTO CURSOR RIGHT CURSOR RIGHT CC1: C7 C0:2750 2220 CURSOR DOWN LO WRITE":"ANY OTHER KEY TO ABORT", I$: I$"" 3040C I$(13) 2100R DO WRITEd& 15,"B-P:2,0"w0 "WRITING ...": D%(0)D%(0): 828,(71): 829,(72):910D 15,"U2:2,0,";T;S:9000: ER 2100N 2100*QUIT2:15*XC::2,8,2,"CARD1,S,W":2:999$" "B S JUMP TABLEY z NP1 300,400,500,600,700 , "ROAST BEEF ON WHEAT":  "CORNED BEEF ON RYE":  "SHAVED HAM ON A CROISSANT": X "PASTRAMI ON TOAST": R AN 8-BIT BINARY NUMBER"( "(OR 'M' FOR MENU): ";A$:: A$"M" 40O (A$)8 510b L8 1 1xBIT$(L)(A$,L,1)& BIT$(L)"0" BIT$(L)"1" 5100L:L18:BIT(L)(BIT$(L))NL:ANS0:M256:L18vMM2:ANSANS A$"0" 840 (A$)1 (A$)255 7106NR(A$):L811:QNR2CRQ(Q)a R0 BIT$(L)"0": 790q BIT$(L)"1"NR(Q):L* "BINARY: ";L18:BIT$(L);:L::710H L1 8:BIT$(L)"0": L: 810M ******* HEX TO BIL,1) HEX$(L)"0"HEX$(L)"F"870,HEX$(L)"9"HEX$(L)"A"870^L: HEX$(2)"" HEX$(2)HEX$(1):HEX$(1)"0" L1 16: HEX$(1)H$(L) BIT$(1)B$(L)L: L1 16: HEX$(2)H$(L) BIT$(2)B$(L)L:: "BIN: "; BIT$(1);BI"BIT$(L)"1"510@VL:BIT$BIT$(1)BIT$(2)BIT$(3)BIT$(4)BIT$(5)BIT$(6)BIT$(7)BIT$(8)h`T1$(BIT$,4):T2$(BIT$,4):L116j T1$B$(L) HEX$(1)H$(L)~L: L1 16: T2$B$(L) HEX$(2)H$(L)L: "HEX: ";HEX$(1);HEX$(2) 10$ 18 15 18 18 LhLhLh˦ -*- DOS PLUS V1.0 -*- ^ BAD CMD OR NO (:) STATUS: ^ BAD # OR NO (, $ ') DUMPING: NEXT T&S: RETURN TO EXITNON-HEX #REWRITING $0:<> FILE TOO BIG INSERT DESTINATION DISK -PRESS RETURN TO ? 8/*****  * PUT EDIT WINDOW ON SCREEN *E  ******************************K [ " ";q &" 12345678 " 0"  ΐ " :"  " D" 1  1" N" 2  2" X" 3  HEX$(L)"A" 330 HEX$(L)"F" 330:NN16(HEX$(L))("A")10J N0 330R Ld "DEC: ";N:n 330 ***** BINARY TO DECIMAL ******* (147): CLEAR SCREEN: " BINARY-DECIMAL CONVERSION"A$"":: "ENTEBIT(L)M:L "DECIMAL:";ANS:5107 **** DECIMAL TO BINARY *******S (147): CLEAR SCREEN~: " DECIMAL-BINARY CONVERSION": " RANGE: 0 TO 255"::BM$"":A$"":"TYPE A NUMBER (OR 'M' FOR MENU)";A$:A$"M"40NARY ********(R (147): " HEX-TO-BINARY CONVERSION":L\" RANGE: 0 TO FF":f: "TYPE HEX NUMBER (OR 'M'FOR MENU):":A$"": A$p A$"M" 40z (A$)2 (A$)1 870HEX$(1)"":HEX$(2)"":L1(A$):HEX$(L)(A$,T$(2): 870 ***** BINARY TO HEX ********! (147):F" BINARY-HEX CONVERSION"m: "ENTER AN 8-BIT BINARY NUMBER"A$"": "(OR 'M' FOR MENU): ";A$::A$"M"40. (A$)8 1040LL811:BIT$(L)(A$,L,1):BIT$(L)"040: 870 ***** BINARY TO HEX ********! (147):F" BINARY-HEX CONVERSION"m: "ENTER AN 8-BIT BINARY NUMBER"A$"": "(OR 'M' FOR MENU): ";A$::A$"M"40. (A$)8 1040LL811:BIT$(L)(A$,L,1):BIT$(L)"0 "TYPE HEX NUMBER (OR 'M'FOR MENU):": A$-T A$"M" 40A^ (A$)8 330IhN0[r L1 (A$)q|HEX$(L)(A$,L,1) HEX$(L)"0" HEX$(L)"F" 330 HEX$(L)"9" HEX$(L)"A" 330 HEX$(L)"9" NN16(HEX$(L)): 430 3"b" 4  4"1l" 5  5"Mv" 6  6"i" 7  7"" 8  8""  ""  ͐ ""  12345678 ": ***************** CHARACTERS" O$;"5] SWAP CHARACTERS"8*O$;"6] INVERSE CHARACTERS"X4O$;"7] GET ROM CHARACTERS"y>O$;"8] DISPLAY DATA VALUES"HO$;"9] DECREMENT DISPLAY"RO$;"0] INCREMENT DISPLAY"\:O$;" SELECT OPTION? ":fp **** "89:;<=>?"&A94255=1024184024A,AU55296184024A,0[i(146):o ****************************** * PUT CURRENT DATA ON SCREEN * ******************************$