Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1 REM    D.Hartung Soft  !6@!6!6=#6= !6!6#6'⇘
      !6!6<#6<!6!6=#6= !6.i&>D.iD:2⇘
      !_~HO#~aO#~rO!b~2!b6 #6 #6 !6 #6#6 !6 #6 #6 ⇘
      !116 ! *}}90#"298! *}18+"}0⇘
      2t:0 >12:2:I:6:98!⇘
       :2:0 !(:!@,:1 c>B2 ⇘
      d>73 >,4 !5 6 7 8b>y⇘
      :02;01901:02+!TEPL>!0⇘
      ~ *5~#!26yO !x2xA`?HD⇘
      S0N!>!w#  2C2U:3!"> :!!#C:0 >2I⇘
      =2>!#wy> 22>!#wy>!#w⇘
      > !#w2y!#w#wy> 22>!w#w#w!⇘
      w#w#w!w#w#wy> !w##w!w##w!w##w>2!#w2> 2⇘
      y>22 y> 2>|2p> 2p!P>  > w~ ⇘
      y!I6>2P t*5> w>w*5~ >⇘
      2G>!"#xCw!6#6#6t!6#6#6t!6#6#6⇘
      t!6#6#6t!6#6#6t!o6#6#6t!M4! ⇘
        ? | { z =*2####"2"i⇘
      *|~ 6 >R~ (<86"⇘
      !|"2=*5!1"#"#"#"#"#"#"⇘
      #"#"#"#"#"#"#"!8"#"!6#6d###MM*26 #6 #6 #6⇘
       q*2###6d:L/*5*R(*!####"!P/*!###~⇘
      8w t!"!>wP/!~I 60!600!~I(>2C6⇘
      I!6!I6:821>02220N >⇘
      21EP?:02+>21MMMMMMMMMMMMMMMMPXw#  ⇘
       t!>w{>!RRRR⇘
      *R8$">>y!"t>2C⇘
      ?R811R0?MMMMM|*5R ⇘
      y%~*5R y%*5R⇘
       y%*5R y%*5⇘
      R y%"> !####>2CMMMM:I(>2C*⇘
      R0>2C*5"5*R">2C=>(⇘
      > !@=#⇘
      :!:bI(>2C:58:I(>02b>*R0>2CB⇘
      "*5RJ *5J !6*5R*5⇘
      !6=!I6#!x 6!X6+ !H6R*dR⇘
      0>2C>02>2">L2p!!~(>w=t!!>wt⇘
      !6 
    4 G.100
    5 PO.43,187;PO.44,237;P.#4,D,;PO.H.(EDBF),161
    7 PO.43,91;PO.44,238;P.#4,E,;PO.H.(EE5F),161
    8 PO.43,160;PO.44,238;RET.
   10 PO.43,2;PO.44,238;P.#4,H,;PO.H.(EE06),161
   25 PO.43,66;PO.44,238;P.#4,V,;PO.H.(EE46),161
   30 PO.43,160;PO.44,238;RET.
   50 IFN=1IFD>ID=D-I;E=E+I;N=100;C.H.(13F1);IFC=1PO.(-4836),73
   55 IFN=1IFD>0E=E+D;N=D;D=0
   60 IFN=1IFD>0E=D;D=0;N=0
   65 IFN=1N=0;O.12;P.;P."Schutzschirm ist leer !!"
   66 IFN#0O.12;P.;P."   Deflektoren -",#3,N;N=0
   67 C.H.(118A);X=10;GOS.5;RET.
   75 IFZ=1IFE>300D=D+300;E=E-300;Z=300
   76 IFZ=1IFE>150D=D+150;E=E-150;Z=150
   78 O.12;P.;P."   Deflektoren +",;IFZ#0P.#3,Z;Z=0
   80 IFZ=1P." unveraendert !";Z=0
   85 G.67
  100 C=H.(ED61);GOS.10000;GOS.10200;GOS.3000
  102 C.H.(1AD0);C.H.(13D0)
  104 C.H.(11B9)
  105 F.A=1TO3
  106 C.H.(1199);C.H.(11A8);N.A
  110 H=0;V=0;Z=0;K=0;P=14404
  111 Z=0;X=0;A=0;N=0;D=900
  112 W=0;C=1;F=0;J=0;I=100;M=0
  115 E=9000;S=0
  120 GOS.10;GOS.5
  190 C.H.(13F1)
  200 F.T=S*5TO46
  209 IFE>0C.H.(1334)
  210 IFW#0GOS.400
  212 IFE=0C.H.(17B1)
  213 IFN=1GOS.50
  214 IFZ=1GOS.75
  216 IFA=1IFPE.(-4784)#32C.H.(1B00);C.H.(1620);C.H.(1379)
  217 N.T
  218 IFY=1GOS.2000
  219 IFY=2TAB(4);P."Keine Verbindung moeglich !";Y=0
  220 IFZ=1GOS.75
  222 IF N=2GOS.6000
  223 IFZ=2P."Torpedos alle !!!"
  224 IFZ=4P."Raumbasis vernichtet !!"
  225 F.R=1TOS/3
  226 IFA=1IFPE.(-4784)#32C.H.(1B00);C.H.(1620);C.H.(1379)
  230 IFK=2P=P-60
  235 IFK=3P=P+1
  236 IFK=4P=P+62
  240 IFK=5P=P+61
  241 IFK=6P=P+60
  243 IFK=7P=P-1
  244 IFK=8P=P-62
  245 IFK=1P=P-61
  255 IFP>16265P=P-3721
  256 IFP<12544P=P+3721
  257 C.5760
  260 Q=(P-12544);V=Q/61;H=Q-V*61-30
  265 V=-1*(V-30)
  267 IFM=1E=E-10;C.H.(118A)
  268 E=E-S*3;IFE<0E=0
  269 IFE+D=0G.600
  270 GOS.10;GOS.5;Z=0
  286 IFE<300IFX=10P."    ACHTUNG Energie Aufladen !";C.H.(1199)
  290 X=X-1;IFX<0O.12;X=10;IFJ>3C.H.(13D0)
  295 IFE=0C.H.(17A0)
  296 IFE>0C.H.(1334)
  297 IFW#0GOS.400
  298 N.R
  300 C.H.(1620);G.200
  340 C.H.(13D0)
  341 O.12;P." Alarmstufe ROT   Treffer "
  342 P." Deflektoren=0  Systemcheck "
  346 F.U=1TO5;C.H.(1199);C.H.(11B9);C.H.(118A);C.H.(11A8);N.U
  348 IFJ=4G.600
  350 J=J+1;IFJ=1PO.H.(ED1C),48;A=0;C=0;PO.H.(ECDC),48
  352 PO.H.(ED60)+J,48
  353 F.U=1TO5;C.H.(117B);C.H.(1174);N.U
  354 IFPE.(-4767)#73P."Bordcomputer ",
  355 IFPE.(-4766)#73P.", Sensoren ",
  356 IFJ>2P."und";P."Energiesystem ",;M=1
  358 IFJ>3P.",Bild ",
  359 P."defekt.",
  390 IFJ<4C.H.(13F1)
  395 W=0;RET.
  400 IFW=6G.340
  420 IFW=9G.600
  500 IFW=4F=0;C.H.(1AD0)
  501 IFW=4W=0;O.12;P."  Sensoren ausgefallen !!";C.H.(1174);RET.
  502 IFW=5P. " Systemschutz  Sensoren AUS " 
  503 IFW=5W=0;F=0;C.H.(117B);C.H.(118A);C.H.(1AD0);RET.
  505 IFW=2O.12;P.;P."    Computersysteme defekt !!"
  506 IFW=2C.H.(11B9);W=0;RET.
  507 IFW=3O.12;P.;P."    Energie fuer Funktion";P.
  508 IFW=3P."     nicht ausreichend !!";W=0;C.H.(11B9);RET.
  510 C.H.(13D0)
  515 O.12  
  520 P."A C H T U N G  A C H T U N G !"
  525 X=10
  530 P."        Hypersprung !!"
  531 IFF=1W=5;GOS.502
  535 F.W=1TO10;C.H.(117B);C.H.(1199);N.W
  540 O.12;GOS.10;GOS.5;C.H.(13F1);W=0;RET.
  600 GOS.10250;PO.H.(EC20),32
  610 PO.27,0;PO.28,236;PO.29,33;PO.30,236;PO.35,0;PO.36,4
  620 F.A=1TO32;C.H.(1174);C.H.(118A)
  650 C.H.(F51D);N.A;TAB(320)
  655 IFW=9P."Bravo !! Aufgabe ist erfuellt !!"
  660 IFE+D=0P."Sie hatten keine Energie mehr !"
  670 IFJ=4P."Letzter Treffer zerstoerte Ihr  Schiff !!"
  699 P.;P."Noch einmal ?";A=INC.;IFA=74G.1
  700 STOP
 2000 Y=0
 2005 IFD>0P."    Erst Schirm ausschalten !";Y=2;RET.
 2010 C.H.(1570);C.H.(11A8)
 2025 IFE<8000E=E+1000;GOS.2100;G.2025
 2030 IFE<8900E=E+I;GOS.2100;G.2030
 2031 IFE<8990E=E+10;GOS.2100;G.2031
 2035 IFE<9000E=E+1;GOS.2100;G.2035
 2036 PO.H.(ECDE),57
 2037 PO.H.(ED1C),73
 2038 GOS.3100;J=0;M=0
 2040 C.H.(13F1);C.H.(1380);RET.
 2100 GOS.5;C.H.(118A);RET.
 3000 C=H.(ED61)
 3003 P=14404
 3006 C.H.(11B9)
 3010 C.H.(1223)
 3020 F.A=1TO92;B=RND(3721)+12544;PO.B,211;PO.C,A;N.A
 3025 C.H.(11B9)
 3030 F.A=1TO92;B=RND(3721)+12544;PO.B,223;PO.C+1,A;N.A
 3035 C.H.(11B9)
 3040 F.A=1TO10;B=RND(3721)+12544;PO.B,140
 3041 N.A 
 3050 F.A=1TO092;B=RND(3721)+12544;PO.B,213
 3052 PO.C+2,A;N.A
 3055 C.H.(11B9)
 3060 F.A=1TO092;B=RND(3721)+12544;PO.B,222
 3062 PO.C+3,A;N.A
 3065 C.H.(11B9)
 3070 F.A=1TO092;B=RND(3721)+12544;PO.B,42
 3072 PO.C+4,A;N.A
 3075 C.H.(11B9)
 3080 F.A=1TO092;B=RND(3721)+12544;PO.B,218
 3082 PO.C,A;N.A
 3085 C.H.(11B9)
 3090 C.H.(169A)
 3091 C.5760
 3095 F.A=H.(31F0)TOA+13;PO.A,131;N.A
 3096 PO.14346,131;PO.14347,131
 3097 U=INC.
 3100 F.U=H.(ED61)TOU+4;PO.U,73
 3110 C.H.(117B);C.H.(1174);N.U
 3120 O.12;P.;P."  Alle Systeme  o.k."
 3800 C=14590
 3815 PO.C,207
 3900 RET.
 5000 GOS.5050
 5020 P."   Bewegte Objekte im All   ",
 5030 GOS.5050
 5040 P."   Autochecksystem laeuft !!    "
 5050 P."",
 5090 RET.
 6000 REM
 6010 P."A=Autom.-Laser I/0 L=Laserschuss",
 6020 P."D=Deflektoren +    S=Sensor I/O"
 6030 P."N=Deflektoren -    T=Torpedo"
 6040 P."H=Hypersprung      E=Energie   ",
 6050 X=20
 6100 PO.H.(EF1F),32;N=0;RET.
 9999 STOP
10000 GOS.10250
10005 O.12;P.
10010 P."",
10015 P."812Enterprise 87Bord",
10020 P."   ",
10025 P."7  3=Raumbasis  K0S0",
10030 P."   =Klingone   ",
10035 P."654?=Hinweise   A0T9",
10040 P."1-8 Schub und",
10045 P."bremsen durchCIE0",
10050 P."CHECKGegenschub.  ",
10055 P."Kurswechsel  ",
10060 P."bis Schub 5  D/ME",
10065 P."um 1 moeglich",
10070 P."wenn Computer",
10075 P."P.io. Sensoren ",
10080 P."bis Schub 4. ",
10085 P."HBasis bei 0/0E/ME",
10090 P."",
10095 P."VStart bei Enter",
10096 P."",
10097 P."",
10101 GOS.6000;P.
10103 GOS.5000
10150 RET.
10200 REM FENSTER UNTEN
10210 PO.27,160;PO.28,238;PO.29,32;PO.30,239;C.H.(F6D1);RET.
10250 REM Fenster
10260 PO.27,0;PO.28,236;PO.29,0;PO.30,240;C.H.(F6D1);RET.