000    L.3b6e //   3b58
       L.3b8a --
       L.3ba0 --
       L.3bcb --
       L.3bd8 --
       L.3bed --
       L.3bfe --
       L.3c04 --
       L.3c1a --
       L.3c20 --
       L.3c21 --
       L.3c23 --
       L.3c36 --
       L.3c39 --
       L.3c3e --
       L.3c6d --
       L.3c6f --
       L.3c79 --
       L.3c81 --
       L.3c89 --
       L.3c8b --
       L.3c97 --
       L.3ca2 --
       L.3cbc --
       L.3cc6 --
       L.3ce0 --
       L.3ce1 --
       L.3ce7 --
       L.3ce8 --
       L.3d0e --
       L.3d55 --
       L.3d68 --
       L.3d6d --
       L.40fe --
       L.4106 --
       L.410a --
       L.410f --
       L.412b --
       L.4135 --
       L.4139 --
       L.4154 --
       L.415d --
       L.4161 --
       L.416f --
       L.4175 --
       L.4176 --
       L.3dca --
       L.3df6 --
       L.3dff --
       L.3e06 --
       L.3e26 --
       E.INI  ++   1919
       EASS   -+
       END    -+
3b6e  =L.3b6e RS.X              WLC  Write.CodeLine
3b6f          /GTA L.3d55       WA
3b73          J..
              GTA  22
3b75          GTMZ
3b76          CP.V
3b77          PV.A
3b7d          AN.B
3b7e          STMY
3b7f          IY1
3b80          RS.Z
3b81          ZO.Z
3b82          IZ5               SC
3b84          GTMZI
3b87          ST.Z
3b88          IZ5
3b89          IY6
3b8a  =L.3b8a GTMZ
3b8b          TA6
3b8d          O.UZ L.3ba0       kein Label
3b8f          DZ5
3b90          GTMZI
3b93          IZ4
3b94          SD.X
3b95          O.KS L.3ba0
3b97          GTA  da
3b99          J..
3b9a          IZ3
3b9b          DY0
3b9c          GT.  21
3b9e          STMY
3b9f          IY6
3ba0  =L.3ba0 GTMZ
3ba1          TA2
3ba2          IZ6
3ba3          B.UZ L.3b8a
3ba5          SS.Z
3ba6          GTA  26
3ba8          STMYI
3bab          IY0
3bac          STMY
3bad          GTMZ
3bae          AN.  18
3bb0          O.AS L.3bd8
3bb2          GTMZ
3bb3          RD.A
3bb4          GTA  5b           'Z'
3bb5          GT.  50           'O'
3bb9          O.VZ L.3bcb
3bbb          GT.  4d           'L'
              SE.V
3bcb  =L.3bcb IYE
3bcc          STMYI
3bcf          IY1
3bd0          IZ0
3bd1          GTMZI
              ST.S
3bd4          AD.X
3bd5          ST.X
              O.VZ L.3c21
              GT.S
3bd6          O.WY L.3c21
3bd8  =L.3bd8 NR.  e7
3bda          O.AS L.3bed
3bdc          GTMZ
3bdd          AN.  07
3bdf          SL.S
3be0          S.RP
3be1          GTA  67
3be3          GTMX
3be4          TK4
3be5          TA4
3be6          STMYD
3be9          IY2
3bea          R.IX
3beb          O.WY L.3c89
3bed  =L.3bed GTA  53           'R'
3bef          GTMZ
3bf0          RD.A
3bf1          TA4
3bf2          O.US L.3c23       code
3bf9          TA3
3bfa          O.UZ L.3bfe
3bfc          DKL  11           'A'
3bfe  =L.3bfe GT.  56           'U'
3c00          O.VZ L.3c04
3c02          GT.  45           'D'
3c04  =L.3c04 STMYI
3c07          IY2
3c08          GTMZ
3c09          TA5
3c0a          IX0
3c0b          O.US L.3ce8       var
3c0d          TA3
3c0e          RD.A
3c0f          RD.A
3c10          O.US L.3c1a       >>D
3c12          DX0
3c13          GTMXI
3c16          O.VS L.3c21       >>A
3c18          O.WY L.3ce0       >>R
3c1a  =L.3c1a GTMXD
3c1d          O.VS L.3c20       >>A
3c1f          LD.X
3c20  =L.3c20 IX0
3c21  =L.3c21 O.WY L.3ce1
3c23  =L.3c23 TA3               code
3c24          O.UZ L.3c39       01/12
3c26          O.VS L.3c8b       3/4
3c28          GTMX              2/3
3c29          IX0
3c2a          TA2
3c2b          O.UZ L.3cbc       GRD ARD
3c2d          IY2
3c2e          GTMX
3c2f          RD.A
3c30          GT.  4a           'I'
3c32          O.VZ L.3c36
3c34          GT.  45           'D'
3c36  =L.3c36 STMY
3c37          DY2
3c38          IX0
3c39  =L.3c39 GTMX
3c3a          O.VZ L.3c3e       0/1
3c3c          O.AZ L.3c79       HH HJ
3c3e  =L.3c3e IYE               1/2
3c3f          GT.  77
3c41          RS.Z
3c42          ST.Z
              GTA  1d           ########
              H..               ########
3c43          SW.Z              ########
3c44          GTA  5e
3c46          GTMZ
3c47          TKa
3c48          ST.Z
3c49          GTA  de
3c4b          J..
3c4c          IZ1
3c4d          IY2
3c4e          GTMZ
3c4f          STMY
3c50          SS.Z
3c51          SW.Z              ########
              GTA  07           ########
              H..               ########
3c52          GTMZ
3c53          TA7
3c54          O.UZ L.3c89       02/13
3c56          IY1               1/2
3c57          GTMX
3c58          IX0
3c59          AD.  c0
3c5b          SV.  16
3c5d          O.VZ L.3c6f
3c5f          TKe               40.55
3c60          GTMZ
3c61          TA5
3c62          O.US L.3ce8
3c64          RU.B
3c65          GTMX
3c66          SL.K
3c67          IKL  02           war 01
3c69          ZO.S
3c6a          O.VS L.3c6d       O
3c6c          LD.S              B
3c6d  =L.3c6d O.WY L.3ce0
3c6f  =L.3c6f GTA  66
3c71          GTMX
3c72          TKc
3c73          STMY
3c74          IYE
3c75          TA4
3c76          STMY
3c77          O.WY L.3c89
3c79  =L.3c79 GTA  49           'H'
3c7b          IX0
3c7c          GTMX
3c7d          O.AZ L.3c81
3c7f          GTA  4b           'J'
3c81  =L.3c81 IYE
3c82          STMY
3c83          DY0
3c84          GT.  40
3c86          STMY
3c87          IY1
3c88          STMY
3c89  =L.3c89 O.WY L.3d0e
3c8b  =L.3c8b GTA  53           'R'
3c8d          GTMX
3c8e          AD.  ac
3c90          RD.A
3c91          O.AZ L.3c97
3c93          DC.A
3c94          RD.A
3c95          GTA  42           'A'
3c97  =L.3c97 ST.S
3c98          /GTA 4855         'GT'
3c9c          O.VZ L.3ca2
3c9e          /GTA 4245         'AD'
3ca2  =L.3ca2 STMYI
3ca5          GT.S
3ca6          IYE
3ca7          STMY
3ca8          IY1
3ca9          GTMZ
3caa          TA5
3cab          O.US L.3ce7       var
3cad          GTMX
3cae          SV.  56           V>>R
3cb2          IX0
3cb3          GTMX              lowbyte
3cb4          IXE
3cb5          IX0
3cb6          GTMX              highbyte
3cb7          O.VS L.3ce0
3cba          O.WY L.3ce1
3cbc  =L.3cbc TA6
3cbd          RD.A
3cbe          GTA  53           'R'
3cc0          GT.  48           'G'
3cc2          O.VZ L.3cc6
3cc4          GT.  42           'A'
3cc6  =L.3cc6 STMYI
3cc9          GTMX
3ccc          IXE
3cd1          GT.  45           'D'
3cd3          IY0
3cd4          STMY
3cd5          IY1
3cd6          GTMZ
3cd7          TA5
3cd8          O.US L.3ce8       var
3cda          ZO.A
3cde          DC.A
3cdf          IC.K
3ce0  =L.3ce0 AD.X
3ce1  =L.3ce1 ST.S
3ce2          GTR  L.3d55
3ce4          J..
3ce5          O.WY L.3d0e
3ce7  =L.3ce7 IX2
3ce8  =L.3ce8 RS.Z              var-Aufruf
3ce9          GTA  06           ##########
3ceb          ST.Z
3cec          GTMZI
3cef          ST.Z
3cf0          IZ5
3cf1          ES.Z
3cf2          IZ0
3cf3          GTMZI
3cf6          AN.  0f
3cf8          EX.S
3cf9          SD.S
3cfa          EX.S
3cfb          TK3
3cfc          AD.S
3cfd          RS.Z
3cfe          ST.Z
3cff          IY5
3d00          GTA  da
3d02          J..
3d03          SS.Z
3d04          IY5
3d05          /GTA 2206
3d09          STMY
3d0a          IY0
3d0b          GTMZ
3d0c          TKc
3d0d          STMY
3d0e  =L.3d0e IX0
3d0f          IZ0
3d16          /GTR L.3dff
3d1a          J..
3d55  =L.3d55 GTA  66           WA  Write.Address
3d57          GH.S
3d58          TKc
3d59          STMY
3d5a          IYE
3d5b          TA4
3d5c          STMY
3d5d          IY0
3d5e          GTA  66
3d60          GL.S
3d61          TKc
3d62          STMY
3d63          IYE
3d64          TA4
3d65          STMY
              IY0
              GT.Q
              J..
3d68  =L.3d68 /GTA 9fe0         Linefeed
3d6c          ST.Y
3d6d  =L.3d6d GTA  3e
3d6f          ST.S
3d70          DYE
3d71          S.RP
3d72          GTMY
3d73          TK8
3d74          STMY
3d75          DYL  3f
3d77          R.CN
3d78          GT.B
3d79          STMY
3d7a          GTA  3f
3d7c          TK6
3d7d          AD.Y
3d7e          EX.Y
3d7f          ZO.A
3d80          B.KS L.3d6d
3d82          GT.Q
3d83          J..
3d84  =EASS   /GTA 1712         ########
3d88          ST.X
3d89          /GTA E.INI
3d8d          J..
40e4          GTMYI             Verify
40e7          SD.X
40e8          O.KS L.415d       err Code-Start
40ea          DY1
40eb          S.RP
40ec          IY6
40ed          GTMY
40ee          TA2
40ef          R.UZ
40f0          S.RP              erster Op
40f1          IY0               OP-Flags
40f2          GTMY
40f3          SL.S
40f4          AN.  18
40f6          O.AS L.40fe
40f8          IY0
40f9          GTMYI             ZO/ZL -- Y ok
40fc          O.WY L.4106
40fe  =L.40fe NR.  e7
4100          O.AS L.410a
4102          GL.S              bytes -- Y ok
4103          AN.  07
4105          SL.K
4106  =L.4106 AD.X
4107          ST.X
4108          O.WY L.4176       end-verify
410a  =L.410a GL.S
410b          TA5
410c          O.UZ L.410f
410e          IY1               var/n -- Y ok
410f  =L.410f TA6
4110          O.UZ L.4175       adr fertig
4112          GTMX              Code
4113          ST.B
4114          AD.  c0
4116          LV.  27           V= 1byte
4118          GL.S
4119          AN.  07
411b          O.AZ L.4135       1byte
411d          IX0               war nicht 1byte-ohne.var
411e          DC.A
411f          O.AS L.412b       war nicht 2byte-ohne-var
4121          O.VZ L.4176
4123          GTMX
4124          IC.A
4125          AN.  fe
4127          O.KZ L.4176       end HH HJ
4129          O.WY L.415d       err
412b  =L.412b ZO.V
412c          XR.  04
412e          O.AS L.4139       war nicht 2byte-mit-var
4130          GT.B
4131          AD.  c0
4133          SV.  16
4135  =L.4135 O.VS L.4176       end
4137          O.WY L.415d       err
4139  =L.4139 XR.  04
413b          DC.A
413c          O.AS L.4161       war nicht 3byte-ohne-var
413e          GT.B
413f          NE.U
4140          SV.  e8
4142          GTMX
4143          AN.  f8
4145          XR.  d8
4147          TZ.A
4148          GTMX
4149          TA2
414a          XR.B
414b          AN.  18
414d          TZ.A
414e          IX0               ####
414f          GTMX
4150          XR.B
4151          TZ.A
4152          O.VZ L.4176       end GTMXI
4154  =L.4154 GTMX
4155          XR.  fd
4156          TK8
4157          AN.  fe
4159          XR.  54
415b          O.KZ L.4176       end GRD ARD
415d  =L.415d SW.X              ----
415e          GTA  f6           err
4160          J..
4161  =L.4161 IX0
4162          XR.  04
4164          B.AZ L.4154       war 3byte-mit-var
4166          GT.B
4167          AD.  ac           SU.  54
4169          SV.  03
416b          O.VS L.416f       nicht 54..56
416d          DC.A
416e          TZ.A              58
416f  =L.416f GTMX
4170          XR.  60
4172          TZ.A
4173          B.VS L.415d       err
4175  =L.4175 IX0
4176  =L.4176 IX0
4177          GT.Y
4178          IC.K
              NR.  07
              R.AS              end verify
              GTA  60           ##########
              ST.Z
              STMZ
              IZ0
              STMZ
              IZ0
              STMZ
3d98          GTA  42           KD-Char
3d9a          ST.Z              Ch=0
3d9b          STMZ
3d9c          IZ3
3d9d          /GTA 200f         RD=20  dD=0f
3da1          STMZI
3da4          IZ0
3da5          /GTA 207f         PD=20  LD=7f
3da9          STMZI
3db1          SW.Y              ----------
3db8          GTA  90           Leere Bild
3dba          TK8
3dbb          ST.Y
3dbc          ZO.U
3dbd          EX.S
3dbe          DC.S
3dbf          S.RP
3dc0          STMY
3dc1          R.IY
3dc5          ZO.Z
3dc7          IZ5               SP-C
3dc8          GTMZI
3dcb          ST.Z
3dcc          DZ0               Startlabel-1
              ZO.X
              DX0
3d6d  =L.3dca IZ6               Flags
              IX0
              /GTR L.3d68       Linefeed
3d6f          J..
3d1b          GT.  21           WLV  Write.VarLine
              STMY
              GT.X
              IY0
3d1c          AD.  60
3d1e          STMY
3d1f          IY1
3d20          GT.  66
3d22          TKc
3d23          TA4
3d24          STMYD
3d27          IY1
3d28          GTA  22
3d2a          GTMZ
3d2b          TA3
3d2c          CP.V              ERR
3d2d          PV.A
3d30          AN.B
3d31          STMY
3d32          IYL  08
3d34          GTA  da
3d36          J..
3d37          IY5
              ZO.A
              STMY
3d38          DZ1
3d39          GTMZI
3d3c          ST.S
3d3d          IZ4               Flags
3d3e          GTMZ
              AN.  03
              LV.  23           -+=
              IY0
              STMY
              GTMZ
              TA6
              IC.A
              NR.  fc
              AD.  21           -+=*
              IY0
              STMY
              IY3
              /GTA L.3d55       Write-Address
              J..
              GTMZ
              TA2
              CP.V
              PV.A
              AN.  22
              IY7
              STMY
              RS.Z
              SW.X              -----
              GTA  e2           Get.char
              J..
              SW.X              -----
              GTMZ
              SS.Z
              O.AS L.3e26       Abbruch
              GTMZ
              TA2
              B.UZ L.3dca
              SW.X              -----
              ZO.X
              IXL  0d           #####
              GTMXI
              SW.X              -----
              ST.X
              IZ0               war bei L.3df6
      =L.3df6 /GTR L.3d68       Linefeed
              J..
              /GTR L.3b6e       WLC
              J..
      =L.3dff GT.Z
              NO1               war IC.A
              NR.  07
              O.AS L.3e06
              /GTA 9fdf
              ST.Y
              GT.  22
              STMY
      =L.3e06 RS.Z
              SW.X              ----
              GTA  e2           Get.char
              J..
              SW.X              ----
              GTMZ
              SS.Z
              O.AS L.3e26       Abbruch
              GT.Z
              NO1               war IC.A
              NR.  07
              B.AS L.3df6
      =L.3e26 SW.Y              -----
              SW.X              -----
              GTA  19           Imm
              J..
      =END    //ZO ffff
