5 COLOR 14,0,0:KEY OFF: CLS
10 GOSUB 345
15 CLS : PRINT : PRINT
20 PRINT"Music score paper program (FX-85 Version)"
25 REM Main routine starts here.
40 REM 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 (Studio Orchestra) ":PRINT"2) 9 Lines (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$ = "³³³³³" : rem A$ = STRING$(5,179)
75 LOCATE 23,5:PRINT"Number of lines to go:"
80 FOR Z = 1 TO 64
85 LPRINT TAB(5);
90 FOR I = 1 TO 18
95 LPRINT A$;"  ";
100 NEXT I
105 LOCATE 23,30: PRINT 64 - Z;
110 NEXT Z
115 BEEP:LPRINT
120 LPRINT CHR$(12): GOTO 15 : REM return to main menu
125 REM******** Rhythm section size (9 lines)
130 A$ = "³ ³ ³ ³ ³"
131 REM A$ = CHR$(179)+" "+CHR$(179)+" "+CHR$(179)+" "+CHR$(179)+" "+CHR$(179)
135 LOCATE 23,5:PRINT"Number of lines to go:"
140 FOR Z = 1 TO 64
145 LPRINT TAB(5);
150 FOR I = 1 TO 9
155 LPRINT A$;"     ";
160 NEXT I
165 LOCATE 23,30: PRINT 64 - Z;
170 NEXT Z
175 BEEP: LPRINT
180 LPRINT CHR$(12): GOTO 15 : REM return to main menu
185 REM******** 10 lines
190 A$ = "³ ³ ³ ³ ³"
191 REM A$ = CHR$(179)+" "+CHR$(179)+" "+CHR$(179)+" "+CHR$(179)+" "+CHR$(179)
195 LOCATE 23,5:PRINT"Number of lines to go:"
200 FOR Z = 1 TO 64
205 LPRINT TAB(7);
210 FOR I = 1 TO 10
215 LPRINT A$;"   ";
220 NEXT I
225 LOCATE 23,30: PRINT 64 - Z;
230 NEXT Z
235 BEEP : LPRINT
240 LPRINT CHR$(12): GOTO 15: REM return to main menu
245 REM****** 12 lines
250 A$ = "³³³³³"
251 REM A$=STRING$(5,179)
255 LOCATE 23,5:PRINT"Number of lines to go:"
260 FOR Z = 1 TO 64
265 LPRINT TAB(10);
270 FOR I = 1 TO 12
275 LPRINT A$;"     ";
280 NEXT I
285 LOCATE 23,30: PRINT 64 - Z;
290 NEXT Z
295 BEEP: LPRINT
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 programs available on RAM-SOFT Fido 135/1..."
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 stave amounts and"
370 PRINT "has been tested to work on the Epson FX-85 printer. A version"
372 PRINT "for the MX-80 is available from RAM-SOFT Fido 135/1"
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/1 (305) 226-3310"
405 LOCATE 12,1
410 PRINT "Copyright (c) 1986,1987 by James Gilbert.  Permission to"
415 PRINT "copy to bulletin boards that do not charge any money 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 for-profir groups like PC-SIG 
446 PRINT "better NOT try to sell it. Period.)"
455 PRINT: PRINT "Press any key to continue"
460 Z$ = INPUT$(1)
465 RETURN