106 Morse Tutor
1110 LOCATE 3,12:PRINT CHR$(24);"PLEASE WAIT FOR A MOMENT";CHR$(24)
1120 F$="THIS IS A MESSAGE TO DEMONSTRAT E THE MORSE TUTOR THE COMPLETE ALPHABE
T IS AS FOLLOWS	ABCDEFGHIJKLMNOP
ORSTUVWXYZ AND THE NUMBERS ARE	123
4567890"
1130 Q$=STR1NG$(32,32)
1140 H$=" "
1150 RESTORE
1160 FOR X=1 TO 36
1170 FOR Y=1 TO 5
1180 READ C(X,Y)
1190 NEXT Y,X
1200 FOR X=1 TO 36: READ C$(X):NEXT
1210 DATA .1,.3,0,0,0,.3,.1,.1,.1,0,.3,.
1,.3,.1,0,.3,.1,.1,0,0,.1,0,0,0,0,.1,.1,
3,.1,0,.3,.3,.1,0,0,.1,.1,.1,.1,0,.1,.1 ,0,0,0,.1,.3,.3,.3,0,.3,.1,.3,0,0,.1,.3,
.1,.1,0,.3,.3,0,0,0,.3,.1,0,0,0,.3,.3,.3
,0,0,.1,.3,.3,.1,0,.3,.3,.1,.3,0,.1,.3,. 1,0,0,.1,.1,.1
1220 DATA 0,0,-3,0,0,0,0„1„1„3,0".1
.1,.1,.3,0,.1,.3,.3,0,0,.3,.1,.1,.3,0,. 3,.1,.3,.3,0,.3,.3,.1,.1,0
1230 DATA .3,.3,.3,.3,.3,.1,.3,.3,.3,.3,
.1,.1,.3,.3,.3,.1,.1,.1,.3,.3,.1,.1,.1,. 1,.3,.1,.1,.1,.1,.1,.3,.1,.1,.1,.1,.3,.3
,.1,.1,.1,.3,.3,.3,.1,.1,.3,.3,.3,.3,.1 1240 DATA ". "," ..."," . ."," ..",".","
1250 DATA "
II
	11	"	11	It	11
	I	"1
1260 DATA“" If
-	11	11	If
”
II
1270 DATA " ",".._","..._","._ u u u
_ _
	1280 DATA "	u u
u u
	"	11	11
at • as
	1290 DATA "	If
	sr se •	menus	NI ^ s	•
	u	u u
,
1300 RETURN