ASCII
Program 1: VIC/64 Proofreader
both
the
100 PRINT" {CLR} PLEASE WAIT...": FORI=886TO 1018: READA:CK=CK+A:POKEI,A: NEXT
tch
ader
110 IF CK<>17539 THEN PRINT" {DOWN} YOU MAD E AN ERROR": PRINT"IN DATA STATEMENTS. ": END
ost
120 SYS886:PRINT"{CLR} {2 DOWN} PROOFREADER ACTIVATED.":NEW
y, just
886 DATA 173,036,003,201,150,208
RE. If
892 DATA ØØ1,096,141,151,003,173
INT
898 DATA Ø37,003,141,152,003,169
reader
904 DATA 150,141,036,003,169,003
64.
910 DATA 141,037,003,169,000,133
DATA 254,096,032,087,241,133 916
922 DATA 251,134,252,132,253,008
928 DATA 201,013,240,017,201,032
ot a very ut during reader E your users or
934 DATA 240,005,024,101,254,133
940 DATA 254,165,251,166,252,164
946 DATA 253,040,096,169,013,032
952 DATA 210,255,165,214,141,251
drives.
958 DATA ØØ3,206,251,003,169,000
DATA 133,216,169,019,032,210 964
DATA 970 255,169,018,032,210,255
ngs? The Dand partially since the Duffer, it is
976 DATA 169,058,032,210,255,166
982 DATA 254,169,000,133,254,172
988 DATA 151,003,192,087,208,006
DATA Ø32,205,189,076,235,003 994
1000 DATA Ø32,205,221,169,032,032
roofreader
1006 DATA 210,255,032,210,255,173
1012 DATA 251,003,133,214,076,173
The problem s supposed
1018 DATA 003
Dofreader, thout line
Program 2: Atari Proofreader
100 GRAPHICS
110 FOR I=1536 TO 1700:READ A:POKE I 120 IF CK10 Program 2: Atari Proofreader
100 GRAPHICS
110 FOR I=1536 TO 1700:READ A:POKE I ,A:CK=CK+A: NEXT I
120 IF CK<>19072 THEN ? "Error in DA TA statements. Check typing":END
130 A=USR(1536)
140 ? :? "Automatic Proofreader now activated."
150 END
1536 DATA 104,160,0,185,26,3
1542 DATA 201,69,240,7,200,200
1548 DATA 192,34,208,243,96,200
1554 DATA 169,74,153,26,3,200
1560 DATA 169,6,153,26,3,162
1566 DATA 0,189,0,228,157,74
1572 DATA 6,232,224,16,208,245
1578 DATA 169,93,141,78,6,169
1584 DATA 6,141,79,6,24,173
1590 DATA 4,228,105,1,141,95
1596 DATA 6,173,5,228,105,0
1602 DATA 141,96,6,169,0,133
1608 DATA 203,96,247,238,125,241
1614 DATA 93,6,244,241,115,241
1620 DATA 124,241,76,205,238,0
1626 DATA 0,0,0,0,32,62
1632 DATA 246,8,201,155,240,13
1638 DATA 201,32,240,7,72,24
1644 DATA 101,203,133,203,104,40 1650 DATA 96,72,152,72,138,72
1656 DATA 160,0,169,128,145,88
1662 DATA 200,192,40,208,249,165 1668 DATA 203,74,74,74,74,24
1674 DATA 105,161,160,3,145,88 1680
DATA 165,203,41,15,24,105 1686 DATA 161,200,145,88,169.0
1692 DATA 133,203,104,170,104,168
1698 DATA 104,40,96
May 1984
COMPUTE!
177
