1 'Standard lines from checksum-at-end pokes
2 'By John Girvin
3 ' 1990
4 '
10 OPENOUT"d":MEMORY
20 CLOSEOUT:MODE 1
30 LOAD"!",HIMEM+1
40 addr=&:RESTORE
50 csum=0
60 READ byte$
70 IF byte$="" THEN 120
80 byte=VAL("&"+byte$)
90 POKE addr+dat,byte
100 csum=csum+byte
110 addr=addr+1:GOTO 60
120 READ check$
130 IF VAL("&"+check$)=csum THEN start.the.poke
140 MODE 1:PRINT "DdA%ta' eRR%IR0 Ni jYe";lne
150 END
