home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug041.ark / CODE.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  1.5 KB  |  48 lines
  1.  
  2. 10 REM MORSE CODE RECEIVER PROGRAM
  3. 20 DIMV(153):Z=0:REM Z=-1 TO PRINT DOTS & DASHES
  4. 30 INPUT "SPEED";S
  5. 40 P=126:REM INPUT PORT
  6. 50 B=32:REM PORT BIT
  7. 60 V=32:REM VALUE WHEN PRESSED
  8. 70 PRINT "INITIALIZING..";
  9. 99 GOTO 10000
  10. 100 C=0
  11. 105 C=C+1:IF C>3*S THEN PRINT " ";:GOTO 100
  12. 110 IF (INP(P)ANDB)<>V THEN 105
  13. 120 X=1
  14. 130 C=0
  15. 140 C=C+1:IF (INP(P)ANDB)=V THEN 140
  16. 150 X=2*X+1+(C>S):IF Z THENPRINT MID$("_./",2+(C>S),1);
  17. 160 C=0
  18. 170 C=C+1:IF C>3*S THEN 190
  19. 175 IF (INP(P)ANDB)<>V THEN 170
  20. 180 IF C<2*S THEN 130
  21. 190 IF X>153 THEN 199
  22. 195 IF V(X)=0 THEN 199
  23. 196 PRINT CHR$(V(X));:GOTO 100
  24. 199 PRINT "(??)";:GOTO 100
  25. 1000 DATA .-,A,-...,B,-.-.,C,-..,D
  26. 1010 DATA .,E,..-.,F,--.,G,....,H
  27. 1020 DATA ..,I,.---,J,-.-,K,.-..,L
  28. 1030 DATA --,M,-.,N,---,O,.--.,P
  29. 1040 DATA --.-,Q,.-.,R,...,S,-,T
  30. 1050 DATA ..-,U,...-,V,.--,W
  31. 1060 DATA -..-,X,-.--,Y,--..,Z
  32. 1070 DATA .----,1,..---,2,...--,3,....-,4,.....,5
  33. 1080 DATA -....,6,--...,7,---..,8,----.,9,-----,0
  34. 1090 DATA .-.-.-,.,--..--.,",",..--..,"?"
  35. 1100 DATA -...-,*,.-.-.,/,END,E
  36. 10000 REM TABLE INIT
  37. 10020 READ X$,Y$:IF X$="END" THEN PRINT:GOTO 100
  38. 10030 X=1:FOR I=1 TO LEN(X$):X=X*2
  39. 10040 IF MID$(X$,I,1)="." THEN X=X+1
  40. 10050 NEXT
  41. 10060 V(X)=ASC(Y$):PRINT ".";
  42. 10070 GOTO 10020
  43. 10100 REM INITIALIZE TABLE
  44. 10040 IF MID$(X$,I,1)="." THEN X=X+1
  45. 10050 NEXT
  46. 10060 V(X)=ASC(Y$):PRINT ".";
  47. 10070 GOTO 10020
  48. 10100 REM INITIALIZE TABLEFSED    ASMV/òûùÿÖÜCODE    BAS zîCK      COMMMAST    CATÇ{|}~Çüéâäàåçêëè