1 ! Bilspel II   av Magnus <8042>  Maj 1991
2 ! z(v{nster) x(h|ger)
10 INTEGER : EXTEND 
20 POKE 56000,62,23,187,250,229,218,1,80,0,6,8,33,0,120,203,57
30 POKE 56016,48,1,25,203,35,203,18,16,245,205,233,218,22,0,25,126
40 POKE 56032,33,0,0,111,201,33,0,0,201,58,238,218,95,201,0
90 Bx=40 : By=15 : T=-20
100 FGCTL WHT : FGPOINT 0,0,0 : FGFILL 511,239 : ; CHR$(12)
110 ATTRIBUTE 1
130 POKE 55000,33,127,127,17,207,127,126,18,43,27,62,255,189,194,222,214
140 POKE 55016,62,119,188,194,222,214,33,0,120,6,0,62,32,119,35,4
150 POKE 55032,62,79,184,194,243,214,201
160 REM Startadress =  55000 
170 A=0 : Vx=30
180 FGCTL BLK : OUT 7,3
190 Z=CALL(55000)
195 GOSUB 500
200 GOSUB 330
210 GOSUB 230
215 GOSUB 570
220 GOTO 180
230 IF A=0 THEN 290
240 IF A=2 THEN 270
250 IF A=3 THEN 280
260 ; CUR(0,X);GGRN;CHR$(122);"";CHR$(117) : A=2 : GOTO 320
270 ; CUR(0,X+1);GGRN;CHR$(122);"";CHR$(117) : A=3 : GOTO 320
280 ; CUR(0,X+2);GGRN;"" : A=0 : GOTO 320
290 X=INT(RND*45) : IF X>(Vx-5) THEN X=X+30
300 ; CUR(0,X+2);GRED;""
310 A=1
320 RETURN 
330 V=INT(RND*3) : IF V=0 THEN Vx=Vx+1 : IF Vx>60 THEN Vx=60
340 IF V=2 THEN Vx=Vx-1 : IF Vx<1 THEN Vx=1
350 ; CUR(0,Vx);WHT NWBG GBLK;"  " BLBG;" "
360 RETURN 
500 IF SYS(5)=0 THEN 530
505 GET A$
510 IF A$="z" THEN Bx=Bx-1 : IF Bx<1 THEN Bx=1
520 IF A$="x" THEN Bx=Bx+1 : IF Bx>79 THEN Bx=79
530 POKE 56046,Bx : Z=CALL(56000,By-1)
535 IF Z<>32 THEN 600
550 ; CUR(By,Bx);GRED;""
560 RETURN 
570 ; CUR(By,Bx);WHT NWBG GBLK ""
575 T=T+1 : IF T=30 THEN T=1 : By=By-1 : IF By<2 THEN By=2
580 RETURN 
600 IF Z=159 THEN 550