home *** CD-ROM | disk | FTP | other *** search
- 1000 print"[147][194]itte die [196]iskette fuer das
- 1010 [153]"(NULL)oerterverzeichnis einlegen!
- 1020 poke198,0:wait198,1
- 1030 fori=65to90
- 1040 a$=chr$(i)
- 1050 print" [145][145]"
- 1060 print"[214]erzeichnis fuer [194]uchstabe : ";a$
- 1070 open1,8,1,"spell.dict."+a$
- 1080 print#1,chr$(255);
- 1090 gosub10000
- 1100 close1
- 1110 nexti
- 1120 print"[214]erzeichnis fertig
- 1130 [128]
- 10000 [159]15,8,15
- 10010 [132]15,e,e$,t,s
- 10020 [153]"str$isk-valrror: ";e;e$;t;s
- 10030 [160]15:[142]
-