ZXTape! 0Created with Ramsoft MakeTZXmorse 5" BINARYSTAR TECHNOLOGY Oct.1985  39999? "morsecode"  6000p :7:7:0  8610! 31,5;"BINARY STAR TECHNOLOGY" 53,4;"ZX SPECTRUM MORSE TUTOR" )8,1;"1 Morse tutorial" #210 ,1;"2 Random morse generator" (C12 ,1;"3 User defined message morse"''" sender" -h18,0;"Press 1,2 or 3 to select program"''" 0 to return to BASIC" 2a$= 3a$=""502 4a$="*"9000(# 7a$="1"1000 <a$="2"2000 Aa$="3"3000 Fa$="0"l=0 K 502  =l=0:m=0:g=1:p=0:menu=1001  85004! #2,9 ;"MORSE TUTORIAL" $+10 ,1;"S Sending tutor" .*12 ,1;"K Morse keyboard" 8214,1;"H Selected letter groups" B216,1;"I Selected number groups" L 6500d Va$="s"a$="S"1800 `a$="k"a$="K"1200 ja$="h"a$="H"1300 ta$="i"a$="I"1350F  10 K:30:g=7:l=5:p=0:p1=180:rep=1200 F"Press keys to obtain morse"''"characters,ENTER returns to menu" =""1220 q= q=13 menu  4000 2q=32 (250*a):g=5:4120  g=7  1220 e:0,15;"letter"''"for E,I,S and H type EISH and":j=65A:k=90Z:1500 Fe:0,15;"number"''"for 1,2,3 and 4 type 1234 and":j=480:k=579:1500 v0,0;"Enter selected ";0,21;" range e.g."''''"press ENTER":rep=1575':p1=502 y$ *y=y$:y1=1:y=01520 !y$(y1)k1520 y1=y1+1:y1>yrep " 1550 'd:20,0;" Press ENTER to stop sending":l=0:m=0:p=0:g=1 ,q=y$((y*)+1) J 4000 T 1580, ;:0,0;"Send morse using 0 key or "  52,0;"connect morse key as fire button"  54,0;"on a suitable joystick interface"  721,1;"Press ENTER to return to menu" 23692\,255 6,0; 41000( 0menu #:menu=2000:rep=2200  85004! +2,4;"RANDOM MORSE GENERATOR" >#10 ,1;"L Letters" H#12 ,1;"N Numbers" RG14,1;"M Mixed letters,numbers and"''" punctuation" \ 6500d p:a$="l"a$="L"i=26:j=65A:p1=180:rep z9a$="n"a$="N"i=10 :j=480:p1=502:rep :a$="m"a$="M"i=62>:j=34":p1=180:rep  10 C:20,0;" Press ENTER to stop sending":100d l=0:m=0 g=1:p=0 q=((i*)+j)  4000  2220 k$(259) 1:menu=3010 :rep=3200 :p1=300, 85004! 02,2;"USER DEFINED MESSAGE SENDER" 710 ,1;"E Enter message from keyboard" 212 ,1;"J Load message from tape" 214,1;"S Save message onto tape" &/16,1;"R Run current message" 0 6500d Da$="e"a$="E"100d::"Type in message of choice e.g."''"upper case letters or numbers or"''"punctuation up to a maximum of"''"256 characters and press ENTER":k$(259):k$:menu NAa$="j"a$="J":"Load message from tape":"message"k$():menu X'a$="s"a$="S":"message"k$():menu ba$="r"a$="R"rep l 10 o:20,0;" Press ENTER to stop sending":l=0:m=0:g=6:p=0:h=1 Yk$(h)=32 Ưk$(h+1)=32 Ưk$(h+2)=32 h=2578800`" Dq=k$(h):k$(h)<32 ůk$(h)>95_h=h+1:3240 4000 )q=32 (c*200*a):4110 h=h+1 3220 (42500+q)=0 42500,(42500+q) u=42000 +((100d*a)+(150*a*(c-1)))  l,m;q 1m=m+1:m=30m=0:l=l+2 Ng=g+1:g=6g=g-6:(c*200*a):q=32 :4110 @+p=p+1:p=p1Ŧ=13 8800`" ^ [:"Select required speed from 5 to"''"30 words per minute e.g. 12 and"''"press ENTER" w$ w$=1w$="0"+w$ w$25010 ew$(1)<480ůw$(1)>579ůw$(2)<480ůw$(2)>5795010 &w$<5Űw$>305010  6070  `:"Select required delay from 1 to"''"9 e.g. for normal delay type 1"''"and press ENTER" d$ d$15260 'd$<491ůd$>5795260  6070  |a:"Select required tone from 500 to"''"999 Hz e.g for 800 Hz type 800 "''"and press ENTER" t$ t$35510 t$(1)<535ůt$(1)>579ůt$(2)<480ůt$(2)>579ůt$(3)<480ůt$(3)>5795510  6070  p:p1=502 w$="12":d$="1":t$="750" !a=.84W =p/(w$):b=t$:c=d$ r=(437500U/b)-30.125q:42502,(r/256):42501,(r-256*42502):42504,0:42503,(a*b):42506 ,((a*b*3)/256):42505 ,((a*b*3)-256*42506 ):42508 ,(a*1040):42507 ,0 :42600h,(120x/w$):42601i,(480/w$) ,23658j\,8:23692\,255  da$= na$=""6500d xa$="w"a$="W"5000 a$="d"a$="D"5250 a$="t"a$="T"5500| 1a$="w"a$="W"a$="d"a$="D"a$="t"a$="T"menu  !\I7,1;"W Speed ";w$;" D Delay ";d$;" T Tone ";t$ !\19,0;"Press key shown in INVERSE video"''"or any other key for main menu" !0,0;"";1,31;"";2,31;"";3,31;"" ! "`220,1;"Press any other key for menu" "ja$= "t a$=""a$=13 8810j" "menu #("morse"1 #-$"morsecode"40000@,2599' #2 2W12D1T750a}\(bcr MUUA*7morsecode ' @I) *ETIANMSURWDKGOHVF*L*PJBXCYZQ**54*3***2**>****16=/**<(*7***8*90************?_****"**.********'**-***********)*****,****:>>Ӡ(*͵> !hn&B0>!hn&B8(0!@~>!in&B8(B> +:*G[8HŐ([ ͵K yAMX > P P33aw3aw3;\3CCC`]v>)4HR^-msaj)?><80 !#'/G1L     l