home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / proofer.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-04  |  2.1 KB  |  56 lines
  1. 10  CLS:PRINT TAB(34);"Word Proofer":PRINT
  2. 20  PRINT TAB(32);"by Lance Pickup"
  3. 30  PRINT TAB(22);"3 Satellite Circle, Olean, NY 14760":PRINT
  4. 35  REM *** VOICE/DATA (716) 373-1992
  5. 40  CLEAR:DEFINT A-Y:DIM A,K,C,H,L1,J,B$,LB,C$,JH,IN,WC,L,I,IM,M,CR,CC,U$,X,Z,NF$,E,B$(128),A$(512)
  6. 50  REM Make sure you create a file called WORDS.TXT.  It should initially
  7. 60  REM contain 512 carriage returns, as no words will be known at the start.
  8. 70  REM The program learns words as you teach them to it, so be patient for the
  9. 80  REM first few tries and let it learn some words.  Soon the dictionary will
  10. 90  REM be custom tailored to your needs.
  11. 100  PRINT TAB(21);"Loading dictionary into memory"
  12. 110  OPEN "WORDS.TXT" FOR INPUT AS #1
  13. 120  FOR J=1 TO 512:INPUT #1,A$(J):NEXT :CLOSE
  14. 130  CLS
  15. 140  INPUT "File name:",NF$
  16. 150  I=1:OPEN NF$ FOR INPUT AS #1
  17. 160  IM=I-128*INT((I-1)/128):LINE INPUT #1,B$(IM)
  18. 170  IF I<=128*M THEN 200
  19. 180  IF EOF(1) THEN CLOSE:E=0:GOTO 210
  20. 190  E=1:IF IM=128 THEN CLOSE:GOTO 210
  21. 200  I=I+1:GOTO 160
  22. 210  B$=STRING$(255,32):LOCATE ,,0:IF M=0 THEN CLS
  23. 220  IF M=0 THEN CLS:PRINT CHR$(205);CHR$(205);CHR$(16);" Press ";CHR$(17);CHR$(196);CHR$(217);" to enter word in dictionary.":PRINT CHR$(205);CHR$(205);CHR$(16);" Press [SPACE BAR] to bypass word.":PRINT
  24. 230  FOR J=1 TO IM:CR=CSRLIN:CC=POS(0)
  25. 240  LOCATE 1,76:PRINT STR$(J+128*M);:LOCATE CR,CC
  26. 250  LB=LEN(B$(J)):IF LB=0 THEN 370
  27. 260  C=0:L1=1:FOR K=1 TO LB:A=ASC(MID$(B$(J),K,1))
  28. 270  IF A>127 OR A<32 THEN A=32
  29. 280  PRINT CHR$(A);:IF A>90 THEN A=A-32
  30. 290  MID$(B$,K,1)=CHR$(A)
  31. 300  IF A<65 THEN IF K>L1+1 THEN C=K-L1:C$=MID$(B$,L1,C)
  32. 310  IF A>64 AND A<97 AND K=LB THEN C=K-L1+1:C$=MID$(B$,L1,C)
  33. 320  IF A<65 OR K=LB THEN L1=K+1
  34. 330  IF C<2 THEN 360
  35. 340  IF RIGHT$(C$,1)="S" THEN C$=LEFT$(C$,C-1):C=C-1:IF C<2 THEN 360
  36. 350  WC=WC+1:GOSUB 430:C=0
  37. 360  NEXT
  38. 370  PRINT :NEXT :IF E THEN M=M+1:GOTO 150
  39. 380  PRINT :PRINT ,"Word count =";WC
  40. 390  C$="":PRINT ,"Updating dictionary on disk"
  41. 400  OPEN "WORDS.TXT" FOR OUTPUT AS #1
  42. 410  FOR JH=1 TO 512:PRINT #1,A$(JH):NEXT :CLOSE
  43. 420  CLEAR:END
  44. 430  H=0:FOR JH=1 TO C:H=H+ASC(MID$(C$,JH,1)):NEXT
  45. 440  H=H-512*INT(H/512)+1
  46. 450  L=LEN(A$(H)):IN=INSTR(A$(H),C$):IF IN THEN 510
  47. 460  PRINT "<?>";:BEEP
  48. 470  U$=INPUT$(1):IF U$=" " THEN IF INP(957)=223 THEN LPRINT USING "#####";J+128*M;:LPRINT ": ";LEFT$(B$(J),L1-1):GOTO 500 ELSE 500
  49. 480  IF U$<>CHR$(13) THEN 470
  50. 490  IF L+C<100 THEN A$(H)=C$+" "+A$(H) ELSE MID$(A$(H),C+2,99-C)=MID$(A$(H),1,99-C):GOSUB 540
  51. 500  FOR JH=1 TO 3:PRINT CHR$(29);CHR$(32);CHR$(29);:NEXT :RETURN
  52. 510  IF IN<2 OR IN+C>L THEN RETURN
  53. 520  IF MID$(A$(H),IN+C,1)<>CHR$(32) THEN RETURN
  54. 530  MID$(A$(H),C+2,IN-1)=MID$(A$(H),1,IN-1)
  55. 540  MID$(A$(H),1,C)=C$:MID$(A$(H),C+1,1)=CHR$(32):RETURN
  56.