00 ;10/06/86   this line may have to be removed

5 COLOR 14,0,0:KEY OFF: CLS
10 GOSUB 345
15 CLS : PRINT : PRINT
20 PRINT"Music score paper program"
25 REM Main routine starts here.
30 LPRINT CHR$(27)"@"
35 LPRINT CHR$(27)"A";CHR$(7);
40 LPRINT CHR$(27)"U";CHR$(1);
45 LPRINT CHR$(15);
50 WIDTH "LPT1:",131
55 PRINT"Choose one of the following"
60 PRINT:PRINT:PRINT"1) 18 lines ":PRINT"2) Rhythm Section Size":PRINT"3) 10 lines":PRINT"4) 12 lines":PRINT"5) Exit program"
65 INPUT X: ON X GOTO 70,125,185,245, 315: GOTO 15
70 A$ = STRING$(5,156)
75 LOCATE 23,5:PRINT"Number of lines to go:"
80 FOR Z = 1 TO 100
85 LPRINT TAB(5);
90 FOR I = 1 TO 18
95 LPRINT A$;"  ";
100 NEXT I
105 LOCATE 23,30: PRINT 100 - Z;
110 NEXT Z
115 BEEP : LPRINT CHR$(7) : BEEP
120 LPRINT CHR$(12): GOTO 15 : REM return to main menu
125 REM******** Rhythm section size
130 A$ = CHR$(156)+" "+CHR$(156)+" "+CHR$(156)+" "+CHR$(156)+" "+CHR$(156)
135 LOCATE 23,5:PRINT"Number of lines to go:"
140 FOR Z = 1 TO 105
145 LPRINT TAB(5);
150 FOR I = 1 TO 9
155 LPRINT A$;"     ";
160 NEXT I
165 LOCATE 23,30: PRINT 105 - Z;
170 NEXT Z
175 BEEP : LPRINT CHR$(7): BEEP
180 LPRINT CHR$(12): GOTO 15 : REM return to main menu
185 REM******** 10 lines
190 A$ = CHR$(156)+" "+CHR$(156)+" "+CHR$(156)+" "+CHR$(156)+" "+CHR$(156)
195 LOCATE 23,5:PRINT"Number of lines to go:"
200 FOR Z = 1 TO 100
205 LPRINT TAB(7);
210 FOR I = 1 TO 10
215 LPRINT A$;"   ";
220 NEXT I
225 LOCATE 23,30: PRINT 100 - Z;
230 NEXT Z
235 BEEP : LPRINT CHR$(7): BEEP
240 LPRINT CHR$(12): GOTO 15: REM return to main menu
245 REM****** 12 lines
250 A$=STRING$(5,156)
255 LOCATE 23,5:PRINT"Number of lines to go:"
260 FOR Z = 1 TO 105
265 LPRINT TAB(10);
270 FOR I = 1 TO 12
275 LPRINT A$;"     ";
280 NEXT I
285 LOCATE 23,30: PRINT 105 - Z;
290 NEXT Z
295 BEEP : LPRINT CHR$(7): BEEP
300 PRINT"DONE"
305 LPRINT CHR$(12): GOTO 15: REM return to main menu
310 STOP : REM IF THIS LINE EVER EXECUTES, SOMETHIN' WRONG!
315 CLS: LOCATE 15,10
320 PRINT "Thank you for using this program. "
325 LOCATE 16,10
330 PRINT "More music programs on their way....."
335 PRINT: PRINT: PRINT:
340 END
345 REM: Welcome message
350 CLS
355 PRINT"                Music Paper Producer          "
360 LOCATE 3,1
365 PRINT "This program prints score paper in various"
370 PRINT "stave amounts on the Epson series of printers."
375 PRINT "Any comments, suggestions or financial donations are welcome"
380 PRINT "Send them to:"
385 PRINT: LOCATE  7,5 : PRINT "James Gilbert"
390 PRINT "    2201 SW 127 Court"
395 PRINT "    Miami, FL 33175"
400 PRINT " or via FidoNet at 135/4 (305) 226-3310"
405 LOCATE 12,1
410 PRINT "Copyright (c) 1986 by James Gilbert.  Permission to"
415 PRINT "copy to bulletin boards that do not charge for access is"
420 PRINT "given.  Under no circumstance should any charge, including,"
425 PRINT "but not limited to, handling charges, be applied to the"
430 PRINT "obtaining of this program."
435 PRINT
440 PRINT "(In other words, this better not find its way onto Compuserve, Genie"
445 PRINT "or any other commercial service AND groups like PC-SIG better"
450 PRINT "NOT try to sell it. Period.)"
455 PRINT: PRINT "Press any key to continue"
460 Z$ = INPUT$(1)
465 RETURN
tter"
450 PRINT "NOT try to sell it. Period.)"
455 PRINT: PRINT "Pres