104 Morse Tutor
500 PEN 3:LOCATE 9,5:PRINT"1- CHARACTERS ";:PEN 2:LOCATE 9,7:PRINT"2- CODE";:PEN 1:LOCATE 9,9:PRINT"3- SOUND":PEN 1
510 LOCATE 1,12:PRINT CHR$(24);"SELECT T EST ITEM (1 - 3)";CHR$(24);
520 LOCATE 1,14:PRINT CHR$(18);:LOCATE 1 ,14:A$=INKEY$:IF A$="" OR A$ <"1" OR A$› "3" THEN 520
530 IF A$="1" THEN W=1
540 IF A$="2" THEN W=2
550 IF A$="3" THEN W=3
560 PEN 2:LOCATE 1,12:PRINT"DO YOU WANT TESTING ON LETTERS OR NUMBERS (L OR N)" ;:PEN 1:LOCATE 1,14:PRINT CHR$(18);:LOCA TE 1,14:A$=INKEY$:IF A$="" THEN 560 ELSE
A$=UPPERS(A$):IF A$ <>"L" AND A$<>"N" T HEN 560
570 IF A$="L" THEN B=1
580 IF A$="N" THEN B=2
590 IF W>1, THEN 740
600 FOR Y=I TO 400:NEXT
610 PEN 3:PRINT:PRINT"The character will appear first,followed by the code and s ound.":PEN 1:FOR y=1 TO 2000:NEXT
620 FOR X=1 TO 15
630 IF B=1 THEN V=INT(RND*26)+1
640 IF B=2 THEN V=( INT(RND*10)+1)+26
650 IF B=1 THEN PRINT CHRS(V+64); ELSE P RINT CHR$(V+21);
660 FOR Y=1 TO 1000:NEXT
670 FOR Y=1 TO 5
6eo cc=4o*c(v,y):IF cc>o THEN SOUND 1,70 ,CC
690 FOR ZZ= 1 TO 130:NEXT
700 NEXT Y
710 PRINT" = ";C$(V),
720 NEXT X
730 FOR Y=1 TO 1500:NEXT:GOTO 70
740 IF W>2 THEN 880
750 PEN 3:PRINT:PRINT"The code will appe ar first,	followed by the character
and	sound.":PEN 1:FOR y=1 TO 2000:NEXT
760 FOR X=1 TO 15