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