Morse Tutor 103
170 LOCATE 2,18:PRINT cHRs(le);
teo ON VAL(X$) GOTO 330,320,360,490,1020 190 V$=UPPERS(V$): X$=V$: =0$+V$4-H$
200 TM=5
210 FOR X=1 TO LEN(V$)-32
220 TM=-TM:LOCATE 31,1:PRINT CHR$(37+TM)
230 IF 0=1 THEN LOCATE 1,22:PRINT M1D$ ( V$,X,32)
240 T=ASC(M1D$(V$,X+31,1))
250 FOR Y=1 TO 5
260 IF T>64 THEN CC=40*C(T-64,Y):IF CC> 0 THEN SOUND 1,70,CC
270 IF T<58 AND T>47 THEN CC=40*C(T-21,Y ):IF CC>0 THEN SOUND 1,70,CC
280 FOR CC=1 TO 110:NEXT
290 NEXT Y,X
300 FOR ZZ=1 TO 2000:NEXT
310 GOTO 460
320 0=1
330 V$=F$
340 GOTO 190
350 GOTO 70
360 CLS:LOCATE 8,3:PEN 3:PRINT CHR$(24); "CREATE A MESSAGE";CHR$(24):PEN 1
370 PRINT"Enter your own message and the n press the ENTER key."
380 PEN 2:LOCATE 1,24:PRINT CHR$(20);:IN PUT V$
390 PEN 1
400 CLS:PEN 2:LOCATE 1,11:PRINT"Do you w ant the message shown inboth sound and v ision (Y or N)":FOR y=1 TO 200:NEXT:PEN 1
410 IF INKEY$<>"" THEN 410
420 A$=INKEY$:IF A$="" THEN 420 ELSE A$= UPPER$(A$)
430 IF A$="Y" THEN 0=1:GOTO 190
440 0=0
450 GOTO 190
460 0=0
470 F$=X$
480 GOTO 70
490 CLS:LOCATE 8,1:PRINT CHR$(24);" TEST SECTION ";CHR$(24);