home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PILOT / educate / MORSE / MORSE14.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-11  |  1.1 KB  |  48 lines
  1. # Morse Tutor 1.4
  2. # Copyright 1997, John Newgas
  3. # email: jnewgas@cix.compulink.co.uk
  4. # Packet AX25: G7LTQ@GB7UWS.#32.GBR.EU
  5. #        Working on it . . . . .
  6. # Personal Use allowed as freeware
  7. # All rights reserved.
  8. #
  9. #
  10. #
  11. new
  12. # opt int
  13. 100 gosub 900
  14. 110 gosub 800
  15. 200 gosub 700
  16. 210 sound FREQ,CWPM,VOL64,WD$,FWPM
  17. 220 dprint WD$
  18. 225 RESP= fn 39
  19. 226 if RESP = 0 then end
  20. 227 v=fn 20
  21. 228 if v<250 then dprint 'Low battery'
  22. 230 goto 200
  23. 700 WD$=""
  24. 710 for W=1 to NUMWD
  25. 720 for C=0 to 4
  26. 730 if NMB then WD$=WD$+chr$(48+rnd(10)) 
  27. 731 if not NMB then WD$=WD$+chr$(65+rnd(26))
  28. 740 next C
  29. 750 WD$=WD$+"  "
  30. 760 next W
  31. 770 return
  32. 800 FREQ=val(s$(5)):VOL64=val(s$(7))
  33. 810 CWPM=val(s$(1)):FWPM=val(s$(3))
  34. 830 NUMWD=val(s$(9)): NMB=val(s$(11))
  35. 840 return
  36. 900 s$(0)="Char Speed": s$(1)="13"
  37. 910 s$(2)="Farnsworth": s$(3)="10"
  38. 920 s$(4)="Tone (Hz)" : s$(5)="600"
  39. 930 s$(6)="Vol(1-64)" : s$(7)="32"
  40. 940 s$(8)="Words/blk" : s$(9)="3"
  41. 950 s$(10)="Numbers"  : s$(11)="0"
  42. 960 reply= fn 30
  43. 970 if reply = 0 then end
  44. 980 if reply > 1 then goto 900
  45. 990 return
  46. run
  47.  
  48.