10REM MAKEDIC 20REM Make new dictionary file 30REM for B/B+/E/M/C (with discs) 40REM by Alan Blundell 50REM (c) 1989 60: 70CLS 80PRINT "Are you SURE you want to cre ate a" 90PRINT "dictionary?" 100PRINT '"ANY EXISTING DICTIONARY WIL L BE DELETED" 110INPUT '"Type YES to continue : "che ck$ 120IF check$<>"YES" CHAIN "Spell" 130PRINT '"Creating new dictionary .. "; 140DIM index% 211 150pointer%=256 160RESTORE 170FOR letter%=0 TO 25 180READ size% 190size%=size%*256 200index%!(letter%*8)=pointer% 210index%!(letter%*8+4)=0 220pointer%=pointer%+size% 230NEXT 240index%!(letter%*8)=pointer% 250OSCLI("SAVE Diction "+STR$÷index%+" +D4") 260handle%=OPENUP("Diction") 270PTR #handle%=pointer% 280CLOSE #handle% 290CHAIN "Spell" 300: 310REM Size of dictionary space for ea ch letter 320REM (units of 256 bytes) 330DATA 14,12,22,16,10,12,8,8,8,2,2,8 340DATA 4,4,4,22,2,12,28,8,2,4,6,1,1,1