10 LET X = 15 // BIRD 20 LET Z = 4 // BIRD LAST POSITION 30 LET Y = 4 // BIRD 40 LET U = 1 // BIRD SPEED 50 LET P = 0 // BACKGROUND SCROLL POS. 60 LET K = 0 // SCORE COUNT 70 LET D = 0 80 LET T$ = "CAHAAAFAHAAACAAFAAAAAAAHAAAAAACAAHA0" 90 LET B$ = "AAAACAHAAAAADAAAGAALAAAAAHAAAOAGAAA0" 100 GOSUB 380 // SCROLL 110 GOSUB 200 // SHOW BIRD 120 GOSUB 330 // UPDATE BIRD POS. 130 GET MOUSE A ,A ,V 140 IF V = 1 THEN GOTO 170 150 WAIT 60 // no user input 160 GOTO 100 170 LET Y = Y - 3 180 IF Y < 1 THEN LET Y = 1 190 GOTO 100 200 REM SUB SHOW BIRD 210 COLOR BLACK ,BLACK 220 GET DATA X ,Y ,M$ 230 GET DATA X + 1 ,Y ,N$ 240 CURSOR X ,Z 250 PRINT " " , 260 COLOR WHITE ,GREEN 270 CURSOR X ,Y 280 IF N$ = "X" THEN GOTO 700 290 IF M$ = "X" THEN GOTO 700 300 PRINT "O>" , 310 LET Z = Y 320 RETURN 330 REM SUB UPDATE BIRD POSITION 340 LET Y = Y + U 350 IF Y < 1 THEN LET Y = 1 360 IF Y > 24 THEN LET Y = 24 370 RETURN 380 REM SUB SCROLL SCREEN 390 LET D = D + 1 400 IF D < 3 THEN RETURN 410 LET D = 0 420 COLOR BLACK ,BLACK 430 CURSOR X ,Z 440 PRINT " " ,// DEL BIRD 450 SCROLL - 1 ,0 460 COLOR ORANGE ,ORANGE 470 GETCHAR T$ ,P ,A 480 GETCHAR B$ ,P ,B 490 IF A = 48 THEN LET P = 0 500 IF A = 48 THEN GETCHAR B$ ,P ,B 510 IF A = 48 THEN GETCHAR T$ ,P ,A 520 IF A <> 65 THEN LET K = K + 1 530 IF B <> 65 THEN LET K = K + 1 540 LET P = P + 1 550 LET H = A - 65 560 IF H = 0 THEN GOTO 610 570 CURSOR 40 ,H 580 PRINT "X" , 590 LET H = H - 1 600 IF H > 0 THEN GOTO 570 610 REM LOWER WALL 620 COLOR RED ,RED 630 LET H = B - 65 640 IF H = 0 THEN RETURN 650 CURSOR 40 ,25 - H 660 PRINT "X" , 670 LET H = H - 1 680 IF H > 0 THEN GOTO 650 690 RETURN 700 REM WE HIT A WALL 710 BEEP 720 CLS RED 730 CURSOR 6 ,10 740 COLOR WHITE 750 PRINT "**** GAME OVER, SCORE " ,K ," ****" , 760 END