Listing of file='MORSE' on disk='vmedia/games-droz00.wvd.zip'
# Sector 355, program filename = 'MORSE'
0010 REM MORSE - CREATE MORSE ON CRT - 4/01/77 DA
0012 DIM A$(500)2,B$15,C$(1)124,D$(128)1,E$(128)1
0015 PRINT HEX(0D03);TAB(10);"***** MORSE CODE GENERATOR *****"
: PRINT
0020 A$()=HEX(0F011801A000)
0040 D$()=ALL(80)
: STR(D$(),33,1)=HEX(80)
: STR(D$(),49,10)=HEX(FC7C3C1C0C0484C4E4F4)
: STR(D$(),66,26)=HEX(6088A89040FF700820FFB0FFE0A0F068D85010C0301870FFFFFF)
0050 FOR I=1 TO 128
: E$(I)=BIN(2*I-2)
: NEXT I
0060 DEFFN'0 "70 A$()=HEX( 0B80 0F00 E005 75FF 7580 1701 19F0 1801 1BE1 1
B01 E00C 0801 400D 400A 42E0 4020 012E 1CE1 1802 0000 1BD1 1CDB D003 7590
1EDB D020 402E 4007 1803 E014 0000 0000 402D 4007 7560 4007 7560 4007 18
03 E014)";HEX(0D)
0070 A$()=HEX(0B800F00E00575FF7580170119F018011BE11B01E00C0801400D400A42E04020
012E1CE1180200001BD11CDBD00375901EDBD020402E40071803E01400000000402D40077
5604007756040071803E014)
0080 GOTO 200
0088 DEFFN'15
0090 C$()="THIS IS THE MESSAGE"
0091 C$()="0123456789"
0095 C$()="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
0097 C$()="AB"
0100 $GIO/005(A$(),B$)B$;STR(C$(),VAL(STR(B$,15)),LEN(C$())+1-VAL(STR(B$,15)))
;STR(D$(),1+VAL(STR(B$,14)));STR(E$(),1+MOD(VAL(STR(B$,13)),128))
0110 PRINT
: RETURN
0200 INPUT "PRESS EXEC WHEN READY",A$
0210 RESTORE 1+20*RND(1)
: READ C$()
: IF C$()=" " THEN 210
: PRINT C$()
: GOSUB 100
: GOTO 200
0400 DATA "THIS IS THE FIRST PRACTICE MESSAGE"
0410 DATA "NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID OF THEIR PARTY"
0420 DATA "QWERTYUIOP"
0430 DATA "CQ CQ CQ W1458 CALLING WA1235"
0601 DEFFN'1 "70 A$()=HEX( 0B80 0F00 E005 75FF 7580 1701 19F0 1801 1BE1 1
B01 E00C 0801 42E0 012E 1CE1 1802 1BD1 1CDB D003 7590 1EDB D020 402E 4007
1803 E010 0000 0000 0000 0000 0000 0000 402D 4007 7560 4007 7560 4007 18
03 E010)";HEX(0D)
0900 DATA " "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "