start tok64 d64-W1v7cx
0 REM easy-paint (c)1991 mr.p.
1 s=420:a(.)=-1:a(1)=1:a(2)=-40:a(3)=40:b=PEEK(53281)AND15:c=1+(b=1)
2 POKEs+1024,160:POKEs+55296,c:t=s
3 s=s+a(RND(.)*4):IFs<.ORs>999OR(INT(s/40)<>INT(t/40))ANDABS(s-t)<>40THENs=t:GOTO3
4 m=RND(.)*16:m=m-(INT(m)=b):POKEt+55296,m:POKEt+1024,208:GOTO2
stop tok64
(bastext 1.0)