10 CHECK=0
20 FOR I=1 TO 112
30 READ BYTE
40 CHECK=CHECK XOR BYTE
50 NEXT I
60 IF CHECK=242 THEN 100
70 PRINT "ONE OF THE DATA STATEMENTS MAY BE WRONG"
80 PRINT "CHECK LINES 1000-1130, THEN RUN AGAIN"
90 STOP
100 OPEN "PRINTFIX.COM" AS #1 LEN=1
110 FIELD #1,1 AS BYTE$
120 RESTORE
130 FOR I=1 TO 112
140 READ BYTE : LSET BYTE$=CHR$(BYTE) : PUT #1
150 NEXT I
160 CLOSE
170 PRINT "PRINTFIX.COM CREATED"
180 END
1000 DATA 186,112,1,184,0,0,142,216
1010 DATA 184,21,1,163,92,0,140,200
1020 DATA 163,94,0,205,39,251,30,82
1030 DATA 86,190,64,0,142,222,139,242
1040 DATA 209,230,139,148,8,0,11,210
1050 DATA 116,12,10,228,116,12,254,204
1060 DATA 116,44,254,204,116,20,94,90
1070 DATA 31,207,80,238,66,236,168,128
1080 DATA 116,251,176,13,66,238,176,12
1090 DATA 238,88,80,139,148,8,0,66
1100 DATA 236,138,224,128,228,248,90,138
1110 DATA 194,128,244,72,235,216,80,131
1120 DATA 194,2,176,8,238,184,232,3
1130 DATA 72,117,253,176,12,238,235,219