10 MODE7:VDU23;8202;0;0;0;
   20 DIM OV%(2),Y%(2),NY%(2),MUS$(3),E(3),N(3),V$(2)
   30 ONERRORGOTO7090
   40 PROCtitle
   50 PROCindex
   60 ONselect GOTO 80,550,860,1380,1520,2060,2320,2400,2650,2850
   70  
   80 CLS
   90 PRINTTAB(11,1)"„�****************"           TAB(11,2)"„�****************"
  100 PRINTTAB(11,3)"„�*ƒGOLDEN BROWN„*"           TAB(11,4)"„�*ƒGOLDEN BROWN„*"
  110 PRINTTAB(11,5)"„�****************"           TAB(11,6)"„�****************"
  120 PRINTTAB(19,7)"†by"'TAB(13)"†The Stranglers"
  130 PRINT'"ƒ b  # b  # # b  # b  # # b  # b  # # b ƒABBCCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABB";CHR$30
  140 ?&7DE0=&84:?&7E30=&82:?&7E80=&81
  150 !&7E08=&9D86:!&7E58=&9D86
  160 A1=30:A2=127:O=1:GT=2:DF=0
  170 ENVELOPE1,1,0,0,0,2,2,2,A1,0,0,255,128,1 
  180 ENVELOPE2,1,0,0,0,1,1,1,A2,0,0,255,128,1
  190 S$="BVCXZQAWSEDFTGYHJIKOLP;:[]_1234567"
  200 ONGT GOTO380,420,460,500 ELSEGT=1:GOTO380
  210 DL=16:T%=1
  220 FORK=1TOLENT$:T=TIME+DL
  230 F$=MID$(T$,K,1):G$=MID$(M$,K,1):H$=MID$(N$,K,1)
  240 IFF$<>" "SOUND1,1,4*O+4*INSTR(S$,F$),1
  250 IFG$<>" "SOUND3,2,4*O+4*INSTR(S$,G$),1
  260 IFH$<>" "SOUND2,1,4*O+DF+4*INSTR(S$,H$),1
  270 IN0=INSTR(S$,F$):IN1=INSTR(S$,G$):IN2=INSTR(S$,H$)
  280 IFIN0=0 THENIN0=OV%(0)-67
  290 IFIN1=0 THENIN1=OV%(1)-67
  300 IFIN2=0 THENIN2=OV%(2)-67
  310 OV%(0)=IN0+67:OV%(1)=IN1+67:OV%(2)=IN2+67 
  320 FORI=0TO2:Y%(I)=&7FFF:NEXTI
  330 FORJ=0TO2:?NY%(J)=156
  340 Y%(J)=&7E80+OV%(J)-60-80*J
  350 NY%(J)=Y%(J)
  360 ?Y%(J)=157:Y%(J)?1=156:NEXT
  370 REPEATUNTILTIME>=T:NEXT:GOTO200
  380 T$="Y  I PO J T Y  I PO J T Y  I PO J T Y  I PO J T Y  I PO J T Y  I PO J T Y  I PO J T Y  I PO J T "
  390 M$="C  C  B B B C  C  B B B C  C  B B B C  C  B B B C  C  B B B C  C  B B B C  C  B B B C  C  B B B "
  400 N$="  _ PO      I O PO        _ P O   I Y J IJ      Y J IJ      Y J IJ      Y J IJ      Y T EW      ":DF=48
  410 GT=GT+1:GOTO210
  420 T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[[JO JOOIP IPPJOYOTOFO":DF=0
  430 M$="E  E EZ  Z ZQ  Q QWOWOWOWOE  E EZ  Z ZQ  Q QJTYTTTFT"
  440 N$="ET J EJO : JIP [ IWTWTWTWTET J EJO : JIP [ IWTWTWTWT"
  450 GT=GT+1:GOTO210
  460 T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[[JO JOOO: O::I J Y T "
  470 M$="E  E EZ  Z ZQ  Q QWOWOWOWOE  E EZ  Z ZW  W WITJTYTTT"
  480 N$="ET J EJO : JIP [ IWTWTWTWTET J EJO : JO: : OIIJIYITI"
  490 GT=GT+1:GOTO210
  500 T$="Y  I PO J T Y  I PO J T "
  510 M$="C  C  B B B C  C  B B B "
  520 N$="YYYYYYTTJ J YYYYYYTTJ J "
  530 GT=GT+1:GOTO210
  540  
  550 *FX21,4
  560 *FX21,5
  570 *FX21,6
  580 *FX21,7
  590 CLS
  600 PRINTTAB(10,6)"‚�Michael Jackson's"          TAB(10,7)"‚�Michael Jackson's"          TAB(14,9)"��THRILLER"                  TAB(14,10)"��THRILLER"
  610 RN=0
  620 FORDELAY=0TO300:NEXT
  630 KEY=-1:DEL=7:T=TIME 
  640 V=126
  650 ENVELOPE1,6,0,0,0,0,0,0,90,10,0,-3,110,90
  660 ENVELOPE2,1,0,0,0,0,0,0,100,-6,-5,-2,100,0
  670 ENVELOPE3,1,0,0,0,0,0,0,100,-2,0,-1,100,0
  680 ENVELOPE4,1,0,0,0,0,0,0,126,-2,0,-1,126,0
  690 ENVELOPE5,1,0,0,0,0,0,0,90,0,0,-2,90,0
  700 ENVELOPE6,6,0,0,0,0,0,0,110,-8,0,-4,110,0
  710 ENVELOPE7,1,0,0,0,0,0,0,100,-8,0,-2,100,0
  720 ENVELOPE8,1,0,0,0,0,0,0,70,10,0,0,70,110
  730 RN=RN+1
  740 IFRN=1 P$="001122334555567689:9;<=<>?"
  750 IFRN=2 P$="5567689:9;<=<>?"
  760 IFRN=3 P$="67689:9;<=<>B<=<>"
  770 IFRN=4 P$="DD@A@A@A@A@A@A@A@A@A@AC"
  780 IFRN=5 RN=0:PROCfinish
  790 FORJ=1TOLEN(P$)
  800 D%=ASC(MID$(P$,J,1))-&30
  810 REL%=D%*40+6040
  820 RESTORE REL%:PROCP(D%)
  830 NEXT
  840 GOTO730
  850  
  860 CLS
  870 PRINT'CHR$130CHR$141"* * * * * * * * * * * * * * * * * *"'CHR$130CHR$141"* * * * * * * * * * * * * * * * * *"
  880 FORI=0TO5:PRINTCHR$130CHR$141"*                                 *":NEXTI
  890 PRINTCHR$130CHR$141"* * * * * * * * * * * * * * * * * *"'CHR$130CHR$141"* * * * * * * * * * * * * * * * * *"
  900 PRINTTAB(6,6)CHR$131CHR$141"C U C K O O   W A L T Z";CHR$130'TAB(6,5)CHR$131CHR$141"C U C K O O   W A L T Z";CHR$130
  910 PRINTTAB(28,11)"C.Kinkel"
  920 ENVELOPE2,1,0,0,0,0,0,0,126,-3,-5,-2,126,0
  930 ENVELOPE3,2,1,-1,1,1,2,1,126,-2,-40,-2,126,0
  940 D=3
  950 RESTORE1110
  960 READA$,B$,C$
  970 IFA$="E" PROCfinish
  980 FORJ=1TO24
  990 A=(ASC(MID$(A$,J,1))-33)*4
 1000 B=(ASC(MID$(B$,J,1))-33)*4
 1010 C=(ASC(MID$(C$,J,1))-33)*4
 1020 E1=1:E2=2:E3=3:V1=&0201:V2=&0202:V3=&0203
 1030 IFMID$(A$,J,1)="S"THENE1=0:V1=&1201
 1040 IFMID$(B$,J,1)="S"THENE2=0:V2=&1202
 1050 IFMID$(C$,J,1)="S"THENE3=0:V3=&1203
 1060 SOUNDV1,E1,A,D
 1070 SOUNDV2,E2,B,D
 1080 SOUNDV3,E3,C,D
 1090 NEXTJ
 1100 GOTO960
 1110 DATA"SSSSAA>>SSMMJJSS>>AAA?>?","SSSSSS::AAAA::AAAA<<AAAA","SSSSSSSS2222SS2222SS3333"
 1120 DATA"<<SS??<<SSKKEESS??CCCA@A","55<<<<55<<<<55<<<<::AAAA","SS----SS----SS----SS2222"
 1130 DATA">>SSAA>>SSMMJJSS>>AAA?>?","::AAAA::AAAA::AAAA<<AAAA","SS2222SS2222SS2222SS3333"
 1140 DATA"<<SS??<<SSKKEESSAACA@ACE","55<<<<55<<<<55<<<<55<<<<","SS----SS----SS----SS----"
 1150 DATA"FFSS<<><;<>@AAEEEECCHHHH",">>SSSS<<CCCC<<EEEE<<CCCC","..SSSSSS4444SS5555SS4444"
 1160 DATA"EEMMMMJHGHJLMMQQQQOOTTTT","<<EEEE<<CCCC<<EEEE<<CCCC","SS5555SS4444SS5555SS4444"
 1170 DATA"MMSS<<><;<>@AAEEEECCHHHH","EESSSS<<CCCC<<EEEE<<CCCC","55SSSSSS4444SS5555SS4444"
 1180 DATA"EEMMMMJHGHJLMMQQQQOOTTTT","<<EEEE<<CCCC<<EEEE<<CCCC","SS5555SS4444SS5555SS4444"
 1190 DATA"MMSSAA>>SSMMJJSS>>AAA?>?","AASSSS::AAAA::AAAA<<AAAA","22SSSSSS2222SS2222SS3333"
 1200 DATA"<<SS??<<SSKKEESS??CCCA@A","55<<<<55<<<<55<<<<::AAAA","SS----SS----SS----SS2222"
 1210 DATA">>SSAA>>SSMMJJSS>>AAA?>?","::AAAA::AAAA::AAAA<<AAAA","SS2222SS2222SS2222SS3333"
 1220 DATA"<<SS??<<SSKKEESSAACA@ACE","55<<<<55<<<<55<<<<55<<<<","SS----SS----SS----SS----"
 1230 DATA"FFSSFFFFFFKKKKKKJJDDDDMM",">>SSSS??FFFF??FFFAAFFFF","..SSSSSS7777SS7777SS8888"
 1240 DATA"JJSSDDDDDDJJJJJJHHCCCCOO","AAFFFF>>FFFF::AAAA??CCCC","SS8888SS8888SS2222SS7777"
 1250 DATA"KKSSOOOOOOOOPPPPOOOOOMLM","??FFFF77????77????88AAAA","SS7777SS....SS....SS0000"
 1260 DATA"HHHHMMMMMMMMOOOOMMMMMKJK","88AAAA::AAAA::AAAA??FFFF","SS0000SS2222SS2222SS7777"
 1270 DATA"FFFFFFFFFFKKKKKKJJDDDDMM","??FFFF??FFFF??FFFFAAFFFF","SS7777SS7777SS7777SS8888"
 1280 DATA"JJSSDDDDDDJJJJJJHHCCCCOO","AAFFFF>>FFFF::AAAA??CCCC","SS8888SS8888SS2222SS7777"
 1290 DATA"KKSSCCCCCCCCDDDDCCAAAAHH","??CCCC77????77????88AAAA","SS7777SS3333SS3333SS5555"
 1300 DATA"JJJJHHHHHFEFTTTRQRVTRPOM","99????::CCCC::AAAA::AAAA","SS0000SS3333SS2222SS2222"
 1310 DATA"KKSSAA>>SSMMJJSS>>AAA?>?","SSSSSS::AAAA::AAAA<<AAAA","SSSSSSSS2222SS2222SS3333"
 1320 DATA"<<SS??<<SSKKEESS??CCCA@A","55<<<<55<<<<55<<<<::AAAA","SS----SS----SS----SS2222"
 1330 DATA">>SSAA>>SSMMJJSS>>AAA?>?","::AAAA::AAAA::AAAA<<AAAA","SS2222SS2222SS2222SS3333"
 1340 DATA"<<SS??<<SSKKEESSAACA@ACE","55<<<<55<<<<55<<<<55<<<<","SS----SS----SS----SS----"
 1350 DATA"FFFFFFSSSSSSSSSSSSSSSSSS",">>>>>>SSSSSSSSSSSSSSSSSS","......SSSSSSSSSSSSSSSSSS"
 1360 DATA"E","",""
 1370  
 1380 CLS:T%=3
 1390 B$="BACH-4    ":T$=B$+B$+B$+B$:X=4:Y=129:FORgo=1TO6:PRINTTAB(0,X)CHR$141;CHR$(Y);T$TAB(0,X+1)CHR$141;CHR$(Y+1);T$':Y=Y+1:X=X+3:NEXTgo
 1400 N$="A BC D EF G ":I$="FNS"
 1410 V=128
 1420 ENVELOPE1,1,0,0,0,0,0,0,V,-1,V,-1,V,0
 1430 V$(0)=STRING$(255,"#")
 1440 V$(1)=V$(0):V$(2)=V$(1)
 1450 RESTORE4600
 1460 REPEATREADV$(0),V$(1),V$(2)
 1470 FORI%=1TO36STEP3:FORJ%=0TO2
 1480 PROCS(J%+1,MID$(V$(J%),I%,3))
 1490 NEXTJ%,I%:UNTILV$(0)="*"
 1500 PROCfinish
 1510  
 1520 CLS
 1530 PRINTTAB(9,8)"…�Sweet Dreams ...."           TAB(9,9)"…�Sweet Dreams ...."
 1540 PRINTTAB(15,15);"�by The EURYTHMICS"
 1550 *FX15,1
 1560 V=126
 1570 ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,96
 1580 ENVELOPE2,1,0,0,0,0,0,0,126,0,0,0,126,126
 1590 ENVELOPE3,1,0,0,0,0,0,0,126,0,0,-1,126,0
 1600 RESTORE1770:DDD=7
 1610 TEMP=1:KEY=0:DEL=24
 1620 T=TIME+DEL
 1630 FORD=1TODDD
 1640 FORX=0TO3:READE(X):NEXT
 1650 FORX=1TO3:READMUS$(X):NEXT
 1660 FORL=1TOLENMUS$(1)
 1670 FORV=1TO3
 1680 P=4*ASC(MID$(MUS$(V),L,1))
 1690 B%=V OR&200
 1700 B%=B%OR-&1000*(P=128)
 1710 P=P+(KEY*4)-139*(V=1)
 1720 SOUNDB%,E(V),P,TEMP
 1730 NEXT
 1740 SOUND-&1000*(MID$(MUS$(1),L,1)=" "),E(0),3,TEMP
 1750 REPEATUNTILTIME>T:T=T+DEL:NEXT
 1760 NEXT:IF DDD=6 PROCfinish ELSE RESTORE1810:DDD=6:GOTO1620
 1770 DATA1,0,1,1
 1780 DATA"AAMMPPMMIIMMHHKKAAMMPPMMIIMMHHKK"
 1790 DATA"                                "
 1800 DATA"                                "
 1810 DATA1,0,1,1
 1820 DATA"AAMMPPMMIIMMHHKKAAMMPPMMIIMMHHKK"
 1830 DATA"  P P M PP O    PPMP  MMPR  PO  "
 1840 DATA"  M   MM  I   H   M   MM  I   H "
 1850 DATA1,0,1,1
 1860 DATA"AAMMPPMMIIMMHHKKAAMMPPMMIIMMHHKK"
 1870 DATA"PPMP  PMPP O    P MP M  PPRP O  "
 1880 DATA"  M   MM  I   H   M   MM  I   H "
 1890 DATA1,0,1,1
 1900 DATA"AAMMPPMMIIMMHHKKAAMMPPMMIIMMHHKK"
 1910 DATA"PPM P MP M      PPM P MP R  PO  "
 1920 DATA"  M   MM  I   H   M   MM  I   H "
 1930 DATA1,0,1,1
 1940 DATA"AAMMPPMMIIMMHHKKAAMMPPMMIIMMHHKK"
 1950 DATA"PPM P MP M      PPM P MP R  PO  "
 1960 DATA"  M   MM  I   H   M   MM  I   H "
 1970 DATA3,0,1,1
 1980 DATA"IIIIIIIIHHHHHHLLMMMMMMKKFFFFFFFF"
 1990 DATA"           YTRPRP     W U       "
 2000 DATA"M  MM   L  LL   M  MM   I  II   "
 2010 DATA3,0,1,1
 2020 DATA"IIIIIIIIHHHHHHLLMMMMMMKKFFFFHFDC"
 2030 DATA"           YTRPRP     W U       "
 2040 DATA"M  MM   L  LL   M  MM   I  II   "
 2050  
 2060 CLS
 2070 PRINTTAB(11,10)"…�Moby  Dick"                TAB(11,11)"…�Moby  Dick"
 2080 PRINTTAB(11,12)"…�=========="                TAB(11,13)"…�=========="
 2090 DATA20202020303020204050
 2100 DATA@2L2L1J1G1C3E1C2E2C1
 2110 DATAE2Q2Q1O1L1H3J1H2J2H1
 2120 DATAG2S2S1Q1N1S2S2N1Q2S2
 2130 DATAQ1Q1Q1Q1Q1O1L1X3V1S1Q1O3
 2140 K%=1
 2150 ENVELOPE1,1,0,0,0,0,0,0,126,-2,0,-1,126,64
 2160 ENVELOPE2,1,0,0,0,0,0,0,126,-8,-6,-4,126,0
 2170 RESTORE2090:READT$
 2180 FORJ%=1TOLENT$STEP2
 2190 RESTOREVALMID$(T$,J%,2)+2090
 2200 READA$:FORI%=1TOLENA$STEP2
 2210 P%=4*ASCMID$(A$,I%)
 2220 D%=3*(ASCMID$(A$,I%+1)-&30)
 2230 SOUND1,1,P%,D%
 2240 SOUND2,1,P%+48,D%
 2250 SOUND3,1,P%+49,D%
 2260 FORR%=1TOD%/3
 2270 SOUND0,2,5-(K%),3
 2280 K%=1-K%:NEXT
 2290 NEXT,
 2300 GOTO2170
 2310  
 2320 CLS
 2330 PROCscreen
 2340 *FX15
 2350 VOL=15:KEY=0:TEMPO=4
 2360 FORM=1TO3:PROCONE:PROCp:PROCTWO:PROCp:NEXTM
 2370 PROCONE:PROCp:PROCEND:PROCp
 2380 GOTO2360
 2390  
 2400 CLS
 2410 TEMP=1:KEY=3:DEL=13
 2420 PRINTTAB(0,9)"ƒ  # b  # # b  # b  # # b  # b  # # b  #"
 2430 PRINTTAB(0,10)"ƒBCCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABBCC"
 2440 FORI%=1TO2:PRINTTAB(0,10+I%*2)CHR$(128+I%);CHR$157:NEXT
 2450 FORI%=2TO7:PRINTTAB(0,I%)CHR$132CHR$157:NEXT
 2460 FORI%=3TO4:PRINTTAB(10,I%)CHR$141;"    †Newsong":NEXT
 2470 PRINTTAB(20,20)"„By";TAB(18,21)"„Howard Jones"
 2480 V%=126
 2490 ENVELOPE1,10,0,0,0,0,0,0,126,0,0,-10,126,0
 2500 ENVELOPE2,1,0,0,0,0,0,0,80,70,0,-1,80,110
 2510 ENVELOPE3,1,0,0,0,0,0,0,126,-10,-4,-2,126,0
 2520 ENVELOPE4,4,0,0,0,0,0,0,110,0,0,-1,110,0
 2530 ENVELOPE5,1,0,0,0,0,0,0,126,-20,-5,-2,126,0
 2540 ENVELOPE6,1,1,0,0,4,60,60,80,70,0,-1,80,110
 2550 ENVELOPE7,1,0,0,0,0,0,0,126,-30,-20,-5,126,0
 2560 ENVELOPE8,6,0,0,0,0,0,0,85,70,0,-4,85,126
 2570 P$="0123456723456789:;<;<89:"
 2580 FORJ=1TOLEN(P$)
 2590 D%=ASC(MID$(P$,J,1))-&30
 2600 REL%=D%*50+3520
 2610 RESTOREREL%:PROCq(D%)
 2620 NEXT
 2630 GOTO2580
 2640  
 2650 CLS
 2660 PROCSCREEN
 2670 A1=30:A2=127:O=6:GT=1
 2680 ENVELOPE1,1,0,0,0,2,2,2,A1,0,0,255,128,1
 2690 ENVELOPE2,1,0,0,0,2,2,2,A2,0,0,255,128,1
 2700 S$="QAWSEDFTGYHJIKOLP;:[]_1234567"
 2710 ONGT GOTO2780,2810 ELSEGT=1:GOTO2780
 2720 DL=38:T%=1
 2730 FORK=1TOLENT$:T=TIME+DL
 2740 F$=MID$(T$,K,1):G$=MID$(M$,K,1)
 2750 IFF$<>" "SOUNDT%,1,4*O+48+4*INSTR(S$,F$),1:T%=1+T%MOD2
 2760 IFG$<>" "SOUND3,2,4*O+4*INSTR(S$,G$),1
 2770 REPEATUNTILTIME>=T:NEXT:GOTO2710
 2780 T$="   L  L;  ;:  :I  IH  H  HHDFF  FJHL  L;  ;:  :I  IH  H  HHDFF  "
 2790 M$="   L:1LO:1OK:1KGL]GJL:JL:J:KLL S   L:1LO:1OK:1KGL]GJL:JL:J:KLL S"
 2800 GT=GT+1:GOTO2720
 2810 T$=" SDF GFD SAS SFS FGH GFD SAASS   SDF GFD SASASFS FGH GFD SAASS  "
 2820 M$=" SDFHK:4]LGJL:LS SDFHKFDGKDASS   SDFHK:]LIGJL:LS SDFHKFDGKDASS  "
 2830 GT=GT+1:GOTO2720
 2840  
 2850 CLS
 2860 PROCyester
 2870 TEMPO=6
 2880 PROCone:PROCplay:PROCplay:PROCtwo:PROCplay:PROCone:PROCplay:PROCend:PROCplay
 2890 PROCfinish
 2900  
 2910  
 2920 DEFPROCfinish
 2930 CLS:FORJ=0TO24:PRINTTAB(0,J)"†�„";:NEXT:GOTO50
 2940 ENDPROC
 2950  
 2960 DEFPROCone
 2970 A1$="OOOMMMMMM QSUVXYXXXVVVVVV VVTRQORRRQQQ OMMQOOOOJMMQQQQQQ"
 2980 A2$="MMMMMMMMLLLLEEEEJJJJJJHHFFFFHHHHMMMMMMMLJJJJGGGGFFFFAAAAAA"
 2990 A3$="MMHHEEAA@@EEIILLJJEEAAEEFFJJHHLLAAEEHHMMJJMMGGCCJJFFEEEEEE"
 3000 ENDPROC
 3010  
 3020 DEFPROCplay
 3030 FORI=1TOLEN(A1$):noteB=4*(ASC(MID$(A1$,I))-64)
 3040 noteC=4*(ASC(MID$(A2$,I))-64)
 3050 noteD=4*(ASC(MID$(A3$,I))-64)
 3060 IFMID$(A1$,I,1)=" "THENSOUND1,0,0,TEMPO ELSESOUND1,-15,noteB+48,TEMPO
 3070 IFMID$(A2$,I,1)=" "THENSOUND2,0,0,TEMPO ELSESOUND2,-15,noteC,TEMPO
 3080 IFMID$(A3$,I,1)=" "THENSOUND3,0,0,TEMPO ELSESOUND3,-15,noteD,TEMPO
 3090 NEXTI
 3100 ENDPROC
 3110  
 3120 DEFPROCtwo
 3130 A1$="VVXXYYXVXXXVTTVVQQQQQQQQQQQQQQQQVVXXYYXVXXXVTTXXYYTTRRQQ"
 3140 A2$="JJIIJJJJFFFFHHHHAAAAAAAA@@@@@@@@JJJJJJJJFFFFHHHHAAAAAAAA"
 3150 A3$="JJEEAAEEJJFFLLHHEEEEEEEEEEEEEEEEJJEEAAEEJJFFLLHHEEEEEEEE"
 3160 ENDPROC
 3170  
 3180 DEFPROCend
 3190 A1$="OOOOMMMMQQOOOOOOOOJJMMMMQ QQQQQQQQQQ"
 3200 A2$="LLLLJJJJJJGGGGGGGGGGFFFFFFAAAAAAAAAA"
 3210 A3$="OOOOMMMMQQOOOOOOOOJJMMMMQ QQQQQQQQQQ"
 3220 ENDPROC
 3230  
 3240 DEFPROCyester
 3250 VDU23;8202;0;0;0;
 3260 PRINTTAB(9,12)"��Y E S T E R D A Y"          TAB(9,13)"…�Y E S T E R D A Y"          TAB(10,14)"ƒ_________________"TAB(13,19)"†.....by Lennon & McCartney"
 3270 ENDPROC
 3280  
 3290 DEFPROCSCREEN
 3300 PRINTTAB(9,8)"‚�S T A I R W A Y"             TAB(9,9)"‚�S T A I R W A Y"             TAB(15,11)"��T O"                       TAB(15,12)"��T O"                       TAB(11,14)"†�H E A V E N"               TAB(11,15)"†�H E A V E N"
 3310 PRINTTAB(14,21)"….....by Led Zeppelin"
 3320 ENDPROC
 3330  
 3340 DEFPROCq(D%)
 3350 FORX=0TO3:READE(X):NEXT
 3360 FORX=0TO3:READMUS$(X):NEXT
 3370 FORL=1TOLENMUS$(1)
 3380 T=TIME+DEL
 3390 FORV%=1TO3
 3400 P%=4*ASC(MID$(MUS$(V%),L,1))
 3410 W%=P%/4-64:IFW%<0W%=0:C%=128:GOTO3430
 3420 C%=255
 3430 PRINTTAB(0,(4-V%)*2+9);SPC(39);TAB(W%,(4-V%)*2+9);CHR$(147+V%);CHR$(C%)
 3440 B%=V%OR&200
 3450 B%=B%OR-&1000*(P%=128)
 3460 P%=P%+(KEY*4)-91*(V%=1ANDE(V%)=0)
 3470 SOUNDB%,E(V%),P%,TEMP
 3480 NEXT
 3490 IFMUS$(0)=""SOUND-&1000*(MID$(MUS$(1),L,1)=" "),E(0),3,TEMP ELSEP%=ASC(MID$(MUS$(0),L,1))-&30:SOUND-&1000*(P%=-16),E(0),P%,1
 3500 REPEATUNTILTIME>T:NEXT
 3510 ENDPROC
 3520 DATA3,5,8,7
 3530 DATA"5   4     5 4   5   4           "
 3540 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3550 DATA"F               F               "
 3560 DATA"  ^ ^ YY  ^^      ^ ^ YY        "
 3570 DATA3,5,8,7
 3580 DATA"5   4     5 4   5   4           "
 3590 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3600 DATA"C               C               "
 3610 DATA"  ^ ^ YY  ^^      ^ ^ YY        "
 3620 DATA1,0,5,7
 3630 DATA""
 3640 DATA"F  F  R   M O M F FR RM OOM OOM "
 3650 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3660 DATA"  ^ ^ YY  ^^      ^ ^ YY        "
 3670 DATA1,0,5,7
 3680 DATA""
 3690 DATA"C  C  C   M MO  C  C  C   M MOMO"
 3700 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3710 DATA"  ^ ^ YY  ^^      ^ ^ YY        "
 3720 DATA1,0,5,2
 3730 DATA""
 3740 DATA"F  F  R   M O M F FR RM OOM OOM "
 3750 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3760 DATA"V VV V  T R R                  R"
 3770 DATA1,0,5,2
 3780 DATA""
 3790 DATA"C  C  C   M MO  C  C  C   M MOMO"
 3800 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3810 DATA"V VV  V T R TRO                 "
 3820 DATA1,0,5,2
 3830 DATA""
 3840 DATA"F  F  R   M O M F FR RM OOM OOM "
 3850 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3860 DATA"V VV  V T Y V                   "
 3870 DATA1,0,5,2
 3880 DATA""
 3890 DATA"C  C  C   M MO  C  C  C   M MOMO"
 3900 DATA"M RM   JH  FH JFM RM   JH  FH JF"
 3910 DATA"V VV  V T R TRO                 "
 3920 DATA4,0,2,2
 3930 DATA""
 3940 DATA"K  K  M         K  K  M         "
 3950 DATA"          TQVT            T VT  "
 3960 DATA"V  T  T   QMRQ  V  T  T   Q RQ  "
 3970 DATA4,0,2,2
 3980 DATA""
 3990 DATA"K  K  M         K       M       "
 4000 DATA"          TQVT                  "
 4010 DATA"V  T  T   QMRQ  V   T T W  V  Y "
 4020 DATA4,0,6,6
 4030 DATA""
 4040 DATA"O       Q       "
 4050 DATA"        a  _  ] "
 4060 DATA"        d  b  a "
 4070 DATA1,0,4,4
 4080 DATA""
 4090 DATA"F  F  R   M O M F FR RM OOM OOM "
 4100 DATA" MRYWMVMTMRMTVRM                "
 4110 DATA"                 MRYWMVMTMRMTVRY"
 4120 DATA1,0,4,4
 4130 DATA""
 4140 DATA"C  C  C   M MO  C  C  C   M MOMO"
 4150 DATA" JOVTJRJQJOJQROJ                "
 4160 DATA"                 JOVTJRJQJOJQROV"
 4170  
 4180 DEFPROCp
 4190 FORL=1TOLEN(A$)
 4200 FIRST=(ASC(MID$(A$,L,1))*4)+76+4*KEY
 4210 IFASC(MID$(A$,L,1))=32THENSOUND1,0,0,TEMPO ELSESOUND1,-13,FIRST,TEMPO
 4220 SECND=(ASC(MID$(B$,L,1))*4)-20+4*KEY
 4230 IFASC(MID$(B$,L,1))=32THENSOUND2,0,0,TEMPO ELSESOUND2,-15,SECND,TEMPO
 4240 THIRD=(ASC(MID$(C$,L,1))*4)+28+4*KEY
 4250 IFASC(MID$(C$,L,1))=32THENSOUND3,0,0,TEMPO ELSESOUND3,-15,THIRD,TEMPO
 4260 NEXTL
 4270 ENDPROC
 4280  
 4290 DEFPROCONE
 4300 A$="MMMMMMLMLLLLLLLMMLJHJJJJJJJJJHEE"
 4310 B$="MQTQYTQTLOTOXTOTJMQMVQMQJMQMVQMJ"
 4320 C$="MMMMQQTQQQOOOOQQOOOOMMMMMMMMMMMM"
 4330 ENDPROC
 4340  
 4350 DEFPROCTWO
 4360 A$="FFKKKJF AAAAEEFFHHHHHHHHHHHHHH  "
 4370 B$="KOROWRORFJMJRMJMHMOMHLOLHJOJHLOL"
 4380 C$="   MOOOOMMMMMMJJHHHHHHHHHHHHHHHH"
 4390 ENDPROC
 4400  
 4410 DEFPROCEND
 4420 A$="KKKKKKKKJJJJJJJJHHHHHHHHHHHHHHHH"
 4430 B$="KOROWRORFJMJRMJMHMOMHLOLHJOJHLOL"
 4440 C$="    RRRRRRRRRRRRTSTTTTTTTSTSTSTT"
 4450 ENDPROC
 4460  
 4470 DEFPROCscreen
 4480 VDU23;8202;0;0;0;
 4490 PRINTTAB(9,12)"†�F R E E B I R D"            TAB(9,13)"„�F R E E B I R D"            TAB(10,14)"‚_______________"  TAB(13,19)"…......by Lynyrd Skynyrd"
 4500 ENDPROC
 4510  
 4520 DEFPROCS(V%,P$)LOCALP%,A$,B$,C$
 4530 A$=LEFT$(P$,1)
 4540 IFA$=" "ORA$=""SOUNDV%,0,0,T%:ENDPROC
 4550 B$=MID$(P$,2,1)
 4560 C$=RIGHT$(P$,1)
 4570 P%=4*(INSTR(N$,A$)+INSTR(I$,B$))
 4580 SOUNDV%,1,P%+48*VALC$-24,T%
 4590 ENDPROC
 4600 DATA"EN2GN2BN3EN3DS3EN3DN3EN3CS3EN3CN3EN3"
 4610 DATA""
 4620 DATA""
 4630 DATA"BN3EN3DS3EN3AS3CS3GN2FS2GN2AS3FS2EN2"
 4640 DATA""
 4650 DATA""
 4660 DATA"DN2DN2BN3BN3   FS3GN3FS3EN3DN3CS3EN3"
 4670 DATA"BN1DN1FS1BN2AS2BN2AN2BN2GS1BN2GN1BN2"
 4680 DATA""
 4690 DATA"DN3DN3DN3DN3DN3CS3BN3AS3BN3CS3AS3BN3"
 4700 DATA"FS1BN2AS2BN2FN1GS1DN1CS1DN1EN1CS1BN1"
 4710 DATA""
 4720 DATA"CS3FS2AS3CS3EN3AS3CS3EN3GN3FS3EN3GN3"
 4730 DATA"AS1AS1FS1FS1   FS2GN2FS2EN2DN2CS2EN2"
 4740 DATA""
 4750 DATA"FS3EN3DN3CS3BN3AS3GS2FS2DN3DN3DN3DN3"
 4760 DATA"DN2DN2DN2DN2DN2CS2BN2AS2BN2CS2AN2BN2"
 4770 DATA""
 4780 DATA"DN3EN2GS2BN3DN3GS2BN3DN3FN3EN3DN3FN3"
 4790 DATA"GS0GS0EN1EN1   EN2FN2EN2DN2CN2BN2DN2"
 4800 DATA""
 4810 DATA"EN3DN3CN3BN3AN3GS2FS2EN2CN3CN3CN3CN3"
 4820 DATA"CN2CN2CN2CN2CN2BN2AN2GS1AN2BN2GN1AN2"
 4830 DATA""
 4840 DATA"CN3AN3DN2EN2FS2GN2AN3BN3CN3DN3EN3FN3"
 4850 DATA"FS0FS0DN1DN1   EN1FS1GN1AN2BN2CN2AN2"
 4860 DATA""
 4870 DATA"GN3FS3AN4GN3FS3EN3DN3CN3BN3GN3AN3FS3"
 4880 DATA"BN2AN2CN2BN2AN2GN1FS1EN1DN1EN1CN1DN1"
 4890 DATA""
 4900 DATA"GN2BN3DN3GN3FS3GN3FN3GN3EN3GN3EF3GN3"
 4910 DATA"BN1BN1GN1GN1   DN2EN2DN2CN2BN2AN2CN2"
 4920 DATA""
 4930 DATA"DN3GN3FS3GN3CS3EN3BF3AN3BF3CS3AN3GN2"
 4940 DATA"BN2BN2BN2BN2BN2AN2GN1FS1GN1FS1GN1AN2"
 4950 DATA""
 4960 DATA"FS2FS2DN3DN3   AN4BN4AN4GN3FS3EN3GN3"
 4970 DATA"DN1FS1AN2DN2CS2DN2CN2DN2BN2DN2BF2DN2"
 4980 DATA""
 4990 DATA"FS3FS3FS3FS3FS3EN3DN3CS3DN3EN3CS3DN3"
 5000 DATA"AN2DN2CS2DN2GS1BN2FN1EN1FN1GS1EN1DN1"
 5010 DATA""
 5020 DATA"EN3DN3CS3BN3AN3GS2EN3DN3CS3BN3AN3GN2"
 5030 DATA"CS1CS1AN1AN1CS1CS1EN1EN1AN2AN2CS1CS1"
 5040 DATA""
 5050 DATA"FS2FS2DN2DN2FS2FS2AN3AN3DN3DN3FS2FS2"
 5060 DATA"AN2GN1FS1EN1DN1CS1AN2GN1FS1EN1DN1CN1"
 5070 DATA""
 5080 DATA"DN3CN3BN3AN3GN2FS2DN3CN3BN3AN3GN2FN2"
 5090 DATA"BN1BN1GN0GN0BN1BN1DN1DN1GN1GN1BN1BN1"
 5100 DATA""
 5110 DATA"EN2EN2CN2CN2EN2EN2GN2GN2CN3CN3EN2EN2"
 5120 DATA"GN1FN1EN1DN1CN1BN1GN1FN1EN1DN1CN1BN1"
 5130 DATA""
 5140 DATA"EN3DN3CN3BN3AN3GS2EN3DN3CN3BN3AN3GS2"
 5150 DATA"EN1DN1CN1BN1AN1GS0EN1DN1CN1BN1AN1GS0"
 5160 DATA""
 5170 DATA"AN3CN3EN3AN4   EN3FN3EN3DN3CN3BN3DN3"
 5180 DATA"AN1CN1EN1AN2GS1AN2GN1AN2FS1AN2FN1AN2"
 5190 DATA""
 5200 DATA"CN3CN3CN3CN3CN3BN3AN3GS2AN3FS2DS2BN3"
 5210 DATA"EN1AN2GS1AN2DS1FS1CN1BN1CN1DS1BN1AN1"
 5220 DATA""
 5230 DATA"EN2GN2BN3EN3DS3EN3DN3EN3CS3EN3CN3EN3"
 5240 DATA"GN0GN0EN0EN0   BN2CN2BN2AN2GN1FS1AN2"
 5250 DATA""
 5260 DATA"BN3EN3DS3EN3AS3CS3GN2FS2GN2AS3FS2EN2"
 5270 DATA"GN1GN1GN1GN1GN1FS1EN1DS1EN1FS1DS1EN1"
 5280 DATA""
 5290 DATA"DS2DS2BN3BN3   BN4CN4BN4AN4GN3FS3AN4"
 5300 DATA"FS1BN1DS1FS1AN2DS1FS1AN2CN2BN2AN2CN2"
 5310 DATA""
 5320 DATA"GN3GN3GN3GN3GN3FS3EN3DS3EN3FS3DN3EN3"
 5330 DATA"BN2AN2GN1FS1EN1DS1CS1BN1GN1GN1GN1GN1"
 5340 DATA""
 5350 DATA"CS3CS3AN4AN4   AN4BF4AN4GN3FN3EN3GN3"
 5360 DATA"GN1AN1CS1EN1GN1CS1EN1GN1BF2AN2GN1BF2"
 5370 DATA""
 5380 DATA"FN3FN3FN3FN3FN3EN3DN3CS3DN3EN3CN3DN3"
 5390 DATA"AN2GN1FN1EN1DN1CS1BN1AN1FN1FN1FN1FN1"
 5400 DATA""
 5410 DATA"BN3BN3GN3GN3   AN3BN3CN3DN3EN3FN3DN3"
 5420 DATA"FN1DN1GN0AN1BN1CN1DN1EN1FN1GN1AN2BN2"
 5430 DATA""
 5440 DATA"EN3DN3GN3FN3EN3DN3CS3BF3AN3BF3GN2AN3"
 5450 DATA"CN2BN2EN2DN2CS2BF2AN2GN1FN1DN2EN1CS2"
 5460 DATA""
 5470 DATA"FN2FN2DN3DN3   AN4BF4AN4GN3FN3EN3GN3"
 5480 DATA"DN1FN1AN2DN2CS2DN2CN2DN2BN2DN2BF2DN2"
 5490 DATA""
 5500 DATA"FN3FN3FN3FN3FN3EN3DN3CN3DN3CN3DN3EN3"
 5510 DATA"AN2DN2CS2DN2GS1BN2FN1EN1FN1GS1EN1DN1"
 5520 DATA""
 5530 DATA"AN3CN3EN3AN4GS3AN4GN3AN4FS3AN4FN3AN4"
 5540 DATA"CN1CN1AN2AN2   EN2FN2EN2DN2CN2BN2DN2"
 5550 DATA""
 5560 DATA"EN3AN4GS3AN4DS3FS3CN3BN3CN3DS3BN3AN3"
 5570 DATA"CN2CN2CN2CN2CN2BN2AN2GS1AN2FS1DS1FS1"
 5580 DATA""
 5590 DATA"GS2GS2EN2EN2GS2GS2BN3BN3EN3EN3GS2GS2"
 5600 DATA"BN2AN2GS1FS1EN1DS1BN2AN2GS1FS1EN1DN1"
 5610 DATA""
 5620 DATA"EN3DN3CS3BN3AN3GS2EN3DN3CS3BN3AN3GN2"
 5630 DATA"CS1CS1AN1AN1CS1CS1EN1EN1AN2AN2CS1CS1"
 5640 DATA""
 5650 DATA"FS2FS2DN2DN2FS2FS2AN3AN3DN3DN3FS2FS2"
 5660 DATA"AN2GN1FS1EN1DN1CS1AN2GN1FS1EN1DN1CN1"
 5670 DATA""
 5680 DATA"DN3CN3BN3AN3GN2FS2DN3CN3BN3AN3GN2FS2"
 5690 DATA"BN1BN1GN0GN0BN1BN1DN1DN1GN1GN1BN1BN1"
 5700 DATA""
 5710 DATA"BN3AN3GN2FS2EN2DS2BN3AN3GN2FS2EN2DS2"
 5720 DATA"BN2AN2GN1FS1EN1DS1BN2AN2GN1FS1EN1DS1"
 5730 DATA""
 5740 DATA"EN2GN2BN3EN3DS3EN3DN3EN3CS3EN3CN3EN3"
 5750 DATA"EN1BN1GN0EN0   BN2CN2BN2AN2GN1AN2FS1"
 5760 DATA""
 5770 DATA"BN3AN3GN2CN3BN3AN3BN3GS2AN3GN2AN3FS2"
 5780 DATA"GN1FS1EN1EN2DS2EN2DN2EN2CS2EN2CN2EN2"
 5790 DATA""
 5800 DATA"GN2FS2GN2AN3DS2FS2CN2BN2CN2DS2BN2AN2"
 5810 DATA"BN2BN2AN2AN2BN2BN2      BN1BN1      "
 5820 DATA""
 5830 DATA"GS1EN2"
 5840 DATA"EN0"
 5850 DATA"BN2"
 5860 DATA"*","",""
 5870  
 5880 DEFPROCP(D%)
 5890 FORX=1TO3:READE(X):NEXT
 5900 E(0)=E(1):E(1)=0
 5910 FORX=1TO3:READMUS$(X):NEXT
 5920 FORL=1TOLENMUS$(1)
 5930 REPEATUNTILTIME>T
 5940 FORV=1TO3
 5950 P=4*ASC(MID$(MUS$(V),L,1))
 5960 B%=V OR &200
 5970 B%=B%OR-&1000*(P=128)
 5980 P=P+(KEY*4)-139*(V=1)
 5990 SOUNDB%,E(V),P,1
 6000 NEXT
 6010 SOUND-&1000*(MID$(MUS$(1),L,1)=" "),E(0),3,1
 6020 T=TIME+DEL:NEXT
 6030 ENDPROC
 6040 DATA4,1,1
 6050 DATA"C CCC CCC CCC CC"
 6060 DATA"J   J   J   J  J"
 6070 DATA"Q QQQ QQQ QQQ QQ"
 6080 DATA4,1,1
 6090 DATA"C CCC CCC CCC CC"
 6100 DATA"K   K   K   K  K"
 6110 DATA"R RRR RRR RRR RR"
 6120 DATA4,1,1
 6130 DATA"C CCC CCC CCC CC"
 6140 DATA"L   L   L   L  L"
 6150 DATA"T TTT TTT TTT TT"
 6160 DATA4,1,1
 6170 DATA"C CCC CCC CCC CC"
 6180 DATA"L   L   L   L  L"
 6190 DATA"U UUU UUU UUU UU"
 6200 DATA6,6,6
 6210 DATA"CCCFFFFFFFFFF    FFFFHHHHCCCC   "
 6220 DATA"[[[YYYYYYYYYY    YYYYXXXXVVVV   "
 6230 DATA"RRRVVVVVVVVVV    VVVVTTTTRRRR   "
 6240 DATA4,5,5
 6250 DATA"CA C F H C      CA C F H C      "
 6260 DATA"MM MMM MMM MMM MMM MMM MMM MMM M"
 6270 DATA"JJ JJJ JJJ JJJ JJJ JJJ JJJ JJJ J"
 6280 DATA4,7,1
 6290 DATA"CA C F H C      CA C F H C      "
 6300 DATA"T  OLO OLO OLOR T  OLO OLO OLOR "
 6310 DATA"           M O QR        OMJ    "
 6320 DATA4,1,7
 6330 DATA"CA C F H C      CA C F H C      "
 6340 DATA" M O O MO  M O QO MJ            "
 6350 DATA"T  OMO OMO OMOR T  OMO OMO OMOR "
 6360 DATA4,1,7
 6370 DATA"CA C F H C      CA C F H C      "
 6380 DATA" M O O MO  M O QO MJ       O R V"
 6390 DATA"T  OMO OMO OMOR T  OMO OMO OMOR "
 6400 DATA4,1,7
 6410 DATA"CA C F H C      CA C F H C      "
 6420 DATA"T              T T R R Q Q OO  Q"
 6430 DATA"T  OLO OLO OLOR T  OLO OLO OLOR "
 6440 DATA4,1,7
 6450 DATA"CA C F H C      CA C F H C      "
 6460 DATA"R  O                       O R V"
 6470 DATA"T  OMO OMO OMOR T  OMO OMO OMOR "
 6480 DATA4,1,7
 6490 DATA"CA C F H C      CA C F H C      "
 6500 DATA"R        R T R VRT         V Y V"
 6510 DATA"T  OMO OMO OMOR T  OLO OLO OLOR "
 6520 DATA4,6,6
 6530 DATA"CA C F H C      CA C F H C      "
 6540 DATA" [[[YYYYYYYYYY   YYYYXXXXVVVV   "
 6550 DATA" RRRVVVVVVVVVV   VVVVTTTTRRRR   "
 6560 DATA4,1,1
 6570 DATA"CA C F H C      CA C F H C      "
 6580 DATA"VV T T RR  O R TV  T T RR  V Y V"
 6590 DATA" L               K              "
 6600 DATA4,1,1
 6610 DATA"CA C F H C       K     H     M  "
 6620 DATA"VV T T RR  O R T   R O   U R   Y"
 6630 DATA" L                     R     K  "
 6640 DATA4,1,1
 6650 DATA"CA C F H C      CA C F H C      "
 6660 DATA" [    YV                        "
 6670 DATA" O                              "
 6680 DATA4,8,8
 6690 DATA"CA C F H C      CA C F H C      "
 6700 DATA" O               O              "
 6710 DATA" J               K              "
 6720 DATA4,8,8
 6730 DATA"CA C F H C      CA C F H C      "
 6740 DATA" M               L              "
 6750 DATA" H               H              "
 6760 DATA4,1,1
 6770 DATA"   Q     P     MMMMMMMM         "
 6780 DATA" U   [ X   ^ [ ^^^^^^^^    V Y V"
 6790 DATA"           T T TTTTTTTT         "
 6800 DATA4,1,1
 6810 DATA" C"
 6820 DATA" O"
 6830 DATA" J"
 6840 DATA4,7,7
 6850 DATA"C C             C C             "
 6860 DATA"[ [VTV VTV VTVY [ [VTV VTV VTVY "
 6870 DATA"  ^  ^            ^  ^          "
 6880  
 6890 DEFPROCtitle
 6900 FORJ=0TO24:PRINTTAB(0,J)"†�„";:NEXT
 6910 PRINTTAB(11,21)"BBC Micro Computer":PROCsig
 6920 PRINT                                TAB(6,9)"�The Warrington Collection"   TAB(6,10)"�The Warrington Collection"   TAB(14,13)"�Part  One"                  TAB(14,14)"�Part  One"
 6930 *FX15,1
 6940 I=INKEY(100)
 6950 PROCsig
 6960 ENDPROC
 6970  
 6980 DEFPROCsig:RESTORE6990:FORJ=1TO5:READP,D:NEXT:ENDPROC
 6990 DATA97,15,105,15,89,15,41,15,69,30
 7000  
 7010 DEFPROCindex
 7020 VDU28,3,23,39,0,12,26
 7030 PRINTTAB(7,1)"Select from the following:"TAB(4,21)"ˆType the letter of your choice"TAB(4,23)"ESCAPE returns you to this index"
 7040 PRINTTAB(4,6)"A -�GOLDEN BROWN„by The Stranglers"TAB(4,7)"B -�THRILLER„by Michael Jackson"TAB(4,8)"C -�CUCKOO WALTZ„by C.Winkel"TAB(4,9)"D -�BACH-4„by JSB himself"TAB(4,10)"E -�SWEET DREAMS„by The Eurythmics"
 7050 PRINTTAB(4,11)"F -�MOBY DICK„by The Whales"TAB(4,12)"G -�FREEBIRD„by Lynard Skynard"TAB(4,13)"H -�NEWSONG„by Howard Jones"TAB(4,14)"I -�STAIR TO HEAVEN„by Led Zeppelin"TAB(4,15)"J -�YESTERDAY„by Lennon & McCartney"
 7060 REPEAT:select=GET-64:UNTILselect>=1 ANDselect<=10
 7070 ENDPROC
 7080  
 7090 IFERR=17 PROCfinish
 7100 ONERROROFF:MODE7:REPORT:PRINT" in line ";ERL:END