home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc-hamd3 / morsecod.bas < prev    next >
Encoding:
BASIC Source File  |  1983-08-21  |  2.9 KB  |  60 lines
  1. 10 KEY OFF:CLS
  2. 20 SCREEN 0
  3. 30 WIDTH 40
  4. 40 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  5. 50 PRINT"░┌───────────────────────────────────┐░"
  6. 60 PRINT"░│                                   │░"
  7. 70 PRINT"░│            5017-A.BAS             │░"
  8. 80 PRINT"░│            MORSE CODE             │░"
  9. 90 PRINT"░│                                   │░"
  10. 100 PRINT"░│                                   │░"
  11. 110 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF  │░"
  12. 120 PRINT"░│      ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄      │░"
  13. 130 PRINT"░│        █   █   █ █     █   █      │░"
  14. 140 PRINT"░│        █   █▄▄▄█ █     █   █      │░"
  15. 150 PRINT"░│        █   █     █     █   █      │░"
  16. 160 PRINT"░│      ▄▄█▄▄ █     █▄▄▄▄ █▄▄▄█      │░"
  17. 170 PRINT"░│                                   │░"
  18. 180 PRINT"░│      International PC Owners      │░"
  19. 190 PRINT"░│                                   │░"
  20. 200 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
  21. 210 PRINT"░│                                   │░"
  22. 220 PRINT"░└───────────────────────────────────┘░"
  23. 230 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  24. 240 PRINT
  25. 250 PRINT "       PRESS ANY KEY TO CONTINUE
  26. 260 A$=INKEY$: IF A$="" THEN 260
  27. 270 WIDTH 80
  28. 280 CLS
  29. 1000 RANDOMIZE VAL(RIGHT$(TIME$,2))
  30. 1010 COLOR 7,0,0
  31. 1020 KEY OFF:COLOR 7,0,0:CLS:SCREEN 0,1
  32. 1030 COLOR 9,0,0:PRINT CHR$(213)+STRING$(37,205)+CHR$(184);
  33. 1040 FOR X=2 TO 23:LOCATE X,1:PRINT STRING$(1,179):LOCATE X,39:PRINT STRING$(1,179);:NEXT X:PRINT CHR$(212)+STRING$(37,205)+CHR$(190);
  34. 1050 LOCATE 3,15:COLOR 15:PRINT "MORSE CODE"
  35. 1060 LOCATE 22,8:COLOR 17:PRINT "PRESS ANY KEY TO CONTINUE"
  36. 1070 COLOR 4:LOCATE 9,9:PRINT CHR$(213)+STRING$(20,205)+CHR$(184):FOR X=10 TO 15:LOCATE X,9:PRINT STRING$(1,179):LOCATE X,30:PRINT STRING$ (1,179):NEXT X:LOCATE 15,9:PRINT CHR$(212)+STRING$(20,205)+CHR$(190)
  37. 1080 COLOR 9:LOCATE 11,15:PRINT "Practice":LOCATE 13,15 :PRINT "and Drill"
  38. 1090 Q$=INKEY$:IF Q$="" THEN 1090 ELSE 1100
  39. 1100 KEY OFF:CLS:COLOR 0,7
  40. 1110 CLS:COLOR ,,15:RANDOMIZE(T)
  41. 1120 INPUT "Enter  diffculty    (1-10)";O:PRINT
  42. 1130 INPUT "(1) Learning   (2) Testing";W:PRINT CHR$(7):CLS
  43. 1140 DIM A$(26), B$(26) ,HH(24)
  44. 1150 DATA .-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.,---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..
  45. 1160 FOR Z=1 TO 26:READ B$(Z):NEXT Z
  46. 1170 F=FIX(RND*17+4+.9999):IF W<>1 THEN COLOR ,,4:LOCATE 10,17:PRINT "TESTING"
  47. 1180 FOR Z=1 TO F
  48. 1190 H=FIX(RND*10+.9999):HH(Z)=H:IF W=1 THEN PRINT B$(H),CHR$(H+64)
  49. 1200 L=LEN (B$(H))
  50. 1210 FOR N=1 TO O*100+100:NEXT N
  51. 1220 FOR Y=1 TO L
  52. 1230 IF MID$(B$(H),Y,1)="-" THEN D=6 ELSE D=2
  53. 1240 SOUND 350,D:FOR G=1 TO D*O*25+100:NEXT G
  54. 1250 NEXT Y,Z:IF W=1 THEN 1270
  55. 1260 CLS:COLOR ,,15:FOR X=1 TO F:PRINT CHR$(HH(X)+64),B$(HH(X)):NEXT X
  56. 1270 LOCATE 24,1:INPUT "PRESS ENTER TO RUN";D$:PRINT CHR$(7):CLS
  57. 1280 FOR X= 1 TO 900:NEXT:GOTO 1170
  58. )+64),B$(HH(X)):NEXT X
  59. 1270 LOCATE 24,1:INPUT "PRESS ENTER TO RUN";D$:PRINT CHR$(7):CLS
  60. 1280 FOR X= 1 TO 900:NEXT:GOTO