0 CLR
10 VE=PEEK(772)+256*PEEK(773):LO=43:HI=44:PRINT"[147]AUTOMATIC PROOFREADER FOR ";
20 IF VE=42364 THEN PRINT "64"
30 IF VE=17165 THEN LO=45:HI=46:(null) CLR:PRINT"128"
40 SA=(PEEK(LO)+256*PEEK(HI))+6:FOR J=SA TO SA+166:READ B:POKE J,B:CH=CH+B:NEXT
50 IF CH<>20570 THEN PRINT "*ERROR* CHECK TYPING IN DATA STATEMENTS":END
60 FOR J=1 TO 5:READ RF,LF,HF:RS=SA+RF:HB=INT(RS/256):LB=RS-(256*HB)
70 CH=CH+RF+LF+HF:POKE SA+LF,LB:POKE SA+HF,HB:NEXT
80 IF CH<>22054 THEN PRINT "*ERROR* RELOAD PROGRAM AND CHECK FINAL LINE":END
90 IF VE=17165 THEN POKE SA+14,22:POKE SA+18,23:POKESA+29,224:POKESA+139,224
100 POKE SA+149,PEEK(772):POKE SA+150,PEEK(773):PRINT"[147]PROOFREADER ACTIVE"
110 SYS SA:POKE HI,PEEK(HI)+1:POKE (PEEK(LO)+256*PEEK(HI))-1,0:NEW
120 DATA120,169,73,141,4,3,169,3,141,5,3,88,96,165,20,133,167
130 DATA165,21,133,168,169,0,141,0,255,162,31,181,199,157,227
140 DATA3,202,16,248,169,19,32,210,255,169,18,32,210,255,160
150 DATA0,132,180,132,176,136,230,180,200,185,0,2,240,46,201
160 DATA34,208,8,72,165,176,73,255,133,176,104,72,201,32,208
170 DATA7,165,176,208,3,104,208,226,104,166,180,24,165,167
180 DATA121,0,2,133,167,165,168,105,0,133,168,202,208,239,240
190 DATA202,165,167,69,168,72,41,15,168,185,211,3,32,210,255
200 DATA104,74,74,74,74,168,185,211,3,32,210,255,162,31,189
210 DATA227,3,149,199,202,16,248,169,146,32,210,255,76,86,137
220 DATA65,66,67,68,69,70,71,72,74,75,77,80,81,82,83,88
230 DATA 13,2,7,167,31,32,151,116,117,151,128,129,167,136,137