10CLS :CLEAR :DIM T(2)
20RANDOMIZE
30H= PEEK &HF2
40PRINT "BIRD Adventure  HiSc:"; STR$ H
50X=-8,Y=35,A=1,G=.05,C=-.6,D=8
60GR$="2F52644850483020"
70GT$="060B0D354BBBCD06"
80GCURSOR (120,23)
90GPRINT "0080B0C83836CDCD3334C8C8B000"
100GCURSOR (120,31)
110GPRINT "CFD39C2C13F32C2CF3132CAC930F"
120GCURSOR (120,39)
130GPRINT "0103030509F10000CF4829171F07"
140GCURSOR (120,47)
150GPRINT "00E0984824C3000000478810E000"
160FOR J=0 TO 2:T(J)= RND 20+20
170GCURSOR (J*30+20,T(J)):GPRINT GT$:NEXT
180CALL 48381
185IF INKEY$ ="C" GOTO *CLR
190*MAIN
200K$= INKEY$
210IF INKEY$ ="" LET F=1
220IF K$<>"" AND F=1 AND D>0 LET B=C,F=0,D=D-1
230GCURSOR (X,Y)
240GPRINT "0000"
250X=X+A:Y=Y+B:B=B+G
260GCURSOR (X,Y)
270GPRINT GR$
280IF X>115 GOTO *FIN
290IF Y>49 GOTO *OUT
300GOTO *MAIN
310*FIN
320FOR A=0 TO 2
330FOR J=T(A)-7 TO T(A)
340FOR I=A*30+20 TO A*30+27
350S=S+ POINT (I,J)
360NEXT :NEXT :NEXT
370S=134-S- INT Y
380PRINT "Score:"; STR$ S
390IF S>H POKE &HF2,S:PRINT "New Record"
400CALL 48381:GOTO 10
410*OUT
420PRINT "Are you OK?"
430FOR J=1 TO 500:NEXT :CALL 48381:GOTO 10
440*CLR POKE &HF2,0:GOTO 10