10 SYS65409
20 POKE53265,0:POKE53280,6:POKE53281,14:POKE649,0:POKE808,225
30 FORX=0TO30:READA:POKE828+X,A:NEXTX
35 DATA72,152,72,173,12,32,195,255,104,168,104
36 DATA162,4,32,186,255,169,0,32,189,255,32,192,255,174,12,3
37 DATA32,201,255,96
40 PRINT"[147][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
50 PRINT"[214][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][214]"
60 PRINT"[214][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][214]";
70 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
80 PRINT"[158][161][146][161][161][146][161][188] [146][190][172][172][187][146][187][161][146][161][161][146][161] [190][188][146] [161][146][161]"
90 PRINT"[161][146][161][161][146][161]  [146] [188][188][146][162] [161][146][161][161][146][161][161][188][190][146][161][161][146][161]"
100 PRINT"[188][188][190][146][190]  [146] [172][187][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]"
110 PRINT" [188][190] [188][162][146][190] [162][162][146]  [162][162][146] [188][190][188][190][188][162][162][146][190]"
120 PRINT" [190][188][146] [188] [146][190][161][172][188][146] [172][172][187][146][187]"
130 PRINT"[161][188][190][146][161]  [146] [161][146][161][161][146][161][188][188][146][162]"
140 PRINT"[161][146][161][161][146][161]  [146] [161][146][161][190][146][190][172][187][161][146][161]"
150 PRINT"[188][190][188][190][188][162][146][190][188][162][146][190]  [162][162][146]"
160 PRINT"(C) 1988   LOUIS K. AVANZI"
170 PRINT"WORKSHEETS FOR:":PRINT"- [158]TEXT SCREENS"
180 PRINT"- [158]CUSTOM CHARACTERS":PRINT"- [158]SPRITE DESIGN"
190 PRINT"- [158]MUSIC STAFFS"
200 PRINT"MPS 801/803 OR COMPATIBLE REQUIRED"
210 FORL=1104TO1904STEP40:POKEL,86:POKEL+54272,2:POKEL+1,116:POKEL+54273,6
220 POKEL+38,106:POKEL+54310,6:POKEL+39,86:POKEL+54311,2:NEXT
230 POKE2023,86:POKE56295,2:POKE53265,27:FORZ=1TO7500:NEXT:GOTO1320
240 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO240
250 PRINT#4,"        TEXT SCREEN WORKSHEET"
260 PRINT#4,"        [197][197][197][197] [197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197]":PRINT#4
270 FORLL=1TO3
280 PRINT#4,"                           1    1    2    2    3    3"
290 PRINT#4,"                 0    5    0    5    0    5    0    5"
300 PRINT#4:FORL=1024TO1984STEP40
310 PRINT#4,"     "+STR$(L)+STR$(L+54272);
320 PRINT#4," [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165]";
330 PRINT#4,STR$(L+54311)+STR$(L+39)+"":NEXT
340 PRINT#4,"                 [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
350 PRINT#4:NEXT:CLOSE4:RETURN
360 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO360
370 PRINT#4,"      CUSTOM CHARACTERS WORKSHEET"
380 PRINT#4,"      [197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197]":PRINT#4:PRINT#4
390 FORL=1TO5:PRINT#4," MEMORY ADDRESS = [164][164][164][164][164][164][164]  MEMORY ADDRESS = [164][164][164][164][164][164][164]";
400 PRINT#4,"  MEMORY ADDRESS = [164][164][164][164][164][164][164]":PRINT#4
410 PRINT#4,"           1                         1                         1"
420 PRINT#4,"           2631     POKE             2631     POKE";
430 PRINT#4,"             2631     POKE"
440 PRINT#4,"           84268421 VALUE            84268421 VALUE";
450 PRINT#4,"            84268421 VALUE"
460 PRINT#4," MEMORY                    MEMORY                      MEMORY"
470 PRINT#4," ADDRESS+0 [207][207][207][207][207][207][207][207][165][164][164][164][164][164]  ADDRESS+0 [207][207][207][207][207][207][207][207][165][164][164][164][164][164]";
480 PRINT#4,"  ADDRESS+0 [207][207][207][207][207][207][207][207][165][164][164][164][164][164]"
490 FORLL=1TO7:PRINT#4,"        +"+RIGHT$(STR$(LL),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164]  ";
500 PRINT#4,"       +"+RIGHT$(STR$(LL),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164]  ";
510 PRINT#4,"       +"+RIGHT$(STR$(LL),1)+" [207][207][207][207][207][207][207][207][165][164][164][164][164][164]":NEXT
520 PRINT#4,"           [183][183][183][183][183][183][183][183]                  [183][183][183][183][183][183][183][183]";
530 PRINT#4,"                  [183][183][183][183][183][183][183][183]":PRINT#4:PRINT#4:PRINT#4:NEXT
540 CLOSE4:RETURN
550 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO550
560 PRINT#4,"       SPRITE DESIGNER WORKSHEET"
570 PRINT#4,"       [197][197][197][197][197][197] [197][197][197][197][197][197][197][197] [197][197][197][197][197][197][197][197][197]":PRINT#4:PRINT#4:FORL=1TO3
580 PRINT#4,"                       MEMORY ADDRESS = [164][164][164][164][164][164][164]":PRINT#4
590 PRINT#4,"                       1       1       1           POKE VALUES"
600 PRINT#4,"                       2631    2631    2631"
610 PRINT#4,"                       842684218426842184268421";
620 PRINT#4," BYTE1 BYTE2 BYTE3":PRINT#4,"            MEMORY";
630 PRINT#4,"             [165]       [165]"
640 PRINT#4,"            ADDRESS+ 0 [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165]";
650 PRINT#4,"[164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":FORLL=3TO9STEP3
660 PRINT#4,"                   +"+STR$(LL)+" [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165]";
670 PRINT#4,"[164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":NEXT:FORLL=12TO60STEP3
680 PRINT#4,"                   +"+RIGHT$(STR$(LL),2);
690 PRINT#4," [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][165][164][164][164][164][164] [164][164][164][164][164] [164][164][164][164][164]":NEXT
700 PRINT#4,"                       [183][183][183][183][183][183][183][183][207][183][183][183][183][183][183][183][207][183][183][183][183][183][183][183]"
710 PRINT#4:PRINT#4:NEXT:CLOSE4:RETURN
720 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO720
730 PRINT#4,"            MONTHLY  PLANNER"
740 PRINT#4,"            [183][183][183][183][183][183][183]  [183][183][183][183][183][183][183]":PRINT#4
750 PRINT#4," MONTH [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT#4
760 PRINT#4," [207][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183]";
770 PRINT#4,"[183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][208]"
780 PRINT#4," [165] SUNDAY  [167]  MONDAY  [167]  TUESDAY [167] WEDNE";
790 PRINT#4,"SDAY[167] THURSDAY [167]  FRIDAY  [167] SATURDAY [167]"
800 PRINT#4," [204][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175]";
810 PRINT#4,"[175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186]":FORL=1TO6
820 FORLL=1TO2:PRINT#4," [165]      [165]  [167]       [165]  [167]       [165]  [167]     ";
830 PRINT#4,"  [165]  [167]       [165]  [167]       [165]  [167]       [165]  [167]":NEXT
840 PRINT#4," [165]      [204][175][175][186]       [204][175][175][186]       [204][175][175][186]     ";
850 PRINT#4,"  [204][175][175][186]       [204][175][175][186]       [204][175][175][186]       [204][175][175][186]"
860 FORLL=1TO10:PRINT#4," [165]         [167]          [167]          [167]     ";
870 PRINT#4,"     [167]          [167]          [167]          [167]":NEXT
880 PRINT#4," [204][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175]";
890 PRINT#4,"[175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186][175][175][175][175][175][175][175][175][175][175][186]":NEXT:CLOSE4:RETURN
900 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO900
910 PRINT#4,"        VARIABLES AND SUBROUTINES"
920 PRINT#4,"        [183][183][183][183][183][183][183][183][183] [183][183][183] [183][183][183][183][183][183][183][183][183][183][183]":PRINT#4
930 PRINT#4,"NAME OF PROGRAM [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT#4
940 PRINT#4,"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
950 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
960 PRINT#4,"[165]          NUMERIC  VARIABLES          [167]";
970 PRINT#4,"           STRING  VARIABLES           [167]"
980 PRINT#4,"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
990 PRINT#4,"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1000 PRINT#4,"[165]                                      [167]";
1010 PRINT#4,"                                       [167]"
1020 PRINT#4,"[165]   NAME              FUNCTION         [167]";
1030 PRINT#4,"    NAME              FUNCTION         [167]"
1040 PRINT#4,"[165]                                      [167]";
1050 PRINT#4,"                                       [167]":FORL=1TO21
1060 PRINT#4,"[165][164][164][164][164][164][164][164][164][164][164]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][167]";
1070 PRINT#4," [164][164][164][164][164][164][164][164][164][164]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][167]"
1080 PRINT#4,"[165]                                      [167]";
1090 PRINT#4,"                                       [167]":NEXT
1100 PRINT#4,"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
1110 PRINT#4,"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1120 PRINT#4,"[165]                                       ";
1130 PRINT#4,"                                       [167]"
1140 PRINT#4,"[165]                                  SUBRO";
1150 PRINT#4,"UTINES                                 [167]"
1160 PRINT#4,"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
1170 PRINT#4,"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1180 PRINT#4,"[165]                                       ";
1190 PRINT#4,"                                       [167]"
1200 PRINT#4,"[165]  START        END                     ";
1210 PRINT#4,"                                       [167]"
1220 PRINT#4,"[165] LINE NO.    LINE NO.                  ";
1230 PRINT#4,"        PURPOSE                        [167]"
1240 PRINT#4,"[165]                                       ";
1250 PRINT#4,"                                       [167]":FORL=1TO15
1260 PRINT#4,"[165][164][164][164][164][164][164][164][164][164][164]  [164][164][164][164][164][164][164][164][164][164]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1270 PRINT#4,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][167]"
1280 PRINT#4,"[165]                                       ";
1290 PRINT#4,"                                       [167]":NEXT
1300 PRINT#4,"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
1310 PRINT#4,"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":CLOSE4:RETURN
1320 POKE53265,0:PRINT"[147][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]";
1330 PRINT"[171][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][179]";
1340 PRINT"[171][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][179]";
1350 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]";
1360 PRINT"VISUAL AIDS":PRINT"[196][196][196][196][196][196] [196][196][196][196]"
1370 PRINT"[164][164][164][164]":PRINT" F1 [146]  [158]TEXT SCREEN WORKSHEETS"
1380 PRINT"[164][164][164][164]":PRINT" F2 [146]  [158]CUSTOM CHARACTERS WORKSHEETS"
1390 PRINT"[164][164][164][164]":PRINT" F3 [146]  [158]SPRITE DESIGNER WORKSHEETS"
1400 PRINT"[164][164][164][164]":PRINT" F4 [146]  [158]VARIABLES AND SUBROUTINES"
1410 PRINT"[164][164][164][164]":PRINT" F5 [146]  [158]MONTHLY PLANNERS"
1420 PRINT"[164][164][164][164]":PRINT" F6 [146]  [158]MUSIC STAFFS"
1430 PRINT"[164][164][164][164]":PRINT" F7 [146]  [158]QUIT TO BASIC"
1440 PRINT"[164][164][164][164]":PRINT" F8 [146]  [158]RETURN TO UPTIME[159]";
1450 FORL=1104TO1904STEP40:POKEL,107:POKEL+54272,1:POKEL+1,116:POKEL+54273,2
1460 POKEL+38,106:POKEL+54310,2:POKEL+39,115:POKEL+54311,1:NEXT
1470 POKE2023,125:POKE56295,1:POKE53265,27:POKE649,10
1480 GETZ$:IFZ$=""THEN1480
1490 A=ASC(Z$)-132:IFA<1 OR A>8THEN1480
1500 IFA=4THENSYS64738
1510 IFA=7THEN1810
1520 IFA=8THEN1660
1530 PRINT"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1540 PRINT"READY THE PRINTER AND HIT <RETURN>[146]"
1550 GETZ$:IFZ$=""THEN1550
1560 IFZ$<>CHR$(13)THEN1550
1570 PRINT"                                  "
1580 PRINT"                                  "
1590 ON A GOSUB240,550,720,,360,900
1600 PRINT"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1610 PRINT"      PRINT ANOTHER (Y/N) ?       [146]"
1620 GETZ$:IFZ$=""THEN1620
1630 IFZ$="Y"THEN1570
1640 PRINT"                                  "
1650 PRINT"                                  ":GOTO1480
1660 POKE56,128:POKE54,128:POKE644,128:CLR:LOAD"REBOOT",8
1690 PRINT"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1700 PRINT" CHECK DRIVE AND HIT <RETURN> [146]"
1710 GETZ$:IFZ$=""THEN1710
1720 IFZ$<>CHR$(13)THEN1710
1730 PRINT"                                  "
1740 PRINT"                                  ":GOTO1660
1750 PRINT"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1760 PRINT"CHECK THE PRINTER AND HIT <RETURN>[146]"
1770 GETZ$:IFZ$=""THEN1770
1780 IFZ$<>CHR$(13)THEN1770
1790 PRINT"                                  "
1800 PRINT"                                  ":RETURN
1810 IFUP=1THEN2030
1820 UP=1:POKE53265,0:PRINT"[147][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
1830 PRINT"[214][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][214]"
1840 PRINT"[214][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][214]";
1850 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
1860 PRINT"[158][172][172][187][146][187][188][187][172][146][190] [190][188][146] [161][172][162][146][190][161][172][162][146][190]"
1870 PRINT"[188][188][146][162]  [161][146][161] [161][188][190][146][161][161][188][146][187] [161][188][146][187]"
1880 PRINT"[172][187][161][146][161] [161][146][161] [161][146][161][161][146][161][161][146][161]  [161][146][161]"
1890 PRINT" [162][162][146]  [188][190] [188][190][188][190][188][190]  [188][190]"
1900 PRINT"[161][188][146][172] [146] [190][188][146] [161][146][161][190][146][190][161][172][162][146][190][161][172][187][146][187]"
1910 PRINT"[161][172][172] [161][188][190][146][161][161] [146][190] [161][188][146][187] [161][188][190][146][190]"
1920 PRINT"[161][146][161]  [161][146][161][161][146][161][161][172][188][146] [161][146][161]  [161][172][188][146]"
1930 PRINT"[188][190] [162][146][188][190][188][190][188][190][188][190][188][162][162][146][190][188][190][188][190]"
1940 PRINT"(C) 1988   LOUIS K. AVANZI"
1950 PRINT"MUSIC WORKSHEETS FOR :"
1960 PRINT"- [158]TREBLE CLEF ONLY"
1970 PRINT"- [158]TREBLE CLEF & BASS CLEF"
1980 PRINT"- [158]TREBLE, BASS & MELODY LINE"
2000 FORL=1104TO1904STEP40:POKEL,86:POKEL+54272,2:POKEL+1,116:POKEL+54273,6
2010 POKEL+38,106:POKEL+54310,6:POKEL+39,86:POKEL+54311,2:NEXT
2020 POKE2023,86:POKE56295,2:POKE53265,27:FORZ=1TO7500:NEXT
2030 POKE53265,0:PRINT"[147][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]";
2040 PRINT"[171][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][179]";
2050 PRINT"[171][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][179]";
2060 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]";
2070 PRINT"STAFF MAKER":PRINT"[196][196][196][196][196] [196][196][196][196][196]"
2080 PRINT"[164][164][164][164]":PRINT" F1 [146]  [158]TREBLE CLEF ONLY"
2090 PRINT"[164][164][164][164]":PRINT" F3 [146]  [158]TREBLE CLEF & BASS CLEF"
2100 PRINT"[164][164][164][164]":PRINT" F5 [146]  [158]TREBLE, BASS & MELODY LINE"
2110 PRINT"[164][164][164][164]":PRINT" F6 [146]  [158]VISUAL AIDS"
2120 PRINT"[164][164][164][164]":PRINT" F7 [146]  [158]QUIT TO BASIC"
2130 PRINT"[164][164][164][164]":PRINT" F8 [146]  [158]RETURN TO UPTIME[159]";
2140 FORL=1104TO1904STEP40:POKEL,107:POKEL+54272,1:POKEL+1,116:POKEL+54273,2
2150 POKEL+38,106:POKEL+54310,2:POKEL+39,115:POKEL+54311,1:NEXT
2160 POKE2023,125:POKE56295,1:POKE53265,27:POKE649,10
2170 GETZ$:IFZ$=""THEN2170
2180 A=ASC(Z$)-132:IFA<1 OR A>8THEN2170
2190 IFA=5 OR A=6THEN2170
2200 IFA=4THENSYS64738
2210 IFA=7THEN1320
2220 IFA=8THEN1660
2230 GOSUB2870
2240 PRINT"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
2250 PRINT" READY YOUR PRINTER & HIT <RETURN> [146]"
2260 GETZ$:IFZ$=""THEN2260
2270 IFZ$<>CHR$(13)THEN2260
2280 PRINT"                                   "
2290 PRINT"                                   ":GOSUB2370
2300 PRINT"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
2310 PRINT"       PRINT ANOTHER (Y/N) ?       [146]"
2320 GETZ$:IFZ$=""THEN2320
2330 IFZ$="Y"THEN2280
2340 IFZ$<>"N"THEN2320
2350 PRINT"                                   "
2360 PRINT"                                   ":GOTO2170
2370 ON OP+1 GOTO2380,2380,2440,2500,2550,2600,2650
2380 S$(1)="[182]":FORL=1TO78:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[181]"
2390 IFTP=1 AND OP=0THEN2410
2400 GOTO2420
2410 S$(1)=LEFT$(S$(1),80):S$(1)=S$(1)+"[183]":S$(2)=S$(1):GOTO2700
2420 IFTP>1THENA$="[182]":FORL=1TO78:A$=A$+" ":NEXT:A$=A$+"[181]"
2430 S$(2)=" ":FORL=1TO78:S$(2)=S$(2)+"[183]":NEXT:S$(2)=S$(2)+" ":GOTO2700
2440 S$(1)="[182]":FORL=1TO38:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[208][207]"
2450 FORL=1TO38:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[181]"
2460 IFTP>1THEN2480
2470 GOTO2430
2480 A$="[182]":FORL=1TO38:A$=A$+" ":NEXT:A$=A$+"[167][165]"
2490 FORL=1TO38:A$=A$+" ":NEXT:A$=A$+"[181]":GOTO2430
2500 S$(1)="[182][183]":FORL=1TO2:FORLL=1TO24:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[208][207]"
2510 NEXT:FORL=1TO24:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[183][181]":IFTP>1THEN2530
2520 GOTO2430
2530 A$="[182] ":FORL=1TO2:FORLL=1TO24:A$=A$+" ":NEXT:A$=A$+"[167][165]"
2540 NEXT:FORL=1TO24:A$=A$+" ":NEXT:A$=A$+" [181]":GOTO2430
2550 S$(1)="[182]":FORL=1TO3:FORLL=1TO18:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[208][207]"
2560 NEXT:FORL=1TO18:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[181]":IFTP>1THEN2580
2570 GOTO2430
2580 A$="[182]":FORL=1TO3:FORLL=1TO18:A$=A$+" ":NEXT:A$=A$+"[167][165]"
2590 NEXT:FORL=1TO18:A$=A$+" ":NEXT:A$=A$+"[181]":GOTO2430
2600 S$(1)="[182]":FORL=1TO4:FORLL=1TO14:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[208][207]"
2610 NEXT:FORL=1TO14:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[181]":IFTP>1THEN2630
2620 GOTO2430
2630 A$="[182]":FORL=1TO4:FORLL=1TO14:A$=A$+" ":NEXT:A$=A$+"[167][165]"
2640 NEXT:FORL=1TO14:A$=A$+" ":NEXT:A$=A$+"[181]":GOTO2430
2650 S$(1)="[182][183]":FORL=1TO5:FORLL=1TO11:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[208][207]"
2660 NEXT:FORL=1TO11:S$(1)=S$(1)+"[183]":NEXT:S$(1)=S$(1)+"[183][181]":IFTP>1THEN2680
2670 GOTO2430
2680 A$="[182] ":FORL=1TO5:FORLL=1TO11:A$=A$+" ":NEXT:A$=A$+"[167][165]"
2690 NEXT:FORL=1TO11:A$=A$+" ":NEXT:A$=A$+" [181]":GOTO2430
2700 ON TP GOTO2710,2760,2800
2710 S$(1)=RIGHT$(S$(1),80):S$(1)="[183]"+S$(1):S$(2)=RIGHT$(S$(2),80)
2720 S$(2)="[183]"+S$(2)
2730 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO2730
2740 FORL=1TO12:FORLL=1TO4:PRINT#4,S$(1):NEXT
2750 PRINT#4,S$(2):FORLL=1TO4:PRINT#4,A$:NEXT:NEXT:CLOSE4:RETURN
2760 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO2760
2770 FORL=1TO6:FORLL=1TO5:PRINT#4,S$(1):NEXT
2780 FORLL=1TO4:PRINT#4,A$:NEXT:FORLL=1TO4:PRINT#4,S$(1):NEXT
2790 PRINT#4,S$(2):FORLL=1TO4:PRINT#4:NEXT:NEXT:CLOSE4:RETURN
2800 S$(3)=S$(2):S$(2)=RIGHT$(S$(2),80):S$(2)="[182]"+S$(2)
2810 POKE780,4:POKE782,0:SYS828:IFPEEK(783)AND1THENCLOSE4:GOSUB1750:GOTO2810
2820 FORL=1TO4:FORLL=1TO4:PRINT#4,S$(1):NEXT
2830 PRINT#4,S$(2):FORLL=1TO4:PRINT#4,"[182]":NEXT
2840 FORLL=1TO5:PRINT#4,S$(1):NEXT
2850 FORLL=1TO4:PRINT#4,A$:NEXT:FORLL=1TO4:PRINT#4,S$(1):NEXT
2860 PRINT#4,S$(3):FORLL=1TO4:PRINT#4:NEXT:NEXT:CLOSE4:RETURN
2870 TP=A:PRINT"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
2880 IFTP=1THENPRINT"    MEASURES PER STAFF (0-6) ?     [146]":OP=48:GOTO2900
2890 PRINT"    MEASURES PER STAFF (1-6) ?     [146]":OP=49
2900 GETZ$:IFZ$=""THEN2900
2910 IFASC(Z$)<OP OR ASC(Z$)>54THENPOKE53280,1:POKE53280,6:GOTO2900
2920 OP=ASC(Z$)-48
2930 PRINT"[144]                                   "
2940 PRINT"                                   ":RETURN