home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib03.dsk
/
MORSE CODE WRITER.int
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
45 lines
10 PRINT "";""
50 REM MORSE CODE WRITER PROGRAM
51 REM WORKS WITH MORSE CODE
52 REM READER AND MORSE CODE
53 REM EXEC WRITER PROGRAM
54 REM WHICH MUST RESIDE ON
55 REM SAME DISC!
60 REM
61 REM
62 REM WHEN ENTERING THIS PROGRAM
63 REM FROM KEYBOARD INSERT A
64 REM 'CONTROL D' AFTER FIRST
65 REM QUOTATION MARK IN FOLLOW-
66 REM ING LINES:
67 REM
68 REM 85, 120, 121,
69 REM 122, 123, 190.
70 REM
85 PRINT "<CTRL-D>NOMON C,I,O"
90 COUNTER=1:REM INITIALIZE CHARACTER COUNTER
100 DIM HEAP$(255):REM LETTER STRING
110 HEAP$="1234567890QWERTYUIOPASDFGHJKLZXCVBNM,./?;:-'(""
115 INPUT SPEED
120 PRINT "<CTRL-D>OPEN CODE DATA"
121 PRINT "<CTRL-D>DELETE CODE DATA"
122 PRINT "<CTRL-D>OPEN CODE DATA"
123 PRINT "<CTRL-D>WRITE CODE DATA"
127 PRINT SPEED
130 LENGTH=5
150 IF COUNTER+LENGTH+1<40 THEN GOTO 200
165 LINE=LINE+1
170 COUNTER=1:REM RESET CHARACTER COUNTER
180 PRINT
185 IF LINE<10 THEN 200
190 PRINT "<CTRL-D>CLOSE CODE DATA"
195 END
200 FOR WRD=1 TO LENGTH
210 LTR= RND ( LEN(HEAP$))+1
230 PRINT HEAP$(LTR,LTR);
240 COUNTER=COUNTER+1:REM INCREMENT CHARACTER COUNTER
250 NEXT WRD
270 PRINT " ";
280 COUNTER=COUNTER+1:REM INCREMENT CHARACTER COUNTER
300 GOTO 130