000    L.1da3 //   1598
       L.1dfb --
       L.1e0f --
       L.1e22 --
       L.1e2f --
       L.1e4b --
       L.1e50 --
       L.1e53 --
       L.1ec2 --
       L.1edd --
       L.1ef2 --
       L.1efa --
       L.1f23 --
       L.1f2c --
       L.1f4b --
       L.1f76 --
       L.1f77 --
       L.1f78 --
       L.1f7c --
       L.1f7e --
       L.1f81 --
       L.1f8b --
       L.1f93 --
       L.1f9d --
       L.1fa1 --
       L.1fa6 --
       L.1faf --
       L.1fba --
       L.1fbb --
       L.1fbc --
       L.1fbd --
       L.1fbf --
       L.201f --
       L.202e --
       L.2039 --
       L.2051 --
       L.2060 --
       L.2084 --
       L.20a0 --
       L.20ae --
       L.20af --
       L.20cb --
       L.20d0 --
       L.2116 --
       L.2149 --
       L.2198 --
       L.1d7e --
       L.1d98 --
       ERR    -+
       L.165b -+
       L.16af -+
       SCAN   -+
       VF.    -+
       VR.    -+
       V.BACK -+
       M.INI  -+
       E.INI  -+
       CONT   -+
       ENDM   -+
       L.1992 -+                dat-anf
       SYSL   -+                Sys-Line
       FCMD   -+
       END    -+

1da3  =L.1da3 GT.Y              ErrStr
1da4          ST.D
              GL.Y
              SV.  02
              PV.A
              STMZ
1da5          ZO.A
1da6          TK1
1da7          ST.Y
1da8          TK1
1da9          AD.Y
1daa          ADR  L.165b
1dac          SW.Y
1dad          ST.Y
1dae          IZL  4f           KD-WS

              S.RP
1db0          GTMY
1db1          STMZ
1db2          IY0
              IZ0
              GL.Z
              XR.  56
              R.AS

1dc6          SW.Y
              GT.D
              SL.K
              ZO.Y
              GTMY
              ST.Y

1dca  =ERR    GTA  11           NP=1
1dcc          H..
1dcd          GTA  16
1dcf          H..
              SW.X              MX=2
              IC.K              NX=3
              H..
1dd0          GTA  1a
1dd2          H..
1dd3          SW.Y              MY=2
1dd4          DC.K              NY=1
1dd5          H..
1dd6          GTA  1e
1dd8          H..
1dd9          SW.Z              MZ=2
1dda          GTA  07           NZ=4
1ddc          H..
1ddd          ZO.Z
              GT.Y
              ST.D
1dde          IZL  41           Ch
1de0          GL.Y
1de1          STMZ
1de2          IZ2
1de3          GTA  0f
1de5          STMZD             PC DC
1de8          DZE
1de9          STMZ              RC
1dea          DZ4
1deb          STMZ              XL
1dec          IZ0
1ded          IC.A
1dee          STMZ              LF
1df2          ZO.Z
1df3          GT.X
1df4          O.AZ L.1dfb
1df6          GT.  51           'P'
1df8          STMZ
1df9          O.WY L.1ec2       Pfad
1dfb  =L.1dfb PV.A
1dfc          AN.  53           'R'
1dfe          STMZ
1dff          IZL  1f           BZ
1e01          GTMZI
1e04          NE.U
1e05          O.KS L.1e0f
1e07          IZ0
1e08          /GTA 024d
1e0c          ST.Y
1e0d          GTMZ
1e0e          STMY
1e0f  =L.1e0f /GTA SYSL         Sys.Line
1e13          J..
1e14          SW.Y
1e15          GTA  ec           Linefeed
1e17          J..
1e18          IY5
              NO1               ----
1e1a          IZL  10
1e1c          GTA  0f
1e1e          ST.S
1e1f          S.RP
1e20          GTMZ
1e21          STMY
              O.AZ L.1e22
              GT.Y
1e22  =L.1e22 IY0
1e23          R.IZ              5f
1e24          GH.Y
              ST.Y
              IY2
1e25          DZL  1c           42
1e27          GTA  66
              GT.D
              O.AZ L.1e2f
1e29          GTMZ
1e2a          TK4
1e2b          TA4
1e2c          STMYD
1e2f  =L.1e2f GTA  c0
              GH.Y
              ST.Y
1e30          GTA  fc
1e32          TK8
1e33          ST.Z
1e34          NE.K
1e35          EX.S
1e36          DZ0
1e37          S.RP
1e38          STMZ
1e39          R.DZ
1e3a          GT.  24           '*'
1e3c          STMY
1e3d          IY1
1e3e          GT.  46           'E'
1e40          STMY
1e41          IY0
1e42          GT.  53           'R'
1e44          STMY
1e45          DY1
1e46          ZO.Z
1e47          GTMZ
1e48          O.AZ L.1e50
1e4a          STMY
1e4b  =L.1e4b GTA  e0
1e4d          J..
1e4e          B.WY L.1e4b
1e50  =L.1e50 GT.  52           'Q'
1e52          STMY
1e53  =L.1e53 GTA  e0
1e55          J..
1e56          GTMZ
1e57          XR.  7c
1e59          B.AS L.1e53
1e5b          SW.Y
1e5c          GTA  19           CMD-Line
1e5e          J..

1e67  =L.165b 515740555a51      PV.TYP
1e6d          535740555a51      RV.TYP
1e73          4f564e434653      NUMBER
1e79          53465556534f      RETURN
1e7f          4f5044425345      NOCARD
1e85          4750534e0000      FORM
1e8b          44504e450000      COMD
1e91          574253540000      VARS
1e97          464d54460000      ELSE
1e9d          4e4050474d62      M.OFL2
1ea3          4e4050474d63      M.OFL3
1ea9          4e40464d5446      M.ELSE
1eaf          4240544a5b46      A.SIZE
1eb5          4350544a5b46      BOSIZE
1ebb  =L.16af B.WY L.1e0f
1ebd          O.RP SCAN         ---
1ebf          SE.V              ---
1ec0          GT.Q              ---
1ec1          J..               ---
1ec2  =L.1ec2 NO1               ErrPfad
1ec3          GTA  40
1ec5          IZL  44
1ec7          STMZ
1ec8          IZ1
1ec9          STMZ
1eca          IZ0
1ecb          STMZI
1ece          SS.Z
1ecf          GTA  a0
1ed1          TK8
1ed2          SW.Y
1ed3          ST.Y
1ed4          ZO.U
1ed5          TKf
1ed6          ST.S
1ed7          DC.S
1ed8          DYE
1ed9          S.RP
1eda          STMY
1edb          R.DY
1edc          GT.Z
1edd  =L.1edd STMYI
1ee0          GTR  SCAN
1ee2          J..
1ee3          J..
1ee4          GTMZ
1ee5          TA6
1ee6          O.US L.1efa
1ee8          GT.Y
1ee9          TK4
1eea          IC.A
1eeb          O.AZ L.1ef2
1eed          IYL  0e
1eef          GT.X
1ef0          B.WY L.1edd
1ef2  =L.1ef2 GTR  SCAN
1ef4          J..
1ef5          J..
1ef6          GTMZ
1ef7          TA6
1ef8          B.UZ L.1ef2
1efa  =L.1efa IZ0
1efb          GTMZI
1efe          AD.Z
1eff          ST.Z
1f00          IZ1
1f01          IY7
1f02          GTMZI
1f05          NE.K
1f06          STMYD
1f09          DZ2
1f0a          SVMZI
1f0d          SD.Z
1f0e          ST.Z
1f0f          ZO.V
1f10          RS.Y
1f11          S.RP
1f12          DY6
1f13          GTMYD
1f16          AD.Z
1f17          STMYI
1f1a          GT.Y
1f1b          TK4
1f1c          O.AZ L.1f23
1f1e          DY7
1f1f          GTMYD
1f22          R.KZ
1f23  =L.1f23 SS.Y
1f24          IY7
1f25          GT.Y
1f26          TK4
1f27          O.AZ L.1f2c
1f29          GT.X
1f2a          B.AS L.1edd
1f2c  =L.1f2c S.RP
1f2d          DY7
1f2e          GTMYI
1f31          O.KZ L.1f4b
1f33          ST.Z
1f34          IZ1
1f35          GTA  66
1f37          GH.Z
1f38          TK4
1f39          TA4
1f3a          STMYD
1f3d          IY2
1f3e          GTA  66
1f40          GL.Z
1f41          TK4
1f42          TA4
1f43          STMYD
1f46          DY3
1f47          GT.  29
1f49          STMY
1f4a          IY2
1f4b  =L.1f4b DY7
1f4c          GTMYD
1f4f          ST.Z
1f50          IY2
1f51          GTA  66
1f53          GL.Z
1f54          TK4
1f55          TA4
1f56          STMYD
1f59          DY0
1f5a          GTA  66
1f5c          GH.Z
1f5d          TK4
1f5e          TA4
1f5f          STMYD
1f62          GT.Y
1f63          TK4
1f64          R.AS
1f65          SW.Y
1f66          B.WY L.16af

1f68  =SCAN   GTMX              scan
1f69          IX0
1f6a          O.AZ L.1f81
1f6c          IC.A
1f6d          O.AZ L.1fbd
1f6f          GTMX
1f70          IX0
1f71          AN.  3f
1f73          SL.K
1f74          O.WY L.1f7e

1f76  =L.1f76 IX1
1f77  =L.1f77 IX1
1f78  =L.1f78 IX1
1f79          TA6
1f7a          AN.  1f
1f7c  =L.1f7c SL.K
1f7d          TK1
1f7e  =L.1f7e AD.X
1f7f          ST.X
1f80          R.WY

1f81  =L.1f81 GTMX
1f82          IX0
1f83          O.UZ L.1f8b

1f85          TA1
1f86          O.US L.1f93
1f88          TA1
1f89          B.WY L.1f78       CALL EXEC

1f8b  =L.1f8b TA1
1f8c          O.US L.1fa6
1f8e          TA1
1f8f          B.US L.1f77       OPEN
1f91          B.WY L.1f76       OPEX

1f93  =L.1f93 TA7
1f94          XR.  c0
1f96          O.AZ L.1f9d       Jx
1f98          IX0               ACQ
1f99          AN.  3f
1f9b          B.WY L.1f7c
1f9d  =L.1f9d GTMX
1f9e          IX2
1f9f          B.WY L.1f7c

1fa1  =L.1fa1 IX1               FASN
1fa2          AN.  0f
1fa4          B.WY L.1f7c

1fa6  =L.1fa6 TA7
1fa7          SV.  50
1fa9          B.VS L.1fa1
1fab          SV.  04
1fad          O.VZ L.1fbf
1faf  =L.1faf GTMX              fo
1fb0          CP.V
1fb1          AN.  03
1fb3          SL.K
1fb4          AD.X
1fb5          ST.X
1fb6          IX0
1fb7          B.VZ L.1faf
1fb9          R.WY

1fba  =L.1fba IX0
1fbb  =L.1fbb IX0
1fbc  =L.1fbc IX0
1fbd  =L.1fbd IX0
1fbe          R.WY

1fbf  =L.1fbf SV.  09
1fc1          R.VS
1fc2          SV.  09
1fc4          B.VS L.1fbc
1fc6          SV.  06
1fc8          B.VS L.1fba
1fca          TA3
1fcb          B.UZ L.1fbb
1fcd          XR.  98
1fcf          B.AS L.1fbc       RETN
1fd1          GT.Q
1fd2          J..

1fc9          GTMXI
1fcc          AD.X
1fcd          ST.X
1fce          GTMXI
1fd1          ST.X
1fd2          GTMXI
1fd5          AD.X
1fd6          ST.Z
1fd7          DX2
1fd8          GT.Q
1fd9          J..

1fd8  =VF.    ZO.Z              String > Wert
1fd9          ZO.Y
1fda          IYL  3b
1fdc          STMYD
1fdf          IYL  83

1fe1          GT.D
1fe2          AD.  98           war.18
1fe4          AV.  04           war.08

1fe6          O.VS L.20af
1fe8          AD.  43           war.3f
1fea          O.AZ L.201f
1fec          DC.A
1fed          O.AZ L.2060
1fef          DC.A
1ff0          TZ.A
1ff1          GTMY
1ff2          SL.S
1ff3          GTA  02
1ff5          TK8
1ff6          ST.Z
1ff7          S.RP
1ff8          IY0
1ff9          GTMY
1ffa          STMZ
1ffb          R.IZ
1ffc          O.WY L.20d0

1ffe  =VR.    ZO.Z              Wert > String
1fff          ZO.Y
2000          IYL  3b
2002          STMYD
2005          IYL  83
2007          GT.D              ####
2008          AD.  df           war.5f
200a          O.AZ L.2039
200c          DC.A
200d          O.AZ L.2084
200f          DC.A
2010          O.AS L.20ae
2012          GTMY
2013          SL.S
2014          GTA  02
2016          TK8
2017          ST.Z
2018          S.RP
2019          IY0
201a          GTMZ
201b          STMY
201c          R.IZ
201d          O.WY L.20d0
201f  =L.201f GTMY
2020          LV.  0a
2022          GTA  40
2024          GT.  07
2026          STMY
2027          SL.S
2028          IY3
2029          S.RP
202a          GTMY
202b          O.AS L.202e
202d          GT.B
202e  =L.202e STMY
202f          R.IY
2030          GT.  e0
2032          TK3
2033          ST.Z
2034          GTA  d4
2036          J..
2037          O.WY L.20d0
2039  =L.2039 GTMY
203a          LV.  0a
203c          SL.S
203d          GT.  07
203f          STMY
2040          IYL  0a
2042          ST.B
2043          GT.  02
2045          ST.Z
2046          GTA  d6
2048          J..
2049          IYL  0a
204b          O.RP L.2051
204d          GTMY
204e          XR.  40
2050          TZ.A
2051  =L.2051 R.DY
2052          O.VZ L.20d0
2054          DY0
2055          GL.Y
2056          AN.  3f
2058          SL.S
2059          GT.  20
205b          S.RP
205c          STMY
205d          R.DY
205e          O.WY L.20d0
2060  =L.2060 GTMY
2061          SL.Z
2062          IZL  bf
2064          SL.K
2065          RD.B
2066          ST.S
2067          ST.X
2068          GT.  60
206a          STMY
206b          GT.  02
206d          ST.Y
206e          ZO.V
206f          S.RP
2070          GTMZ
2071          TA4
2072          DZE
2073          GTMZ
2074          TKc
2075          AN.  ee
2077          XR.  66
2079          TZ.A
207a          DZE
207b          STMY
207c          R.DY
207d          ZO.Z
207e          IZL  be
2080          GL.X
2081          STMZ
2082          O.WY L.20d0
2084  =L.2084 GTMY
2085          SL.Z
2086          IZL  bf
2088          SL.K
2089          RD.B
208a          ST.S
208b          ST.X
208c          AD.  02
208e          ST.Y
208f          S.RP
2090          GTA  67
2092          GTMY
2093          TK4
2094          TA4
2095          STMZD
2098          DZ0
2099          R.DY
209a          XR.  70
209c          O.VS L.20a0
209e          TZ.A
209f          IZ0
20a0  =L.20a0 GL.X
20a1          STMZ
20a2          O.VZ L.20d0
20a4          TA1
20a5          SL.S
20a6          IZ0
20a7          GT.  20
20a9          S.RP
20aa          STMZ
20ab          R.IZ
20ac          O.WY L.20d0
20ae  =L.20ae IZ1
20af  =L.20af IZL  09
20b1          SW.X
20b2          GTA  04           war.10
20b4          H..
20b5          GT.D              ####
20b6          XR.  70           war.f8
20b8          SL.X
20b9          GTMX
20ba          SL.K
20bb          H..
20bc          O.AS L.20cb
20be          SW.Z
20bf          GTMZI
20c2          SW.Z
20c3          O.KZ L.20cb
20c5          ZO.Z
20c6          ZO.Y
20c7          ZO.X
20c8          ZO.S
20c9          /.J.
20cb  =L.20cb SE.V
20cc  =V.BACK SW.X              VfVr
20cd          GTA  21           NP=1
20cf          H..
20d0  =L.20d0 ZO.Z
20d1          ZO.Y
20d2          IYL  3a
20d4          GTMYI
20d7          J..
20d8  =M.INI  GT.S
20d9          TZ.B
20da          IZ2
20db          GTMZ
20dc          TKa
20dd          TZ.A
20de          IC.A
20df          TK2
20e0          EX.Y
20e1          IZ7
20e2          GTMZ
20e3          TKa
20e4          TZ.A
20e5          IC.A
20e6          TK2
20e7          ST.X
20e8          IY5
20e9          IX5
20ea          GTMY
20eb          XRMX
20ec          TZ.A
20ed          IY0
20ee          IX0
20ef          GTMY
20f0          XR.  1e
20f2          TZ.A
20f3          GTMX
20f4          XR.  1f
20f6          TZ.A
20f7          IZL  2c
20f9          GTMZ
20fa          TZ.A
20fb          O.VS L.2149
20fd          IC.A
20fe          STMY
20ff          IC.A
2100          STMX
2101          DY6
2102          DX6
2103          GTMYI
2106          AD.Y
2107          EX.Y
2108          TK6
2109          TA6
210a          IZ0
210b          STMZ
210c          GTMXI
210f          AD.X
2110          EX.X
2111          TK6
2112          TA6
2113          IZ0
2114          STMZ
2115          DZ1
2116  =L.2116 SW.X
2117          GT.Q
2118          J..
2119  =E.INI  GT.S
211a          TZ.B
211b          IZ2
211c          GTMZ
211d          TKa
211e          TZ.A
211f          IC.A
2120          TK2
2121          EX.Y
2122          IZ7
2123          GTMZ
2124          TKa
2125          TZ.A
2126          IC.A
2127          TK2
2128          EX.X
2129          IX6
212a          IY6
212b          XRMX
212c          TZ.A
212d          DXE
212e          XRMY
212f          TZ.A
2130          DY0
2131          GTMX
2132          XRMY
2133          TZ.A
2134          DX5
2135          DY5
2136          GTMXI
2139          AD.X
213a          ST.X
213b          GTMYI
213e          AD.Y
213f          ST.Y
2140          IZL  32
2142          GTMZ
2143          TZ.A
2144          DZ5
2145          GTMZ
2146          TZ.A
2147          B.VZ L.2116
2149  =L.2149 GTA  f6           err
214b          J..
214c  =ENDM   IZL  37
214e          GTMZ
214f          TA7
2150          AD.  7f
2152          LV.  02
2154          SL.X
2155          IZ1
2156          GTMZD
2159          ST.Z
215a          IY2
215b          XRMY
215c          TZ.A
215d          TK8
215e          IY7
215f          XRMY
2160          TZ.A
2161          GH.Z
2162          TKc
2163          AD.  04
2165          EX.Z
2166          GL.S
2167          TZ.A
2168          TK4
2169          AD.  04
216b          EX.X
216c          B.VS L.2149
216e          TK1
216f          ADR  L.1992
2171          SW.Y
2172          ST.Y
2173          GTMYI
2176          SW.Y
2177          ZO.Y
2178          IYL  37
217a          J..
217b  =CONT   IYL  37
217d          GTMY
217e          DC.A
217f          LV.  06
2181          GL.S
2182          TZ.A
2183          B.VS L.2149
2185          GTMY
2186          AN.  06
2188          SL.K
2189          ADR  L.2198
218b          SW.Y
218c          SW.X
218d          ST.Y
218e          GTMYI
2191          J..

2192  =L.1992 393a              end7
2194          d333              end5
2196          ef2d              end3
2198  =L.2198 162d              con1
219a          5b23              con23
219c          fc31              con45
219e          e435              con67

187c  =SYSL   GTA  7f           Sys.Line
187e          ST.Y
18c6          GTA  1f
18c8          ST.S
18c9          S.RP
18c8          STMY
18c9          R.DY

1884          IYL  09           6a
1885          ZO.Z
1886          IZ0               PV

1887          GTA  66
188b          GTMZ
188c          TKc
188d          STMY
188e          IYE
188f          TA4
1890          STMY

1891          IY1               6f
1892          IZ7               NV

1893          GTA  66
1897          GTMZ
1898          TKc
1899          STMY
189a          IYE
189b          TA4
189c          STMY

189d          IY2               71
189e          IZ6

189f          GTA  03           REPL-D
18a1          ST.S
18a3          S.RP
18a5          GTMZ              0c
18a6          XR.  68           64
18a8          STMY
18a4          IZ0
18af          R.IY

18b0          IY1               77

18b2          GTA  03           REPL-E
18b4          ST.S
18b6          S.RP
18b8          GTMZ              0c
18b9          XR.  68           64
18ba          STMY
18b7          IY0
18c2          R.IZ

18c3          IY1               7c
18c4          IZL  20           38 Mod

18cc          GTA  66
18ce          GTMZ
18cf          TKc
18d0          STMY
18d1          IYE               7d
18d2          TA4
18d3          STMY
18d4          DYL  1c           60 SYG
18d5          GT.Q
18d6          J..

1d59  =FCMD   SW.Z              nCMD
1d5a          ZO.Z
1d5b          IZ6
1d5c          GTA  80
1d5e          S.RP
1d5f          TK3
1d60          EX.Z
1d61          AD.Z
1d62          EX.Z
1d63          TKd
1d64          GTMY
1d65          SVMZ
1d66          DY0
1d67          DZ0
1d68          GTMY
1d69          SVMZ
1d6a          DY0
1d6b          DZ0
1d6c          GTMY
1d6d          SVMZ
1d6e          DY0
1d6f          DZ0
1d70          GTMY
1d71          SVMZ
1d72          DY0
1d73          DZ0
1d74          GTMY
1d75          SVMZ
1d76          IY3
1d77          IZ3
1d78          ZO.A
1d79          TK3
1d7a          EX.Z
1d7b          O.VZ L.1d7e
1d7d          SD.Z
1d7e  =L.1d7e EX.Z
1d7f          TKc
1d80          R.AZ
1d81          GTMY
1d82          LVMZ
1d83          DY0
1d84          DZ0
1d85          GTMY
1d86          LVMZ
1d87          DY0
1d88          DZ0
1d89          GTMY
1d8a          LVMZ
1d8b          DY0
1d8c          DZ0
1d8d          GTMY
1d8e          LVMZ
1d8f          DY0
1d90          DZ0
1d91          GTMY
1d92          LVMZ
1d93          GT.Z
1d94          TK4
1d95          O.AS L.1d98
1d97          SE.V
1d98  =L.1d98 DZ0
1d99          GTMZ
1d9a          SW.Z
1d9b          DC.A
1d9c          SL.Z
1d9d          GT.Q
1d9e          J..

221e  =END    //ZO ffff



