Source Code
10 REM *** This program was written by Oleg D. Jefimenko on August 12, 1986.
20 PAPER 6: BORDER 4: CLS
30 PRINT PAPER 5;"***** STAR SPANGLED BANNER *****"
40 PRINT PAPER 5;AT 21,0;"***** STAR SPANGLED BANNER *****"
50 PRINT AT 7,1 ;"THE MUSIC PART OF THIS PROGRAM"
60 PRINT TAB 6;"WAS CREATED BY USING"
70 PRINT TAB 8;"""MUSICIAN ROYAL"""
80 PRINT TAB 8;" SOFTWARE FROM"
90 PRINT TAB 2;"THE ELECTRET SCIENTIFIC CO."
100 PRINT TAB 1;"BOX 4132, STAR CITY, WV 26505"
110 PRINT AT 20,0; PAPER 7;" PRESS ANY KEY TO START "
120 PAUSE 0: PAPER 7: BORDER 5: CLS
130 FOR I=0 TO 7: READ C: POKE USR "C"+I,C: NEXT I
140 DATA 0,8,8,127,28,54,34,0
150 PRINT PAPER 5;" "; INK 2;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::"
160 FOR J=1 TO 6: PRINT INK 2;AT J*3+1,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::": NEXT J
170 PRINT PAPER 5;" "
180 PRINT PAPER 5; INK 1;AT 1,0;"\..\..\..\..\..\..\..\..\..\..\..\..\.."
190 FOR L=1 TO 4: PRINT PAPER 1; INK 7;AT 2*L,0;" \c \c \c \c \c \c ";AT 2*L+1,0;" \c \c \c \c \c ": NEXT L
200 PRINT PAPER 1; INK 7;" \c \c \c \c \c \c "
210 PRINT PAPER 1;" "
220 ON ERR GO TO 400: LET T=1.9
230 READ F,V: IF F=100 THEN LET T=2.5: GO TO 230
240 BEEP T/V,F: GO TO 230
250 DATA 3,8,0,8,-4,4,0,4,3,4,8,2,12,8,10,8,8,4,0,4,2,4,3,2,3,8,3,8,12,2.67,10,8,8,4,7,2,5,8
260 DATA 7,8,8,4,8,4,3,4,0,4,-4,4,3,8,0,8,-4,4,0,4,3,4,8,2,12,8,10,8,8,4,0,4,2,4,3,2,3,8
270 DATA 3,8,12,2.67,10,8,8,4,7,2,5,8,7,8,8,4,8,4,3,4,0,4,-4,4,12,8,12,8,12,4,13,4,15,4,15,2,13,8
280 DATA 12,8,10,4,12,4,13,4,13,2,13,4,12,2,10,8,8,8,7,2,5,8,7,8,8,4,0,4,2,4,3,1.33,3,4,8,4,8,4
290 DATA 8,8,7,8,5,4,5,4,5,4,10,4,13,8,12,8,10,8,8,8,8,4,7,2,3,8,3,8,8,2.67,10,8,12,8,13,8,15,1
300 DATA 100,100,8,8,10,8,12,2.67,13,8,10,4,8,2
310 SAVE "ANTHEM" LINE 10
400 PAUSE 0
