10 REM 
20 REM  AERODROME 
30 REM  By        
40 REM  Patrik    
45 REM <<ZAPHOD>> 
50 REM  Stahl     
60 REM 
61 REM 0o0o0o0o0o0o0o0o0o0o0o0o0
62 REM o Software Lunatics     o
63 REM 0 Domarringen 27        0
64 REM o 24500 Staffanstorp    o
65 REM 0                       0
66 REM o         (skriv g{rna) o
67 REM 0o0o0o0o0o0o0o0o0o0o0o0o0
70 REM -->SAVE THE<--
80 REM -->BEAVERS<--
90 REM *  Sorry,     *
100 REM *   no list...*
110 REM 
120 REM  INFORMATIONPAGES            
130 REM ......INTRODUCTION PAGE 2......
140 IF PEEK(472%)=80% ; INP(4%)
150 ; CHR$(12%)
160 ; CUR(1%,10%)'   AERODROME   '
170 ; CUR(2%,9%)'   *$*$*$*$*$*   '
180 ; CUR(4%,5%)'This flight-simulator will'
190 ; CUR(5%,5%)'turn your computer to a re-'
200 ; CUR(6%,5%)'motecontrol, with which you'
210 ; CUR(7%,5%)'are supposed to land an air-'
220 ; CUR(8%,5%)'craft on the G.B aerodrome'
230 ; CUR(9%,5%)'without smashing into the'
240 ; CUR(10%,5%)'airterminals...'
270 ; CUR(14%,5%)'Press <RETURN> for more'
280 ; CUR(15%,5%)'information.'
290 IF INP(56%)=141% 310 ELSE 290
300 REM ......INTRODUCTION PAGE 3......
310 ; CHR$(12%)
320 ; CUR(1%,10%)'STEERING-INFORMATION'
330 ; CUR(2%,9%)'*$$$$$$$$$$$$$$$$$$$$*'
340 ; CUR(4%,5%)'These are the steeringbuttons:'
350 ; CUR(9%,5%)'P - up'
360 ; CUR(7%,5%)'L - down'
370 ; CUR(8%,5%)'A - accellerate'
380 ; CUR(6%,5%)'S - wing flaps (brakes)'
390 ; CUR(12%,5%)'You only got 1000 l fuel.'
400 ; CUR(14%,5%)'Press <RETURN> for more.'
410 FOR F%=1% TO 1200% : NEXT F%
420 IF INP(56%)=141% 430 ELSE 420
430 ; CHR$(12%)
440 ; CUR(1%,13%)'MISSION'
450 ; CUR(2%,12%)'*$*$*$*$*'
460 ; CUR(4%,5%)'1 - land the aircraft'
470 ; CUR(5%,5%)'2 - take off and fly'
480 ; CUR(6%,5%)'    to the top of the'
490 ; CUR(7%,5%)'    sky.'
500 ; CUR(8%,5%)"3 - don't fly into a blimp"
510 ; CUR(10%,5%)'Press <RETURN> to start game.'
520 FOR F%=1% TO 1200% : NEXT F%
530 IF INP(56%)=141% 580 ELSE 530
540 REM  END OF INFORMATIONPAGES     
550 REM 
560 REM  PREPARE BACKSCREEN          
570 REM ......GRAPHIC MODE......
580 ; CHR$(12%)
590 FOR A%=0% TO 23%
600 ; CUR(A%,0%)CHR$(151%)
610 NEXT A%
620 REM ......READ AND PRINT SCREEN....
630 FOR A%=0% TO 22%
640 READ A$ : ; CUR(A%,1%)A$
650 OUT 6%,0% : OUT 6%,249%
660 NEXT A%
670 OUT 6%,0%
680 GOTO 3200
690 REM  END OF PREPARE BACKSCREEN   
700 REM 
710 REM  SCREENDATA                  
720 REM ......BACKSCREEN......
730 DATA "7#k########################7#########k"
740 DATA "5Sj                        5         j"
750 DATA "5Oj                        5         j"
760 DATA "5Fj                        5         j"
770 DATA "5Tj                        5         j"
780 DATA "5Wj                        5         j"
790 DATA "5Aj                        5         j"
800 DATA "5Rj                        5         j"
810 DATA "5Ej                        5         j"
820 DATA "5 j                        5         j"
830 DATA "5Lj                        5         j"
840 DATA "5Uj                        5         j"
850 DATA "5Nj                        5         j"
860 DATA "5Aj                        5         j"
870 DATA "5Tj                        5         j"
880 DATA "5Ij                        5         j"
890 DATA "5Cj                        5         j"
900 DATA "5Sj                        5         j"
910 DATA "upzupppppppppz"
920 DATA "5     FLIGHTCOMPUTER       j         j"
930 DATA "5                          j         j"
940 DATA "5                          j         j"
950 DATA "uppppppppppppppppppppppppppzpppppppppz"
960 REM 
970 REM  FRONTSCREEN-SUBROUTINES     
980 FOR A%=13% TO 17%
990 READ A$ : ; CUR(A%,4%)A$
1000 OUT 6%,0% : OUT 6%,787%
1010 NEXT A%
1020 ; CUR(1%,29%);CHR$(135%)'Fuel:'CHR$(151%)
1030 ; CUR(4%,29%);CHR$(135%)'Score:'CHR$(151%)
1040 ; CUR(7%,29%);CHR$(135%)'km/h:'CHR$(151%)
1050 ; CUR(20%,30%);CHR$(135%)'Zaphod'CHR$(151%)
1060 ; CUR(21%,30%);CHR$(135%)' -85 'CHR$(151%)
1070 ; CUR(10%,29%)CHR$(135%)'Level:'CHR$(151%)
1080 ; CUR(20%,2%)'                          ' : ; CUR(21%,2%)'                          '
1090 OUT 6%,0%
1100 RETURN 
1110 REM  END OF FRONTSCREEN-SUBROUT. 
1120 REM 
1130 REM  FRONTSCREENDATA             
1140 REM ......SCREEN 1......
1150 DATA "                        "
1160 DATA "                        "
1170 DATA "  `p                    "
1180 DATA '  "7                h'
1190 DATA "########################"
1200 REM ......SCREEN 2......
1210 DATA ""
1220 DATA ""
1230 DATA "   0              0"
1240 DATA "   5540        0455     "
1250 DATA "}||||||||"
1260 REM ......SCREEN 3......
1270 DATA " =,,,,,,n  f9 f9 f9 f9  "
1280 DATA " =,LAND,n"
1290 DATA " =,HERE,n               "
1300 DATA " =,,,,,,n               "
1310 DATA " =,,,,,,n 5j5j5j5j5j5j5j"
1320 REM ......SCREEN 4......
1330 DATA "                        "
1340 DATA "                        "
1350 DATA "         p|<,           "
1360 DATA "       x?'!             "
1370 DATA "7#######           #####"
1380 REM ......SCREEN 5......
1390 DATA "                        "
1400 DATA "                        "
1410 DATA "    zp   `0          5  "
1420 DATA "  x.//-t($         5  "
1430 DATA "  5*%j5j j5          5  "
1440 REM ......SCREEN 6......
1450 DATA "                        "
1460 DATA "         h              "
1470 DATA "         j              "
1480 DATA "      x|}|t     0h 5 "
1490 DATA "  x5 ssssssssss jt 5j 5 "
1500 REM ......SCREEN 7......
1510 DATA "               xt       "
1520 DATA "               *5       "
1530 DATA "        hp    ,,5`0     "
1540 DATA " dppppppssqpx <,-.      "
1550 DATA "pprqxuppppppppp"
1560 REM ......SCREEN 8......
1570 DATA "######o###{'########' ##"
1580 DATA "  `    #,&    `,&d0     "
1590 DATA "pvqypppppppppvqppprtp pp"
1600 DATA "   j    5      )&      %"
1610 DATA " j    5  `,#d     ####  "
1620 REM ......SCREEN 9......
1630 DATA "                        "
1640 DATA "                        "
1650 DATA "                        "
1660 DATA "  hppppppppppppppp4     "
1670 DATA "  j   VERY GOOD   5     "
1680 REM  END OF FRONTDATA           
1690 REM 
1700 REM  SKY-FIXING-SUBROUTINE      
1710 FOR A%=9% TO 54% STEP 3%
1720 A1%=INT(RND*35%+3%)
1730 SETDOT A1%,A%
1740 OUT 6%,0% : OUT 6%,17%
1750 FOR F%=1% TO 20% : NEXT F%
1760 NEXT A%
1770 OUT 6%,0%
1780 RETURN 
1790 REM  END OF SKY-FIXING-SUBROUT. 
1800 REM 
1810 REM  STYRSUBRUTIN               
1820 IF H%=818% 1840
1830 IF INP(56%)=193% G%=G%-40%
1840 IF INP(56%)=211% G%=G%+20%
1850 IF INP(56%)=204% 1950
1860 IF INP(56%)=208% 1990
1870 CLRDOT R1%,R2% : R2%=R2%-1%
1880 IF Z3%=1% R1%=R1%+2%
1890 IF R2%<8% R2%=55%
1900 OUT 6%,0% : OUT 6%,575%
1910 IF DOT(R1%,R2%) 2110 ELSE SETDOT R1%,R2%
1920 FOR F%=1% TO G% : NEXT F%
1930 RETURN 
1940 REM ......NER......
1950 CLRDOT R1%,R2% : R1%=R1%+1%
1960 IF DOT(R1%,R2%) 2110 ELSE SETDOT R1%,R2%
1970 GOTO 1870
1980 REM ......UPP......
1990 CLRDOT R1%,R2% : R1%=R1%-1%
2000 IF DOT(R1%,R2%) 2110 ELSE SETDOT R1%,R2%
2010 GOTO 1870
2020 REM  SLUT P] STYRSUBRUTIN       
2030 REM 
2040 REM  KOLLA OM MAN D\R ELLER KAN 
2050 IF P%=200% ; CUR(20%,2%)'FUEL TANKS ARE            ' : ; CUR(21%,2%)'ALMOST EMPETY             '
2060 IF P%=0% ; CUR(20%,2%)'NO FUEL$$$$               ' : ; CUR(21%,2%)'                          ' : Z3%=1%
2070 IF R1%<B% AND G%>300% 2080 ELSE 2090
2080 ; CUR(20%,2%)'TO SLOW$ YOUR AIRCRAFT    ' : ; CUR(21%,2%)'STALLS AND CRASHES       ' : GOTO 2110
2090 RETURN 
2100 REM ......D\D......
2110 FOR A%=1% TO 100%
2120 Z3%=0%
2130 OUT 6%,0% : OUT 6%,137% : OUT 6%,787%
2140 FOR F%=1% TO 50% : NEXT F%
2150 NEXT A%
2160 CLRDOT R1%,R2% : OUT 6%,137%
2170 REM ; CHR$(12%)
2180 ; CUR(8%,7%)CHR$(135%)'You scored 'S%'p'CHR$(151%)
2190 REM ...NOLLST[LLNING AV VARIABLER
2200 B%=0% : RESTORE : G%=0% : H%=0%
2210 L%=0% : P%=0% : R1%=0% : R2%=0%
2220 S%=0% : Z1%=0% : Z2%=0%
2230 ; CUR(20%,2%)CHR$(135%)'Press <RETURN> for      'CHR$(151%)
2240 ; CUR(21%,2%)CHR$(135%)'a new flight.          'CHR$(151%)
2241 IF INP(56%)=141% 2250 ELSE 2241
2250 GOTO 580
2260 REM  SLUT P] D\D-CHECK          
2270 REM 
2280 REM  SCREEN-INFORMATION         
2290 REM .....SCREEN 1.....
2300 R1%=1% : R2%=55%
2310 P%=1000% : G%=100% : S%=S%+10%
2320 C1%=50% : C2%=47%
2330 B%=50% : Z1%=0% : Z2%=0%
2340 RETURN 
2350 REM .....SCREEN 2.....
2360 R1%=1% : R2%=55%
2370 P%=1000% : G%=100% : S%=S%+15%
2380 C1%=51% : C2%=37%
2390 B%=51% : Z1%=0% : Z2%=0%
2400 RETURN 
2410 REM .....SCREEN 3.....
2420 R1%=1% : R2%=55%
2430 P%=1000% : G%=100% : S%=S%+20%
2440 C1%=39% : C2%=24%
2450 B%=39% : Z1%=0% : Z2%=0%
2460 RETURN 
2470 REM .....SCREEN 4.....
2480 R1%=1% : R2%=55%
2490 P%=1000% : G%=100% : S%=S%+25%
2500 C1%=53% : C2%=49%
2510 B%=53% : Z1%=0% : Z2%=0%
2520 RETURN 
2530 REM .....SCREEN 5.....
2540 R1%=1% : R2%=55%
2550 P%=1000% : G%=100% : S%=S%+30%
2560 C1%=53% : C2%=49%
2570 B%=53% : Z1%=0% : Z2%=0%
2580 RETURN 
2590 REM .....SCREEN 6.....
2600 R1%=1% : R2%=55%
2610 P%=1000% : G%=100% : S%=S%+35%
2620 C1%=52% : C2%=37%
2630 B%=52% : Z1%=0% : Z2%=0%
2640 RETURN 
2650 REM .....SCREEN 7.....
2660 R1%=1% : R2%=55%
2670 P%=1000% : G%=100% : S%=S%+40%
2680 C1%=49% : C2%=32%
2690 B%=49% : Z1%=0% : Z2%=0%
2700 RETURN 
2710 REM .....SCREEN 8.....
2720 R1%=1% : R2%=55%
2730 P%=1000% : G%=100% : S%=S%+45%
2740 C1%=53% : C2%=55%
2750 B%=53% : Z1%=0% : Z2%=0%
2760 RETURN 
2770 REM .....SCREEN 9.....
2780 R1%=1% : R2%=55%
2790 P%=900% : G%=150% : S%=S%+115%
2800 C1%=49% : C2%=43%
2810 B%=49% : Z1%=0% : Z2%=0%
2820 RETURN 
2830 REM 
2840 REM  LANDNINGSCHECK             
2850 IF Z1%=1% 2860 ELSE 2900
2860 IF R1%<B% AND G%>300% 2870 ELSE RETURN 
2870 ; CUR(20%,2%)'NOT ENOUGH SPEED$$$       '
2880 ; CUR(21%,2%)'YOU CRASH$$$$$            '
2890 GOTO 2110
2900 IF B%=R1% AND G%>450% 2910 ELSE 2990
2910 ; CUR(20%,2%)'MY CONGRATULATIONS CAPTAIN' : ; CUR(21%,2%)'A BRILLIANT LANDING       '
2920 ; CUR(8%,29%);CHR$(135%)' 0 'CHR$(151%)
2930 FOR F%=1% TO 20000% : NEXT F%
2940 ; CUR(20%,2%)'NOW YOU HAVE TO MAKE A    ' : ; CUR(21%,2%)'TAKE OFF FROM THE GROUND'
2950 FOR F%=1% TO 20000% : NEXT F%
2960 CLRDOT R1%,R2% : R1%=C1% : R2%=C2%
2970 G%=555%
2980 Z1%=1%
2990 RETURN 
3000 REM  END OF LAND-CHECK          
3010 REM 
3020 REM  START-CHECK-SUBRUTIN       
3030 IF Z1%=1% AND R1%=1% 3040 ELSE RETURN 
3040 ; CUR(20%,2%)'VERY NICE$$ YOU HAVE      ' : ; CUR(21%,2%)'COMPLETED THE FLIGHT      '
3050 Z2%=1%
3060 FOR A%=1% TO 12%
3070 ; CUR(A%,4%)'                        '
3080 NEXT A%
3090 FOR F%=1% TO 10000% : NEXT F%
3100 CLRDOT R1%,R2%
3110 RETURN 
3120 REM  END OF START-CHECK         
3130 REM 
3140 REM  COMPUTERINFO-SUBROUTINE    
3150 H%=0%-G%+555%
3160 IF H%>818% H%=818%
3170 IF H%<100% H%=100%
3180 ; CUR(8%,29%);CHR$(135%)H%;CHR$(151%)
3190 RETURN 
3200 REM 
3210 REM  GAME STARTS                
3220 L%=L%+1% : ; CUR(11%,29%);CHR$(135%)L%CHR$(151%)
3230 IF L%=10% 3240 ELSE 3250
3240 L%=1% : RESTORE 1150
3250 ON L% GOSUB 2290,2360,2420,2480,2540,2590,2660,2720,2780
3260 ; CUR(5%,29%)CHR$(135%)S%CHR$(151%)
3270 REM ......GOSUBLINES TO PREPARE                   SCREEN.....
3280 GOSUB 980
3290 GOSUB 1710
3300 REM .....MAIN GAME-LOOP......
3310 REM ---GOSUB STYRSUBRUTIN---
3320 GOSUB 1820
3330 P%=P%-1% : IF P%<0% P%=0%
3340 ; CUR(2%,29%)CHR$(135%)P%CHR$(151%)
3350 GOSUB 2050
3360 GOSUB 2830
3370 GOSUB 3030
3380 GOSUB 3130
3390 IF Z2%=1% 3220
3400 GOTO 3320