start tok64 d64-7F1Ilf 5 REM *** cursor designer *** 6 REM *** av mikael pawlo *** 7 REM *** f{pound}r 64 in toto! *** 10 FORbymp=49152TO49185:READa 20 POKEbymp,a:ch=ch+a 30 NEXT 40 IFch<>6129THENPRINT"fel i data!":END 50 v=53248:POKE56334,PEEK(56334)AND254 60 POKE1,PEEK(1)AND251:SYS49152 70 POKE1,PEEK(1)OR4 80 POKE56334,PEEK(56334)OR1 90 POKEv+24,(PEEK(v+24)AND240)OR12 100 FORbymp=13568TO13575 101 READa$:b=0:c=0 102 FORd=8TO1STEP-1 103 c=c+1:b=b+VAL(MID$(a$,c,1))*2^(d-1) 104 NEXTd 110 POKEbymp,b:NEXTbymp 120 DATA 169,0,133,251,133,253,169,48 130 DATA 133,252,169,208,133,254,160,0 140 DATA 177,253,145,251,200,208,249 150 DATA 230,252,230,254,165,252,201,54 160 DATA 208,239,96 170 REM *** mark{pound}rens utseende *** 180 DATA 01111110 190 DATA 10000001 200 DATA 10100101 210 DATA 10000001 220 DATA 10100101 230 DATA 10011001 240 DATA 10000001 250 DATA 01111110 stop tok64 (bastext 1.0)