000    L.0000 // 0000
       L.000e --
       L.001e --
       L.0048 --
       L.0060 --
       L.0078 --
       L.0088 --
       L.008b --
       L.00a3 --
       L.00bb --
       L.0101 --
       L.0102 --
       L.011b --
       L.0123 --
       L.0124 --
       L.0129 --
       L.012e --
       L.0143 --
       L.0176 --
       L.0179 --
       L.0183 --
       L.018d --
       L.0196 --
       L.01a9 --
       L.01b5 --
       L.01ee --
       L.01f4 --
       L.01fa --
       L.01fc --
       KDIS   ++ 0939           kdis.start ok
       INIBK  ++ 45d7           Slot-ini-back
       RESET  ++ 1033           RESET      ok
       CMDLIN ++ 110a           CMD.Line   ok
       ERRSTR ++ 1598           ErrStr     ok
       ERR    ++ 15b9           Err        ok
       CVBK   ++ 18cc           VfVr       ok
       L.0019 -+                cmd-zeile
       L.0037 -+                reset
       L.00d0 -+                Leiste-de
       L.00f6 -+                err
       L.00f9 -+                err
       L.00fc -+                err
       L.00ff -+                err
       L.011e -+                ErrStr
       FIP    -+
       END    -+
0000  =L.0000 GTMX              R00
0001          O.AZ L.000e
0003          IC.A
0004          IX0
0005          O.AS L.001e
0007          GTMX
0008          SL.S
0009          S.RP
000a          R.CN
000b          IX0
000c          GT.S
000d          J..
000e  =L.000e IC.A
000f          IXE
0010          GTMX
0011          TK9
0012          ST.Y
0013          SW.Y
0014          GTMYI
0017          SW.Y
0018          J..               19 dez

0019  =L.0019 /GTA CMDLIN       GOTO CMD.Line
001d          J..

001e  =L.001e ST.D
001f          SL.K
0020          TK3
0021          ST.Z
0022          GTA  04           0000.0100
0024          H..
0025          GTMX              2+6
0026          TKa
0027          SL.Y
0028          GTMY
0029          IXE
002a          TA6
002b          SL.S
002c          H..
002d          O.AS L.0123
002f          SW.Z
0030          GTMZI
0033          SW.Z
0034          ZO.Z
0035          /.J.              31/40 dez

0037  =L.0037 ST.D
0038          /GTA RESET
003c          J..

00cb  =L.0123 ZO.Y
              DX1
00cc          RS.X
00cd          IY3
00ce          O.WY L.011e

0124  =L.0124 /GTA ERR          GOTO Err
0128          J..

0129  =L.0129 /GTA CVBK         GOTO VfVr
012d          J..

004c  =L.0048 GTMY
0049          TA2
004a          DYE
004b          GTMY
004c          TKe
004d          TA4
004e          DYE
004f          STMZ
0050          DZ0
0051          GTMY
0052          TKc
0053          TA6
0054          DYE
0055          STMZ
0056          DZ0
0057          GTMY
0058          TK2
0059          STMZ
005a          DZ0
005b          DY0
005c          DKL  55           war.54
005e          TZ.B
005f          NO2
0060  =L.0060 GTMY
0061          TA2
0062          DYE
0063          GTMY
0064          TKe
0065          TA4
0066          DYE
0067          STMZ
0068          DZ0
0069          GTMY
006a          TKc
006b          TA6
006c          DYE
006d          STMZ
006e          DZ0
006f          GTMY
0070          TK2
0071          STMZ
0072          DZ0
0073          DY0
0074          DKL  55           war.54
0076          TZ.B
0077          NO2
0078  =L.0078 GTMY
0079          TA2
007a          DYE
007b          GTMY
007c          TKe
007d          TA5
007e          DYE
007f          STMZ
0080          DZ0
0081          GTMY
0082          TK3
0083          STMZ
0084          DKL  52           war.51
0086          TZ.B
0087          NO2
0088  =L.0088 GT.Q
0089          /.J.
008b  =L.008b GTA  55
008d          GTMZ
008e          DZ0
008f          TA2
0090          TKe
0091          STMY
0092          GTMZ
0093          DZ0
0094          TKc
0095          TA4
0096          DYE
0097          TA6
0098          STMY
0099          GTMZ
009a          DZ0
009b          TK6
009c          TA6
009d          DY0
009e          STMYD
00a1          DY0
00a2          NO2
00a3  =L.00a3 GTA  55
00a5          GTMZ
00a6          DZ0
00a7          TA2
00a8          TKe
00a9          STMY
00aa          GTMZ
00ab          DZ0
00ac          TKc
00ad          TA4
00ae          DYE
00af          TA6
00b0          STMY
00b1          GTMZ
00b2          DZ0
00b3          TK6
00b4          TA6
00b5          DY0
00b6          STMYD
00b9          DY0
00ba          NO2
00bb  =L.00bb GTA  49
00bd          GTMZ
00be          DZ0
00bf          TA2
00c0          TKe
00c1          STMY
00c2          GTMZ
00c3          TK5
00c4          TA5
00c5          DY0
00c6          STMYD
00c9          B.WY L.0088

00d0  =L.00d0 B.WY L.0124       ERR  Ruckkehr
00d2          B.WY L.0129       COVE Ruckkehr
00d4          B.WY L.0048       na-b8
00d6          B.WY L.008b       na-8b
00d8          B.WY L.0060       na-75
00da          B.WY L.00a3       na-57
00dc          B.WY L.0078       na-32
00de          B.WY L.00bb       na-23
00e0          O.WY L.012e       FC KD-Routine
00e2          O.WY L.012e       FD KD-Routine
00e4          O.WY L.012e       GC KD-Routine
00e6          O.WY L.012e       GD KD-Routine
00e8          O.WY L.012e       SC KD-Routine
00ea          O.WY L.012e       SD KD-Routine
00ec          O.WY L.0143       LF Linefeed
00ee          O.VZ L.01a9       FIND /RS-retn

00f0          ZO.Z
00f1          /GTA INIBK        Slot-ini-back
00f5          J..

00f6  =L.00f6 ZO.Y              err.f6
00f7          O.WY L.011b
00f9  =L.00f9 ZO.Y              err.f9
00fa          O.WY L.0102
00fc  =L.00fc ZO.Y              err.fc
00fd          O.WY L.0101
00ff  =L.00ff ZO.Y              err.ff
0100          IY0
0101  =L.0101 IY0
0102  =L.0102 IY0
0103          SW.X
0104          GTA  38
0106          ST.Z
0107          STMZ
0108          IZE
0109          GTMZ
010a          TKc
010b          AD.  04
010d          ST.X
010e          IZ0
010f          TK6
0110          GTMZ
0111          TA2
0112          TKa
0113          ST.Z
0114          IX6
0115          IZ6
0116          GT.  1e
0118          STMX
0119          IC.A
011a          STMZ
011b  =L.011b IY7
011c          ZO.X
011d          ZO.V
011e  =L.011e ZO.Z
011f          /GTA ERRSTR       GOTO ErrStr
0123          J..

003d  =FIP    GTMX              Fo-Interpreter
003e          XR.  40
0040          SL.Z
0041          GTMZ
0042          IXE
0043          H..
0044          B.AS L.0123
0046          GTA  04           0004
0048          H..
0049          TK9               0800
              ZO.S
              ZO.Y
004a          /.J.              21/40 dez

012e  =L.012e ZO.Z              kdis
012f          IZL  5e
0131          STMZD
0134          NOL  00
0136          DZ5
0137          STMZ
0138          TKc
0139          TA5
013a          DZ2
013b          STMZ
013c          /GTA KDIS
0140          J..
0141          IZ4
0142          J..

0143  =L.0143 ZO.Z              Lfeed      -7/-8
0144          IZL  40
0146          GT.S
0147          STMZD
014a          DZ0
0150          GTMZ
0154          SL.Z
0155          GTA  1d           NZ=1
0157          H..
0158          /GTA 8fc0
015c          ST.Y
015d          GTA  3f
015f          ST.S
0160          S.RP              29.dez
0161          NRMY
0162          NE.A
0163          R.IY
0164          RS.Y
0165          ST.Y
0166          GT.  80
0168          EX.Y
0169          O.VZ L.0176
016b          TZ.A
016c          NE.V
016d          GL.Z
016e          LV.  40
0170          SL.K
0171          TK6
0172          NOL  05
0174          O.WY L.0183
0176  =L.0176 O.AZ L.0179
0178          GT.Z
0179  =L.0179 DC.K
017a          TK6
017b          EX.S
017c          S.RP
017d          NOL  03
017f          R.IY
0180          ST.S
0181          GTA  40
0183  =L.0183 AD.Y
0184          ST.Z
0185          LD.S
0186          ST.S
0187          SW.Z
0188          O.RP L.018d
018a          IZ0
018b          GTMZ
018c          STMY
018d  =L.018d R.IY              56.dez
018e          SW.Z
018f          GT.Z
0190          SD.Y
0191          ST.S
0192          O.RP L.0196
0194          ZO.A
0195          STMY
0196  =L.0196 NO2
0197          R.IY
              DYL  3e           8fc0
0198          ZO.Z
0199          IZL  3f
019b          GTMZI
019e          ST.S
019f          DZ1               003f
01a0          GTA  07           NZ=4
01a6          H..
              NOL  09           ##
              GT.Q
              /.J.              96.dez

01a9  =L.01a9 ZO.Y              find
01aa          IYL  08
01ac          GTMY
01ad          SL.Y
01ae          LV.  40
01b0          SL.S
01b1          O.RP L.01b5
01b3          NOL  44
01b5  =L.01b5 R.CN
01b6          RS.Y
01b7          O.RP L.01ee
01b9          GT.S
01ba          TK4
01bb          AD.  04
01bd          ST.Y
01be          IY3
01bf          TK6
01c0          GTMY
01c1          TA2
01c2          TKa
01c3          ST.Y
01c4          IY7
01c5          DZ6
01c6          GTMY
01c7          XRMZ
01c8          TZ.A
01c9          IY0
01ca          IZ0
01cb          GTMY
01cc          XRMZ
01cd          TZ.A
01ce          IY0
01cf          IZ0
01d0          GTMY
01d1          XRMZ
01d2          TZ.A
01d3          IY0
01d4          IZ0
01d5          GTMY
01d6          XRMZ
01d7          TZ.A
01d8          IY0
01d9          IZ0
01da          GTMY
01db          XRMZ
01dc          TZ.A
01dd          IY0
01de          IZ0
01df          GTMY
01e0          XRMZ
01e1          TZ.A
01e2          IY0
01e3          IZ0
01e4          GTMY
01e5          XRMZ
01e6          TZ.A
01e7          IY0
01e8          IZ0
01e9          GTMY
01ea          XRMZ
01eb          TZ.A
01ec          O.VZ L.01f4
01ee  =L.01ee R.CN
01ef          ZO.Y
01f0          DC.S
01f1          NO2
01f2          O.WY L.01fc
01f4  =L.01f4 DY7
01f5          GT.S
01f6          O.RP L.01fa
01f8          NOL  44
01fa  =L.01fa R.CN
01fb          ST.S
01fc  =L.01fc NO1
01fd          GT.Q
01fe          /.J.
              651d651d651d651d
              651d651d651d651d
              651d651d651d651d
              651d651d651d651d
              651d651d651d651d
              651d651d651d651d
              651d651d651d651d
              651d651d651d651d
              761c761c761c761c
              761c761c761c761c
              761c761c761c761c
              761c761c761c761c
              761c761c761c761c
              761c761c761c761c
              761c761c761c761c
              761c761c761c761c
              0a1f0a1f0a1f0a1f
              0a1f0a1f0a1f0a1f
              0a1f0a1f0a1f0a1f
              0a1f0a1f0a1f0a1f
              2401240124012401
              6e22732279227f22
              85228a2290229422
              982261218e1f8e1f
              1620e81fb41fb41f
              891a401a421a7d20
              ba20ba20f420f420
              3d21382133212e21
              792172216b216421
              c921c221bb21b421
              22221b2214220d22
              251f721f491ffb1b
              d91ad91ad91ad91a
              d91ad91ad91ad91a
              d91ad91ad91ad91a
              d91ad91ad91ad91a
              d91ad91ad91ad91a
              d91ad91ad91ad91a
              d91ad91ad91ad91a
              d91ad91ad91ad91a
              fe1afe1afe1afe1a
              fe1afe1afe1afe1a
              fe1afe1afe1afe1a
              fe1afe1afe1afe1a
              fe1afe1afe1afe1a
              fe1afe1afe1afe1a
              fe1afe1afe1afe1a
              fe1afe1afe1afe1a
              5320931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
              931e931e931e931e
0400  =END    //ZO ffff
