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