INTRODUCTIONix



keyboard, and the other reads the corect proofgrams, as long as you take the time to compare
values from the book.)the proof number for each line with the book.
PROOF-IT can be "turned of" by typing theThe P commandchecks whetheryou have
leter Q folowed by aRETURN on a line by itself.typed al the lines. DOn'tforget that the values
This" deactivates" proofing, but leaves the pro-shown at the end of each listing include the
gram intact. It can be turned back on by givingstandardframework for al programsother
the command SYS 51000.than the QUICK series.
PROOF-IT wil help you type corect pro-


1 PRINTCHR$(147);"PROOF-IT
5 PRINTCC)A1984ATHEACODEAWORKS "
10 REM AS OF 08AUG84
20 REM BY MIKE HOWARD

100 PRINT:PRINTSETTINGAUP"

110LN=990:READP,B,D,X:IFP+B+D=XTHEN130
120PRINTERRORAINA999":END
130 FOR Z=2049TO 2586:S=S+PEEKCZ):NEXT

140IF S=P THEN 160

150PRINT"ERRORAINABASICAPROGRAM":END
160 CS=O:FORZ=l TO 6:READV
170IF V<OOR V>255THEN220

180POKE B+CB,V:CB=CB+l:CS=CS+V:NEXT

190PRINT".";:A=A+l
200 LN=LN+10:READCK:IFCS=CKTHEN160

210 PRINT:PRINT"ERRORAINALINE";LN:END
220PRINT:PRINT:IFV=-lTHEN 250

230 PRINT"ILLEGAL AVALUE";V
240PRINT"INALINE";LN+10:END
250IF A=D THENSYS 51000:NEW

260 PRINT"WRONGANUMBERAOFADATAALINES":END

999 DATA38661,51000,61,89722
1000 DATA076,204,199,169,000,133,781
1010 DATA253,133,254,133,251,133,1157
1020 DATA252,165,043,133,176,165,934
1030DATA044,133,177,160,000,177,691

1040DATA176,133,163,200,177,176,1025
1050 DATA133,164,240,041,200,177,955

1060DATA176,141,053,003,200,177,750
1070 DATA176,141,054,003,173,053,600
1080 DATA003,032,126,200,173,054,588
1090 DATA003,032,126,200,230,253,844
1100 DATA208,002,230,254,165,163,1022
1110 DATA133,176,165,164,133,177,948

1120 DATA076,077,199,169,013,032,566
1130 DATA210,255,169,018,032,210,894
1140 DATA255,166,253,165,254,032,1125

1150 DATA205,189,160,000,185,180,919
1160 DATA199,240,007,032,210,255,943
1170 DATA200,076,150,199,166,251,1042
1180 DATA165,252,032,205,189,169,1012
1190 DATA013,032,210,255,032,210,752

1200 DATA255,108,002,003,032,076,476
1210 DATA073,078,069,083,044,032,379
1220 DATA080,082,079,079,070,032,422(continued )
1230 DATA078,085,077,066,069,082,457

