Screenshot 1 Screenshot 2
2bc0 3dd0 00e0 B ... FLUG
Steuerung: ⇦ ⇨ ⇧ ⇩ X Y
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

   10 WINDOW:CLS:CLEAR
   20 WINDOW:CLS
   30 PRINT "           COCKPIT"
   40 PRINT "--------------------------------";
   50 PRINT "SIE HABEN DIE AUFGABE EIN"
   60 PRINT:PRINT "SPORTFLUGZEUG ZU STARTEN,AUF"
   70 PRINT:PRINT "UEBER 1000 m ZU STEUERN UND"
   80 PRINT:PRINT "DANN ZU LANDEN.SIE HABEN ETWA
   90 PRINT:PRINT "2 min ZEIT DAZU.
  100 PRINT "--------------------------------";:PRINT
  110 PRINT "STEUERTASTEN :":PRINT "==============":PRINT
  120 PRINT "   GAS             > X <":PRINT
  130 PRINT "   BREMSE          > Y <":PRINT
  140 PRINT "   SEITENRUDER    > <-,-> <":PRINT
  150 PRINT "   HOEHENRUDER ":PRINT
  160 PRINT "       HOCH    >CURSOR UP<":PRINT
  170 PRINT "       TIEF   >CURSOR DOWN<":PRINT
  180 PRINT:PRINT "            E N T E R"
  190 A$=INKEY$:IF A$<>CHR$(13)THEN 190
  200 GOTO 1460
  210 WINDOW 30,31,0,31:CLS
  220 PRINT "   REIFEN GEPLATZT! V=";V;" H=0";:GOTO 660
  230 WINDOW 30,31,0,31:CLS
  240 PRINT "  MOTOR UEBERDREHT V=";V;" H=";H;:PAUSE 30:GOTO 1920
  250 WINDOW 30,31,0,31:CLS
  260 PRINT "GESCHW.ZU GERING - ABSTURZ!";:GOTO 660
  270 WINDOW 30,31,0,31:CLS
  280 PRINT "ZU HOCH!MOTORSCHADEN";:PAUSE 30:GOTO 1920
  290 WINDOW 30,31,0,31:CLS
  300 PRINT "SEITLICHE ABDRIFT IN BODENNAEHE!";:GOTO 660
  310 WINDOW 30,31,0,31:CLS
  320 PRINT "KURVE ZU STEIL GEFLOGEN!-ABSTURZ";:PAUSE 30:GOTO 1920
  330 WINDOW 30,31,0,31:CLS
  340 PRINT "DIE START/LANDEBAHN IST ZUENDE!";:GOTO 660
  350 WINDOW 30,31,0,31:CLS
  360 PRINT "MASCHINE IN DEN DRECK GEBOHRT!";:GOTO 660
  370 WINDOW 30,31,0,31:CLS
  380 PRINT "     MOTOR STEHT, ABSPRUNG!";:PAUSE 30:GOTO 1920
  390 PRINT AT(27,9);" ":PRINT AT(28,9);" ":PRINT AT(29,9);" "
  400 V=V+30:IF H=0 AND V>=240 THEN 210
  410 IF H>25 AND V>350 THEN 230
  420 RETURN
  430!
  440 PRINT AT(27,9);" ":PRINT AT(28,9);" ":PRINT AT(29,9);" "
  450 V=V-30:IF V<120 AND H>0 THEN 250
  460 IF V>120 THEN H=H-10
  470 RETURN
  480!
  490!
  500 B=B-1
  510 RETURN
  520!
  530!
  540 B=B+1
  550 RETURN
  560!
  570 IF V>=120 THEN 580:ELSE RETURN
  580 H=H+10:IF V>220 THEN H=H+20:IF V>250 THEN H=H+40
  590 IF H>2000 THEN 270
  600 RETURN
  610!
  620!
  630 IF H>=1 THEN 640:ELSE RETURN
  640 H=H-10:IF V>220 THEN H=H-20:IF V>250 THEN H=H-40
  650 RETURN
  660!
  670!
  680!
  690!
  700!
  710!
  720!
  730!
  740 PRINT AT(15,7);"FLUGZEUG ZERSTOERT!"
  750 PAUSE 100:RUN
  760!
  770!
  780 D=INT(3*RND(1))-1
  790 B=B-D
  800 PRINT AT(26,13);"":PRINT AT(25,13);"":PRINT AT(24,13);""
  810 IF B<13 THEN PRINT AT(25,13);"<-"
  820 IF B>17 THEN PRINT AT(25,16);"->"
  830 IF B<10 AND H<15 OR B>20 AND H<15 THEN 290
  840 IF H>10 THEN 850:ELSE RETURN
  850 C$="":PRINT AT(21,12);C$:PRINT AT(22,12);C$:PRINT AT(23,12);C$  
  860 IF D=0 THEN PRINT AT(22,13);"-----"
  870 IF D=-1 THEN H=H+5:PRINT AT(21,13);"-----"
  880 IF D=1 THEN H=H-5:PRINT AT(23,13);"-----"
  890 IF B>=12 AND B<=18 THEN PRINT AT(21,B);"":PRINT AT(23,B);""
  900 IF B<10 AND H>10 OR B>20 AND H>10 THEN 310
  910 RETURN
  920!
  930!
  940 GOSUB 1380
  950 FOR I=0 TO 3
  960 PRINT AT(13+I,B);""
  970 PRINT AT(13+I,B);" "
  980 NEXT
  990 GOSUB 760
 1000 RETURN
 1010!
 1020!
 1030 IF H<=10 THEN GOSUB 920:ELSE GOSUB 1240
 1040 A$=INKEY$
 1050 IF A$="X"THEN PRINT AT(27,9);"+":GOSUB 390
 1060 IF A$="Z"THEN PRINT AT(29,9);"-":GOSUB 430
 1070 IF A$=","THEN GOSUB 480
 1080 IF A$="/"THEN GOSUB 520
 1090 IF A$="."THEN GOSUB 560
 1100 IF A$=" "THEN GOSUB 610
 1110 REM CALL*FC8F bzw. E7 04 beim 2.02 aufrufen.Beim A.2 ist das A-Register 
 1120 REM in einer RAM-Zelle dem Basic-Programm zu uebergeben
 1130 S=S+1:PRINT AT(4,8);"ZEIT ",S," sec"
 1140 IF S>240 THEN PRINT AT(31,0);"BENZIN WIRD KNAPP,LANDEN!"
 1150 IF S>256 THEN WINDOW 30,31,0,31:CLS
 1160 IF S>350 THEN 370
 1170 L=L-V/3.6
 1180 L=INT(L):IF H<15 THEN PRINT AT(2,23);L
 1190 IF L<0 THEN 330
 1200 PRINT AT(27,23);H:IF H>HM THEN HM=H 
 1210 IF H<0 AND V>1 THEN 350
 1220 PRINT AT(29,20);V
 1230 GOTO 1010
 1240!
 1250!
 1260!RUN
 1270!
 1280 PRINT AT(13,1);"                         "
 1290 PRINT AT(14,1);"                       "
 1300 PRINT AT(15,1);"                       "
 1310 PRINT AT(16,1);"                       "
 1320 PRINT AT(17,1);"                       "
 1330!
 1340!
 1350 L=1000
 1360 GOSUB 760
 1370 RETURN
 1380!
 1390 PRINT AT(13,1);"_________________________"
 1400 PRINT AT(14,1);"                       "
 1410 PRINT AT(15,1);"                       "
 1420 PRINT AT(16,1);"                       "
 1430 PRINT AT(17,1);"                       "
 1440 IF V=0 AND H=0 AND L>1 THEN 1880
 1450 RETURN
 1460 WINDOW:CLS
 1470!
 1480!
 1490!
 1500 PRINT AT(2,0);"START/LANDEBAHN-LAENGE      m"
 1510 PRINT AT(5,0);"                           "
 1520 PRINT AT(6,1);"                         " 
 1530 PRINT AT(7,2);"                       "
 1540 PRINT AT(8,3);"                     "
 1550 PRINT AT(9,4);""
 1560 PRINT AT(10,4);"                   "
 1570 PRINT AT(11,3);"                     "
 1580 PRINT AT(12,2);"                       "
 1590!
 1600 PRINT AT(18,1);"        "
 1610 PRINT AT(19,1);"                 "
 1620 PRINT AT(20,4);"                   "
 1630 PRINT AT(21,3);"":PRINT AT(21,26);""
 1640 PRINT AT(22,2);"":PRINT AT(22,27);""
 1650 PRINT AT(23,1);"":PRINT AT(23,28);""
 1660 PRINT AT(24,0);"":PRINT AT(24,29);""
 1680 PRINT AT(13,1);"                         "
 1690 PRINT AT(14,1);"                       "
 1700 PRINT AT(15,1);"                       "
 1710 PRINT AT(16,1);"                       "
 1720 PRINT AT(17,1);"                       "
 1730 PRINT AT(18,1);"":PRINT AT(18,29);""
 1740!
 1750!
 1760!
 1770 PRINT AT(27,18);"HOEHE      m"
 1780 PRINT AT(29,18);"V     Km/h"
 1790!
 1800!
 1810 S=0:L=1000:V=30
 1820 PRINT AT(2,23);L
 1830 PRINT AT(4,8);"ZEIT ",S," sec"
 1840!
 1850 B=15
 1860 B$=INKEY$:IF B$<>"X"THEN 1860
 1870 GOTO 1010
 1880!
 1890!
 1900!
 1910 IF HM<1000 THEN 1940:ELSE PRINT AT(15,8);"GUT GELANDET !!!"
 1920 PAUSE 40:RUN
 1930!
 1940 WINDOW:CLS
 1950 PRINT "AUFGABE NICHT ERFUELLT !!!":GOTO 1920