4, 41 128, 240, 8, 169, 37, 32, 210, 255, 76, 160Q 193, 169, 36, 32, 210, 255, 185, 67, 198, 240 10, 169, 40, 32, 210, 255, 169, 41, 32, 210 255, 169, 32, 32, 210, 255, 185, 67, 196, 170 185, 67, 197, 140, 6, 194, 32, 205, 18 153, 67%4 197, 185, 68, 198, 153, 67, 198, 173, 8, 194X> 153, 68, 194, 173, 9, 194, 153, 68, 195, 173H 10, 194, 153, 68, 196, 173, 11, 194, 153, 68R 197, 173, 12, 194, 153, 68, 198, 200, 76, 214\ 192, 174, 7, 194, 240, 3, 76, 207, 8, 104, 168+ 104, 96, 169, 13, 32, 210, 255, 162, 0, 142] 7, 194, 160, 0, 185, 68, 194, 240, 122, 185 68, 197, 217, 67, 197, 240, 5, 176, 13, 76 81, 193, 185, 68, 196, 217, 67, 196, 144, 97 240, 95, 169, 1, 141, 7, 194, 185, 6 2, 228, 177, 1626l 193, 142, 229, 177, 160, 0, 185, 13, 194, 201fv 0, 208, 1, 96, 32, 210, 255, 200, 76, 106 192, 162, 0, 142, 7, 194, 32, 121, 0, 32 144, 176, 72, 152, 72, 162, 0, 189, 67, 194 240, 37, 189, 67, 194, 197, 69, 20  120, 169, 0, 133, 252, 162, 160, 134, 253, 160Y  0, 162, 0, 157, 67, 194, 157, 67, 195, 157  67, 196, 157, 67, 197, 157, 67, 198, 232, 208 & 238, 177, 252, 145, 252, 230, 252, 208, 2, 230 0 253, 165, 253, 201, 192, 208, 240, 165, 1, {89, 32, 87, 79, 79, 68#8 13, 72, 79, 85, 83, 84, 79, 78, 44, 32KB 84, 88, 32, 49, 57, 56, 52, 13, 0WL 75509 0, 162, 0, 157, 67, 194, 157, 67 195, 157, 67, 196, 157, 67, 197, 157, 67, 198 232, 208, 238, 76, 134, 227, 169, 1, 141 9, 172 6, 194, 169, 32, 32, 210, 255, 169, 44, 32N 210, 255, 200, 76, 95, 193, 169, 20, 32, 210 255, 169, 0, 162, 0, 157, 67, 194, 157, 67 195, 157, 67, 196, 157, 67, 197, 157, 67, 198 232, 208, 238, 76, 134, 227, 169, 1, 141 192, 160"f 0, 140, 6, 194, 56, 32, 240, 255, 152, 172Rp 6, 194, 201, 30, 144, 5, 169, 13, 32, 210z 255, 185, 67, 194, 240, 90, 41, 127, 32, 210 255, 185, 67, 195, 41, 127, 32, 210, 255, 185 67, 195, 41, 128, 240, 20, 185, 67, 19 7, 194$ 141, 8, 194, 185, 67, 195, 141, 9, 194, 185W  67, 196, 141, 10, 194, 185, 67, 197, 141, 11 194, 185, 67, 198, 141, 12, 194, 185, 68, 194  153, 67, 194, 185, 68, 195, 153, 67, 195, 185* 68, 196, 153, 67, 196, 185, 68, 197, 8, 26, 189- 67, 195, 197, 70, 208, 19, 189, 67, 198, 205_ 7, 194, 208, 11, 254, 67, 196, 208, 29, 254 67, 197, 76, 198, 192, 232, 76, 137, 192, 165 69, 157, 67, 194, 165, 70, 157, 67, 195, 254 67, 196, 173, 7, 194, 157, 67, 19 41): 254, 133, 1, 88, 162, 76, 142, 139, 176, 162`D 121, 142, 140, 176, 162, 192, 142, 141, 176, 162N 202, 142, 85, 168, 162, 192, 142, 86, 168, 162X 240, 142, 229, 176, 162, 193, 142, 230, 176, 162b 76, 142, 227, 177, 162, 248, 14 , 7 194, 76, 209, 177, 173, 7, 194, 72, 32, 178G 177, 104, 141, 7, 194, 76, 230, 177, 0, 0o 0, 0, 0, 0, 0, 13, 70, 65, 83, 84 69, 82, 32, 54, 52, 32, 87, 79, 82, 75$ 73, 78, 71, 46, 13, 66, 89, 32, 65, 78. 84, 72, 79, 78, **$[40,67,40,49,57,56,52,71,74,79,78,69,83,169,1,162`\8,160,1,32,186,255,169,15,162,223,160,2,32,189,255,169]0,162,255,160,255,32,213,255,134,45,132,46,32,239,2,32^91,228,32,89,198,76,174,199,160,160,160,160,160,160,160,160_160,160 SR%1:FI%FI%1J6KLM%,(PN$): SET LENGTH OF NEW PROGRAM NAME<L_M*****************************N MX=65535 MAXIMUM ADDRESSO BS%=692 START OF NUBOOTP FI%=512 SYSTEM INPUT BUFFERQ CS%=80 NO OF BYTES TO SAVER SR%  COMMODORE 64 JOYSTICK#B USE SECOND JOYSTICK PORTHX 600: 500fPV10:H10pZ 140vab MAIN MOVEMENT LOOPcdS(56320)e (S 1)0 VV1: V0 VVBFf (S 2)0 VV1: VBE VVBF g (S /015:15,DV,15!115,ER,ER$,T,S'2/348p4ER8)ER;ER$;T;S:" Π& !";:52515:15,DV,15615,"N0:"DN$","ID$7158489ER52:2:2,DV,1,"0:THE MAGIC BOOT,P,W": SHIFTED SPACE BEF:VM$(I)VM$(I1)(17): I " U> V SET UP SCREEN MARGINSD WN XRE38X ]RF39b bBE23l gBF24r i j PLAYER FIGURE k lPF$(122) s t SCREEN COLOR u v 53281,1: 53280,1: (147) BE VVBF g (S TO OOT" PN$ (PN$)031V !71: GET STRING FROM INPUT BUFFER AND POKE TO FILENAM ""S ";PN$;"":"A PROGRAM? (Y/N)" #A$:A$""35 $A$"Y"A$"N"35 %A$"Y": NOW GET ENTRY POINT OF ML PROGRAM &"IVE THE d"": 53280,0: 53281,4\n 3)"        "x 3)"        ̯" 3)"         " "  ? (Y/N)" A$:A$""131 A$"Y"A$"N"13B A$"Y":5K ""r 58459: RESTORE WARM START VECTOR "LL ONE!";:18 "":DN$"":ID$"":PN$"":RN%,174:RN%1,199:IM%,180:IM%1,2  POKE ADDRESS OF BOOT INTO BASIC WARM IONAL INC"1 (L$,20)9)"RETURN OR CHOOSE NO.";P 198,0: AN$:AN(AN$):B0c AN$"" 100 : CH1 AN: PR$: CH "": 53280,0: 53281,0 (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8,1" "RUN"DL INC"1 (L$,20)9)"RETURN OR CHOOSE NO.";P 198,0: AN$:AN(AN$):B0c AN$"" 100 : CH1 AN: PR$: CH "": 53280,0: 53281,0 (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8,1" "RUN",160,160,160,160,160,160,162,0,169,160,157,223,2,232O`224,16,208,246,141,189,2,96,0,139,227,180,2a 'VIC BOOTER' COPYRIGHT 1984 GEORGE JONES * FOR VIC 20N$= PROGRAM NAMEX DN$= DISK NAMEY ID$= DISK IDZ************************** =735 LOC OF FILE NAME%S RN%=733 INTERPRETER LOOP &DT SYS ADDRESS FOR ML PROGbU LM%=702 STORE LEN(PN$)V IM%=770 BASIC WARM START VECTORW PN$= PROGRAM NAMEX DN$= DISK NAMEY ID$= DISK IDZ**************************  4)0 HH1: H0 HHRFB h (S 8)0 HH1: HRE HHRFW i (S 16)0 o n HHX VVX 100 VM$(VX)HX)" "VM$(V)H)PF$ HXH:VXV 100   SET UP MOVEMENT STRINGS   VM$(BE):VM$(0)(19)  I1 BE ORE TITLE;2,(S%(S%256)256);)<2,(S%256);8=I0CS%1K>2,((S%I));Q?X@2^AwB"";(14):36879,25C7)" "D" () 1984 EORGE ONES"ET12000:FGC1(PN$)HSR%,((FI%))ISR% ."* ^:"PRESS RETURN WHEN THE CORRECT DISK"? h"IS IN DRIVE 0"V rA$:A$(13)370_ |CK0q 15,8,15,"I0" 15,"S0:FASTER" 8,8,8,"FASTER,P,W" 15,E,ER$,A,A:E0ER$:15: 8,(0);(192); D:D2568,(D);:CKCKD:440  ADDRESS:" 'ADN (AD1ADMX" !":C11000::"";:38y )RN%,(AD(AD256)256): POKE LO BYTE *RN%1,(AD256): POKE HI BYTE +4)"S DATA CORRECT? (Y/N)" ,A$:A$""44 -A$"Y"A$"N"44 .A$"N"  "- L$"":TA12Q AA1:BB1: PR$: A9 TA11o (L$,B7)TA)""A"-"PR$ B9 175 150 A18 :A0 (L$,22)" DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNAT  START VECTOR) "ԠˠϠԒ":B CS%E%:Z%:C,Z%:a "*̠Š*" " נˠ: " DN$ (DN$)024 " נˠ: " ID$ (ID$)027 "AME THE PROGRAM":"YOU WANT : ""(  631,13: 632,13: 198,2:p  64 CHECKSUM,VIC CHECKSUM,JOY64,JOYVIC,HOP AROUND 64,HOP AROUND 20  SPACE HUNT,FLANKSPEED,RUPERT,ELECHECK,BASIC TRACE,FASTER 64  F-SPEED OVER,PACHELBEL,VIC BOOTER,C64 BOOTER,FASTER 64 BASIC,EN 51: FORMAT DISK AND WRITE BOOT\ "";:"HE WILL LOAD":"AND RUN THE PROGRAM" "";PN$::"AFTER YOU HAVE SAVED" "IT ONTO THIS DISK." "O TEST, TYPE:":"";:(34)":*"(34);:",8,1" 2:15 "NOTHER  8:15,E,ER$,A,A:E0ER$:15:& 15i CKD"** DATA ERROR ** PLEASE CHECK YOUR DATA STATMENTS.": :"OK. FILE CREATED. TO RUN THE PROGRAM," "ENTER: LOAD";Q$;"FASTER";Q$;",8,1" "THEN ENTER SYS49152 TO INITILIZE IT." ( "FFCA(I)1J$"03"MMCA(I)1J$"04"APAPCA(I)2J$"05"MAMACA(I)2&J$"06"JUJUCA(I)220J$"07"JLJLCA(I)K2:J$"08"AUAUCA(I)d2DJ$"09"SPSPCA(I)}2NJ$"10"OCOCCA(I)2XJ$"11"NONOCA(I)2bJ$"12"DEDE )/K{3,(16)(55)(49)"$";""8(I$));I$/T{IC31590/\{!0f{3:3,"TOTAL FOR ";Z$;" $";T$:L15:3::3*0k{100?0}"":L110::r0}9);"IT'S BEEN A PLEASURE":L14000::"":0**ROUTINE FOR GRAPHS**0"": " DO YOU WISH A COPY XREG,DNUM : YREG,CMMD SLFS6 "BACK FROM 'SETLFS'":\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-  ...KERNAL ROUTINE: SETNAM... "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ,SNAM65469 : $FFBD 6BUFF49155 : $C003 @LNAM(FLNAM$) J N1 (T$)1)- {3,4:3,(16)(51)(51);Z$ ."{CC(Z$):UU$(BB$,CC):3,(16)(51)(51);UU$>.#{3,(10):3,YY$:3,(16)(48)(49)"CHECK #";o.${3,(16)(49)(50)"DATE";(16)(50)(49)"";.%{3,(16)(50)(56)"PAYEE";(16)(51)(56)"";.&{3,(16)(52 SVE65496 : $FFD8+ZPTR251 : $FB (ZERO PAGE)@ ZPTR,L(SADDR)W ZPTR1,H(SADDR)g AREG,ZPTR| XREG,L(EADDR) YREG,H(EADDR) SVE"BACK FROM 'SAVE'":"===MEMORY SAVE ROUTINE===""FILE NAME: ";F $((CA(I)))"."((CA(I)100),2),z3,(16)(55)(49)"$";""8(I$));I$&,zT$(T.001):T$(T$,(T$)1)W,zIC3:3,"TOTAL FOR ";Z$;" $";T$:T0:3:3,zA133,"YEAR TO DATE ";DA$;" TOTAL";" $";GT$:3:3,zA133:100,zIC3:31332 6DJ0:F0:M0:AP0:MA0:JU0:JL0:AU0:SPO:OC0:NO0:DE06NHA$"Y"410017(HA$"N"100'7)"";:SS((210))256:3,3:4,497*R024:B$""K7+C039:A$""7,(SS((R40)C))127:#3,A$:B$B$(18)A$(146)7-(SS((R40)C))1274 99997);"NO ENTRIES FOR ";Z$:5::31332*z3,4:3,(16)(51)(51);Z$7*zCC(Z$):UU$(BB$,CC):3,(16)(51)(51);UU$h*z3,(10):3,YY$:3,(16)(48)(49)"CHECK #";*z3,(16)(49)(50)"DATE";(16)(50)(49)"";*z3,(16)(50)(56)"PAYEE";(  ";::JL;::N254̜" ":AU660N505֜"AUG";:I1AUN:" ";::AU;::N255" ":SP660N50K5ꜙ"SEP";:I1SPN:" ";::SP;::N25d5" ":OC660N505"OCT";:I1OCN:" ";::OC;::N255" ":NO = 'VIC BOOTER' COPYRIGHT 1984 GEORGE JONES * FOR VIC 20M:DV(186)BS%692:FI%512:CS%93:SR%735:RN%733:LM%702:PO%723:IM%770:MX65535S%679:E%771:LO%(IM%):HI%(E%)66: TITLE19: INPUT DISK,ID & PROG NAME STRING CA(I)2l2E""2J" ":N25:J660N50 3T"JAN";:I1JN:" ";::J;::N25!3Y" ":F660N50O3^"FEB";:I1FN:" ";::F;::N25g3h" ":M660N503r"MAR";:I1MN:" ";::M;::N253|" ":AP66 OF THE GRAPH "0HA$:HA$""350021ˆ"":53280,7:53281,7:" ONE MOMENT READING "Z$+1̈5,8,5,"0:"Z$",R"81ֈI1199`15,CN(I),CD$(I),PE$(I),CP$(I),CA(I)z1ꈋCN(I)99995:400051J$(CD$(I),2):J$"01"JJCA(I)1J$"02 $CC00 (START ADDR)2 EADDR53082 : $CF5A (END ADDR+1)8 ^ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ...KERNAL ROUTINE: SETLFS... =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- SLFS65466 : $FFBA FLNUM8 : DNUM8 : CMMD255 AREG,FLNUM )(49)"";(16)(53)(50)"PURPOSE";/'{3,(16)(55)(48)"";(16)(55)(52)"AMOUNT"/9{3,YY$/>{I1CR/H{3,(16)(48)(50);CN(I);(16)(49)(48);CD$(I);/I{3,(16)(50)(49);PE$(I);(16)(52)(49);CP$(I);/J{I$((CA(I)))"."((CA(I)100),2  LNAM T BUFFN1,((FLNAM$,N,1))# ^ N3 h AREG,LNAMG r XREG,L(BUFF)[ | YREG,H(BUFF)f  SNAM "BACK FROM 'SETNAM'": =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-  ...KERNAL ROUTINE: SAVE... =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ,z,z**ROUTINE TO PRINT ONE FILE**,z5,8,5,"0:"Z$",R",-zH1"":G110:::7);"PRINTING ";Z$;" FILE"=-zI1199:CIe-z5,CN(I),CD$(I),PE$(I),CP$(I),CA(I)-{CN(I)99995:31510-{TTCA(I)- {-{CC1:T$(T .001):T$(T$,M11007.#3,A$:A$(13):A$" "7/B$B$A$7C:4,B$:R:4:3:1000N50&6&"DEC";:I1DEN:" ";::DE;::N25^6+HA$"Y"" ñññññ";Z$;"ññññý":4026060".......PRESS ANY KEY TO CONTINUE......"6:A$:A$""40250 16)(51)(56)"";*z3,(16)(52)(49)"";(16)(53)(50)"PURPOSE";1+z3,(16)(55)(48)"";(16)(55)(52)"AMOUNT"<+z3,YY$G+zI1C|+z3,(16)(48)(50);CN(I);(16)(49)(48);CD$(I);+z3,(16)(50)(49);PE$(I);(16)(52)(49);CP$(I);+zI 660N505"NOV";:I1NON:" ";::NO;::N255" ":DE660N50&6&"DEC";:I1DEN:" ";::DE;::N25^6+HA$"Y"" ñññññ";Z$;"ññññý":4026060".......PRESS ANY KEY TO CONTINUE......"6:A$:A$""40250QLNAM$&"STARTING ADDRESS: ";SADDR90"ENDING ADDRESS: ";EADDR1?:)[ | YREG,H(BUFF)f  SNAM "BACK FROM 'SETNAM'": =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-  ...KERNAL ROUTINE: SAVE... =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 0N503"APR";:I1APN:" ";::AP;::N253" ":MA660N50'4"MAY";:I1MAN:" ";::MA;::N25@4" ":JU660N50p4"JUN";:I1JUN:" ";::JU;::N254" ":JL660N504œ"JUL";:I1JLN:" "N"10150'':"CHANGE WHICH RECORD NO.";RN:'"":"RECORD NUMBER ";RN:['"1. CHECK NUMBER ";CN(RN):~'"2. CHECK DATE ";CD$(RN):'"3. CHECK PAYEE ";PE$(RN):'"4. CHECK PURPOSE ";CP$(RN):'"5. CHECK AMOUNT ";CA(RN): 450u31070 y**ROUTINE TO READ--LOAD ARRAY--ADD INFO***H y53281,12:53280,10:"":" ONE MOMENT READING "Z$` "y5,8,5,"0:"Z$",R"q ,yI1199:CI 6y5,CN(I),CD$(I),PE$(I),CP$(I),CA(I) @yCN(I)99995:31055 Jy OyCC1 ^y"":C CT ONE";AuA1A1330112 uA1Z$"CHARGE CARDS"(uA2Z$"CONTRIBUTIONS"DuA3Z$"ENTERTAINMENT"\uA4Z$"HOUSEHOLD"xuA5Z$"LOAN PAYMENTS"uA6Z$"MEDICAL/DENTAL"uA7Z$"MORTGAGE PAYMENTS"uA8Z$"TAXES"uA9 RS MAX. PLEASE":31090"|y"ENTER PURPOSE ";CP$(C):>"y(CP$(C))30"30 CHARACTERS MAX. PLEASE":31100c"y"ENTER CHECK AMOUNT ";CA(C):"y"IS THIS CORRECT ":"yR$:R$""31116"yR$"N"31075"yR$"R"100"y"ANOTH":CA(1)9999\N5,CN(1):5,CD$(1):5,PE$(1):5,CP$(1):5,CA(1)1fN5:Q2Q0:A0:100GpNQ3AA1:30115d/u***DATA FOR SUB MENU***0uSELECTION MENU,1. CHARGE CARDS,2. CONTRIBUTIONS:u3. ENTERTAINMENT,4. HOUSEHOLD,5. LOAN PAYMENTS,6. ":CA(I)9999$y5,CN(I):5,CD$(I):5,PE$(I):5,CP$(I):5,CA(I)$y5:1008$y***ROUTINE TO EXAMINE FILES***O$y53281,7:53280,14$y5,8,5,"0:"Z$",R":"":" ONE MOMENT READING ";Z$$yI1199:CI$y5,CN(I),CD$(I),PE$(I),CP$(I),CA(I)$100N***ROUTINE FOR INITIALIZING** N"":G18::D!N6);"1. INITIALIZE WITH INFORMATION":q"N6);"2. INITIALIZE ONE FILE ONLY ":#N6);"3. AUTO INITIALIZE ALL FILES ":$N6);"4. RETURN TO MENU ":%N6);"PLENT ڒ","$";V$:&zK4:" CONTINUE PAGING "&zK4S$:S$""312510&zK4K1:31232A&zS$"N"100G&zq&%z:" PRESS ANY KEY TO CONTINUE"&&zCT$:CT$""31270&'z100&Dz"":P18::P:53281,3:53280,10&Iz9)K PURPOSE ";CP$(RN)(CI4"NEW CHECK PURPOSE ";CP$(RN)U((CP$(RN))30"30 CHARACTERS MAX. PLEASE"::10240 (CI5"OLD CHECK AMOUNT "CA(RN):"NEW CHECK AMOUNT";CA(RN) (:"CHANGE ANOTHER LINE " (AC$:AC$""10253(AC$"N"ILES":'SzH$"2"" ";IC$(TzIC$"N"31300(UzIC$"R"1004(XzH(H$):H1H331315V(czA0:T0:X0:C0:Q0:GT0:""l(dzH2AA1:30115|(ezH130100(fzH3"":100(gz**START OF PRINT ALL FILES**(hz5,8,5,"'"6. RETURN TO MENU ":':"CHANGE WHICH LINE"3'CI$:CI$""10201i'CI(CI$):CI1CI6"ENTER A NUMBER 1-6":10201'"":G110::G:7);Z$;" CHECK"'CI1"OLD CHECK NUMBER ";CN(RN):"NEW CHECK NUMBER";CN(RN)'CI6"":C1:X5"INITIALIZING ";Z$!_y::X1 "INFORMATION FOR ";Z$:7!cy"ENTER CHECK NUMBER ";CN(C):]!hy"ENTER DATE ";CD$(C):!my(CD$(C))8"WATCH FORMAT":31080!ry"ENTER PAYEE ";PE$(C):!wy(PE$(C))17"17 CHARACTEZ$"TUITION"uA10Z$"UTILITIES"uA11Z$"INSURANCE".uA12Z$"MISCELLANEOUS"DuA133,4:31393TuQ220040duQ320040tuX131000uX231200uX410000uX331305uX735000uH231335uH131ER ";Z$;" CHECK  ""yAN$:AN$""31130 #yAN$"Y"310701#yX55,8,5,"0:"Z$",W":31150J#y5,8,5,"@0:"Z$",W"U#yI1C#y5,CN(I):5,CD$(I):5,PE$(I):5,CP$(I):5,CA(I)#y:IC1:PE$(I)"EOF":CN(I)9999:CD$(I)"DATE":CP$(I)"XXXX MEDICAL/DENTAL$Du7. MORTGAGE PAYMENTS,8. TAXES,9. TUITION,10. UTILITIES^Nu11. INSURANCE,12. MISCELLANEOUS,13. RETURN MAIN MENUru"":S14::u**ROUTINE TO SELECT ROUTINES**uS114:M$(S):9);M$(S)::u:" PLEASE SELEyCN(I)99995:31232$y$z"":11);Z$:%zBB$8%z"CK NO.";" ";" DATE ";" ";" PAYEE ":H%zK131242[%zI1C1:KK1% zV$(CA(I).001):V$(V$,(V$)1)% zCN(I),CD$(I)," ";PE$(I)%z"PURPOSEڒ",CP$(I)%z"AMOUASE SELECT ONE " &NQ$:Q$""20006&'NQ(Q$):Q1Q420006>*NQ1H0:C0:30100L9NQ4100\>NQ230100HN"":G112:::7);"INITIALIZING ";Z$JN5,8,5,"0:"Z$",W"RNPE$(1)"EOF":CN(1)9999:CD$(1)"DATE":CP$(1)"XXXX ;"PRINT OPTIONS "::9);"1. ONE CHECK FILE "'Kz:9)"2. ALL CHECK FILES"8'Lz:9);"3. RETURN TO MENU ":W'Nz9);"PLEASE SELECT ONE "l'PzH$:H$""31312'QzH$"1"H$"3"H$"":31310'RzH$"2""":" ARE YOU SURE YOU WANT ALL F10260(AC$"Y"10160(X45,8,5,"@0:"Z$",W""(I1CV((5,CN(I):5,CD$(I):5,PE$(I):5,CP$(I):5,CA(I)2(:IC1:CN(I)999:CD$(I)"DATE":PE$(I)"EOF":CP$(I)"XXXX":CA(I)9999<(5,CN(I):5,CD$(I):5,PE$(I):5,CP$(I):5,CA(I)F(5: 0:"Z$",R"(jzH27);"PRINTING ";Z$;" FILE":)lzI1199:CI))qz5,CN(I),CD$(I),PE$(I),CP$(I),CA(I)C)vzCN(I)99995:31368Q)zTTCA(I)W)z{)z**ROUTINE TO PRINT ALL FILES**)zCC1:GTGTT:GT$(GT.001):GT$(GT$,(GT$)1))zCN(1)100%'CI2"OLD CHECK DATE ";CD$(RN):"NEW CHECK DATE";CD$(RN)P'(CD$(RN))8"WATCH FORMAT"::10220'CI3"OLD CHECK PAYEE ";PE$(RN):"NEW CHECK PAYEE";PE$(RN)'(PE$(RN))17"17 CHARACTERS MAX. PLEASE"::10230(CI4"OLD CHEC ::"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$  << RR16-1 >>6 - RUPERT REPORT LISTING 1 -<\ -- SAVE MEMORY TO DISK --b'( * * * * * * * * * * * * * * * *) * ** * NOTE THAT LINES 180 - 400 *+ * MAY BE OMITTED IF THESE * , 256H(X)) PAREG780 : XREG781 : YREG782/ ZU d<><><><><><><><><><><><><><><><>z n PUT FILENAME, STARTING ADDRESS x AND ENDING ADDRESS BELOW <><><><><><><><><><><><><><><><> FLNAM$"DOS 5.1" : FILENAME SADDR52224 :  -"":53281,13:53280,7:DN(50):CO(50)iPE$(200):CN(200):CD$(200):CP$(200):CA(200):M$(14)""::" PLEASE ENTER CURRENT DATE":"  ";DA$:" ";DA$:(DA$)8"WATCH FORMAT":3. 64& 8);"1. ADD CHECK INFORMATION":N 8);"2. EXAMINE CHECK FILE ":v (8);"3. MENU OF PRINT OPTIONS": 28);"4. CHANGE INFORMATION ": <8);"5. INITIALIZE OPTIONS ": A8);"6. BALANCE CHECK BOOK ": F8);"Q0:T0:X0:A0:GT0:"":10= i**********************************^ n**WRITTEN BY GLENN LUMPKINS ********************************** p*** ROUTINE TO BALANCE CHECK BOOK*** q53281,7:53280,9 z:"":" ENTER BANK'S ENDING BALANCE":" $ ";CN$:"":CN(CN$)/CN$"0"CN$""6130;I1CNg" ENTER AMOUNT OF OUTSTANDING CHECK"~:"$ ";CO(I):""ACACCO(I):" ANY OTHER CHARGES SUCH AS:":" AUTOMATIC DEDUCTIONS":" YOUR CHECKBOOK BALANCE" j:" $ ";YB:""0oYBBA6300`tBA0" YOUR BALANCE SHOULD BE":vBN$(BA.001):BN$(BN$,(BN$)1)yBA0" YOUR BALANCE SHOULD BE":zBA0" $";BN$::6280~B$(BA.001):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 S1)BAYB:" $";AY$LBAYB:"":"YOU ARE IN BALANCE--NO ADJUSTMENT NEEDED"zX:::" PRESS ANY KEY TO CONTINUE"bP$:P$""7010dBA0:YB0:AC0:DP0l100'***ROUTINE FOR CHANGE***'53281,1:53280,8'""@"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 * TWO LINES ARE CHANGED: *F - * 200 OPEN 8,8,8,FLNAM$ *l . * 520 CLOSE 8 * / * * 0 * * * * * * * * * * * * * * * * 1 2 (147) : CLEAR-SCRN < H(X)(X256) F L(X)X'I1C:KK1t'I;4)CN(I);11)CD$(I);21)PE$(I)Au'V$(CA(I).001):V$(V$,(V$)1)^v'"PURPOSEڒ";11)CP$(I)}z'"AMOUNT ڒ";11)"$";V$:'K4:" CONTINUE PAGING "'K4SS$:SS$""10121'K4K1:10060'SS$BB$"****************************************"a VV$"========================================" FF$"========================================" YY$VV$FF$ 53281,7:53280,7:"":P13:: 53282,16:53283,15:53284,2:53265,(53265)7. GRAPH COMPARSIONS ":> K8);"8. END PROGRAM ":d P8);"PLEASE SELECT ONE "v UX$:X$""85 VX$"1"X$"8""ENTER A NUMBER 1-7":85 ZX(X$):X30100,30100,31300,30100,20000,6000,30100,32000 dS$"":K0:C0:H0: :" $ ";BE6 :" HOW MANY DEPOSITS NOT LISTED":T " $ ";D$:"":D(D$)k D$""D$"0"6080v I1D " ENTER DEPOSIT NOT LISTED"::" $ ";DN(I) "" DPDPDN(I): " HOW MANY CHECKS OUTSTANDING" SERVICE CHARGES"(:" ">AS$:AS$""6142PAS$"N"6230bAS$"Y"6200~ AS$"N"AS$"Y"61408"":" ENTER IN TOTAL AMOUNT OF CHARGES"L:" $ ";OCVBA(BEDP)(ACOC)`""::" ENTER  B$(B$,(B$)1):" $";B$:EBAYBBXYBBA::" YOU ARE OVER BY"lBC$(BX.001):BC$(BC$,(BC$)1)BAYB::" $";BC$:7000BAYBAXBAYB::" YOU ARE UNDER BY"AY$(AX.001):AY$(AY$,(AY$)CAN 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 ":5,8,5,"0:"Z$",R""'" ONE MOMENT READING ";Z$3$'I1199:CI[.'5,CN(I),CD$(I),PE$(I),CP$(I),CA(I)u8'CN(I)99995:10060{B'L'"":11);Z$:Q'BB$V'"R#";" ";"CK NO.";" ";"DATE";" ";"PAYEE":W'K110100j 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:T B110251 /MZ8MZ7:34& 0MZ7MZ8:342 1AB64: 255y 3:LA1062:LP1904:X33:S2,100:S3,100:1102,32:1142,32 4TLALP39:T,7:T40,6:T1,3:T41,2:W,TT:S4,X 5S1,W:S,TT:S4,17:T,32:T40,32:T1,32:T41,32 6S,254,231,255,255,255,255,25520 XY1YA$:A$""601/bA$""6207c91JlYY1:Y5Y1`v"LEVEL ";Y:601!!!!VV53248:2040,209:2041,209:2042,209:2043,2092044,209:2045,209VV43,8:VV44,10VV39,10:VV 4 MZ7:TSS24:T,0::S24,15:S3,8:S2,0:S5,144x H40:"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"; "B,2:B40,3:D(LL):D1235 #C40,6:C,MZ:D1193 $D11114 %A,.:A40,1:(A80)327 &M((1)9)1:M X54272VV27,.053272,21:QW1944118478:QW,8:QWX,0:QW1,1YQW1X,0:SR1400:::VV21,0:58k SPRITES!!!!VV53248:2040,209:2041,209:2042,209:2043,2092044,209:2045,209VV43,8:VV44,10VV39,10:VV]"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";S^"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";_"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";`VV23,25:VV29,13:VV27,255:VV,18:VV1,208:VV4,125aVV5,229:VV2,80:VV3,22953280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ (,71,6,167,7,12,7,119,7,233,8,97,8,225,9,104,9,247,10,143qU60,126,219,255,231,126,66,60,24,255,189,189,60,36,36,102,126,90,126,255V129,195,102,60,24,153,189,255,126,255,36,102,254,170,254,0,0,0,0,0,28,28 W28,28,8,62,28,8,60,126,106,247,189,16(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:ADAS24,T2DS4,33::S1,0:S,0:VV21,0aERR1:53272,21:"YOU DID IT!":" YOU SAVED SWEET DORIS"F" WITH ONLY";BJ;" JUMPS!"GBJJB"ANEWHIGH!!":JBBJK"HIT ANY KEY."L(197)64M4100 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 "4,65::15087RR2:A,32:A40,9:A41,10:GU1B,3:GU.:S5,200p8S6,100:S4,129:S1,33:S,135:T1501:S24,T9TT130:::S1,0:S,0:T1500::53272,21:26:"YOU";:63:"BOMBED";:63;"OU1100#:"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":110089P.42 'AB27 (P1 )34L *N((1)37)1144:S6,243:S1,4:S,112 +P1:ONN84040:O,5:34:O,32:OO40:OAOA4055 ,S4,65:(O40)4S4,129:OO1 -S4,33::S1,0:S,0 .P0:N,32:N.:B,32:B40,32:BBY:(B)640,10:VV41,2:VV42,8"2046,196:TT1337613438:T:TT,T:p,0,0,0,0,0,0,0,16,0,0,56,0,0,120,0,0,124,0,0,254,0,1,255,0,7,119,0,15,1756128,31,223,128,27,254,192,21,253,240,30,251,248,63,127,120,63,188,252@127,225,252,252,255,252,219,255:VV6,90:VV7,2085bVV8,60:VV9,208:VV10,160:VV11,229:VV21,255:30;c_d56334,(56334)254:1,(1)251nI0511:I12288,(I53248):x1,(1)456334,(56334)181S1,0:S,0:A,32:A40,9:A41,10:T150::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,T9,60,24,189,254,120,60,124,71,33,96ZX222,127,30,60,62,226,132,6,56,126,221,245,245,221,126,56,112,65,127,248rY248,127,65,112,0,0{Z200[53272,((53272)240)12:"":T1990:" ";:\"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"; 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)76NP52,48:56,48::100;QI174:J::I1228812377:J:I,J:R14,24,13,78,12,143,11,218,11,48,10,143,9,247,9,104,8,225,8,97,7,233,7,119S7,12,6,167,6,71,5,237,5,152,5,71,4,251,4,180,4,112,4,112,4,180,4,251,5,71$T5,152,5,237,6 (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"::T!":63:"HIT ANY KEY"+=(197)643>61E?T11000::Z@B1,.:B39,1:ATB197042:T,2:T40,3:TT,TW:S,TW:S1,TTBS4,33:TG115::T,32:T40,32:S4,17:CT701:2040T,0:S1,14:S,239:S4,129: ( 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, 16 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, d ANTHONY WOOD/n 12739 GRAND CROSS LNGx HOUSTON, TX 77072M|"":53280,0: 53281,6:13);"FASTER 64"Q$(34)14);"CREATOR"::"(C) 1984 ANTHONY WOOD":"DO YOU WISH TO RUN ME" "OR PUT ME ON DISK AS ECK YOUR DATA STATMENTS.":? ,"FINISHED. TO INITILIZE FASTER 64"| 6"AFTER A RUNSTOP/RESTORE,":"ENTER 'SYS49152'":49152: @::"I WILL CREATED THE FILE 'FASTER' ON" J"YOUR DISK DRIVE. ANY PREVIOUS FILE" T"OF THIS NAME WILL BE SCRATCHED VIC JOYSTICKQ STOP THIS PROGRAM BY PRESSING JOYSTICK BUTTON!!!Wg 600: 500uPV10:H10Z 140ab MAIN MOVEMENT LOOPcdS((37137) 60) ((37152) 128)e (S 4)0 VV1f (S 8)0 VV1 g76, 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, T UP MOVEMENT STRINGS 2  VM$(BE):VM$(0)(19)[  I1 BE:VM$(I)VM$(I1)(17): Ia g U V SET UP SCREEN MARGINS W XRE20 ]RF21 bBE21 gBF22 lPF$(122): PLAYER-FIGURE s t SCREEN COLOR u v 3687 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, Y1:""80AE1:A,32:AH,32:AAE:(A80)327I37tE1:A,32:AH,32:AAE:(A80)327|37L.:A,32:AH,32:LL1:AAH:(A80)412 ABA194449 TW,T:A,.:AH,1:S1,TW:S,T:8 L955 , 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, 250, 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, A" "'LOAD ,8,1' FILE?"- A$:A$""210= A$"D"320M A$"R"250V 210 ::"OK.. I'M LOADING INTO MEMORY." "(I LOAD $C000 TO $C242) CK0:P49152 D:D256P,D:CKCKD:PP1:280 "DCK"** DATA ERROR ** PLEASE CH":"BY KEVIN DEWEY"b "USE JOYSTICKFOR MOVEMENT" "HIT ANY KEY" 600 VV21,0:58 GU1:B40,2:55 A1797:B1065:S54272:S5,200:S6,200:S24,15:LL56320:C1142 (S 16)0 HH1- h (S 128)0 HH1N i (S 32)0 37154,255:f n HHX VVX 100z x VBE VVBF y V0 VVBF z HRE HHRF { H0 HHRF VM$(VX)HX)" "VM$(V)H)PF$ HXH:VXV 100   SE252, 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, T9,8: (147)D  37154,127: ENABLE JOYSTICK (DISABLES PART OF KEYBOARD)J n HHX VVX 100z x VBE VVBF y V0 VVBF z HRE HHRF { H0 HHRF VM$(VX)HX)" "VM$(V)H)PF$ HXH:VXV 100   SE255, 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, S1,0:S,0:37+ :TT121:TW,T::BJBJ1X TW,T:A,32:A40,32:(A40)4AA1:7z S1,TW:S,T:A1064AA1:7 (A40)755 AA40:A,.:A40,1:15 53281,1:53280,2:"HOP AROUND!"% "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,A lpAPRIL852A64 CHECKSUMVIC CHECKSUM JOY64JOYVIC HOP AROUND 64HOP AROUND 20 SPACE HUNT"FLANKSPEED RUPERTELECHECK1BASIC TRACE  FASTER 64F-SPEED OVERPACHELBEL VIC BOOTER C64 BOOTER MENU C-64FASTER 64 BASICMENU-VIC  806E1:A,32:A22,32::AAE:(A44)327>37jE1:A,32:A22,32:AAE:(A44)327r37L.:T241:V2,.A,32:A22,32:LL1:AA22:(A44)412 AB64 A,.:A22,1:U,T:TT3:8 L955 U,.:37  T= ;JUMP= J"O "OBJECT:":"@A MUST SAVE FG FROM BC,"v "WHILE DODGING BC AND E!" "HIT A KEY TO START..." A$:A$""25 89 GU1:B22,2:55 A8109:B7703:V36878:V,15:V1,24:U36876:C7 ((1)19)7746:P1:T241L +ONN46222:N,5:U,T:34:N,32:NN22:NANA2255x ,(N)4V1,135:T110::V1,.:NN1 -:U,. .P0:N,32:N.:B,32:B22,32:BB1:(B)649 /MZ8MZ7:34 0MZ7MZ8:34 1V2,.:TR240- 2T7 BED OUT.":36869,240R;"HIT A KEY TO TRY AGAIN":"(DO IT RIGHT THIS TIME!)"q=(197)64(197)3990y>96?61@B1,.:B21,1AY135:TB818423:T,2:T22,3:V2,Y:YY5:TT115:CT,32:T22,32::V2,0:T1P52,28:56,28::I71687679:I,(I25600)::A716872579QB:A,B:S60,126,219,255,231,126,66,60,24,255,189,189,60,36,36,102,126,90,126,255,129,195T102,60,24,153,189,255,126,255,36,102,254,170,254,0,0,0,0,0,28,28,28,28,8,62,28,8;U60,1DDDDDDDDDDDDDDDDD";>\"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";K]MZ7:30s`(197)39GTGT1:646,GT:RR258a(197)39RR169bGT6GT0c646,GT:255,36,102,254,170,254,0,0,0,0,0,28,28,28,28,8,62,28,8;U60,1 ANTHONY WOOD0 12739 GRAND CROSS LN.H HOUSTON, TX 77072Vd 6/18/84n(142);" ɰ ɲ"x" ɫ˫ó ó "" ˱ ˭ ˱ʽ " " (C) COPYRIGHT K1:A$: 2240:I(X,Y)NC: - L0:I(9,0)7\ "PRESS RETURN TO START.";t A$:A$(13) 240 "";(14); " AM ";D$(L): N(L)S(L)E(L)W(L)4 340 "EXITS: "; "N(L)1"NORTH. "; ,S(L)1"SOUT 390 I$"" 260. V$"I"(V$,3)"INV" 460s S0:X010:SSIN(X)::S0"'M NOT CARRYING ANYTHING.": 390 X010:IN(X)0: 390 N$(IN(X)):: 390 V$"N"I$"NORTH"EXN(L): 510 V$"S"I$"SOUTH"EXS(L): 510 : 650:L$"SHI"L$"SPA": 6504DL$"BUT"L$"RED": 650QNL$"EQU"L$"LOT": 650nXL$"BOA"L$"CON": 650bL$"TRE"L$"FAB": 650lL$"BOU"L$"LAR": 650vL$"STA"L$"AIR": 650L$"DOO"(L9L7)L$"SPA"V$(V$Y135:BJBJ1@ V2,Y:YY5:A,32:A22,32:(A22)4AA1:7U A7702AA1:7n A22N(A22)555 AA22:A,.:A22,1:15 36869,255:"HOP AROUND":"BYKEVINDEWEY" "KEYS-LEFT= :RIGH744* "DDDDDDDDDDDDDDDDDDDDDD";L "B,2:B22,3:D(197):D455f #C22,6:C,MZ:D223s $D2014 %A,.:A22,1:(A44)327 &M((1)9)1:M9P.42 'AB27 (P1 )34 *T2412001:U,T:U1,T::U,.:N744818622:T,7:T22,6:T1,3:T23,2:V1,TR:TRTR5^ 3TT120::T,32:T22,32:T1,32:T23,32:u 4V1,.:TT1300: 7RR2:U,.:A,32:A22,9:A23,10:U1,200:GU1B,3:GU. 8T1450::U1,.:T1500: 9V,.:"YOU BOM500:V1,135::V1,.<EV,.:RR1:36869,240:"YOU DID IT!"wF"YOU SAVED SWEET DORIS.":"WITH ONLY";BJ;" JUMPS!"G"DO YOU WISH TO PLAY AGAIN,HERO?"H"IF SO,HIT ANY KEY."I(197)64(197)3990J96K73+26,106,247,189,164,60,24,189,254,120,60,124,71,33,96,222,127,30,60,62,226,132V6,56,126,221,245,245,221,126,56,112,65,127,248,248,127,65,112,0,0W20YGT0:646,GTZ"";:36869,255:T1490:" ";:["DDDDDDDDDDDDDDDDDDDDDDDDDDD,3):L$"321"L$"DOW"NN99: 710BV$"LAY"V$"LIE"V$"SAV"V$"LOA" 710UV$"LOO" 260V$"QUI""TYPE 'GOTO 250' TO RECOVER.":NN1NC:L$(N$(NN),3) 710:UN$: 390V$"EXA"V$"SEA" 910  2190:F0" DON'1984"# " ANTHONY WOOD"i D$(13),N(13),S(13),E(13),W(13),I(13,10),IN(10),N$(20),T(12):NC0 ER$" DON'T SEE ONE HERE!":UN$" DON'T UNDERSTAND." CG$" CAN'T GET THAT!" X013:D$(X),N(X),S(X),E(X),W(X),K:K0 210 Y0H. "; 6E(L)1"EAST. ";0 @W(L)1"WEST.";6 J] TS0:X010:SSI(L,X)::S0 380q ^:" CAN SEE:" hX010:I(L,X).N$(I(L,X));". "; r: |"" "HAT NOW? ";: 2020 I$"" V$"E"I$"EAST"EXE(L): 5102 V$"W"I$"WEST" 530> EXW(L)g EX1" CAN'T GO THAT WAY!": 390{ LEX:LD0: 260 L$(N$,3):L$"TRA"L$"PIL": 650 L$"LOC"L$"EQU": 650 &L$"TRU"L$"WOO": 650 0L$"SUI"L$"PRE" CED!":xL$"PRE"WS0 2390: 2270:"OK": 390+V$"TYP" 1470TL6" CAN'T DO THAT HERE!": 390}L$"321""OTHING HAPPENS.": 390S(L)9"OTHING HAPPENS.": 390S(L)9:"HE SHIP TAKES OFF, AND WE SOON LAND ELS TER": 2240 2270: 390V$"BLA"V$"SHO" 16100 2190:F0ER$: 390mZNN:A$"BLASTER":2430:2190:F0" NEED A ";A$: 390L$"BLA""AT WHAT?": 390"L$"LAR"" CAN'T SHOOT THAT!": 390,LD0"! TANDING UP LAY"V$"LIE" 1680 |L$"DOW"L$""UN$: 390 "OK":LD1: 3905V$"SAV" 1780rF$N$".ADV":15,8,15,"I0":15,"S0:"F$:2,8,2,F$",S,W"15,E,ER$,Z,Z:E0ER$:2:15: 3902,NC:X1NC:2,N$(X)::X013:Y0102,(I ":15,E,ER$,Z,ZE0ER$:2:15: 390*2,NC:X1NC:2,N$(X)::X013:Y010Z#2,A$:I(X,Y)(A$(0)):::X010:#2,A$&IN(X)(A$(0))::X011:#2,A$:T(X)(A$(0)):0LT(0):CCT(1):PPT(2):NTT(3):TET(4):LKT(5):WST(6:F0 1080 " CAN'T DO THAT HERE!": 390!!V$"MOV"V$"ROL"UN$: 390V$(I$,S1):N$(I$,(I$)S)"H"R"\ SEARCH FOR NOUND A SCREW DRIVER HERE!":A$"SCREW DRIVER": 22402 2270: 390[ L$"SPA"" CAN SEE A DOOR.": 390o*L$"WOO" 8404"T'S A WOODEN TRUNK.":LK0"T'S LOCKED."> 390HL$"PIL" 860RKF0" FIND A KEY HERE!":A$"KEY": 2WS0 970K"!! 'M ELECTROCUTED BY 10,000":"VOLTS THAT WAS WIRED TO THE LOCKER."QoNT1"T'S EMPTY": 390NT1:" FIND A NOTE HERE!":A$"NOTE": 2240: 2270: 390L$"WOO"UN$: 390LK0"T'S LOCKED!": 3901:"OK": 390 BV$"WEA" 1140$L 2190:F0ER$: 390>VL$"PRE"UN$: 390U`F1 2310: 2350jj"OK":WS1: 390tV$"REA" 1180~ 2190:F0ER$: 390L$"NOT"UN$: 390"T SAYS '3212'": 390V$"PRE"V$ : 390L$"AIR"L4: 260L$"SPA"L6: 2601L$"TUN"L12: 260@ UN$: 390iV$"GET"V$"TAK"V$"PIC" 1370 2190:F0ER$: 390(F2"'M ALREADY CARRYING IT!": 3902L$"EQU"L$"PIL"L$"LOT"L$"TUN"L$"CON +CK0:I0506:X:CKCKX:49152I,X:X CK66803"ERROR IN DATA STATEMENTS":c 49152{" BASIC TRACE ""TO BEGIN TRACING YOUR BASIC PROGRAM,""TYPE: TRACE ""THE COMPUTER WILL PRINT  ON , AND THE"$ #"TR  A"TO RESTART THE TRACE, TYPE:; F"TRACE AGAIN." d 169,76,133,124,169,128,133,125,169,193,133,126,96,96,96,96,142 i 254,193,140,252,193,169,0,42,141,251,193,96,0,0,0,162,35 n 160,6,140,66,193,160,5,169,1,157,0,216,232,136,208,2 3,62,193,56,253K 67,193,168,232,173,64,193,48,190,253,67,193,202,10,176,12,106 141,64,193,140,62,193,238,66,193,144,223,138,74,170,173,66,193 157,77,193,138,10,170,232,232,224,10,208,200,169,0,141,61,193 173,141,2,201,1,240,15,169, ,35,4,238,92,193,238,93,193,173,92,193,201,5b 208,231,169,5,141,62,193,162,35,142,64,193,162,0,142,66,193 160,5,174,66,193,189,98,193,174,64,193,157,40,4,238,64,193 238,66,193,136,208,235,173,64,193,24,105,35,141,64,193,206,62  193,N"f F=0 IF NOT FOUND"p F=1 IF IN ROOM#z F=2 IF IN INVENTORY#4#X010:I(L,X)NNF1:H#IN(X)NNF2:T#:F0:Z#|# ADD A$ TO NOUN LIST. NN=POS#NCNC1:N$(NC)A$:NNNC:## ADD NN TO ROOM#X010:I(L,XIN(X)0:$` :"ERROR!":$j %t SET NN TO NO. FOR A$%~ NN1NC:N$(NN)A$*% :NN99:q% "IN THE ENTRANCE CHAMBER OF A LUNARSPACE STATION.",-1,1,4,-1,1% "EQUIPMENT LOCKER"% "IN A NARROW HALLWAY THAT RUNSNORTH-SOUTH.",0,3,2GINE ROOM.",-1,-1,6,-1,1& "LOTS OF COMPLICATED EQUIPMENT"A' "IN A SPACE SHIP CONTROL ROOM.",-1,7,-1,5,1,"CONTROL BOARD"|' "ON AN OPEN LUNAR PLAIN.",-1,-1,-1,-1,2,"SPACE SHIP"' "AIRLOCK TO SPACE STATION"' "IN AN ASTEROID CRATER.",-1,%1,-1,1(F "FABULOUS TREASURE"OF COMPLICATED EQUIPMENT"A' "IN A SPACE SHIP CONTROL ROOM.",-1,7,-1,5,1,"CONTROL BOARD"|' "ON AN OPEN LUNAR PLAIN.",-1,-1,-1,-1,2,"SPACE SHIP"' "AIRLOCK TO SPACE STATION"' "IN AN ASTEROID CRATER.",-1,80,181,0,0,0,0,0,141,255,193,32,16,192,173X 253,193,240,3,32,32,192,162,0,189,0,2,240,8,221,234,193 208,7,232,208,243,224,0,208,14,32,240,193,173,255,193,201,58 176,3,76,128,0,96,173,253,193,201,1,240,22,169,1,141,253 193,169,79,32xCCÝCĝCŝC)XLyʎUV尢氢L㱢䱢屠 ` Lj y HHC%CECFC CCLLEC¥FCCĭChh`  DzDC LQDCĐa_¹CACE WINDOW WILL APPEAR. NOW RUN YOUR"S ("BASIC PROGRAM. TO SPEED UP THE TRACING"w -"HOLD DOWN THE  SHIFT KEY." 2"WHEN YOU NO LONGER WANT TRACE, TYPE:" 7"TRACE . THE COMPUTER WILL PRINT" <" OFF , MEANING TRACE IS NOW OFF."49,138C s 24,105,35,170,206,66,193,208,235,240,7,253,67,193,202,24,144 x 67,162,2,165,57,141,62,193,205,63,193,208,1,202,164,58,192 } 255,208,2,160,0,140,64,193,204,65,193,208,3,202,240,120,141 63,193,140,65,193,162,0,160,0,140,66,193,175,141,61,193,162,0,160,0,200X 208,253,232,208,248,162,0,189,103,193,157,98,193,232,224,20,208 245,162,0,189,77,193,24,105,176,157,118,193,232,224,5,208,242 169,0,141,92,193,174,61,193,142,93,193,174,93,193,189,82,193  174,92,193,157208,219,96,96,96,0,0,0,32,192,5,0,245,235,0,25S 16,39,232,3,100,0,10,0,1,0,0,0,2,4,5,188,146 149,142,190,144,129,149,147,133,5,10,0,0,0,0,177,176,176 177,184,177,176,176,177,185,177,176,176,178,176,177,176,176,178,177 176,176,178,1)0I(L,X)NN:#:"ERROR!":# $ DELETE NN FROM ROOM+$ X010:I(L,X)NNI(L,X)0:=$ :"ERROR!":C$ ]$$ ADD NN TO INVENTORY}$. X010:IN(X)0IN(X)NN:$8 :"ERROR!":$B $L DELETE NN FROM INVE$V X010:IN(X)NN,-1,0 & "IN A LONG DESERTED BUNK ROOM.",-1,-1,-1,1,1,"WOODEN TRUNK"R& "IN A RECTANGULAR ROOM THAT SMELLSMUSTY AND OLD.",1,-1,-1,-1,1h& "PILE OF TRASH"& "IN A SPACE STATION AIRLOCK.",-1,-1,-1,0,1,"RED BUTTON"& "IN A SPACE SHIP'S EN9,-1,11,0' "ON AN ASTEROID PLAIN.",8,-1,-1,10,0/( "ON AN ASTEROID PLAIN.",11,-1,9,-1,1,"LARGE BOULDER"a(( "IN THE HILLS ON AN ASTEROID.",-1,10,8,-1,0(2 "IN A SLOPING TUNNEL.",10,13,-1,-1,0(< "IN THE UNDERGROUND TREASURE ROOM.",-1,-1,-¹CÍ ¹Cč ¹Cō ¹Cƍ ¹D™C¹DÙCùDęCĹDřCŹDƙCƭ™D­ ™Dí ™Dĭ ™Dŭ ™DLL8  CZ) C) C)C)% L$ C ( ) CĪCŌ ͽ© , L_ CCÝCĝCŝCLLѱ,210,255,169,78,32,210,255,169,13,32,210,255,208` 23,169,0,141,253,193,169,79,32,210,255,169,70,32,210,255,32 210,255,169,13,32,210,255,169,0,141,0,2,240,183,84,82,65 67,69,0,174,254,193,172,252,193,173,251,193,106,96,6,176,178,1  4,4. 4," "S 4," "x 4," " 4," Ϸ "4," SAVE "4," " 4,"  "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4,"   **READ BASE FREQS**5 F(11):I011:F(I):U**READ TITLE & VARIABLES**}Z$,QM,QN,P1,P2:P3P1P2:P31P31B(QM):B49152:I0QM:B(I)BQNI2::182**READ & COMPILE MELODIES**AB(1):I1QM:J0QN1:N$ A$(N$,1) 2**SET SID ADDRESSES**3 4SID54272:I02:ASIDI7R 6X(I)A:Y(I)A1:Z(I)A4:f 8152:SID24,15 <**READ INSTRUMENTS** >I02:W$,A,D,S,R,PF @W(I)(W$"T")17(W$"S")33(W$"P")65(W$"N")129 BX(I)5,A16D:X(I)6,S16R' zJ02:L(J)01261 |X(J),L(J):Y(J),H(J):Z(J),W(J)F ~::(145):104S **END**f (147):152: **SUB:CLEAR SOUND CHIP** ISIDSID28:I,0:: **SUB:DISPLAY TITLE** (147)(159) "THE SIDNEY CHIPP ORCHESTRA PLAYS---,4  **MELODY DATA** #1>C3,0,0,0,G2,0,0,0,A2,0,0,0,E2,0,0,0gF2,0,0,0,C2,0,0,0,F2,0,0,0,G2,0,0,0p #2E6,0,0,0,D6,0,0,0,C6,0,0,0,B5,0,0,0A5,0,0,0,G5,0,0,0,A5,0,0,0,B5,0,0,0 #3C5,0,E5,0,G5,0,F5,0,E5,0,C5,0,E5,,B5,0 #6$C3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0JC3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0S #7C5,0,0,0,A5,0,G5,0,G5,0,F5,0,F5,0,E5,0E5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0X**INSTRUMENT DATA**Z P,0,0,15,15,4000\ P,4,5,13,14,3700JH hL FASTER 64 WORKING. BY ANTHONY WOOD HOUSTON, TX 1984 UV尢氢L㱢䱢屠 ` Lj y HHC%CECFC CCLLEC¥FCCĭChh`  DzDC LQDCĐa_¹C; 'C64 BOOTER' COPYRIGHT 1984 GEORGE JONES * FOR C-64K:DV(186)BS%692:FI%512:CS%93:SR%735:RN%733:LM%702:PO%723:IM%770:MX65535S%679:E%771:808,234: DISABLE RUN/STOP RESTORE62: TITLE 18: INPUT DISK,ID & PROG NR ? (Y/N)" A$:A$""135 A$"Y"A$"N"13C A$"Y" "":58451:808,237: RESTORE BASIC VECTORS & ENABLE RUN/STOP RESTORE "LL ONE!";:17 "":DN$"":ID$"":PN$"":RN%,174:RN%1,167:IM%,180:IM%1,2)  POKE ADD "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4," ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4," :A$"0"L0:444 N((A$)67)2:NN(N4)(N0)13E B$(N$,2,1)W B$"+"NN1i "B$"-"NN1{ $OC((N$,1)) &FF(N)(2(7OC)) (H(F256):L(FH256) *A1,H ,A,L:AA2:: .**SET MELODY #0** 0IBB(1)1:I,0: DPH(PF256):X(I)3,PH:X(I)2,PFPH256:: d**PLAY TUNE**C fTTI[ hI02:M:M1142o jM,:A(I)B(M):} lI0QN1 nTTP2 pTTI112 rJ02:L(J)(A(J)):H(J)(A(J)1) tZ(J),W(J)1:A(J)A(J)2: vTTP3 xTTI120 ":: (18)Z$:::! **FREQ DATA**n 34334,36376,38539,40830,43258,45830,48556,51443,54502,57743,61176,64814} ,**TITLE** .PACHELBEL'S CANON 6**NO.OF MELODIES,NOTES PER MELODY** 87,32 @**NOTE DURATION,GATE DURATION** B160,D5,0%C5,0,A4,0,C5,0,G4,0,C5,0,A4,0,C5,0,D5,0. #4\C5,B4,C5,0,G4,0,B4,0,C5,0,E5,0,G5,0,A5,0F5,E5,D5,F5,E5,D5,C5,E5,D5,0,A4,0,C5,0,B4,0 #5C5,0,0,E5,E5,F5,E5,D5,C5,0,0,C6,C6,D6,C6,B5A5,B5,C5,0,G5,0,C6,0,A5,0,C6,0,C6,0^ P,1,6,10,11,3400**PLAN**1,0,0'1,2,021,2,3=1,2,4H1,3,4S1,2,5^1,3,5i1,4,5t0,2,30,4,54,2,35,4,31,3,41,4,56,7,7-1B5A5,B5,C5,0,G5,0,C6,0,A5,0,C6,0,C6,0RESS OF BOOT, NORMALIZE BASIC WARM START VECTOR[ 3)"ŠԠˠϠŠĒ":t CS%E%:Z%:C,Z%: 1)"** ̠Πˠ̠Š! **" "";:"נˠ: ";DN$ (DN$)023 "";:"נˠ: AME STRING 47: FORMAT DISKX "":"HE WILL LOAD AND RUN THE PROGRAM" "";PN$;:" AFTER YOU HAVE SAVED IT" "ONTO THIS DISK." 6)" O , TYPE ";:(34)":*"(34);:",8,1" 2:15 "NOTHE IMUM ADDRESSK BS%=692 START OF NUBOOT<L FI%=512 SYSTEM INPUT BUFFER^M CS%=80 NO OF BYTES TO SAVE~N SR%=735 LOC OF FILE NAMEO RN%=733 INTERPRETER LOOP &P SYS ADDRESS FOR ML PROGQ LM%=702 STORE LEN(PN$)R IM%=770 ,160,255,32,213,255,134,45,132,46,32,239,2,32XZ83,228,32,89,166,76,174,167,160,160,160,160,160,160,160,160[160,160,160,160,160,160,160,160,162,0,169,160,157,223,2,232\224,16,208,246,141,189,2,96,0,139,227,180,2] 'C64 BOOTER' COPYRIGHT  d"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B3)0)"";A;"- "PR$ B9 175 150 A18 :A0 (L$,17)" DISKS REPRODUCED WITH" (L$,18)" "  "RUN":""9  631,13: 632,13: 198,2:  64 CHECKSUM,VIC CHECKSUM,JOY64,JOYVIC,HOP AROUND 64,HOP AROUND 20  SPACE HUNT,FLANKSPEED,RUPERT,ELECHECK,BASIC TRACE,FASTER 64  F-SPEED OVER,PACHELBEL,VIC BOOTER,C64 BOOTER,FAS ";ID$ (ID$)025; "AME THE PROGRAM YOU WANT TO OOT"D PN$U (PN$)028 67: GET STRING FROM INPUT BUFFER AND POKE TO FILENAM "S ";PN$;" A PROGRAM? (Y/N)" A$:A$""32 !A$"Y"A$"N"32 "A$"Y": (Y/N)" (A$:A$""40%)A$"Y"A$"N"403*A$"N"9+Y,15:15,DV,15: ERROR CHECKl-15,ER,ER$,T,Sr./44: ERROR CHECK0ER8)ER;ER$;T;S:" Π& !";:48115:15,DV,15215,"N0:"DN$","15)"64 "*@6)"OPYRIGHT 1984 EORGE ONES":AT12000:@BPCC1(PN$)bDSR%,((FI%))zESR%SR%1:FI%FI%1FGLM%,(PN$): SET LENGTH OF NEW PROGRAM NAMEHI*****************************J MX=65535 MAX BASIC WARM START VECTORS PN$= PROGRAM NAME3T DN$= DISK NAMEGU ID$= DISK IDiV****************************W40,67,40,49,57,56,52,71,74,79,78,69,83,169,1,162X8,160,1,32,186,255,169,15,162,223,160,2,32,189,255,169Y0,162,255 1984 GEORGE JONES * FOR C-64 PN$= PROGRAM NAME3T DN$= DISK NAMEGU ID$= DISK IDiV****************************W40,67,40,49,57,56,52,71,74,79,78,69,83,169,1,162X8,160,1,32,186,255,169,15,162,223,160,2,32,189,255,169Y0,162,255 MSD SUPER DRIVES"8 (L$,22)1)"(C)ION INT'L INC."b (L$,20)1)"CHOOSE # OR RETURN";v AN$:AN(AN$) AN$"" B0: 100 AN$"1" AN$"14" 240 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8TER 64 BASIC,END"8 (L$,22)1)"(C)ION INT'L INC."b (L$,20)1)"CHOOSE # OR RETURN";v AN$:AN(AN$) AN$"" B0: 100 AN$"1" AN$"14" 240 : A1 AN: PR$: A "" "LOAD";(34);PR$;(34);",8 NOW GET ENTRY POINT OF ML PROGRAM> #"HAT IS THE ADDRESS:";AD $AD1ADMX" !":C11000::"";:35 %RN%,(AD(AD256)256): POKE LO BYTE &RN%1,(AD256): POKE HI BYTE '4)"RE YOUR ENTRIES CORRECT? ID$: TITLE NEW DISK315444!5ER48e62:2,DV,1,"0:THE MAGIC BOOT,P,W": SHIFTED SPACE BEFORE TITLE72,(S%(S%256)256);82,(S%256);9I0CS%1:2,((S%I));;<2=>"";(14):53280,1:53281,1?