home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 October / 1993-10.d64 / proofreader (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  25 lines
  1. 0 clr
  2. 10 ve=peek(772)+256*peek(773):lo=43:hi=44:print"[147]automatic proofreader for ";
  3. 20 if ve=42364 then print "64"
  4. 30 if ve=17165 then lo=45:hi=46:(NULL) clr:print"128"
  5. 40 sa=(peek(lo)+256*peek(hi))+6:for j=sa to sa+166:read b:poke j,b:ch=ch+b:next
  6. 50 if ch<>20570 then print "*error* check typing in data statements":end
  7. 60 for j=1 to 5:read rf,lf,hf:rs=sa+rf:hb=int(rs/256):lb=rs-(256*hb)
  8. 70 ch=ch+rf+lf+hf:poke sa+lf,lb:poke sa+hf,hb:next
  9. 80 if ch<>22054 then print "*error* reload program and check final line":end
  10. 90 if ve=17165 then poke sa+14,22:poke sa+18,23:pokesa+29,224:pokesa+139,224
  11. 100 poke sa+149,peek(772):poke sa+150,peek(773):print"[147]proofreader active"
  12. 110 sys sa:poke hi,peek(hi)+1:poke (peek(lo)+256*peek(hi))-1,0:new
  13. 120 data120,169,73,141,4,3,169,3,141,5,3,88,96,165,20,133,167
  14. 130 data165,21,133,168,169,0,141,0,255,162,31,181,199,157,227
  15. 140 data3,202,16,248,169,19,32,210,255,169,18,32,210,255,160
  16. 150 data0,132,180,132,176,136,230,180,200,185,0,2,240,46,201
  17. 160 data34,208,8,72,165,176,73,255,133,176,104,72,201,32,208
  18. 170 data7,165,176,208,3,104,208,226,104,166,180,24,165,167
  19. 180 data121,0,2,133,167,165,168,105,0,133,168,202,208,239,240
  20. 190 data202,165,167,69,168,72,41,15,168,185,211,3,32,210,255
  21. 200 data104,74,74,74,74,168,185,211,3,32,210,255,162,31,189
  22. 210 data227,3,149,199,202,16,248,169,146,32,210,255,76,86,137
  23. 220 data65,66,67,68,69,70,71,72,74,75,77,80,81,82,83,88
  24. 230 data 13,2,7,167,31,32,151,116,117,151,128,129,167,136,137
  25.