C0CC255%l 1070:%v & ***************************$& * INCREMENT CHARACTER --> *F& ***************************L& e& CCCC1:CC255CC1p& 3180$ ""O$;"CHARACTER NUMBER ";$ 1550$ ::TPCC:CCW:1070$ " M ROM..."#| 56334,(56334)254# 1,(1)251$ ASC8SC8(WSC)870$ A12288,(A53248):>$ 1,(1)4T$ 56334,(56334)1k$ 1430:740:1070:u$ 1430$ ""O$;"CHARACTER NUMBER ";$ 1550$ ::TPCC:CCW:1070$ " VERSE CHARACTER DATA *" ************************** " " 1430:" "";:YT0O$"REVERSE DATA"[" :O$"STARTING CHAR ";:1550d" SCW" ::O$"ENDING CHAR ";:1550" WSC2750" YT1" ::O$" ...REVERSING..."" A0 ":A07$ O$;(12288A(W8))$ A% :O$;" SPACE TO RETURN"(% 1390:CCTP:10707% 1430:740C%& 1070:I%0 k%: ***************************%D * DECREMENT CHARACTER --> *%N ***************************%X %b CCCC1:C (WSC):B07 # 12288B(ASC)8,255(12288B(ASC)8):B,A#" 1430:740&#, 1070:,#6 M#@ **************************n#J * GET ROM CHARACTER DATA *#T **************************#^ #h YT1:"":2750:YT0#r :O$"...LOADING FRO 552961840OC24,0:OCCC8552961840CC24,2UB"CODE ";((CC),((CC))1);fLCC10" "wVCC100" "`"";:A07:P$""jB(12288A(CC8))tB128ZP1:BB128~1320B64ZP1:BB64 **************************-z * PUT CHARACTER DATA ON LINE *R ******************************Xt"";" ";"@ABCDEFGHIJKLMNO";"PQRSTUVWXYZ[\]^_ !"(34)"#$%&'()*+,-./01234567"; E"pO$" EDITING CURSOR." zX4:Y4:G1:2350(1390:A$"E"2410:2180DA$" "G3:2350:2180gA$"*"A$"."G2:2350:2180zA$(13)2280A$""A$""A$""A$""2180A$""Y1G0:2400:YY1:2350:2180 ********** * PUT MAIN MENU ON SCREEM *@ ***************************Fw"*** MENU ***"O$"":O$;"1] SAVE FONT"O$;"2] LOAD FONT" O$;"3] EDIT CHARACTER"O$;"4] MOVE 5""O$"";IJ07&#1,A$:A0:A$""A(A$)<12288JI8,A:JLI:1:1430W740:]~ ************************** * EDIT CHARACTER ROUTINE * ************************** 1430 " *****  * PUT EDIT WINDOW ON SCREEN *E  ******************************K [ " ";q &" 12345678 " 0"  ΐ " :"  " D" 1  1" N" 2  2" X" 3  E DATA..." :""O$"FILESPEC";"N$:(N$)817009 1,8,12,N$",P,W"L1,(0)(48);YI0255x""O$"";IB$""J07B$B$((12288JI8)):1,B$;I:1:1430&740:0: 40)R):U87U81BBR(R)$ R:5. X$"":Y$"":"";(X$,X);(Y$,Y);P8 G2"":G1:2350:kB G3" ":G1:2350:L K(1227XY40):K81"":V "+":` 1227XY40,K:55499XY40,0:j "";:A "";A013$O$;" "-A:3U ***************************w * FORMATTED NUMERIC INPUT * ***************************"";:Z0:B$""A13:1600:Z11580",W( M2M1) B07 12288B(AW)8,(12288B(AM1)8) B,A$ 1430:740:* M  ****************************p  * SWAP CHARACTER DATA SUBR * ( **************************** 2 < 1430:""O$"STARTING CHAR ";:1550:SCW 1320B32ZP1:BB321320)B16ZP1:BB1631320HB8ZP1:BB8R1320gB4ZP1:BB4q1320B2ZP1:BB21320B1ZP1 1320"";P$:A(ZP1P$P$"":ZP0:2P$P$ "89:;<=>?"&A94255=1024184024A,AU55296184024A,0[i(146):o ****************************** * PUT CURRENT DATA ON SCREEN * ******************************$. A$""Y8G0:2400:YY1:2350:2180(A$""X8G0:2400:XX1:2350:2180TA$""X1G0:2400:XX1:2350:2180_ 2180jA072320: GET BYTE IN B12288(CC8)A,B:A 1070:1430:740: B0:R07 U(1268(A 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 **** "O$" EDIT CHARACTER"*:O$"CHARACTER # ";:1550!4CCW:1070I>1430:""O$;"EDIT CHARACTER"jH:O$"[E] ERASE BUFFER"RO$"[*]/[.] SET PIXEL"\O$"[SPACE] RESET PIXEL":O$"[RETURN] FINISHED"f::O$" CURSOR KEYS MOV  3"b" 4  4"1l" 5  5"Mv" 6  6"i" 7  7"" 8  8""  ""  ͐ ""  12345678 ": ***************** ****************************D * LOAD FONT DATA FROM DISK *@N ****************************FXPb1430tl""O$" ...LOAD DATA..."v:""O$"FILESPEC";N$:(N$)81700 1,8,12,N$",P,R"#1,A$,A$I025 18:" "t A:G1:K32:2350:~ 1430( ""O$"STARTING CHAR ";7 1550:M1WV :O$"ENDING CHAR ";:1550_ M2W :O$"MOVE TO CHAR ";:1550 M1M22430 WM2 WM1 2430 :O$;" ...MOVING..." A0( B$):W255"";:15506 @1390JA$(13)Z1:6TA$"0"A$"9"1600C^B$B$A$NhA$;:Tru| ************************** * SAVE FONT DATA TO DISK * **************************1430""O$" ...SAV F :O$"ENDING CHAR ";:1550:ECW !P :O$"SWAP WITH ";:1550$!Z A0(ECSC):B07=!d T(12288B(AW)8)f!n 12288B(AW)8,(12288B(ASC)8)!x 12288B(ASC)8,T:B,A! 1430:740:1070:! ! **************************! * RE " ":<F ***************************6P * SCAN KEYBOARD FOR INPUT *XZ ***************************^drnA$:A$""1390xx~ *************************** * ERASE MENU AREA * ***************************,0,15,128,0,15,128,0B4 15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15}> 255,240,15,255,240,15,255,240,15,255,240,0,0,0,0,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,0,0,0,0,0 * I *2 5,240,7,255,240,3,255,224,0,255,128 0,0,0,0,0,0+ * T *u 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,0,0,0,0,0 * I *2 15,192,0A 7,240,0,1,254,0,0,127,128,0,31,224,0,7,240,0,3,248,0,1,248,7,227,248p 3,255,240,0,255,224,0,63,128,0,0,0,0,0,0| * T * 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16 0,62,0,0,62,0,0,62,0,0,62,0,0,6,0,15,128,0,15,128,0B4 15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15,128,0,15}> 255,240,15,255,240,15,255,240,15,255,240,0,0,0,0,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,0,0,0,0,0 * I *2 LOTTOW * B *OX 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131,224b 7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7,129,240l 7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0q * E *%v 0,0,0,0,0,0,7,  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 AN(AN$):: CH1 AN: PR$: CH@ V21,0: "": 53280,0: 53281,0d (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI619 6(L$,LI)" 0:C(N$):N$"" 2BCC BCBC1: 1310%# X0 BC0(C$"1"F- C2BC C$"0"_2 C2BC CC2BCk7BCBC1x<N$N$C$A XF X1 (N$) (N$,X,1)" " D$D$(N$,X,1):N$D$:**********************  :A03 (L$,23)7)" DIST. BY DOUBLE L SOFTWARE"r (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:B 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 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   0,0,0,0,0,0,15,255,248,15,255,248,15,255,248,15,255,248,0,62,0,0,62,0~0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,15,255,248,15,255,248  15,255,248,15,255,248,0,0,0,0,0,0% * L ** 0,0,0,0,0,0,15,128,0,15,128,0,15,128,0,15,128 2,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0+ 0,62,0,0,0,0,0,0,07 * U * 0,0,0,0,0,0,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248  15,128,248,15,193,248,15,25  CC ,(12288)60430 6: @ ***************************\ J * DOWNLOAD ROM CHARACTERS *~ T *************************** ^ h"";O$;"PLEASE WAIT 30 SECONDS" r56334,(56334)254 |1,(1)251 A02047 A 255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0m 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224 7,255,240,7,255,240,7,255,224,0,0,0,0,0,0 * S * 0,0,0,0,0,0,0,254,0,3,255,128,7,255,224,15,227,240,15,193,248, 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  "::W C64 BOOTER,BASIC TRACE,FONT EDITOR,2-COL DIRECTORY,SCREEN MAG. BOOT SCREEN DUMP I,SCREEN DUMP II,PRINTAT,AUTO-APPEND FORMATTER,64 WINDOWS,S&E FILE ADDR,FASTNEW,MAESTRO,1541 CLEAN,DOS BASE CONVERSION,LUCK 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   ************************* .:150 TM$(13)AN$" " 2257 AN$AN$TM$:AN$;"_";o T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN22" ":190 ********** * THIS SUBROUTINE WILL CONVERTg* DECIMAL TO BINARY *******************************xX1 (N$)((N$,X,1))57((N$,X,1))48 E$"BAD DEC DATA":7:(N$)65535 E$"NUMBER TOO LARGE": 7BC 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$,B8)TA)""A"-"PR$ B9 175 150 A18 1200: 1000: 2220~  SUBROUTINE - GET (Y/N) ANSWER+ AN$: AN$"" 2510= AN$"Y" O AN$"N" Z 2510NE-MOVE HEAD TO TRACK " INSERT ANY FORMATTED DISK" " PRESS ANY KEY TO MOVE HEAD" INE-MOTOR OFFZ54272: LZ Z24: L,0: L15,8,15BIX>15,"M-W"(0)(28)(1)(BI)LMF0: 15R v SUBROUTINE-MOVE HEAD TO TRACK " INSERT ANY FORMATTED DISK" " PRESS ANY KEY TO MOVE HEAD" N$(C) X :D$"": X1 (N$)8(N$,X,1)" "D$D$(N$,X,1)F:N$D$:k******************************** THIS SUBROUTINE WILL CONVERT * HEXADECIMAL TO DECIMAL*******************************X1 (N$):D$(N  " DATA NOT SAVED!" " TRY AGAIN? (Y/N)"1 2500: 2: 15C AN$"N" N 1400h SUBROUTINE-MOTOR ONz MF1 1730Z54272:TTTI: LZ Z24: L,0: L Z5,9: Z6,0:Z24,15: Z4,33ET((TITT) UBROUTINE WILL CONVERT'N*DECIMAL TO HEXADECIMALKO******************************WPL(N$)rQ X1 L:C$(N$,X,1)V(C$)48(C$)57E$"ILLEGAL DECIMAL DATA": 7[ X: (N$)65535 E$"NUMBER TOO LARGE": 7`D(N$):ND1:N$"" NDS" ""B SUBROUTINE-READ ERROR CHANNELS15,A,B$,C,Da( A0 s< 1200: 1000F " DISK ERROR * ";B$P 15Zx SUBROUTINE-SAVE AUTO DATA 1200: 1000 "   1300 - ******************************L *THIS SUBROUTINE CONVERTSe * BINARY TO DECIMAL ***************************** L(N$):DN0:D$""  L16 E$"DATA TOO LARGE": 7 X1 L ((N$,X,1)"0"(N$,X,1)"1") 00: S1 S00: 10774S0(S)5SASCS0100=8SSA10: S1 S2SA:S10: 1100UBS1(S):S2SA10S1L 1287,S0176: 1288,S1176: 1289,S2176QEET100: E1 E00: 1107RE0(E)SEAETE0100VEEA10: E1 E2EA:E10: T": A:(A7)(A1)E$"NONEXISTANT FUNCTION": 7; M A7 Z P"ENTER YOUR NUMBER":E$"" Q********************************* * THE NEXT FEW LINES ACCEPT THE R* VALUE INTO A STRING VARIABLE * AND SEND IT TO THE SUBROUTINESD S "E" F14  CH$"D" F13  CH$"C" F125 CH$"B" F11J CH$"A" F10e (CH$)58 F(CH$)tNNF16X| XN$(N) X1 (N$) (N$,X,1)" " D$D$(N$,X,1):N$D$:********************** )**********************************Q*THIS PROGRAM WILL EXCHANGE BINARYx*HEXADECIMAL AND DECIMAL NOTATION* LINES 10 - 80 DISPLAY THE MENU * AND GET THE FUNCTION NUMBER********************************** 53281,7:N$""  AN$: AN$"" 2240  15,8,15: 2,8,2,"#"!15,"U1 2 0";TR;"0", 1300C A0 2: 15:b " MOVE HEAD FAILED" " HEAD NOT ON PROPER TRACK"` " TRY AGAIN? (Y/N)"j 2500: 2: 15t AN$"Y" $,X,1)'(D$)48 (D$)70E$"ILLEGAL HEX DATA": 7b(D$)65(D$)57 E$"ILLEGAL HEXADECIMAL DATA" 7 (N$)4 E$"NUMBER TOO LARGE": 7N0:D$"" X0 (N$)1CH$(N$,(N$)X,1) CH$"F" F15 CH$ 60) SW1 1770 Z1,25: Z,170:SW1: 1780+ Z1,20: Z,150:SW0? 1000: Z4,32N MF1 [15,8,15r15,"M-R"(0)(28)#15,X$:X(X$(0))&BIX4015,"M-W"(0)(28)(1)(BI):MF1: 15D SUBROUT e 16NDD1 1135jNDND1: 1125.o XND 1 1ByC(D16(X1))U~DDC16(X1)l C15 N$N$"F" C14 N$N$"E" C13 N$N$"D" C12 N$N$"C" C11 N$N$"B" C10 N$N$"A" C10 N$  INSERT DATA DISK"0 " PRESS ANY KEY TO SAVE AUTO DATA "J AN$: AN$"" 1440r 15,8,15:2,8,2,"@0:CLEANDATA,S,W" 1300: A 0 15002,DT$;",";TR;",";SC;",";NC;",";NM 1300: A 0 15002:15:  E$"BAD BIN DATA": 7 "  XL1 14 CH$(N$,X,1)= $CH0R ) CH$"1" CH1j .DN DN(2(LX)CH)r 3 X 8N$(DN):X1 (N$) = (N$,X,1)" " D$D$(N$,X,1) B:N$D$: L******************************** M*THIS S  1130`E1(E):E2EA10E1-j 1298,E0176: 1299,E1176: 1300,E21763tR SUBROUTINE-SET UP SCREEN ""4)"1541 DISK DRIVE CLEANING UTILITY" " DRIVE HEAD AT TOTAL ELAPSED" " MOTOR TRACK SECONDS SECO * FOR CONVERSION *********************************o Z N$: A 1000,200,1200,400,1300,1100 _"THE ANSWER IS "N$::"PRESS ANY KEY TO GO TO MENU" `XZ$:XZ$"" 96 a 7 1000 1100  1200 ENDED": SUBROUTINE-UPDATE STATUS LINE$ MF1 1040I 1266,143: 1267,134: 1268,134T 1050x 1266,143: 1267,142: 1268,32TTR10: T1 T2144:T1TR: 1070$T1(T):T2TR10T1. 1277,T1176: 1278,T21763SSC1 :E$"" ""  E$< "CHOSE A FUNCTION 1-7"W "1 BINARY TO DECIMAL"v "2 BINARY TO HEXADECIMAL" ("3 HEXADECIMAL TO DECIMAL" 2"4 HEXADECIMAL TO BINARY" <"5 DECIMAL TO BINARY" F"6 DECIMAL TO HEXADECIMAL"- K"7 EXI *****WARNING*****"19 " CLEANING DISK IS USED UP"`> " (";NL;" CLEANINGS LEFT ON DISK)"C " DO YOU WANT TO CONTINUE CLEANING? (Y/N)"H 2500M AN$"Y" 1200: 1000: 870R " DO YOU WANT TO CHANGE DATA? 8=bA,37:""46)"NEW SCREEN STARTS AT"60)"PROGRAM LINE #"=dꙣ46)"(HIT ANY KEY FOR DISPLAY)":>fJ1 33>hB:CH327688B:CH:K.7:A:CHK,A::_?7ovgwwysvuE uE NU, UNLESS THE CLEANING TIME IS ";SC,X " ENTER NEW TIME (< 300)";: SCJb SC300 "": 590fl SC1 "": 590v " NUMBER OF TIMES DISK USED IS ";NC " ENTER NEW NUMBER ";: NC " MAXIMUM CLEANINGS PER DISK IS";NM " ENTER ";C84)"O DISPLAY SUCCESSIVE SCREENS,;D"PRESS THE KEY. " LAST DATE CLEANED IS ";DT$^ " ENTER NEW DATE";: DT$} " CURRENT TRACK IS ";TR& " ENTER NEW TRACK (1-35)";: TR0 TR1 "": 540: TR35 "": 540N " CURRENT ,5,91,133,92,6,91,136,208:239,165,92,145,163,230,163,208,2,230,164,24,165,87,105,405;133,87,144,2,230,88,202,208,205,164,165,166,166,24,76,240,255I;; ***DISPLAY***o;@56576,5:126:RH,15:R,12:A,39;BBL,(BL)239:""131)"נΠ LUES USED"4 r " PRESS ANY KEY TO CONTINUE"M | AN$: AN$"" 380Z  2: 15t  DISPLAY AUTO DATA~  ""  " CURRENT DATE IS ";D$;""  " LAST DATE CLEANED IS: ";DT$  " CURRENT TRACK IS: ";TR 2,210,255,353978:8 *** BLOCK 5 *** 9164,211,177,209,201,32,208,243,169,29,208,184,201,17,240,12G9201,29,240,8,201,33,144,175,162,29,176,1,138,32,210,2559164,211,177,209,201,32,208,159,24,138,105,128,208,150,169,09133,91,133,163  AN$"N" 340+ READ DATA FROM DISK DRIVER " INSERT DATA DISK" " PRESS ANY KEY TO READ DATA" AN$: AN$"" 230 15,8,15:2,8,2,"CLEANDATA,S,R" 1300  A 0 300 2,DT$,TR,SC,NC,NM ,20,208,244,173,134,2,133,87632,228,255,240,251,174,141,2,224,4,240,4,224,2,208,24087162,15,221,224,2,240,8,202,208,248,221,224,2,208,225,134r788,169,0,133,89,169,216,133,90,162,4,160,0,177,89,41715,197,87,208,4,165,88,145,89,136,208,24  "B " "h " " "ѭ " "" " BY JOHN DEROSA" " FOR AHOY! MAGAZI ,169,128,141,138,2,96 +\173,14,220,41,254,141,14,220,165,1,41,251,133,1,169,0H+^133,2,133,87,133,89,133,252,133,254,173,173,2,133,88,169+`128,133,90,162,0,160,0,169,8,133,253,133,251,177,87,209+b89,240,2,230,252,202,240,32,200,198,251,208,2 ,193,213,214,215,216,217,218,219(G *** BLOCK 1 ***-)L169,1,133,87,169,8,133,88,169,0,133,57,133,58,160,3j)N177,87,201,11,176,24,133,58,136,177,87,133,57,160,0,177)P87,72,200,177,87,133,88,104,133,87,160,3,208,226,165,87)R133,43,141,129, 1,171,23141,170,2,96,169,1,141,25,208,162,130,160,12,173,18,208(416,4,162,1,164,254,142,18,208,140,33,208,173,13,220,41c41,240,3,76,49,234,76,188,254,169,0,133,89,165,209,133487,24,165,210,101,4,133,88,164,211,177,209,72,170,177,87,3391 "THE AHOY! STAFF"&::10)"ONE MOMENT PLEASE..."'52,124:56,124::53265,27S'E$"BAD DATA":B736:J.31:A:BJ,A:CKCKA:BJ,A:s'CK5088E$:: DATA 1100' B49152:K14:CK.'J.255:A:BJ,A:CKCKA:'C:CKCE$" 5,89,200,169,59,145,89,165287,141,171,2,96,164,87,177,251,201,32,208,7,238,169,2@2208,215,208,154,173,169,2,240,31,240,147,173,170,2,240,11~2169,210,164,88,145,89,230,88,206,170,2,169,32,164,88,145289,230,88,206,169,2,208,245,164,87,177:$O.:381:410$ ***MACHINE LANGUAGE***%53281,7:53280,9:"";:%""162)" ":"  "R%"  "t%"    ߒ "%"    ߩ "%5)"   ߩ  "%,3,238/168,2,173,168,2,240,17,132,87,169,157,164,88,145,89,2300088,206,168,2,208,245,164,87,177,253,41,15,205,167,2,240m013,141,167,2,170,189,240,2,164,88,145,89,230,88,173,17002,240,17,164,87,177,251,201,128,176,32,206,170,2,164,88,345VER OLD PROGRAM, ENTER IN"48)"DIRECT MODE:+#"POKE43,1:POKE641,1:POKE44,8:POKE642,8:RUN":J# ***SWITCH CUSTOM SETS***n#RH,7:R,1:A,23:BL,(BL)239#""251)"Ƞ͠"#86)"1. ҠҠ"#46)"2. 70,2,141,171,2,169,25,133 .x2,169,136,133,252,169,124,133,254,96,169,11,162,71,157,7H.z216,202,208,250,169,32,162,71,157,7,4,202,208,250,169,8.|133,89,169,4,133,90,160,0,132,88,173,171,2,240,13,133.~87,169,40,56,237,171,2,133,91,76,69,194,1 165,91,145,87,96,32,233,194,1386201,133,144,25,201,138,208,14,164,211,132,165,136,177,209,133E63,165,214,133,166,138,201,141,176,3,133,253,96,41,127,201~633,144,5,173,134,2,145,87,173,141,2,201,4,240,6,138632,210,255,208,199,165,197,20140,165,252,240,d17,169,0,133,252,134,91,166,2,165,254,157,0,197,230,2A,f166,91,230,254,169,8,208,211,230,88,230,90,198,253,208,216w,h165,1,9,4,133,1,173,14,220,9,1,141,14,220,96,169,j0,133,87,133,89,169,216,133,88,169,124,133,90,162,4,160,32,165,88,133,44,141,130,2,96,173,14,220*T41,254,141,14,220,165,1,41,251,133,1,169,0,133,87,133Y*V89,173,173,2,133,88,169,128,133,90,162,8,160,0,177,87*X145,89,136,208,249,230,88,230,90,202,208,242,165,1,9,4*Z133,1,173,14,220,9,1,141,14,220 54:4 *** BLOCK 4 ***5133,91,173,134,2,145,87,24,177,209,105,128,145,209,230,89A524,165,162,105,20,133,90,32,228,255,208,21,165,90,197,1625208,245,165,89,240,220,138,145,209,165,91,145,87,198,89,2405223,170,104,164,211,145,209,IN BLOCK"K"LINE"(64)256(63):'BB256:(CK.:J.160:A:BJ,A:CKCKA:7($CK20606E$" IN BLOCK 5":Y()685,208:49213::686,1:386(=144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155(B208,133,156,223,220,158,159,222,253,41,15,205,16722,240,214,164,88,141,167,2,170,189,240,2,145,89,230,8853208,192,169,34,164,88,145,89,173,169,2,208,5,200,169,59q3145,89,198,2,208,6,169,59,200,145,89,96,24,165,251,105340,144,4,230,252,230,254,133,251,133,253,169,0,149)"    "&13)"      "=&17)"      "`&23)"     "}&26)"   "&29)" ":33)"  "&11)"BY MARIE COON &"25)170:0 *** BLOCK 3 *** 1169,210,208,15,164,87,177,251,201,128,144,15,238,170,2,164K188,169,146,145,89,230,88,164,87,177,251,41,127,201,34,20812,169,32,164,88,145,89,230,88,198,91,240,101,230,87,165188,201,60,144,16,200,169,34,14 LOWER Š"53)"3. ΠϠ$87)"(ӠҠҠ)":BL,27E$W,H:G(631)48:W,.:GHG3962T$G965,966]$410{$685,208:49213:CN4:968$685,216:49213:CN6$""242)". . . , SETS SWITCHED":TT.100032,87,140,168.2,140,169,2,169,40,133,91,177,251,201,32,208,45,238,1688/2,200,198,91,208,242,169,145,164,88,145,89,198,2,208,6v/169,147,32,210,255,96,230,88,24,165,251,105,40,144,4,230/252,230,254,133,251,133,253,160,0,240,193,201,34,208"OR REVISE OKE 53272 VALUES TO POINT""TO YOUR CHARACTER SET.<"47)"(IT ANY KEY TO PROCEED)^"7)"('' TO RETURN TO MENU.)"W,H:G(631):W,.:G82410"49152:RH,10:TAB""250)" OLD PROGRAM GONE! ""124)"O RECO1556,l:,n *** BLOCK 2 ***-p0,177,87,145,89,136,208,249,230,88,230,90,202,208,242,96Q-r169,0,133,87,133,89,169,216,133,88,169,124,133,90,162,4-t160,0,177,89,145,87,136,208,249,230,88,230,90,202,208,242-v96,169,0,133,251,133,253,141,1 :MM1 (D"IFG<>32THENSC=M:BC=Z:?CHR$(147):GOTO408":DD2N+"390 D="D:"515":"RUN386":(681)MM1~0F631:G13:F,19:J1M:FJ,G::198,M1:S ***INSTRUCTIONS***XBL,(BL)239:RH,H:R,6:A,23Z" ΠԠĠ͠ )OR64:POKER+2,"R1":POKER+3,"R2;.EB":POKER+4,"R3":EB=H":DDBV"515 D="D":EB="EB":MC="MC":X="XEBMC"PRINTCHR$(147):POKE218,4:RUN515":M5:560"RUN515":560(2)"";:218,4D"?"(34):DD2 49482:(2).M5:5 ***CHARACTER DATA*** 49280:(B)820/%""203)"NO CHARACTERS REPROGRAMMED AS YET]*"(PRESS ANY KEY TO RETURN TO MENU)x/W,H:W,.:254,SC:4104"60006 FORJ=1TO"(2):"RUN825":" 60010":M3:5609Z>SC(50432(2)1): FC400445 ***SCREEN SCAN***6""92)"NEW PRINT LINESv205)". . .SPACE TO CONTINUE"58)". . . ANY OTHER FOR MENUW,.:198,H:(631)32410""D"GOSUB60002:PRINTCHR$(19)TAB(140)PEEK(58)*256+PEEK(57)";":WAITW,H:POY FOR MENU.":685T,X:M.:FD:Z3002:LZ:G773,740,740,900,410B"NTER STARTING LINE NUMBER";wL:L1L3002"# UNEVEN OR TOO SMALL:";:745G2ZL:765ZD:"NTER ENDING LINE NUMBER";D:D1DZ"# UNEVEN OR TOO CTER REPROGRAMMING SCREEN1"4 MAKE BASIC PRINT STATEMENTSS"5 DISPLAY NEW SCREEN(S)t"6 DELETE PROGRAM LINES"7 MAKE CHARACTER DATA STATEMENTS"8 SWITCH CUSTOM CHARACTER SET":"9 STOP PROGRAM50)"YOUR 8)"KEY AND THE NEW COLOR KEY"15)"TOGETHER.750)"(NY KEY FOR MENU.)":BL,27JW,H:W,.:410] ***DELETE***RH,3 :R,B:A,23:BL,(BL)239""207)" ͠ 86)"1 LL NEW PRINT LINES46)"2:: FLIP CHARACTER SETS ***MENU***`P140:E136:IP:R53280:H1:BCH:SC15:A53272:CS33:T646:B2X11:W198:C8:N16:CN4:BL53265:254,SCD300256576,5:(684).126:"";:684,HX(T):PE49391:CS(A)SAB,240:OLORr6)"REGISTER #3 WITH ":BL,27)t"":J.10:"F8 = ENU"SvGH60::"F8 = ENU":GH60::x" ( FOR MORE: NY OTHER FOR MENU)";zW,H:W,.:(631)32656|410BL,(BL)239:""86)"ԠΠҠŠĠ!42)"S WRITTEN, NEW SCREENS WILL DISPLAY;!"ON SCREEN AT 34816 WITH IMAGE ATs!"36864 AND PROGRAMMABLE CHARACTERS AT"4)"32768.!42)"O DISPLAY &/OR SAVE ON DEFAULT!"SCREEN, DELETE LINE 3000 AND DELETE!Ӡ-\41)"F1 = CREEN COLOR4^41)"F2 = XTENDED BACKGROUND COLOR ON/OFFe`41)"F3 = ORDER COLOR OR COLOR REGISTER #1b6)"WITH MULTICOLOR () OR EXTENDED"8)"BACKGROUND COLOR ()f41)"F4 = WITCH BETWEEN CUSTOM AND REGULARh40"515 D="D":EB="EB":MC="MC":X="X'"RUN515":M6:560XD"WAITW,H:G=P(631):PW,.:IFG=82THENPT,"X;x":P254,SC:GOTO438":DD2!MCD"POKE53270,PEEK(53270)AND239:MC=.":DD2:MM1&EBD"POKE53265,PEEK(53265)AND191:EB=.":DD2 CH327688SCCJ.7:C$C$((CHJ)):& HK2(C$):Q$(C$,K,1):Q$" "Q$","5 MD$D$Q$:M R""Z"DATA"SC","D$| WZZ2:2,(2)1:(2)."RUN386":M2:560 \"RUN825":" "Z:M3:560  ***DELETE OLD*** RH,3:R,B:""170)"KEW,.":679,X;DDB:D"POKER+H,"SC":POKER,"BC":POKEA,"CS":SC="SC":BC="BC;p":POKET,"X":PRINTCHR$(147);":49457:DDB:M4MCD"POKE53270,PEEK(53270)OR16:POKER+2,"R1":POKER+3,"R2;MC":MC=H":DDBEBD"POKE53265,PEEK(53265BIG:";:760LD"TARTING # TOO BIG. TART OVER.":DF:7229FDL:"";:F11785OJLL122:J::"772 L="J":D="D":Z="Z:"RUN772":M9:560F.787JLD2:J:MM1:"772":"390 D="Z:"RUN386":MM3:560CHOICE [1-9]?":BL,27+W,H:G(631)48:W,.:GHG9421WG600,430,435,485,1600,720,800,950,428g828,.:828~56576,5:126:43856576,5:R,BC:105MC365EB32549980:F(253)132F200,225,275,365,325,380,100 ELECT FROM TO END46)"3 ELECT FROM TO SELECT END646)"4 ELETE ALL NEW LINESQ46)"5 ETURN TO MENUz49)"(RESS NUMBER DESIRED)":BL,27W,H:G(631)48:W,.:GHG5734D3002G481)"O LINES TO DELETE. NY KE788,49:789,234:56333,129:TURN OFF RASTER0MC375:MCHBEB350:EBHg56576,7:TB,4: DEFAULT SCREENBL,(BL)239:A,21:RH,15:R,H:T,0""57)"MENU":"1 INSTRUCTION SCREENS"2 FORMATTING SCREEN "3 CHARA" 83)"O CHANGE ALL OF A CERTAIN COLOR'3)"TO ANOTHER COLOR:a45)"A. ET CURSOR TO COLOR YOU WISH"12)"TO CHANGE.45)"B. RESS AND C KEYS8)"TOGETHER. (HE CURSOR WILL"13)"DISAPPEAR.)45)"C. RESS OR BACKGROUND OFF+ mMC.:AB,(AB)N: MULTICOLOR ONb o49980:F(253)132:F200,250,275,375,328,380,100m rF4 tFCMCH:400 u367 w53270,(53270)239::MULTICOLOR OFF |S150:: CHARACTER SET SWITCH }O(OCN):CS33O:A,CS6)"CHARACTERS ON FORMAT SCREEN ORAj6)"ENABLE CUSTOM CHARACTERS ON"13)"REPROGRAMMING SCREENql41)"F5 = OLOR REGISTER #2 WITH OR "n41)"F6 = WITCH BETWEEN FORMATTING AND"11)"REPROGRAMMING SCREENp41)"F7 = ULTICOLOR ON/OFF OR CAT,2,0:"NOW"" AT,5,2:"YOU"6 AT,8,4:"CAN"M AT,11,6:"PRINT"e "AT,8,17:"NEATLY" $AT,11,16:"FORMATTED" &AT,14,17:"SCREENS" (N0240 *L(12(N)8) ,C(20(N)8) .AT,L,C:"*": 0AT,22,0 )256226:X027:D:AX,D:] " INSTRUCTIONS":" 1. LOAD 1ST PROGRAM":" 2. SYS"A " 3. LOAD 2ND PROGRAM":" 4. SYS"A19:" 5. SAVE AND VERIFY 165,43,133,251,165,44,133,252,166,45,202,202,134,43,165,46,133,44,96 165,251,133(SB3)14(SB4)3910070='L%(S,0)(SB3):L%(S,1)(SB4):L%(S,3)(LN256):L%(S,2)LN256L%(S,3)G'(SB3),L%(S,2):(SB4),L%(S,3) L'(SB5)0SBSB1:10060/Q'SBSB5:SS1:LNLNLI:10040PV' SEARCH FOR THEN,GOTO,GOSUBZ['SBB1x`'5.(SB5C)47(SB5C)58CC1:12006.(SBC5)012013.(SBC5)4812057.(SB5C)5812057.(SB5C)58F3:12013.NBCSP1).X$"":X1NB:X$X$(((SB5XSP))):H.(X$)NBX$(X$,(X$)1)l.HB((X$)256ԗSB4XZ,((Y$,X,1)):/F12057,12058,12059/SBSB1:10080/SBSB7:10080/SBSB3:10080/"NEW LINE # TOO LONG!":6 CUT OUT RENUMBER FROM PROGRAM):X02:(254)256(253)X,0:(X$)NBX$(X$,(X$)1)l.HB((X$)256"PORTION OF SCREEN AND":"PRESS F4. PRESS ANY Fe o"KEY TO INPUT CHANGES.":"PRESS F6 TO RETURN q"TO SCREEN 1":T,X: | SCREEN @ BANK 2, 34816($8800)AND CHARS @ $8000 OR $9000 }AB,240:788,49:789,234:56333,129: RASTER OFF ~P ZZB::" "::27)" "- ""30);D W,.:50222:T,X:y SCSC(SCN)H:RH,SC:254,SC:: SCREEN COLOR BCBC(BCN)H:R,BC:: BORDER COLOR B1B1(B1N)H:R1B1H:RB,R1:: REGISTER 1 B2B2(B2N)H:R2B2H:R3,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 ";F "------------------------------------------------------"(10)o L0 24: (27) (76) (250) (2);x S2  (245) (10);  L: (27)"@" " "; "------------------------------------------------------" 4,:,R2:: REGISTER 2= ,B3B3(B3N)H:R3B3H:R4,R3:: REGISTER 3r EEB.:53265,(53265)64: EXTENDED BACKGROUND ON F49980:F(253)132:F200,250,275,300,350,380,100 HF5 IFCEBH:400 J326 ^53265,(53265)191:: EXTENDED F BEFORE LOADING THIS PROGRAM YOU MUST POKE44,64:POKE16384,0:NEWS0 (46)256 (45) : S1 S0210 : S2 S0150 : B 8192 S1d X 0 319 .4iY(100(100(X05))(X240))CHAR(X8)ROW(Y8)LINEY 7" % **SET UP THE PRINTAT ROUTINE**F AT679:NATAT22:M:N,M:e32,180,2,132,251,32,180,2166,251,76,240,255,32,253,17432,158,173,32,170,177,96"":53280,6:53281,1" **EXAMPLE PROGRAM USING PRINTAT**":D11000: 53280,5:53281,13:646,57******************O* *g* AUTO-APPEND ** ** BY ** WILLIAM BRAUN ** 1984 ******************* 55,225:56,(56)1:A(56,43,165,252,133,44,96'' VIC RENUMBER'SB(44)256(43)1:B1SB:N0:LI5' FIND # LINES'(SB3)14(SB4)3910035 $'(SB5)0SBSB1:10020&)'NN1:SBSB5:10015?.' RENUM&CREATE ARRAY[3'L%(N,3):LN5:S0:SBB1}8'(SB3)14(SB4)39e'P(SB5):P137P141P16712000j'SBSB1:10080. FOUND GOTO,GOSUB,THEN.B(SB6):C1:NB0:SPNB:ZNB:F2.B012058.B3212005#.B57120577.B0B4812057^.(SB5C)32CC1:SPSP1:1200):LB(X$)256HBu.S10.HBL%(S1,1)LBL%(S1,0)12035.S1S11:12025/Y$(L%(S1,3)256L%(S1,2)):Y$(Y$,(Y$)1)/X$Y$12055/C1(Y$)12060$ /SP0(X$)(Y$)Z1:12050I /Z1(X$)(Y$)SP:SB5Z,32:q/X1(Y$): *** FORMATTER **** (686)38641000M_ ***FLIP SCREENS***bdX(T):PE125mf49391iPI:A,49:TB,P:4,76:SHj56333,127:788,196:789,194:AB,129: START RASTERk"TYPE CHARACTER TO":"REPROGRAM ON LOWER0 mE:49424:RH,SC:R,BC:A,CS:S.9 TB,P:4,80:T,X:"":N **REPROGRAM***` G(3):X(T) J.5:218J,136:224J,137: M32768GC:""27)" " J.7:Z128:G(MJ):27)" "; KHC:"0";:GZGGZ:"*"; 4 "Щ ЍЩ @` x    8  8   -  m    ԭ     Ы e(Ѝ`@": (27) (51) (16) " 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,32BYTE B ROW320 CHAR8 LINE4 BIT7(X 7)R BYTE, (BYTE) (2BIT)Z Xw A$: A$(133) 190 251,0 : 252,32 I 0 7 : 2048I,2I : 4,4,5:4: (10) (10) (27)"@": (27) (51) (16) "  'L$"":H53280,6:53265,(53265)239r I118:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP: I1254412 5,240,7,255,240,3,255,224,0,255,128 0,0,0,0,0,0+ * T *u 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,0,0,0,0,0 * I *2 15,192,0A 7,240,0,1,254,0,0,127,128,0,31,224,0,7,240,0,3,248,0,1,248,7,227,248p 3,255,240,0,255,224,0,63,128,0,0,0,0,0,0| * T * 0,0,0,0,0,0,7,255,240,7,255,240,7,255,240,7,255,240,6,62,48,4,62,16 0,62,0,0,62,0,0,62,0,0,62,0,0,6ACE 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."LOTTOW * B *OX 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131,224b 7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7,129,240l 7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0q * E *%v 0,0,0,0,0,0,7,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,17AN(AN$):: CH1 AN: PR$: CH@ V21,0: "": 53280,0: 53281,0d (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI619 6(L$,LI)" 5,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,157 :A03 (L$,23)7)" DIST. BY DOUBLE L SOFTWARE"r (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:B208,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,1606: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   0,0,0,0,0,0,15,255,248,15,255,248,15,255,248,15,255,248,0,62,0,0,62,0~0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,15,255,248,15,255,248  15,255,248,15,255,248,0,0,0,0,0,0% * L ** 0,0,0,0,0,0,15,128,0,15,128,0,15,128,0,15,1282,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0+ 0,62,0,0,0,0,0,0,07 * U * 0,0,0,0,0,0,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248  15,128,248,15,193,248,15,25+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"$ #"TR255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0m 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224 7,255,240,7,255,240,7,255,224,0,0,0,0,0,0 * S * 0,0,0,0,0,0,0,254,0,3,255,128,7,255,224,15,227,240,15,193,248, 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 "::W C64 BOOTER,BASIC TRACE,FONT EDITOR,2-COL DIRECTORY,SCREEN MAG. BOOT SCREEN DUMP I,SCREEN DUMP II,PRINTAT,AUTO-APPEND FORMATTER,64 WINDOWS,S&E FILE ADDR,FASTNEW,MAESTRO,1541 CLEAN,DOS BASE CONVERSION,LUCK 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,.:150 TM$(13)AN$" " 2257 AN$AN$TM$:AN$;"_";o T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN22" ":190  ,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,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$,B8)TA)""A"-"PR$ B9 175 150 A18A*W ^]lBEST UTIL.LL2Az||7{g{z|y?Z|{y5~{ݟY?[_7oeiSK*j1 0MENU C-64 BASIC TRACE FONT EDITOR2-COL DIRECTORYSCREEN MAG. BOOTSCREEN MAGIC SCREEN DUMP I SCREEN DUMP II PRINTAT AUTO-APPENDFORMATTER7 64 WINDOWSS&E FILE ADDR FASTNEW MAESTRO 1541 CLEANDOS BASE CONVERSION LUCK LOTTO C64 BOOTER   ****************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)(ɒ ˒  @*   ܨ   ͒ ̿+ ϒ-[] ߒ<> ߩ() ABCDEFGH IJKLMNOP QRSTUVWX YZ$'.#01 23456789  SCREEN MAGIC BY BOB SPIRKOȑ (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  F BEFORE LOADING THIS PROGRAM YOU MUST POKE44,64:POKE16384,0:NEW\B8192 :53272,24v 53265,(53265) 32 I0 7999 : BI,0 : ( J1024 2043 :J,1:d X 0 319 .4iY(100(100(X05))(X240))CHAR(X8)HG.ɝ-ɑ/(96 ɓ1_BAIXXgLLL LFLLL.LLLLLLXLLL;LvLƭEIELDIDAǍLCIC'ЍL DЍ Щ! t fȭ(L' fȭ0 AǑ'БL80JJJ mȢ . .ȅȭiЍ8ȭJnȭJJeiiԅ`Ȉ`B ``( ۩` 'Ѝ`!Э!) L!L í ^ ( LF©VЩЭiLé0LéVЩLF©^ЩЩ0 ! ũȩ ȑ ȑȭ ȭLĠ àF L5 0:8/B pLȠȢ  `  `ș `ө L{ũ؅`i(ii(i`8(  ŭȑȑпLiPiiPi`8P8P`  CURSOR VELOCITY (0-9) SAVE> LOAD>  <<<<<< DISK ERROR >>>>>> 00000000       ROW(Y8) LINEY 7B BYTE B ROW320 CHAR8 LINET BIT7(X 7)r BYTE, (BYTE) (2BIT)z X A$: A$(133) 190 4,4,5:4: (10) (10) (27)"@": (27) (51) (16) " ";, "------------18): 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$; '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 Nx#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$  (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: R3# I0 I1:"SCREEN MAGIC",8,1/ 49152 D!ЍЩ Ѝ  f ȩDžDž h hمDž h hȩDž hLv `Ǚ>>@.ЩpЩ'ЩЩ `éЭ píI)o)rkd] VbɅvɉuɆtɊsɇQɈ_ɌXLL fЭȭV LC©L­ Щ^L fЭȭ L©LV­ ЩNL í VAǁ'ЁEBDC)LIAL'LAǮȎAnjL¬'ЮȎ'ЌL­ְвi8LAiAL i(iL@!Р éDž h pL éDž^ h vŭC ^Ţ ! Ţ  .ЩpЦ pLL/Ġ éDžv h vŭթ ^Ţ 8(` ŢȱȈȱȑȑȭȑȑ L Ţȱȱȱȑ 눭ȑȑ Lۅȱ űȱ ŭȑȑ & ŭȑȑжL űȱ űȱ ŭȑȑ ------------------------------------------"(10)U L0 24: (27) (76) (249) (2);z I1 119: (0);:I: (245); CR 0 39: P 0 7:PBYT0:E2(7P) LC 0 7 PBYT PBYT(((BLC) E)0)2(7LC) LC: (  "U "  " "  " "  " " ݪ Ъ δ  ") " . " ߒ  "b " ߒ  " " ߒ  " "" ߒ  " ," ߒ  5:C%10  49432:D12000:2  49440:D12000::5308 Xv PML49408: * CAN BE RELOCATED TO ANY 256 BLOCK INCREMENT. ZHB(ML256):LB(ML256HB)256 dÁN0510:A:MLN,A: n×ML15,LB:ML16,HB:OWML24:WWML28:CWML32:5Ã87,21,197,47,208,4,169,0,240,33,181,112,209,71,208kÃ8,169,128,200,209,71,240,12,136,165,71,24,105,7,144,217,230,72,208,213Ã224,0,240,20,200,200,177,71,224,3,176,10,201,3,176,6,169,3,224,0,240,2Ã149,153,202,16,178,166,155,134,158,138,202,202,134,105,40,144,1,200,202,208,247,133,164,133,166,133,168,133,170,152,24,105ă4,133,165,133,169,105,212,133,167,133,171,165,127,133,123,133,118,36,252ă48,63,112,61,166,128,232,232,134,119,162,0,160,0,165,154,133,172,177,164ă32,117,0,177,166,32,165,160,133,172,169,64K@ă32,117,0,198,172,16,249,192,0,208,70,169,110,32,117,0,169,93,32,117,0Jă165,160,133,172,177,174,201,64,144,6,201,96,176,2,233,63,198,173,16,4Tă230,173,169,32,201,28,208,8,136,165,172,208,243,200,208,242,32,117,0,2001^,232,208,2,230,124,200,208,4,230,169,230,171,198aă172,208,217,198,155,208,11,162,64,189,176,2,149,112,202,16,248,96,152ă24,101,253,144,4,230,169,230,171,168,24,144,1840,173,169,32,201,28,208,8,136,165,172,208,243,200,208,242,32,117,0,2001^ A$,B$# D(A$(0))256(B$(0))6 15,E,E$,E1,E2O E0:,E$:1:15:l 15)"START ADDR.(DEC)"Dy WD: 54 "26)"(HEX) "H$ $"PLEASE WAIT..." &831 (FP:P(251)(252)256:TP *Z$(" "(TF),5) ,"  "Z$;" BYTES OF MEM."! .Z(Z$)H 017)"END ADDR.(DEC)"ZW:DWZ:54\ 226)"(HEX) "H$d 460 6H$"":M4096:N3:D256M16:N1 8H0N:C(DM):DDCM:MM16:CC48:C57CC7 :H$H$(C):: <1:15 >"DO YOU WISH TO CHECKPBYT) (PBYT);  P : BB82  CR: (245) (10);E  L: (27)"@"X " "; "------------------------------------------------------" 4,:4 "(10) (27)"@": (27) (51) (16) " ";, "------------n"":53280,0:53281,7Qx"  ""  ""  ""  "! "  ʹݶ ʹζ̺ʹ̴Х  "^ " ߒ  " " ߒ  " " ߒ  " " ߒ  " "0 6""L @13)"BY THOMAS BUNKER"l J12)"AND THE AHOY! STAFF"u T""  50000 W$"WINDOW COMMANDS\\\OPEN - SYS"(OW)"\WRITE - SYS"(WW) W$W$"\CLOSE - SYS"(CW) W%20:H%10:R%5,200,210,195,157,0,197,232,96,189,0,197,96,189,0,193,149,112,202Ã16,248,48,26,169,0,240,6,169,64,208,2,169,128,133,252,162,64,181,112,157Ã176,2,202,208,248,162,17,208,220,162,4,160,0,165,46,133,72,165,45,133,71Ã165,72,197,48,208,10,165,71159,170,169,0,24,101RÃ154,176,37,202,208,248,133,163,166,154,202,202,202,134,160,169,40,56,229Ã154,144,18,197,157,144,14,133,253,160,0,166,156,138,24,101,155,201,26Ã144,11,162,64,189,176,2,149,112,202,16,248,96,165,157,166,156,240,9,246117,0,208,2,230,119,200,208,4,230,165,230,167,198i"ă172,208,231,198,158,240,14,152,24,101,253,144,4,230,165,230,167,168,24,ă144,209,36,252,48,118,166,128,232,232,232,232,134,119,160,4,162,3,1776ă71,149,172,136,202,208,248,136,169,112,32,117,0,ă198,172,16,216,169,93,32,117,0,198,159,208,198,169,109,32,117,0,208,169}hă169,125,32,117,0,166,128,232,232,36,252,48,2,232,232,134,124,162,0,160ră0,165,154,133,172,32,122,0,145,168,36,252,48,8,173,134,2,145,170,24,144|ă6,232,32,122,0,145,17053280,0:53281,3:646,0X" START & END FILE ADDRESS": BY DAVE SMARTqI828904:A:I,A:15,8,15,"I0"" FILE TO CHECK ";F$: Q24:PQ256:S(P256) 251,PS256:252,S" ";F$1,8,2,"0:"F$ #1, ANOTHER FILE (Y/N)" @A$:A$""64/ BA$"Y"= DA$"Y"6_ F 76,96,3,162,1,32,198,255,32 H 228,255,160,0,145,251,230 J 251,208,8,230,252,165,252 L 201,208,240,6,165,144,41,64 N 240,231,76,204,255,162,1,32 P 201,255,162,54 0 ""; ( I/ 2 I0 511: A: I9472,AO 7 (I18)(I18)0 "";b < I: (30);:h c: d PROMPT AND WAIT FOR RESPONSE i: "INSERT DISK AND HIT "RT$; n 200: A$(13) 110 x : GET CHAR FROM KB, WITH PROMPT (1)(0) #15,E$: E$"" E$(0)+ E(E$)@  TY500 495T  E127 430g  E1 495m  :"FATAL ERROR TRY AGAIN": :  ***** MAIN CODE HERE ***** Q$(5)"Q"(30)  53280,11: 53281,0: "";:RT$(158)"1 1035  "PLEASE WAIT..";'  20::FG1?  820:DN$"NAME ME"]  198,0: "DISK NAME";DN$y  198,0: "DISK ID";DI$ $DI$(DI$"ZZ",2) .I1((DI$,1)):I2((DI$,1)) 8 15,8,15:15,"M-W"(18)(0)(2)(I1)(I2);:15 B 10015* 15,8,15:15,"N0:"DN$4 15@ ::"FORMAT COMPLETE, REMOVE DISK"k :"HIT "RT$" TO FORMAT ANOTHER DISK," Q$" TO QUIT";: 200 A$(13) 1000  169,16,133,255,169,0,133,251 169,37,133,252,169,0,133,253  0,133,252,165,253,105& 32,133,253,165,254,105,0,133K 254,32,174,255,198,255,208,180d 96,77,45,87,0,0,32 CODE DOWNLOADED INTO 1541 RAM 120,173,0,28,9,12,141,0 28,169,45,133,74,32,210,6 198,74,208,249,162,0,32,217  5,68,141,0,28,169,238,141) 12,28,160,0,132,77,165,57J  153,0,3,200,200,165,77,153g 0,3,200,165,34,153,0,3 200,165,19,153,0,3,200,165( 18,153,0,3,200,169,15,1532 0,3,200,153,0,3,200,185< 250,2,89,251,2,89,252,2F55,141,1,28 141,3,28,32,243,6,169,01 133,50,169,255,141,1,28,162T 5,80,254,184,202,208,250,162u 10,164,50,80,254,184,185,0 3,141,1,28,200,202,208,243 162,9,80,254,184,169,85,141 1,28,202,208,245,162,5,169 255, 254,184 , 80,254,184,32,0,254,169,0*6 133,48,169,3,133,49,165,67J@ 133,77,32,176,6,162,10,80lJ 254,184,173,1,28,209,48,208T 14,200,202,208,242,24,165,48^ 105,10,133,48,76,132,6,169h 244,133,75,96,32,176,6,160r 187,80,254,184,173,1,28,217| 0,1,208,235,200,208,242,1627 252,80,254,184,173,1,28,217Y 0,4,208,219,200,202,208,241| 198,77,208,182,169,0,240,209 169,208,141,5,24,169,161,44 5,24,16,197,44,0,28,48 246,173,1,28,184,160,0,96,134,1,160,0% R 177,251,32,210,255,230,251I T 208,2,230,252,165,251,197,253k V 208,239,165,252,197,254,208 X 233,162,55,134,1,76,204,255:C(DM):DDCM:MM16:CC48:C57CC7 :H$H$(C):: <1:15 >"DO YOU WISH TO CHECK' -------------------------------? FAST NEWf DON LEWIS V010585 (REV V123184) ------------------------------- 1000: DOWNLOAD CODE INTO 1541: (151) I0 102: A: 820I,A # (I10)(I10) 198,0: 204,01 A$: 207,0: A$"" 210G 204,1: " ";:M +:  DO A DISK JOB, THANKS "INSIDE COMMODORE DOS" BY DICK EMMERS, DATAMOST TY0:15,"M-W"(8)(0)(2)(T)(S) 15,"M-W"(1)(0)(1)(JB) TYTY1 15,"M-R""(30)3 TP$(31)""(30)q PN$(31)""(30)" FAST NEW V010585 "(31)""(30) TB$(31)""(30)  (147)(13)" "TP$  " "PN$  " "TB$:  FG 15,8,15:15,"M-E"(0)(5);:15: 15,8,15?T18:S0:JB176: 400: SEEKWJB128: 400: READ15,"M-W"(0)(4)(3)(18)(1)(65)JB144: 400: WRITES1:JB128: READ 15,"M-W"(0)(4)(2)(0)(255)JB144: 400: WRITE  169,5,133,254,165,186,32,1771 255,169,111,32,147,255,165,251S 164,252,141,152,3,140,153,3t 160,0,185,149,3,32,168,255 200,192,6,208,245,160,0,177 251,32,168,255,200,192,32,144 246,165,251,105,31,133,251,165 252,105, 6,169,1,133,34,165,34,201% 36,240,12,32,70,5,48,7G 230,34,32,200,6,240,238,173f 0,28,41,243,141,0,28,169 236,141,12,28,165,75,240,5 41,127,76,200,193,96,32,75 242,133,67,138,10,10,10,10 10,133,68,173,0,28,41,159 89,253,2,153,249,2,230,77'P 165,77,197,67,144,192,152,72HZ 169,3,133,49,32,48,254,104ld 168,136,32,229,253,32,245,253n 169,1,162,0,157,0,4,232x 208,250,169,4,133,49,32,233 245,133,58,32,143,247,169,206 141,12,28,169,280,254,184,141,1,28,202  208,247,162,187,80,254,184,189? 0,1,141,1,28,232,208,244a 160,0,80,254,184,177,48,141 1,28,200,208,245,169,85,162 8,80,254,184,141,1,28,202 208,247,165,50,24,105,10,133" 50,198,77,208,149,80,  32,203,6,174,0,28,232,76 217,6,32,213,6,174,0,288 202,138,41,3,133,68,173,0V 28,41,252,5,68,141,0,28x 160,8,162,0,202,208,253,136 208,250,96,169,85,141,1,28 160,32,208,240,234,234,234,234`15: 15,8,15:15,A$,B$,C 4015:F3256:O1:W16:JI(0)1:JI(1)1:JI(2)1:T2 Q1Q7:Q2Q14:Q3QO:Q4Q8:Q5Q15:Q6Q4:Q7Q11:Q8Q18:E1Q6:E2Q7:E3Q8 TH119:FH401:SI1450:C$(13):W1W:W2W:W3W:SR240 L127909:L229359:L330809:H132259:H233709:H335159:O136  GX09:T$(X)::608! OVO1VSIa XZK(V):OVX,Z::K(V)1:JI(V)1:JJZ:KKZ:CZ:K(3)Z:u A$:A$""150 "GET READY TO PLAY ...";:XOFH::"GO!" Q5,AD:Q6,SR 'Q6,WO:U49152 ,SK:(SH)O360 1UDO363. 6 "; SK:(SH)O A$:A$""3900 (SH)T411H X(KY):(CH%(X));{ Q,N%(X,Z):Q3,N%(X,O):Q6,W1:IOF3::Q6,W M%(JJ,V)X:JJJJO:JJFH390 JJCJJJJO:" "; 390 JI(V)ZXO999::K(V)1: :" RHYTHM: V),O):LVK,N%(M%(J,V),Z)%OVK,O:KKO:KSI+?R%(J,V)O450yHVK,N%(M%(J,V),O):LVK,N%(M%(J,V),Z):OVK,Z:KKO:XO999::2000IZK(SO) SK:(SH)O600Q,(L1I):Q1,(L2I):Q2,(L3I) Q3,(H11-PLAY IT AGAIN!"l10)"2-COMPOSE A TUNE"6q10)"3-LOOK AT MUSIC"Pv10)"4-MUSIC EDITOR"ox10)"5-SELECT INSTRUMENT"{10)"6-LISTEN TO MUSIC"10)"7-SAVE MUSIC ON DISK"10)"8-GET MUSIC FROM DISK"10)"9-LOOK AT DISK INDEX050,1100608!" HOW MANY VOICES (1,2,3) ?";2SK:(SH)EA$:A$""678^B(A$):B3BZ678pVZT:140:VZBO:" INPUT VOICE"VOJJZ:KKZ386:JI(V)JJO:420:K(V)KO:SVO:920::" WHICH VOICEZJI(V):(R%(J,V)64);:SK:(SH)O739B "EDIT WHICH VOICE (1,2,3) ?";U#SK:(SH)1h%A$:A$""803&V1(A$):V13V1Z805(VV1O:JI(V)Z810)" NO MUSIC ASSIGNED TO VOICE";V1:XO2000::823 *"THE 77" INPUT THE NOTES AS THEY SHOULD BE.")8:140:386:TJIJJO:9JI(V)Z840n::" THE RHYTHM CURRENTLY IS"::" RHYTHM: ";;JZJI(V):(R%(J,V)64);::TJIJI(V)840@:" IF OK TYPE ":" OTHERWISE 'R'"AA$:A$""833BSK:A$:A$""834)CA$" "K(V)1:CZ:KKZ:435:K(V)KO:aHJI(V)TJI::" INPUT THE RHYTHM AS IT SHOULD BE."{JCZ:KKZ:K(V)1:420MK(V)KO:RJJJI(V)O:KKJJ:CJJ:386:JI(V)JJO\JJKK420:K(V)KOfSVO:920:$,D$a A$""B$""C$""D$:15:2H15: 15,8,15,"I0:": "@0:FASTNEW.BAS",8: 15:a0 15: 15,8,15:15,"M-R"(18)(0):#15,I1$115,"M-R"(19)(0):#15,I2$2 I1$I2$4 15: 5,24,16,197,44,0,28,48 246,173,1,28,184,160,0,9656334,(56334)2543X3660940959:X,Z:K55,4:56,109::10y N%(K,O) H(FO):N%(K,Z) L(FO):FOFOR: 53280,0:53281,1:646,0:"":2000:3000Q54272:R1.0594631:FO43.65:SK65439:DO53248:KY1971 SH653:F1.064068:F216.609:O238059$ O339509:OV0:HV0:LV0> M%(400,2):R%(400,2)U N%(64,1):CH%(64)l ( H(FO)(FOF1) 2 L(FO)(FOF2)(F3(FOF1)) 7IZ64:J,K:CH%(I)J:JZJTH9 : <IQ54295:I,Z::I,15 FQ6,SR:Q13,SR:Q20,SRX(KY):Q,N%(X,Z):Q3,N%(X,1):U,N%(X,Z):U1,N%(X,O)= @UUT:300H hS365N jY kS365b l295 m"HERE'S WHAT YOU JUST PLAYED:" tI49152UTT uSK:(SH)T381 wQ,(I):Q3,(IO) |JO35:: }Q6,W: "NOTES: "; SK:A$:A$""422(SH)T4325A$"A"A$"Z"422gA$;:R%(KK,V)(A$)64:KKKKO:KKJI(V)422p435KKCKKKKO:" ";422KK(V)O:HVH1VSI:LVL1VSI:OVO1VSIJCJI(V) XOR%(J,V)O:HVK,N%(M%(J,I):Q4,(H2I):Q5,(H3I);&E1,(O1I)W1:E2,(O2I)W2:E3,(O3I)W3J0XZE::lXQ6,Z:Q7,Z:Q8,Z:XZF3::`A$:A$""608a"":53280,6:53281,1:5)"*** S E L E C T I O N S ***"b10)"0-MUSICAL KEYBOARD"g10)""10)"X-QUIT PROGRAM")10)"YOUR CHOICE [0-X]?";@SK:A$:A$""650QA$"X"1350nS(A$):S0A$"0"650(S0)2(S1)3(S2)4(S3)5(S4)150,150,676,710,800(S5)2(S6)3(S7)4(S8)5(S9)1150,900,1000,1 (1,2,3) ?";SK:(SH)OA$:A$""7126V1(A$):V13V1Z712OVV1O:JI(V)Z721" NO MUSIC ASSIGNED TO VOICE";V1:XO2000::"VOICE"V1:"NOTES: ";:JZJI(V)(CH%(M%(J,V)));:::" RHYTHM: ";:J NOTES CURRENTLY ARE:":" NOTES: ";.0JZJI(V):(CH%(M%(J,V)));::k1" IF OK TYPE ":" 'B' TO START FROM BEGINNING"2" 'A' TO CONTINUE ADDING NOTES"3SK:A$:A$""8194A$"A"8505A$" "TJIJI(V):8266A$"B"81 " TYPE NUMBER OF VOICE TO BE PLAYED ";<:" OR TYPE <4> FOR ALL VOICES AT ONCE "MSK:(SH)`A$:A$""912yS(A$):S4SZ912S:S4JI(SO)1V1S:720E11(S4SO)(Q6820)820:E21(S4ST)(Q7820)820 ETTE"" NAME YOUR PIECE";A$:A$""10422" RECOMMENDED TEMPO";B$:B$""1042PE(B$):EZB$"0"1016y15,8,15,"I0":5,8,5,"@0:"A$",S,W"5,E;C$;JI(Z);C$;JI(O);C$;JI(T) VZT:XZJI(V):5,M%(X,V);C$;R%(X,V)::5:15 (56334)254)15,E$#*(E$)Z" "A$" NOT ON DISK":XZ999:: 1074_+" "A$" LOADED FROM DISK":CZ:" RECOMMENDED TEMPO:";Er,VZT:K(V)1." COMPILING VOICE"V1:JI(V)1435:K(V)KO125:15:L56334,(56334)1:" URN> TO RETURN";A$z56334,(56334)254:~"":XQQ23:X,Z:3XZT:JI(X)ZX1313a" CHOOSE DESIRED SOUND FOR VOICE:";XO" PRESS A NUMBER KEY ... ";SK:(SH)1313A$:A$""1161S(A$):S0A$"0"1161R95:1300 W32:AD0:SR240:1300!W128:AD88:SR195:13005!W64:AD14:SR86:HP6:LP2:1300Y!W64:AD9:SR90:HP8:LP8:1300!W64:AD9:SR90:HP0:LP255:1300! W16:AD9:SR80!XZW1W!XOW2W!XTW3W! JQT7X:2,62,85,9,86,14&# 57,17,73,22,74,25,48,30,77,33,75,38,79,41,78,46,43,49,80,54,76,5,45,57f#@ 46,56,58,59,64,8,44,11,92,16,42,19,59,24,115,27,0,0,61,32#J 94,35,47,40,49,43,95,48,0,0,50,51,119,0,0,0,81,0,126,4,0,0#ACCORDIAN,ORGAN,CLARINET,SYǪ"% " Σ"%% " "+%2% "Y% " % " ADVANCED % " . % " MUSIC%  4:: A, F 8);"DESIGNED BY...BOB LLORET"O P 11)"COPYRIGHT (C) 1984"d Z D1 2500: D d "": 53280,0: 53281,6 n "  DISK OPERATING SYSTEM V3.0 " s " ";36)"" t " ";36)"" x " [1] FORMAT DISK  ;38)"": A< " >YOUR CHOICE ?[1-7]<"::U AN$: AN$"" 160c AN(AN$){ AN1 AN7 160 AN 200,300,400,500,600,700,1200 **** FORMAT DISK **** ======================= 8);"ENTER DISK NAME (16 CHR)": "";NA$T 10);"ENTER DISK ID (2 CHR)": "";ID$p NA$"NEW0:"NA$","ID$ 10);" ARE YOU SURE (YN) ?" AN$: AN$"" 240 AN$"Y" 280  AN$"N" 100  AN$"Y" AN$"N" 240E31(S4S3)(Q8820)820:K(3)K(Z):K(O)K(3)K(3)K(O)1K(2)K(3)K(3)K(2)R" INDICATE TEMPO (0-9) "ZSKmA$:A$""938E(A$)10:EZA$"0"935470:56334,(56334)1:A$"":B$""" INSERT FORMATTED DISK" "A$" SAVED ON DISK"56334,(56334)254:XZ999::*VZT:140:^56334,(56334)O:A$"":" NAME OF PIECE";A$15,8,15,"I0":5,8,5,"0:"A$",S,R":5,E,JI(Z),JI(O),JI(T)$VZT:XZJI(V):5,M%(X,V),R%(X,V)::&56334, THIS DISK CONTAINS:":V15,8,15,"I0":5,8,5,"$"ZJ1254:#5,A$:?]XO8:#5,D$,A$,A$:ST1145mjB$"":JO16:#5,A$:A$(160)B$B$A$m:(D$(Z))129,B$tJ111:#5,A$::X8#5,A$,A$v:1117y5:15:A$"":"  I ND ":D12500:: 100+ ""7)""UMM9: 7)" * D I R E C T O R Y * " 7)"": "" I1 9: AE$(MN91)"" MMI1:I9:960 11);"[";((I),1);"] ";(AE$(MN9I),3,16: "MENU ITEM CHOSEN: #";C$;" - ";(AE$,3,16)6 I18 1 1:FLIT$ ((AE$,I,1))160 I1.: "LOAD";(34);(AE$,FL);(34);",8"8 "RUN": ""B 631,13: 632,13: 198,2:"": 53280,0: 53281,0 CTORY FIRST TO MAKE SURE";D " YOU SPELL THE OLD NAME CORRECTLY TO INSURE NO DISK ERRORS." "[3] PRESS #3 AFTER YOU HAVE USED A DISK FOR A WHILE. THIS "; "WILL COMPACT YOUR PROGRAMS AND ELIMINATE UNUSED BLOCKS ";  " O";< " THIS WILL MAKE IT HANDY IF YOU EVER NEED IT."dF "[6] PRESS #6 TO LIST THE DIRECTORY AND RUN ANY PROGRAM";zK " ON THE DISK."P 10)"";Z AN$: AN$"" 1370d AN$"" 100n AN$""  (L$,5)8)" "L } (L$,6)8)""x (L$,10)8)"[1] -LOAD NUMBER FILE" (L$,11)8)"[2] -ENTER CURRENT NUMBERS" (L$,12)8)"[3] -DISPLAY ALL NUMBERS" (L$,13)8)"[4] -6 MOST COMMO === "": 53280,12: 53281,1J 4)""x 4)" ENTER THIS WEEKS LOTTO NUMBERS " 4)""  (L$,8):T6  A1 6: 10)"NUMBER ";A;: N(A)  S1 NN: N(A)S 630 ": -70. 0 =========================N 1 **** DISPLAY NUMBERS ****n 2 ========================= 6 "": 53280,3: 53281,1:T4 @ 6)" CURRENT LOTTO NUMBER LIST " J S1 NN: S23 "":T24 ^ S9 370 h ""J 15,8,15,CH$: D1 1500: D:T 17);" DONE ": D1 1000: DI^ 15: 100i **** VALIDATE DISK **** ========================= 12);" VALIDATING DISK " 15,8,15,"VALIDATE" 15: 100 **** SCRATCH PROGRAM ***======X 9);" WRITING D O S FILES ")b "DOS",8Pl 17);" DONE ": D1 1500: D_v 15: 100 **** DISK DIRECTORY **** ========================== "": 53280,4: 53281,1AE$"":AN0:A00:DE0:DR$"0"ER0:F$1 16: #8,C$:F$F$C$:(H (F$,3)"DOS" ANAN1:860?RAE$(AN)DR$":"F$W\ I1 J: #8,C$:tf DE8 #8,C$: #8,C$p:780z"NO DISKETTE FOUND IN DRIVE";DR$;"":D1 2500:: 100 AN0 "NO PROGRAMS FOU) : 11)"YOUR CHOICE [1-9]"* 11)"PRESS F1 FOR DOS"I 11)"OR RETURN FOR MORE"_ C$: C$"" 980r C$"" 100 C$(13) 1020MNMN1: MN91AN MN0910 (C$)1 (C$)MM 980AE$AE$(MN9(C$))7)" * H E L P S C R E E N *"N"[1] PRESS #1 TO FORMAT A NEW DISK OR ANY DISK YOU WISH ";g "TO TOTALY ERASE." "[2] PRESS #2 TO CHANGE THE NAME OF ANY PROGRAM ON A DISK."; " YOU SHOULD ALWAYS LIST THE DISK DIREN A DISK."5 "[4] PRESS #4 WHEN YOU WISH TO ERASE ANY PROGRAM ON A DISK.";" ALWAYS LIST THE DISK DIRECTORY TO INSURE PROPER SPELL ING";( " OF THE PROGRAM."2 "[5] PRESS #5 TO MAKE A COPY OF D O S ON ALL YOUR DISKS. 13705 "[4] PRESS #4 WHEN YOU WISH TO ERASE ANY PROGRAM ON A DISK.";" ALWAYS LIST THE DISK DIRECTORY TO INSURE PROPER SPELL ING";( " OF THE PROGRAM."2 "[5] PRESS #5 TO MAKE A COPY OF D O S ON ALL YOUR DISKS.#L$""5( 1000: 1500Y2 NUM(45),TN(NN),PF(NN):C0:B0wF "": 53280,6: 53281,1P (L$,2)8)""Z (L$,3)8)" "d (L$,4)8)" LUCKY LOTTO MENU "" xN NUMBERS", (L$,14)8)"[5] -END SESSION"X (L$,20)10)"YOUR CHOICE ? [1-5]"p AN$: AN$"" 180~ AN(AN$) AN 730,220,310,420,660 ========================= **** INPUT NUMBERS **** ====================== T);S" "TN(S):380 r ""T1);S" "TN(S)& |` (L$,25)" PRESS  F1 FOR 6 MOST COMMON NUMBERS";x  AN$: AN$"" 400  AN$"" 400  ========================  **** COMMON NUMBERS ****  ========================  I1    SW0 BB1:480BB1 ES&(L$,22)5)"PRESS F1 TO ENTER MORE NUMBERS"0 5)"PRESS F3 TO VIEW ALL NUMBERS": 5)"PRESS F5 FOR MAIN MENU";D A$: A$"" 580N A$"" 220X A$"" 310b A$""  ===== **** READ ROUTINE ****1 ========================N"": 53280,6: 53281,6z (L$,10)10)"LOADING NUMBER FILE..." (L$,12)11)"ONE MOMENT PLEASE" 2,8,2,"@0:"NF$",S,R" S1 NN2,TN(S) S  2:  80* 197,45,0,197,240,3,76,243,198,232,232,14,80,197,208,238: 76,49,234j 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#8,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0Wj 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0t 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,199 120,169,:S1 L53287 53293  L,S:SS1:: 53294,14-S20:A30G( L53248 53263 2_2 L,S48: L1,A40s<SS25:AA25:F 53269,255P 50432,255Z 51104dh ======================i **** SPRITE DATA ****,254,63,255,252,1,129,128,1,129,128,0%:: 4)"$ $"B 4)"$ $"j 4)"$   $  " 4)"$$$   $$$   " 8)"      " 8)"   ",^ " "fh " DOUBLE SOFTWARE "r " "| "" 10N,12)" ENTER HIGHEST NUMBER IN YOUR LOTTO";: NN NN1 202050 "fh " DOUBLE SOFTWARE "r " "| "" 10V$;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$: NN: TN(I)B BTN(I)."": 53280,6: 53281,1Z (L$,1)8)" 6 MOST COMMON NUMBERS " (L$,3)12)"NUMBER";22)"TIMES" E1 6:SW0 B0 540 I1 NN:T14 I9 T13 TN(I)B T);I;7);TN(I):SW170l A$"" A$"" "" 580.vTN(S)TN(S)1:290M ========================l **** WRITE ROUTINE **** ======================== 2,8,2,"@0:"NF$",S,W" S1 NN2,TN(S) 2: ===================70 ==========================0 **** SPRITE MOVEMENT ****Q ==========================s S50880 51116: A: S,A: 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,8 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0bB 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80L 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76V 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0` 19192,141,20,3,169,198,141,21,3,88,967SP53248:SS50433: "": 53280,9: 53281,0CH1:V1Z LSS SS16 2l L,H: L1,VH((0)247)1:V((0)3)1: 50688,FF S2040 2047 S,14: S896 959: CH S,CHj ======================;n 1,129,128,63,255,252,127,255,254,255,255,255,255,255,255}x 241,129,128,241,129,128,241,129,128,255,255,252,255,255,254 127,255,255,63,255,255,1,129,143,1,129,143,1,129,143,255,255,255,255 255,255,127,255  "  12)"    "0" 12)"    "Y, 16)" ߒ     "6 16)"      "@ 21)"   "J 21)"  "T: ")"DESIGNED BY..." 19)"BOB LLORET"&: 11)"PRESS F1 TO START";> A$: A$"" 1700n A$"" ASP SP7: SP21,0:: 2000 A$"" 1700""(L$,10)" ENTER YOUR FILE NAME";: NF$ NF$"" 2010(L$ 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: CURSOR 1h (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