start tok64 d64-eoUl1s
10 REM ********************************
20 REM *        easy-list             *
30 REM *                              *
40 REM * written by softice software. *
50 REM ********************************
60 REM
70 INPUT"startadress{right*2}747{left*5}";p
80 FORd=pTOp+20:READy:POKEd,y:NEXT
90 DATA 162,0,160,1,142,38,3
100 DATA140,39,3,96,201,13,208,3
110 DATA32,1,0,76,1,0:x=p+11
120 POKEp+3,INT(x/256):POKEp+1,x-(PEEK(p+3)*256):l=PEEK(806):h=PEEK(807)
130 POKEp+16,(l):POKEp+17,(h):POKEp+19,(l):POKEp+20,(h):SYSp:LIST
stop tok64
(bastext 1.0)