home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug080.ark / SMENU.STB < prev    next >
Encoding:
Text File  |  1984-04-29  |  768 b   |  23 lines
  1.  
  2.    10   Gosub Screen'erase
  3.    20   @"Spelling Program"
  4.    30   @"By David E. Trachtenbarg"
  5.    40   @"Copyright 1981"
  6.    50   @ : @"**************" : @
  7.    60   @"1. Check a TEXT FILE"
  8.    70   @"2. Edit CHECK LIST"
  9.    75   @"3. Edit DICTIONARY"
  10.    80   @"4. Transfer words from CHECK LIST to DICTIONARY"
  11.    81   @"5. Leave program"
  12.    90   @ : Input"Enter the number of your choice. ",Command$
  13.    95   @
  14.   100   If Command$="1" Then Run"SPELL.SAV"
  15.   110   If Command$="2" Then Run"CEDIT.SAV"
  16.   120   If Command$="3" Then Run"DEDIT.SAV"
  17.   125   If Command$="4" Then Run"TRANSFER.SAV"
  18.   126   If Command$="5" Then Bye
  19.   130   Goto 10
  20.   140 *Screen'erase
  21.   150   Out 1,126 : Out 1,28 : Return
  22.