ZXTape! 0Created with Ramsoft MakeTZXSA `&7:1:1::"LOGO" 20,0;1;"DO NOT STOP THE TAPE" 19,0 "" GLOGO @?????????????????ppppp???pppppppp??pppp??p~pp?pp?p~pp???ppp~pppppppp??????<???????????B?????????????????B??<hAMUSIC f_I)h_  SCOTSOFT *65350F:5:5:0: -1;10 ,7;"STOP THE TAPE" Fn(520,2):U(7):f(7):k(7):t(8) 1CLEF=0:TONE=0:23658j\,8 i=17:f(i):i  3000 (+i=117:a:65350F+i,a:I 2I=17:U(I):I <I=17:T(I):I F'180:I=17:K(I):I _Q=0:S$="":K$="":MOVE=0:TEMPO=5:m$="":n$="ABCDEFGRUL#b":t$="" :0,2,4,5,7,9 ,11 275 4K=7:10 ,6;"HAVE A GOOD DAY": :210+k*10 190 0360h:750:1060$:1190: 1320(: 1270: 1060$: 1190: 0453:750:1060$:1190:  options :'"1. ENTER TUNE" "'"2. READ TUNE FROM TAPE" ,'"3. SAVE TUNE ON TAPE" 6'"4. PLAY TUNE" @'"5. CHANGE TEMPO" E'"6. CHANGE TUNE" F '"7. STOP" J&'''"Press number of option required" K""331K O=""335O T:()<491ů()>5571,-5:335O ^k= cM$=""K>2K77;2;20,0;"You have not entered a tune"'"Choose option 1 or 2":331K e h get tune rhL$="":NUMBER=1:M$="":J1=0:P=0:CLEF=0:TEMPO=5:f=0:740 |"NAME OF TUNE ";U$ U$=0380| :0,10 ;"DO YOU WANT:-";7,0;"TREBLE CLEF OR";7,16;"BASS CLEF";9 ,0;"TYPE 'T'";9 ,16;"TYPE 'B'" 5130 :5190F =""390 *"T"Ʀ"B"1,-5:390 ="B"CLEF=1 b:"KEY-If #'s or b's are required"''"Type 9 for #"''"Type 0 for b"''''"If neither press 'n'" ""403 =""405 B480Ư579Ư78N1,-5:403 L$=:L$="N"452 L$="9"L$="#" L$="0"L$="b" V:23658j\,8:0,0;"HOW MANY NOTES ARE TO BE MADE"''L$(1) ""434 =""435 6<491ů>5571,-5:434 I$=:L$=L$+i$  800  ř:0,0;"ENTER STRING OF NOTES"''"R IS A REST"''"#/b ARE ACCIDENTAL"''"U MOVES UP ONE OCTAVE"''"L MOVES DOWN ONE OCTAVE"'''''"C IS MIDDLE C" ;21,0;"TYPE SPACE KEY TO CONTINUE":0: )K6number=1:M$="":I$="" W5000:6050:K621,0;"TYPE 'K' AFTER LAST NOTE " K=6480 `620l:850R:1550:M$=m$+i$:12 ,0;m$:S$="K"K=1:478 M$=256478  460 .REV=NUMBER:K61450:490 1475:20,0;"TO ADD EXTRA NOTES TYPE ";1;"E"'0;"TO CONTINUE TYPE ";1;"C" "E"Ʀ"C"482 r="E"I$="":20,0;"ENTER ADDITIONAL NOTES "'"TYPE K AFTER LAST NOTE ":460 NUMBER=NUMBER-1 yP1=0:I=1:S$=""::8,0;"ENTER TIME AS NOTE IS DISPLAYED"''"FOR RESTS ENTER TIME AS FOR NOTE"  5200P  6000p &Y=16:X=0:J=1̱M$ I$=M$(J):Y,X;I$  I$=82R540 4I$<65AůI$>71GA$=32 :570:  1420 &(R=18:A$=T$(R)5600 (R:540 :Y+1,X;A$ ? 5500| A 4000 DX=X+1:X>31X=0:Y=Y+2:Y>20Y=1621:" ":Y:Y=16 NJ b l keynotes qS$="" v""630v w=""631w {K2S$= |S$="1"i$="C": S$="2"i$="D": S$="3"i$="E": S$="4"i$="F": S$="5"i$="G": S$="6"i$="A": S$="7"i$="B": S$="8"i$="R": S$="9"i$="#": S$="0"i$="b": S$="K"I$="": S$="U"I$="U": S$="L"I$="L":  K=2  630v 2<480(>579Ư75K)630v key C  180 ,i=17:F(I):K(I)=0:I: wait (#0;"PRESS SPACE KEY TO CONTINUE"  0:  key *>L$(1)=98bCLEF=0K=-1:R$="BEADGCF" />L$(1)=98bCLEF=1K=-1:R$="ADGCFBE" 4=L$(1)=35#CLEF=0K=1:R$="FCDGAEB" 6=L$(1)=35#CLEF=1K=1:R$="EBCFGDA" 9OI=1̰L$(2):NOTE=R$(I)-67C:NOTE<0NOTE=NOTE+7 >K(NOTE+1)=K:I M Rnotes p#note=I$:NOTE=0980 zDnote=85Ua=17:f(a)=f(a)+12 :a:980 Dnote=76La=17:f(a)=f(a)-12 :a:980 (note=35#tone=1:980 )note=98btone=-1:980 +note=82Rpitch=100d:960 5note=note-66B:note0note=note+7 pitch=f(note)+K(NOTE)+TONE n(number,1)=pitch TONE=0  times  $ PLAYTUNE .XF=0::V=132:X=0̱U$+1:9 +V,X;"*";:X:V 311 ,0;"*";U$;"*" 8I=1NUMBER LNOTE=N(I,1) QGNOTE=100d(502*N(I,2)*(2.5 /TEMPO)):1170 V%TIME=N(I,2)*(2.5 /TEMPO) `I=NUMBER1150~ ~ TIME,NOTE I  tempo %:"DO YOU WANT TO ALTER THE TEMPO?" !'"Press 'N' if the tempo is OK" '"Press 'Y' to change" =""Ŧ"N"Ʀ"Y"1225  ="N" !''"the present TEMPO is ";tempo x'"higher number to speed up tune"''"A lower number to slow it down"''''"ENTER NEW TEMPO "''"A number between 0 and 10" ""1252 %<491ů>5791253  TEMPO= 1060$:1200 RECORD  NU=NUMBER UL$(1)="b"NU=NU+1:N(NU,1)=999:N(NU,2)=L$(2) (NU=NU+1:N(NU,1)=996  UL$(1)="#"NU=NU+1:N(NU,1)=998:N(NU,2)=L$(2)  6CLEF=1NU=NU+1:N(NU,1)=997 *Q=1̱M$:N(NU+Q,1)=M$(Q):Q N(NU+Q,1)=900 U$N()  (-"ENTER NAME OF TUNE TO BE LOADED";U$:V$=U$ 2.1;10 ,7;"START THE TAPE" <U$N() AU$=V$ F/:1;10 ,7;"STOP THE TAPE" P 100d dBERROR=0:P=0:M$="":CLEF=0:L$="N":I=1 f1N(I,1)996I=I+1:1382f gNUMBER=I-1 iHI=I+1:n(i,1)=998L$="#"+N(I,2):I=I+1 n;n(i,1)=999L$="b"+N(I,2):I=I+1 x3n(I,1)=997CLEF=1:I=I+1 M$=M$+N(I,1) 1I=I+1:N(I,1)9001410  ""1420 =""1421 ="A"A$="": ="S"A$="": ="D"A$="": ="F"A$="": ="G"A$="": ="H"A$="": ="J"A$="": ="K"A$="": ="L"5900 :5800  1422  validate  f=0 v19,0;"TO ALTER THESE NOTES TYPE 'A' "'" "'"TO CONTINUE TYPE THE SPACE KEY" ""1471 =""1472 ="A"1475  á740:A=12 21:A,0;" ":A:I=1:X=0:Y=12 :NUMBER=1:L$"N"800 :I=1 U20,0;"FOR NEXT NOTE TYPE N"'"TO CHANGE A NOTE TYPE C" 4I$=M$(I):Y,X;I$:ERROR=1Ʀ="N"1477 ""1478 =""Ŧ"N"Ʀ"C"1479 1="N"850R:1550:I$=""1476 8="C"O$=M$(I):1485:ERROR=11476 >I=I+1:X=X+1:X>31X=0:Y=Y+1  I>M$  1476 _20,0;"ENTER REPLACEMENT NOTE ":620l ΝO$=35#ůO$=76LůO$=85UůO$=98bƯI$35#ƯI$76LƯI$85UƯI$85UR=NUMBERREV:N(R+1,1)=N(R,1):R ϝI$=35#ůI$=76LůI$=85UůI$=98bƯO$35#ƯO$76LƯO$85UƯO$85UR=NUMBERREV:N(R,1)=N(R+1,1):R 2850R:1550:ERROR=11485 M$(I)=I$:Y,X;I$: delete  #andb +i=m$1-1:0;m$(i):i $t$=t$((t$)-1):0;a$  ;ERROR=0:I$<65A(I$>71GƯI$82R) I$=82R1572$ jN(NUMBER,1)>23CLEF=020,0;"NOTE IS TOO HIGH ":1575' iN(NUMBER,1)>2CLEF=120,0;"NOTE IS TOO HIGH ":1575' jN(NUMBER,1)<-7CLEF=020,0;"NOTE IS TOO LOW ":1575' "kN(NUMBER,1)<-27CLEF=120,0;"NOTE IS TOO LOW ":1575' $NUMBER=NUMBER+1: 'g1,-5:100d:20,0;" ":I$="":ERROR=1 , @#andb Jb$=m$(i+1):l=b$ ^Vnote=35#l>66Bl<72Hf(l-66B)=f(l-66B)+1:15906 hVnote=35#l=65Al=66Bf(l-59;)=f(l-59;)+1:15906 rVnote=98bl>66Bl<72Hf(l-66B)=f(l-66B)-1:15906 |Jnote=35#l=65Al=66Bf(l-59;)=f(l-59;)-1   DRAW NOTES X,Y 7X+2,Y,2:X-1,Y:0,-10 : 6X+2,Y,2:X+5,Y:0,10 : 4,0,:-4,0,:4,0:X+2,Y,2:X+2,Y,2:X+3,Y+1:X+5,Y:0,10 : ki=04:"h"+i,8:i:"h"+5,40(:"h"+6,72H:"h"+7,480 #i=07:a:"a"+i,a:i #i=07:a:"s"+i,a:i #i=07:a:"d"+i,a:i #i=07:a:"f"+i,a:i #i=07:a:"g"+i,a:i #i=07:a:"j"+i,a:i #i=07:a:"k"+i,a:i G14,8,14,8,8,40(,120x,480 F14,8,8,8,8,40(,120x,480 F14,8,8,8,8,40(,121y,480 E8,8,8,8,8,40(,120x,480 E8,8,8,8,8,40(,121y,480 D8,8,8,8,8,40(,73I,480 D0,0,0,0,0,40(,72H,480  I$="U"I$="L"I$="#"I$="b" ,A$=""N(I,2)=.25~:5600 +A$=""N(I,2)=.5:5600 ,A$=""N(I,2)=.75@:5600 *A$=""N(I,2)=1:5600 ,A$=""N(I,2)=1.5@:5600 *A$=""N(I,2)=2:5600 *A$=""N(I,2)=3:5600 *A$=""N(I,2)=4:5600  I=I+1  6X1=0:Y1=156:X2=108l:X3=104h I=15 X1,Y1:X2,0 X3,Y1,2 X3=X3-16:Y1=Y1-6 I 8X1=130:Y1=156:X2=108l:X3=228 I=15 X1,Y1:X2,0 I=55090 X3,Y1-3,2 X3=X3-16:Y1=Y1-6 I CLEF=15150 l6,5;"E";6,7;"G";6,9 ;"B";6,11 ;"D";6,13 ;"F" Y6,22;"F";6,24;"A";6,26;"C";6,28;"E" 140,141:10 ,0,-:-15,0,-:10 ,25:-5,0,:5,-40(:-5,0,-  10 ,141:10 ,0,-:-15,0,-:10 ,25:-5,0,:5,-40(:-5,0,-  l6,5;"G";6,7;"B";6,9 ;"D";6,11 ;"F";6,13 ;"A" (Y6,22;"A";6,24;"C";6,26;"E";6,28;"G" <6,150,1:5,150:10 ,0,-:-12 ,-15,-/2:18,153:18,147 F136,150,1:135,150:10 ,0,-:-12 ,-15,-/2:148,153:148,147 O P)X1=184:Y1=156:X2=71G ZQ=15 dX1,Y1:X2,0 iY1=Y1-6 nQ sCLEF=15300 x190,141:10 ,0,-:-15,0,-:10 ,25:-5,0,:5,-40(:-5,0,- X2=200:L$(1)=35#Q=1̰L$(2):X2,U(Q)+4:0,-8:X2+4,U(Q)+5:0,-8:X2-2,U(Q)+2:6,1:X2-2,U(Q)-2:6,1:X2=X2+6:Q X2=204:L$(1)=98bQ=1̰L$(2):X2,T(Q)+8:0,-10 :0,6,:X2=X2+6:Q  X2=200:186,150,1:185,150:10 ,0,-:-12 ,-15,-/2:198,153:198,147 X2=200:L$(1)=35#Q=1̰L$(2):X2,U(Q)-2:0,-8:X2+4,U(Q)-1:0,-8:X2-2,U(Q)-4:6,1:X2-2,U(Q)-8:6,1:X2=X2+6:Q ҆X2=204:L$(1)=98bQ=1̰L$(2):X2,T(Q)+8:0,-10 :0,6,:X2=X2+6:Q   # AND b M$(J-1)="#"5420, "AX1,Y1+8:0,-10 :0,6,:54306 ,X1-1,Y1+4:0,-8:X1+3,Y1+5:0,-8:X1-3,Y1+2:6,1:X1-3,Y1-2:6,1 6 5800 { |L$="N"5512 JQ=1̰L$(2):I$=R$(Q)N(I,1)=N(I,1)-K:P=1 Q J=15520 xM$(J-1)="#"M$(J-1)="b"P1=2:M$(J-1)="#"Z=1:N(I,1)=N(I,1)-Z:5520 HM$(J-1)="b"P1=2:Z=-1:N(I,1)=N(I,1)-Z CLEF=15572 XX1=250:N(I,1)<5Y1=(126~+1.5@*N(I,1)):5560 MN(I,1)<12 Y1=(127.5+1.5@*N(I,1)):5560 VN(I,1)<17Y1=(147+1.5@*(N(I,1)-12 )):5560 5Y1=(148.5+1.5@*(N(I,1)-12 )) (P=1N(I,1)=N(I,1)+K )P1=2N(I,1)=N(I,1)+Z Y1<126~Y1=Y1-1 P1=0:p=0: ZX1=250:N(I,1)<-19Y1=(156+1.5@*N(I,1)):5577 NN(I,1)<-12 Y1=(157.5+1.5@*N(I,1)):5577 VN(I,1)<-7Y1=(177+1.5@*(N(I,1)-12 )):5577 WN(I,1)<0Y1=(178.52+1.5@*(N(I,1)-12 )):5577 (Y1=(162+1.5@*N(I,1)) (P=1N(I,1)=N(I,1)+K )P1=2N(I,1)=N(I,1)+Z Y1<126~Y1=Y1-1 P1=0:p=0:  UP OR DOWN  I$="R"6100:5800 J=15630 1M$(J-1)="#"M$(J-1)="b"5400 6Y1>162X1-6,168:10 ,0 6Y1>159X1-6,162:10 ,0 6Y1<129X1-6,126~:10 ,0 6Y1<126~X1-6,120x:10 ,0  6Y1<123{X1-6,114r:10 ,0 "N(I,2)25665! 8249,Y1,2:249,Y1,1:5670& !*249,Y1,2:A$=""5710N &Y1>1415700D 0y252,Y1:0,10 ::A$=""A$=""A$=""3,-2:A$=""252,Y1+8:3,-2 : 5710N Dw246,Y1:0,-10 :A$=""A$=""A$=""3,2:A$=""246,Y1-8:3,2 N,A$=""A$=""A$=""254,Y1-2 "A=112 :65351G 5B=04:255,156-6*B:B A   DRAW BARS (255,156:0,-24  5800 o pTABLE 1;12 ,0;"TYPE KEY";10 ;"A";12 ;"S";14;"D";16;"F";18;"G";20;"H";22;"J";24;"K";27;"L" 1;14,0;"T1ME";10 ;"";12 ;"";14;"";16;"";18;"";20;"";22;"";24;"";26;"NEW":26;"BAR"   TABLE 2 8,0;"TYPE";10 ;"1";12 ;"2";14;"3";16;"4";18;"5";20;"6";22;"7";24;"8";26;"9";28;"0" 10 ,0;"FOR KEY";10 ;"C";12 ;"D";14;"E";16;"F";18;"G";20;"A";22;"B";24;"R";26;"#";28;"b"   DRAW PAUSES X1=250 WN(I,2)=4N=13:X1-2,150-N:4,0:N: oN(I,2)=3N=13:X1-2,144+N:4,0:N:X1+5,144+N: WN(I,2)=2N=13:X1-2,144+N:4,0:N: N(I,2)=1.5@X1,135:-3,3:6,1:-3,5:3,6:-3,3:X1+5,147: ~N(I,2)=1X1,135:-3,3:6,1:-3,5:3,6:-3,3: mN(I,2)=.75@X1-2,135:0,12 :-4,0,-:X1+4,147: VN(I,2)=.5X1-2,135:0,12 :-4,0,-: jX1-2,135:0,12 :-4,0,-:X1-2,142:-4,0,-: X33!,0,72H,14,64@,6,32 ,183,203,22,43+,16,251,13 ,32 ,245,201 bG156,147,159,150,141,153,144 lG144,153,141,150,138,147,135 #("MUSIC"5:"": U&& &+leonaqSKovempN ABCDEFGRUL#bTkLumbeMpfU ,