start tok64 d64-HX6dTU
10 v=53248
15 INPUT"{clear}{white}{ct n}F[rg 1 (individuell)";c1
20 INPUT"F[rg 2 (multicolour 1)";c2
25 INPUT"F[rg 3 (multicolour 2)";c3
30 INPUT"Bakgrunds-f[rg";c4:POKE53280,c4:POKE53281,c4
35 POKEv+37,c2:POKEv+38,c3:POKEv+21,15:POKEv+16,15:POKEv+28,15
40 POKEv+23,10:POKEv+29,12
45 FORi=0TO3:POKEv+39+i,c1:POKEv+1*2,38:POKEv+i*2+1,50+i*50
50 POKE2040+i,13:NEXT
55 GOSUB300
60 x=1:y=1:p=0:ac=c1:a=46:c=1:su=0
100 j=PEEK(56320):GETa$
105 IFa$="{down}" OR (jAND2)=0THENIFy<21THENy=y+1
110 IFa$="{up}" OR (jAND1)=0THENIFy>1THEN y=y-1
115 IFa$="{right}" OR (jAND8)=0THENIFx<23THENx=x+2
120 IFa$="{left}" OR (jAND4)=0THENIFx>1THEN x=x-2
125 IFa$="1" THENac=c1:su=0
130 IFa$="2" THENac=c2:su=0
135 IFa$="3" THENac=c3:su=0
140 IFa$="{arrow left}" THENac=PEEK(646):su=1
145 IFa$=" " OR (jAND16)=0THENa=160:c=ac:IFsu THEN a=46
150 POKE1024+p,a:POKE 1025+p,a:POKE55296+p,c:POKE55297+p,c
155 IFa$="{f1}" THENGOSUB200
160 IFa$="{clear}" THENGOSUB300
165 IFa$="{f2}" THENGOSUB500
170 p=(y-1)*40+x-1:a=PEEK(1024+p):c=PEEK(55296+p)AND15
175 POKE1024+p,42:POKE1025+p,42:POKE55296+p,ac:POKE55297+p,ac
180 GOTO100
200 x1=x:y1=y
210 FORy=1TO21:FORx=1TO24 STEP8:GOSUB400:NEXT:NEXT
220 x=x1:y=y1:RETURN
300 POKE646,1+(c4=1)
310 PRINT "{clear}";:FORi=1TO21:PRINT"{.*24}":NEXT
320 FORi=0TO62:POKE832+i,0:NEXT:RETURN
390 RETURN
400 ad=832+INT((x-1)/8)+(y-1)*3:bi=8-x+INT((3-1)/8)*8
410 va=0:FORi=1 TO 8 STEP 2
420 aq=55296+(y-1)*40+INT((x-1)/8)*8+i:po=-(PEEK(aq)AND15)*(PEEK(aq-54272)=160)
430 bm=0:IF po=c1 THEN bm=2
440 IFpo=c2 THEN bm=1
450 IFpo=c3 THEN bm=3
460 va=va+2^(7-i)*bm:NEXT
470 POKEad,va:RETURN
500 PRINT"{ct g}";:POKE v+21,0:FORy=0TO20:PRINT"{right*24}";
510 FORx=0TO2:PRINTPEEK(832+y*3+x);:NEXT:PRINT:NEXT
520 PRINT"{down}Tryck en tangent f{pound}r att forts[tta.":POKE198,0:WAIT198,1
530 PRINT"{ct g}";:FORy=1 TO21:PRINT"{right*24}{space*14}":NEXT
540 POKEv+21,15:x=1:y=1:PRINT"{down}{space*35}":RETURN
stop tok64
(bastext 1.0)