1 REM Ins{nd av Petter Stahre <4501>    1985-10-05 11.46.55
2 ! BIRD2... Av Petter Stahre <4501> OBS: Instruktioner p} rad 4,5,6                OBS: Ver 2.0, Fungerar p} alla 800:or med 80 tkns sk{rm
3 ! OBS: Annorlunda scrollning!!!!
4 EXTEND : INTEGER : ; CHR$(12) CUR(11,0) STRING$(80,45) : ; 'Po{ng: '
5 ; : ; '                                   B I R D'
6 ; : ; '                       Ver 2.0, Av Petter Stahre <4501>'
7 ; : ; 'Styr med "1" och "2", parera alla f}glar... du f}r 1 po{ng f|r varje parerad    f}gel!'
8 A=30720+(10*80)+37 : C=50
9 IF PEEK(A)<>32 THEN GOTO 16 ELSE IF R=1 R=0 : GOTO 13
10 X$=CHR$(INP(34)) : B=SYS(8)+1 : IF B THEN 13 ELSE IF X$='1' A=A-1 ELSE IF X$='2' A=A+1
11 IF A<31520 OR A>31599 A=30720+(10*80)+37
12 R=1 : GOTO 9
13 C=C-.045 : POKE A,65 : P=P+1 : RANDOMIZE : Z=FNDown(0,10,SPACE$(INT(RND*74))+'_--.--_') : FOR I=1 TO C : NEXT I 
14 ; CUR(12,8); : IF (P-11)<0 ; '0' ELSE ; NUM$(P-11)
15 GOTO 9
16 POKE A,42
17 DEF FNDown(Rad1,Rad2,Text$)
18   Rad2=Rad2+1 : Tkn=80*(Rad2-Rad1)
19   POKE VAROOT(S$),Tkn,SWAP%(Tkn),30720+(Rad1*80),SWAP%(30720+(Rad1*80)),Tkn,SWAP%(Tkn)
20   Sk{rm$=MID$(S$,1,Tkn-80) : ; CUR(Rad1+1,0) Sk{rm$ CUR(Rad1,0) Text$ SPACE$(80-LEN(Text$));
21   RETURN 0
22 FNEND