start tok64 d64-VjCxta
10 REM ***    print pos(r,k)    ***
20 REM ***                      ***
30 REM *** (c) 1989 k brunzell  ***
40 REM
100 adr=49152:REM kan [ndras vid behov
110 x=adr:FORn=1000TO1060STEP10
120 sum=0:FORi=1TO16
130 READb:IFb=-1THEN160
140 POKEx,b:sum=sum+b:x=x+1
150 NEXTi
160 READk:IFk<>sumTHENPRINT"{clear}fel i rad"n:END
170 NEXTn
180 x=adr+46:POKEadr+30,x-256*INT(x/256):POKEadr+35,INT(x/256)
190 PRINT"{clear}{down*2}init=sys"adr:PRINT"{down*2}{right}sys pd 1991
200 PRINT"{down*2}{right}print pos(r,k) -positionerar mark{pound}ren":END
1000 DATA160,0,169,160,132,251,133,252,177,251,145,251,230,251,208,248,3018
1010 DATA230,252,165,252,201,192,208,240,169,76,141,168,170,169,46,141,2820
1020 DATA169,170,169,192,141,170,170,165,1,41,254,133,1,96,201,185,2258
1030 DATA208,46,32,115,0,32,250,174,32,158,183,224,25,176,28,134,1817
1040 DATA251,32,253,174,32,158,183,224,40,176,16,134,252,32,247,174,2378
1050 DATA166,251,164,252,24,32,240,255,76,157,170,162,14,108,0,3,2074
1060 DATA201,166,24,76,171,170,-1,808
stop tok64
(bastext 1.0)