ZXTape! 0Created with Ramsoft MakeTZXmorse  L# 7>!Fo>*=\6}#6pu 1:7:5:28477=o:11 ,6;"LOADING MACHINE CODE":f=(23635S\+256*23636T\+8)::k=28928q:c=0:y=9 ]l=c::'" TECHNICAL SOFTWARE"''" MORSE CODE TUTOR"''13 ;" 1987"''" Which characters do you want? Press the appropriate key"''" 1 EISHTMO"'" 2 EISHTMOAUVNDBWJ"'" 3 All letters"'" 4 Figures"'" 5 Mixed letters and figures 6 Punctuation"'" 7 Send entered text"'" 8 Send text file from tape"'" 9 Learn characters":800  .p=-480:p<1p>9 25 p=9 300, (Q"What speed (1 to 40 wpm)? ";s:s=(s+.5):s<1s>40(40( 2p>6400 4Fi=c:q=(28580o+p):"Difficult characters?",d$:d$=""60< 6>'" ";:23681\,p:i=28840p::i"No characters "; : "accepted" <+w$=" characters":s>10 w$=" words" Fo"How many";(w$);"? ";n:n<1n>(23733\-116t)*(40(+(216s<11 ))nɺn70F Pl=c::'''''''" ";n;w$, Us;" wpm"''" To adjust the pitch of"'" the note press SPACE"''" Morse will start 4 seconds"'" after you press any other key":800 :c:=" ":600X:80P+(380|p>6) ZL:23692\,10 :700:r=p=4p=6:m=n+l:150 dGp<7s>10 a=1n:m=5+((*9 -4)r) nb=1m:p<7x=(4*)i:23679\,x:23680\,(*(i+(q-ix))):l=l+1:f+l,28630o:b:s>10 l=l+1:f+l,32 :240/s-2:a:l=l-1 x>p>6ƾ(f+b)=32 240/s-2:b:140 2p>623680\,(f+b):x=28652o:b '" Type in your copy"'" Correct character printed"''" Normal video = right copy"'" Reverse video = wrong copy"''" Or press ENTER for printout"'':e=c:j=28606o:a=1l:" ";8;:z=(k+a-1):a>jc:z= Fz=z-(32 z>96`):z=13 a=al:¾(f+a);:a:180 #z=zɾ(f+a):z;¾(f+a);:e=e+z:a +''" ";e;" wrong";:e" Well done"; ''" For another run press:" Tp<7'" 1 Another similar run"'" 2 Change number of";w$(5);"s only" Ap>6'" 1 Same text again"'" 2 Same text, change speed" $" 3 Change everything":800  '="1"80P+(380|p>6) &="2"40(+(30p<7) ="3"20 220 ,:'''''" Press key for selection"''" or ENTER for main program"'''9 ;"1 EISHTMO"'9 ;"2 AUVNDBWJ"'9 ;"3 CKPGRLQZFXY"'9 ;"4 Figures"'9 ;"5 Punctuation"'9 ;"6 Send keypress"'9 ;"7 Change tone":800  6&p=-480:p=-35#20 @ p<1p>73106 J#:p=7600X:300, Tp6370r ^W10 ,8;"Press character"''" or ENTER to end":s=12 :700 h\z=:23680\,z-(32 z>96`):x=28652o:360h-(60<z=13 ) rV9 ,7;"Press ENTER to end":s=6:502:700:23680\,c |,380|-(80P28743Gp=13 ) l470 X:p=8''''''''''" Start tape for next text":""f,256:l=f:460 '11 ;"Enter text"'' X" ";8;:c:z=:z=12 l" ";8;8;:l=l-1:430 z=z-(32 z>96`):z>45-z<58:z>64@z<91[z=32 z=44,z=61=z=63?z;:l=l+1:f+l,z z13 430 l=c20 "n=c::'''''''" Text",:85U X{8,13 ;"Press"''" cursor up higher pitch"'" cursor down lower pitch"''" ENTER back to main program" bb.05|L,y:z=:y=y+((z=11 y<502)-(z=10 y>-15)):z13 610b l 23681\,p:a=28596o:fy=261.6*2^(y/12 ):d=437500U/fy-30:710:g=s+(12 -ss<12 ):d=1.1 /g*fy:710:d=1100L/g:710:d=44000/g+1000*(g-s)/s-80P Ha,d-256*(d/256):a+1,(d/256):a=a+2:  ""800  * EISHTMOAUVNDBWJCKPGRLQZFXY1234567890,./=?ri(>=;7/ "&.0K     $) $!q"\6ͫo>ouFK\xqG!Fo .`.j:\![:\o:\oNy :\,[Co&oFx8*@o0T]*>o͵*Bo *DojT]z n([\zu0 :\S\NG!o F#Nͫo:\8x6F4FFo>> >&o~o:qO*E\|}! Z80 :\.P8!"B\6 ;;v:\O!["\!o No>$p2\a8 *\w#"\> 5F Nv:\ > (T