1 'Standard lines from normal poke
2 'By John Girvin
3 ' 1990
4 '
10 OPENOUT"d":MEMORY
20 CLOSEOUT:MODE 1
30 LOAD"!",HIMEM+1
40 addr=&:RESTORE
50 READ byte$
60 IF byte$="" THEN start.the.poke
70 POKE addr,VAL("&"+byte$)
80 addr=addr+1:GOTO 50
