1 REM Ins{nd av Peter Stahre <4501>    1985-04-18 14.37.54
2 ! Av Petter Stahre <4501> L[S FILEN BIRD.TXT F\R INFO. Funkar p} ABC800/2/6  med 80 tkn    V E R  1.0
3 ; CHR$(12) : A=30720+440 : C=50
4 IF PEEK(A)<32 THEN GOTO 9 ELSE IF R=1 R=0 : GOTO 8
5 X$=CHR$(INP(34)) : B=SYS(8)+1 : IF B THEN 8 ELSE IF X$='1' A=A-1 ELSE IF X$='2' A=A+1
6 IF A<30720 OR A>32000 A=30720+400
7 R=1 : GOTO 4
8 C=C-.045 : POKE A,86 : P=P+1 : RANDOMIZE : ; CUR(23,INT(RND*73)+1) GWHT CHR$(8) '(##,##$' : FOR I=1 TO C : NEXT I : GOTO 4
9 ; 'Du parerade' P-18 'f}glar...'