home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / hamradio / rtty3.lbr / CODE.BZS / CODE.BAS
Encoding:
BASIC Source File  |  1987-02-21  |  1.4 KB  |  47 lines
  1. 10 REM MORSE CODE RECEIVER PROGRAM
  2. 20 DIM V(153):Z=0:REM Z=-1 TO PRINT DOTS & DASHES
  3. 30 INPUT "SPEED";S
  4. 40 P=98:REM INPUT PORT 62H
  5. 50 B=32:REM PORT BIT
  6. 60 V=32:REM VALUE WHEN PRESSED
  7. 70 PRINT "INITIALIZING..";
  8. 99 GOTO 10000
  9. 100 C=0
  10. 105 C=C+1:IF C>3*S THEN PRINT " ";:GOTO 100
  11. 110 IF (INP(P) AND B)<>V THEN 105
  12. 120 X=1
  13. 130 C=0
  14. 140 C=C+1:IF (INP(P) AND B)=V THEN 140
  15. 150 X=2*X+1+(C>S):IF Z THEN PRINT MID$("_./",2+(C>S),1);
  16. 160 C=0
  17. 170 C=C+1:IF C>3*S THEN 190
  18. 175 IF (INP(P) AND B)<>V THEN 170
  19. 180 IF C<2*S THEN 130
  20. 190 IF X>153 THEN 199
  21. 195 IF V(X)=0 THEN 199
  22. 196 PRINT CHR$(V(X));:GOTO 100
  23. 199 PRINT "(??)";:GOTO 100
  24. 1000 DATA .-,A,-...,B,-.-.,C,-..,D
  25. 1010 DATA .,E,..-.,F,--.,G,....,H
  26. 1020 DATA ..,I,.---,J,-.-,K,.-..,L
  27. 1030 DATA --,M,-.,N,---,O,.--.,P
  28. 1040 DATA --.-,Q,.-.,R,...,S,-,T
  29. 1050 DATA ..-,U,...-,V,.--,W
  30. 1060 DATA -..-,X,-.--,Y,--..,Z
  31. 1070 DATA .----,1,..---,2,...--,3,....-,4,.....,5
  32. 1080 DATA -....,6,--...,7,---..,8,----.,9,-----,0
  33. 1090 DATA .-.-.-,.,--..--.,",",..--..,"?"
  34. 1100 DATA -...-,*,.-.-.,/,END,E
  35. 10000 REM TABLE INIT
  36. 10020 READ X$,Y$:IF X$="END" THEN PRINT:GOTO 100
  37. 10030 X=1:FOR I=1 TO LEN(X$):X=X*2
  38. 10040 IF MID$(X$,I,1)="." THEN X=X+1
  39. 10050 NEXT
  40. 10060 V(X)=ASC(Y$):PRINT ".";
  41. 10070 GOTO 10020
  42. 10100 REM INITIALIZE TABLE
  43. MID$(X$,I,1)="." THEN X=X+1
  44. 10050 NEXT
  45. 10060 V(X)=ASC(Y$):PRINT ".";
  46. 10070 GOTO 10020
  47. 10100 REM INITIALIZE TABLE
  48.