1 ' Morse Code Teletype 2 ' By Chris Wootton 10 DIM mc(25):FOR a=0 TO 25:READ mc(a):NEXT:MODE 2 20 i$=UPPER$(INKEY$):IF (i$<"A" OR i$>"Z") GOTO 20 30 mc=mc(ASC(i$)-65):GOSUB 40:PRINT #0," ";:GOTO 20 40 mc$=BIN$(mc):IF POS(#0)+LEN(mc$)>79 THEN PRINT #0:PRINT #0 50 FOR b=2 TO LEN(mc$):x$=MID$(mc$,b,1) 60 PRINT #0,CHR$(46+(x$="1"));:NEXT:RETURN 70 DATA 5,24,26,12,2,18,14,16,4,23,13,20,7 80 DATA 6,15,22,29,10,8,3,9,17,11,25,27,28