home *** CD-ROM | disk | FTP | other *** search
/ Hand Held Organizer Toolkit / walnutcreekcdrom-handheldorganizertoolkit-march1998.iso / PalmPilot / educational / mcode.bas < prev    next >
BASIC Source File  |  1997-12-30  |  553b  |  24 lines

  1. # morse code practice
  2. # nwalsh@rtd.com
  3. # This program may be distributed freely
  4. op "page","",-1
  5. print "MORSE OUTPUT (. TO EXIT)"
  6. new
  7. 60 START = fn 16 : CNT = 0
  8. 70 rem MAIN PROGRAM
  9. 80 n=97+rnd(26)
  10. 85 c$ = chr$(n)
  11. 90 sound 600,15,32,c$,10
  12. 100 a$ = chr$(fn 33)
  13. 150 if a$ = "." then goto 500
  14. 200 if  a$ = c$ then print c$;
  15. 210  if not (a$ = c$) then print chr$(n - 32); 
  16. 220 CNT = CNT + 1
  17. 300 goto 80
  18. 500 END = (fn 16 - START)
  19. 510 print
  20. 520 print CNT;" characters in "; END; " seconds"
  21. 540 print (CNT/5) / (END/60);" WPM"
  22. 600 end
  23. run
  24.