start tok64 d64-8sB0tj
10 REM ********************************
20 REM *         proffs-cursor        *
30 REM *                              *
40 REM * written by softice software. *
45 REM ********************************
47 REM
50 icr=56333:vic=53248:z=1024:POKE vic+24,52:POKE56576,0:POKE648,204:POKE icr,1
60 POKE1,3:FORi=0TO999:POKE52224+i,PEEK(z+i):NEXT:FORi=0TOz
70 a=vic+i:b=a+2*z:l=z*((iAND7)=7):POKEa,PEEK(a):POKEb,PEEK(b)
80 POKEa+z,PEEK(a-l):POKEb+z,PEEK(b-l):NEXT:POKE1,7:POKE icr,129
stop tok64
(bastext 1.0)