Morse Tutor 105
770 IF B=1 THEN V=INT(RND*26)+1
780 IF B=2 THEN V=(INT(RND*10)+1)+26 790 PRINT C$(V);:FOR Y=1 TO 800:NEXT 800 FOR Y=1 TO 5
810 CC=40*C(V,Y):IF CC>0 THEN SOUND 1,70 ,CC
820 FOR ZZ= 1 TO 130:NEXT
830 NEXT
840 PRINT" = ";
850 IF B=1 THEN PRINT CHRS(V+64), ELSE P RINT CHR$(V+21),
860 NEXT X
870 FOR Y=1 TO 1500:NEXT:GOTO 70
880 PRINT"The sound will be heard first, followed by the character and	code":
FOR y=1 TO 1500:NEXT
890 FOR X=1 TO 15
900 IF B=1 THEN V=INT(RND*26)+1
910 IF B=2 THEN V=(INT(RND*10)+1)+26 920 FOR Y=1 TO 5
930 CC=40*C(V,Y):IF CC>0 THEN SOUND 1,70
CC
940 FOR ZZ= 1 TO 130:NEXT
950 NEXT Y
960 FOR Y=1 TO BOO:NEXT
970 PRINT "That was ";
980 IF B=1 THEN PRINT CHRS(V+64);" = ";C $(V), ELSE PRINT CHR$(V+21);" = ";C$(V), 990 FOR Y=1 TO 800:NEXT
1000 NEXT X
1010 FOR Y=1 TO 1500:NEXT:GOTO 70
1020 CLS:PEN 2:LOCATE 8,1:PRINT CHR$(24) ;"THE MORSE CODE";CHR$(24):PEN 1:PRINT 1030 FOR X=I TO 18
1040 XX=X+18
1050 PRINT CHR$(X+64);" = ";C$(X);TAB(18 );CHR$(XX-64*(XX<27)-21*(XX>26));" = ";C $(XX)
1060 NEXT
1070 LOCATE 3,24:PRINT CHR$(24);" PRESS ANY KEY TO RETURN ";CHR$(24);
1080 IF INKEY$<>"" THEN 1080
1090 IF INKEY$="" THEN 1090 ELSE GOTO 70 1100 S=0.1:L=0.3:0=0:X$=""