1 REM Ins{nd av Petter Stahre <4501>    1985-08-09 14.39.11
2 ! L{s filen BAGGE.TXT     Av Petter Stahre <4501>   Id` av G|ran Salomon
10 EXTEND : FLOAT : ; CHR$(12) : A=30720+(80*20)+14 : FOR I=A+67 TO A+65+80 : POKE I,45 : NEXT I : POKE A,33 : B=A-14 : RANDOMIZE : C%=INT(RND*50%)
20 FOR I=1 TO 500 : ; CUR(0,0) 'G|r dig redo att hoppa med SPACE!' : NEXT I 
30 ; CUR(0,0) SPACE$(80) 'Klas och den arga baggen Ulmer...'
40 FOR I%=1% TO C% : NEXT I% : RANDOMIZE : C%=INT(RND*100%) : B=B+1 : POKE B-1,32,35,35,36 : IF B=32397 POKE B,32,32,32 : B=32319
60 P=P+1 : IF PEEK(A)>33 ; 'Score:' P : GOTO 140
70 IF A=32334 THEN 120
80 IF Test=0 A=A-80 : POKE A+80,32
90 IF Test=1 A=A+80 : POKE A-80,32
100 IF PEEK(A)>33 GOTO 60
110 POKE A,33 : IF A=32094 Test=1
120 IF SYS(8)=-1 AND INP(34%)=32 AND A=32334 A=A-80 : Test=0 : POKE A+80,32 : GOTO 80
130 GOTO 40
140 IF P>499 AND P<700 ; 'Amat|r!!'
150 IF P<500 ; 'Uruselt!!'
160 IF P>699 AND P<1000 ; 'Bravo!!'
170 IF P>999 AND P<1200 ; 'Du har k|rt f|rut m{rker jag!!'
180 IF P>1199 AND P<1500 ; 'Gratulerar!!'
190 IF P>1499 AND P<1700 ; 'Fantastiskt!!'
200 IF P>1699 AND P<1900 ; 'N{stan otroligt!!'
210 IF P>1899 AND P<2100 ; 'Enast}ende!!'
220 IF P>2099 AND P<2300 ; 'Otroligt!!'
230 IF P>2299 AND P<2500 ; 'V{rldsm{stare!!'
240 IF P>2499 AND P<2700 ; 'Du {r ju b{ttre {n marsianerna!!'
250 FOR I=1 TO 3000 : NEXT I : Test=0 : P=0 : GOTO 10