home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG080.ARK
/
SMENU.STB
< prev
next >
Wrap
Text File
|
1984-04-29
|
768b
|
23 lines
10 Gosub Screen'erase
20 @"Spelling Program"
30 @"By David E. Trachtenbarg"
40 @"Copyright 1981"
50 @ : @"**************" : @
60 @"1. Check a TEXT FILE"
70 @"2. Edit CHECK LIST"
75 @"3. Edit DICTIONARY"
80 @"4. Transfer words from CHECK LIST to DICTIONARY"
81 @"5. Leave program"
90 @ : Input"Enter the number of your choice. ",Command$
95 @
100 If Command$="1" Then Run"SPELL.SAV"
110 If Command$="2" Then Run"CEDIT.SAV"
120 If Command$="3" Then Run"DEDIT.SAV"
125 If Command$="4" Then Run"TRANSFER.SAV"
126 If Command$="5" Then Bye
130 Goto 10
140 *Screen'erase
150 Out 1,126 : Out 1,28 : Return