home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 December / 1985-12.d64 / speedmenu (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  24 lines
  1. 100 poke53280,6:poke 53281,6:print"[147]"tab(8)"[154] [211]peed[186] [211]pelling [195]hecker ":print
  2. 110 print"[155]    [194]efore you use the spelling checker program for the first time,";
  3. 120 print" you need to create a dictionary disk.  [193]s mentioned in the [211]peed[186] ";
  4. 130 print"article, you can use the  "chr$(34)"[196]ictionary [205]anager"chr$(34);
  5. 140 print" program to create ablank dictionary. [200]owever, this [199]azette [196]isk ";
  6. 150 print"contains a basic [211]peed[186] dictionary of approximately 2,000 words in ";
  7. 160 print"the 26  sequential files named [193]-[218] that you see in the directory.  ";
  8. 170 print"[212]his disk cannot[155] be  used as a dictionary disk, so use the   ";
  9. 180 printchr$(34)"[196]ictionary [195]opier"chr$(34)" program to transfer these files";
  10. 190 print" onto one of your own disks."
  11. 300 f1$="[211]peed[186]":f3$="[196]ictionary [205]anager":f5$="[196]ictionary [195]opier"
  12. 400 print" [144][208]ress:[145][145]"
  13. 410 printtab(9)"[159][175][175][175][175]":printtab(9)" f1 [146][144] for "f1$
  14. 420 printtab(9)"[159][175][175][175][175]":printtab(9)" f3 [146][144] for "f3$
  15. 430 printtab(9)"[159][175][175][175][175]":printtab(9)" f5 [146][144] for "f5$
  16. 500 geta$:ifa$<"[133]"ora$>"[135]"then500
  17. 510 poke 53280,3:poke 53281,3
  18. 520 ifa$="[133]"thenn$="speedcheck":f$="speedcheck"
  19. 530 ifa$="[134]"thenn$="dmanager":f$="dmanager"
  20. 540 ifa$="[135]"thenn$="dcopier":f$="dcopier"
  21. 550 print"[147]"tab((40-len(n$)-10)/2)"[204]oading "chr$(34)n$chr$(34)
  22. 560 print"[159]new":print"load"chr$(34)f$chr$(34)",8":print"?c[200](144):run"
  23. 570 poke198,3:poke631,13:poke632,13:poke633,13
  24.