;:ts=8
   global   _IntuitionBase,4
   global   _GfxBase,4
   global   _Fehlertext,45
   dseg
   public   _Loeschen
_Loeschen:
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   32
   dc.b   0
   ds.b   1
   cseg
   dseg
   ds   0
   public   _Fehlermeldung
_Fehlermeldung:
   ds.b   0
   dc.b   1
   dc.b   0
   dc.b   1
   dc.w   9
   dc.w   78
   dc.l   $0000
   dc.l   _Fehlertext
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _MyFont
_MyFont:
   ds.b   0
   dc.l   .1+0
   dc.w   8
   dc.b   0
   dc.b   1
   cseg
.1
   dc.b   116,111,112,97,122,46,102,111,110,116,0
   ds   0
   dseg
   ds   0
   public   _cords
_cords:
   dc.w   0
   dc.w   0
   dc.w   72
   dc.w   0
   dc.w   72
   dc.w   14
   dc.w   0
   dc.w   14
   dc.w   0
   dc.w   0
   cseg
   dseg
   ds   0
   public   _border
_border:
   ds.b   0
   dc.w   -1
   dc.w   -1
   dc.b   2
   dc.b   0
   dc.b   0
   dc.b   5
   dc.l   _cords
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _BodyText5
_BodyText5:
   ds.b   0
   dc.b   2
   dc.b   0
   dc.b   0
   dc.w   59
   dc.w   65
   dc.l   _MyFont
   dc.l   .2+0
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _BodyText4
_BodyText4:
   ds.b   0
   dc.b   2
   dc.b   0
   dc.b   0
   dc.w   59
   dc.w   50
   dc.l   _MyFont
   dc.l   .2+29
   dc.l   _BodyText5
   cseg
   dseg
   ds   0
   public   _BodyText3
_BodyText3:
   ds.b   0
   dc.b   2
   dc.b   0
   dc.b   0
   dc.w   75
   dc.w   30
   dc.l   _MyFont
   dc.l   .2+60
   dc.l   _BodyText4
   cseg
   dseg
   ds   0
   public   _BodyText2
_BodyText2:
   ds.b   0
   dc.b   2
   dc.b   0
   dc.b   0
   dc.w   152
   dc.w   20
   dc.l   _MyFont
   dc.l   .2+87
   dc.l   _BodyText3
   cseg
   dseg
   ds   0
   public   _BodyText1
_BodyText1:
   ds.b   0
   dc.b   2
   dc.b   0
   dc.b   0
   dc.w   160
   dc.w   10
   dc.l   _MyFont
   dc.l   .2+95
   dc.l   _BodyText2
   cseg
.2
   dc.b   84,104,105,115,32,105,115,32,80,117,98,108,105,99,32
   dc.b   68,111,109,97,105,110,32,115,116,117,102,102,46,0,80
   dc.b   114,111,103,114,97,109,32,100,101,118,101,108,111,112,101
   dc.b   100,32,102,111,114,32,77,111,114,103,97,105,110,46,0
   dc.b   -87,32,49,57,56,56,32,98,121,32,65,114,116,104,117
   dc.b   114,32,82,97,116,32,83,111,102,116,46,0,86,46,50
   dc.b   46,48,112,100,0,75,82,89,80,84,0
   ds   0
   dseg
   ds   0
   public   _PosText
_PosText:
   ds.b   0
   dc.b   3
   dc.b   0
   dc.b   0
   dc.w   15
   dc.w   3
   dc.l   _MyFont
   dc.l   .3+0
   dc.l   $0000
   cseg
.3
   dc.b   68,97,110,107,101,46,0
   ds   0
   dseg
   ds   0
   public   _PosGadget
_PosGadget:
   ds.b   0
   dc.l   $0000
   dc.w   285
   dc.w   80
   dc.w   71
   dc.w   13
   dc.w   0
   dc.w   5
   dc.w   4097
   dc.l   _border
   dc.l   $0000
   dc.l   _PosText
   dc.l   $0000
   dc.l   $0000
   dc.w   0
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _reqcords
_reqcords:
   dc.w   2
   dc.w   2
   dc.w   380
   dc.w   2
   dc.w   380
   dc.w   98
   dc.w   2
   dc.w   98
   dc.w   2
   dc.w   2
   cseg
   dseg
   ds   0
   public   _RBorder
_RBorder:
   ds.b   0
   dc.w   0
   dc.w   0
   dc.b   2
   dc.b   0
   dc.b   0
   dc.b   5
   dc.l   _reqcords
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _request
_request:
   ds.b   0
   dc.l   $0000
   dc.w   0
   dc.w   0
   dc.w   382
   dc.w   102
   dc.w   0
   dc.w   0
   dc.l   _PosGadget
   dc.l   _RBorder
   dc.l   _BodyText1
   dc.w   0
   dc.b   1
   ds.b   80
   cseg
   dseg
   ds   0
   public   _EntVectors
_EntVectors:
   dc.w   0
   dc.w   0
   dc.w   109
   dc.w   0
   dc.w   109
   dc.w   11
   dc.w   0
   dc.w   11
   dc.w   0
   dc.w   1
   cseg
   dseg
   ds   0
   public   _EntBorder
_EntBorder:
   ds.b   0
   dc.w   -3
   dc.w   -2
   dc.b   1
   dc.b   0
   dc.b   0
   dc.b   5
   dc.l   _EntVectors
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _EntText
_EntText:
   ds.b   0
   dc.b   3
   dc.b   2
   dc.b   1
   dc.w   0
   dc.w   0
   dc.l   _MyFont
   dc.l   .4+0
   dc.l   $0000
   cseg
.4
   dc.b   69,110,116,115,99,104,108,-4,115,115,101,108,110,0
   ds   0
   dseg
   ds   0
   public   _EntGadget
_EntGadget:
   ds.b   0
   dc.l   $0000
   dc.w   225
   dc.w   14
   dc.w   104
   dc.w   8
   dc.w   0
   dc.w   3
   dc.w   1
   dc.l   _EntBorder
   dc.l   $0000
   dc.l   _EntText
   dc.l   $0000
   dc.l   $0000
   dc.w   0
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _VerVectors
_VerVectors:
   dc.w   0
   dc.w   0
   dc.w   109
   dc.w   0
   dc.w   109
   dc.w   11
   dc.w   0
   dc.w   11
   dc.w   0
   dc.w   1
   cseg
   dseg
   ds   0
   public   _VerBorder
_VerBorder:
   ds.b   0
   dc.w   -3
   dc.w   -2
   dc.b   1
   dc.b   0
   dc.b   0
   dc.b   5
   dc.l   _VerVectors
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _VerText
_VerText:
   ds.b   0
   dc.b   3
   dc.b   2
   dc.b   1
   dc.w   0
   dc.w   0
   dc.l   _MyFont
   dc.l   .5+0
   dc.l   $0000
   cseg
.5
   dc.b   86,101,114,115,99,104,108,-4,115,115,101,108,110,0
   ds   0
   dseg
   ds   0
   public   _VerGadget
_VerGadget:
   ds.b   0
   dc.l   _EntGadget
   dc.w   51
   dc.w   14
   dc.w   104
   dc.w   8
   dc.w   0
   dc.w   3
   dc.w   1
   dc.l   _VerBorder
   dc.l   $0000
   dc.l   _VerText
   dc.l   $0000
   dc.l   $0000
   dc.w   0
   dc.l   $0000
   cseg
   global   _UndoBuffer,300
   dseg
   ds   0
   public   _QZfileVectors
_QZfileVectors:
   dc.w   0
   dc.w   0
   dc.w   222
   dc.w   0
   dc.w   222
   dc.w   11
   dc.w   0
   dc.w   11
   dc.w   0
   dc.w   1
   cseg
   dseg
   ds   0
   public   _QZBorder
_QZBorder:
   ds.b   0
   dc.w   -3
   dc.w   -2
   dc.b   1
   dc.b   0
   dc.b   0
   dc.b   5
   dc.l   _QZfileVectors
   dc.l   $0000
   cseg
   global   _QuellfileBuffer,300
   dseg
   ds   0
   public   _QuellfileInfo
_QuellfileInfo:
   ds.b   0
   dc.l   _QuellfileBuffer
   dc.l   _UndoBuffer
   dc.w   0
   dc.w   300
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.l   $0000
   dc.l   $0000
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _QuellfileText
_QuellfileText:
   ds.b   0
   dc.b   3
   dc.b   0
   dc.b   0
   dc.w   -85
   dc.w   0
   dc.l   _MyFont
   dc.l   .6+0
   dc.l   $0000
   cseg
.6
   dc.b   81,117,101,108,108,102,105,108,101,58,0
   ds   0
   dseg
   ds   0
   public   _QuellfileGadget
_QuellfileGadget:
   ds.b   0
   dc.l   _VerGadget
   dc.w   94
   dc.w   30
   dc.w   220
   dc.w   10
   dc.w   0
   dc.w   1
   dc.w   4
   dc.l   _QZBorder
   dc.l   $0000
   dc.l   _QuellfileText
   dc.l   $0000
   dc.l   _QuellfileInfo
   dc.w   0
   dc.l   $0000
   cseg
   global   _ZielfileBuffer,300
   dseg
   ds   0
   public   _ZielfileInfo
_ZielfileInfo:
   ds.b   0
   dc.l   _ZielfileBuffer
   dc.l   _UndoBuffer
   dc.w   0
   dc.w   300
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.l   $0000
   dc.l   $0000
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _ZielfileText
_ZielfileText:
   ds.b   0
   dc.b   3
   dc.b   0
   dc.b   0
   dc.w   -85
   dc.w   0
   dc.l   _MyFont
   dc.l   .7+0
   dc.l   $0000
   cseg
.7
   dc.b   90,105,101,108,102,105,108,101,58,0
   ds   0
   dseg
   ds   0
   public   _ZielfileGadget
_ZielfileGadget:
   ds.b   0
   dc.l   _QuellfileGadget
   dc.w   94
   dc.w   44
   dc.w   220
   dc.w   10
   dc.w   0
   dc.w   1
   dc.w   4
   dc.l   _QZBorder
   dc.l   $0000
   dc.l   _ZielfileText
   dc.l   $0000
   dc.l   _ZielfileInfo
   dc.w   0
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _ZahlVectors
_ZahlVectors:
   dc.w   0
   dc.w   0
   dc.w   190
   dc.w   0
   dc.w   190
   dc.w   11
   dc.w   0
   dc.w   11
   dc.w   0
   dc.w   1
   cseg
   dseg
   ds   0
   public   _ZahlBorder
_ZahlBorder:
   ds.b   0
   dc.w   -3
   dc.w   -2
   dc.b   1
   dc.b   0
   dc.b   0
   dc.b   5
   dc.l   _ZahlVectors
   dc.l   $0000
   cseg
   global   _SchlZahlBuffer,300
   dseg
   ds   0
   public   _SchlZahlInfo
_SchlZahlInfo:
   ds.b   0
   dc.l   _SchlZahlBuffer
   dc.l   _UndoBuffer
   dc.w   0
   dc.w   300
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.l   $0000
   dc.l   $0000
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _SchlZahlText
_SchlZahlText:
   ds.b   0
   dc.b   3
   dc.b   0
   dc.b   0
   dc.w   -117
   dc.w   0
   dc.l   _MyFont
   dc.l   .8+0
   dc.l   $0000
   cseg
.8
   dc.b   83,99,104,108,-4,115,115,101,108,122,97,104,108,58,0
   ds   0
   dseg
   ds   0
   public   _SchlZahlGadget
_SchlZahlGadget:
   ds.b   0
   dc.l   _ZielfileGadget
   dc.w   126
   dc.w   58
   dc.w   185
   dc.w   10
   dc.w   0
   dc.w   2049
   dc.w   4
   dc.l   _ZahlBorder
   dc.l   $0000
   dc.l   _SchlZahlText
   dc.l   $0000
   dc.l   _SchlZahlInfo
   dc.w   0
   dc.l   $0000
   cseg
   dseg
   ds   0
   public   _NewWindow
_NewWindow:
   ds.b   0
   dc.w   130
   dc.w   78
   dc.w   380
   dc.w   100
   dc.b   0
   dc.b   1
   dc.l   $0240
   dc.l   $2104e
   dc.l   _SchlZahlGadget
   dc.l   $0000
   dc.l   .9+0
   dc.l   $0000
   dc.l   $0000
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   0
   dc.w   1
   cseg
.9
   dc.b   86,101,114,45,47,69,110,116,115,99,104,108,-4,115,115
   dc.b   101,108,110,0
   ds   0
   global   _Window,4
   global   _handle,4
   global   _start,4
   public   _buchstabe
_buchstabe:
   link   a5,#.11
   movem.l   .12,-(sp)
   move.b   9(a5),d4
   cmp.b   #97,d4
   blt   .15
   cmp.b   #122,d4
   ble   .14
.15
   cmp.b   #65,d4
   blt   .13
   cmp.b   #90,d4
   bgt   .13
.14
   move.l   #1,d0
.16
   movem.l   (sp)+,.12
   unlk   a5
   rts
.13
   move.l   #0,d0
   bra   .16
.11   equ   0
.12   reg   d4
   public   _strchback
_strchback:
   link   a5,#.17
   movem.l   .18,-(sp)
   move.l   8(a5),a2
   move.b   13(a5),d4
   move.l   a2,-(sp)
   jsr   _strlen
   add.w   #4,sp
   move.w   d0,d5
.19
   tst.w   d5
   blt   .20
   move.b   (a2,d5.w),d0
   cmp.b   d4,d0
   beq   .20
   sub.w   #1,d5
   bra   .19
.20
   move.w   d5,d0
.21
   movem.l   (sp)+,.18
   unlk   a5
   rts
.17   equ   0
.18   reg   d4/d5/a2
   public   _Zufall
_Zufall:
   link   a5,#.22
   movem.l   .23,-(sp)
   move.l   #$e7c8004d,-4(a5)
   move.l   -4(a5),d1
   move.l   _start,d0
   jsr   .Fmul#
   move.l   d0,-8(a5)
   move.l   -8(a5),d0
   jsr   .Ffix#
   move.w   d0,d1
   ext.l   d1
   move.l   d1,d0
   jsr   .Fflt#
   move.l   d0,d1
   move.l   -8(a5),d0
   jsr   .Fsub#
   move.l   d0,_start
   move.l   _start,d0
   move.l   #$f0000044,d1
   jsr   .Fmul#
   jsr   .Ffix#
   ext.l   d0
   jsr   .Fflt#
   move.l   #$80000041,d1
   jsr   .Fadd#
   move.l   d0,-8(a5)
   move.l   -8(a5),d0
.24
   movem.l   (sp)+,.23
   unlk   a5
   rts
.22   equ   -8
.23   reg   
   public   _verschluesseln
_verschluesseln:
   link   a5,#.25
   movem.l   .26,-(sp)
   pea   1005
   pea   _QuellfileBuffer
   jsr   _Open
   add.w   #8,sp
   move.l   d0,-8(a5)
   tst.l   -8(a5)
   beq   .27
   move.l   _SchlZahlInfo+28,d0
   jsr   .Fflt#
   move.l   d0,_start
.28
   move.l   _start,d0
   move.l   #$80000041,d1
   jsr   .Fcmp#
   ble   .29
   move.l   _start,d0
   move.l   #$a0000044,d1
   jsr   .Fdiv#
   move.l   d0,_start
   bra   .28
.29
   pea   1006
   pea   _ZielfileBuffer
   jsr   _Open
   add.w   #8,sp
   move.l   d0,-12(a5)
   pea   4
   pea   _SchlZahlInfo+28
   move.l   -12(a5),-(sp)
   jsr   _Write
   lea   12(sp),sp
   pea   2
   pea   -14(a5)
   move.l   -8(a5),-(sp)
   jsr   _Read
   lea   12(sp),sp
   move.l   d0,-4(a5)
.32
   jsr   _Zufall
   move.l   d0,-18(a5)
   cmp.l   #2,-4(a5)
   bne   .33
   move.l   -18(a5),d0
   jsr   .Ffix#
   move.w   -14(a5),d1
   rol.w   d0,d1
   move.w   d1,-14(a5)
.33
   move.l   -4(a5),-(sp)
   pea   -14(a5)
   move.l   -12(a5),-(sp)
   jsr   _Write
   lea   12(sp),sp
   pea   2
   pea   -14(a5)
   move.l   -8(a5),-(sp)
   jsr   _Read
   lea   12(sp),sp
   move.l   d0,-4(a5)
.30
   tst.l   -4(a5)
   bgt   .32
.31
   move.l   -12(a5),-(sp)
   jsr   _Close
   add.w   #4,sp
   move.l   -8(a5),-(sp)
   jsr   _Close
   add.w   #4,sp
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   pea   .10+0
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   bra   .34
.27
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   pea   .10+8
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
.34
.35
   movem.l   (sp)+,.26
   unlk   a5
   rts
.25   equ   -18
.26   reg   
.10
   dc.b   70,101,114,116,105,103,46,0,70,101,104,108,101,114,58
   dc.b   32,68,97,116,101,105,32,110,105,99,104,116,32,103,101
   dc.b   102,117,110,100,101,110,33,0
   ds   0
   public   _entschluesseln
_entschluesseln:
   link   a5,#.37
   movem.l   .38,-(sp)
   pea   1005
   pea   _QuellfileBuffer
   jsr   _Open
   add.w   #8,sp
   move.l   d0,-12(a5)
   tst.l   -12(a5)
   beq   .39
   move.l   _SchlZahlInfo+28,d0
   jsr   .Fflt#
   move.l   d0,_start
.40
   move.l   _start,d0
   move.l   #$80000041,d1
   jsr   .Fcmp#
   ble   .41
   move.l   _start,d0
   move.l   #$a0000044,d1
   jsr   .Fdiv#
   move.l   d0,_start
   bra   .40
.41
   pea   1006
   pea   _ZielfileBuffer
   jsr   _Open
   add.w   #8,sp
   move.l   d0,-16(a5)
   pea   4
   pea   -8(a5)
   move.l   -12(a5),-(sp)
   jsr   _Read
   lea   12(sp),sp
   pea   2
   pea   -18(a5)
   move.l   -12(a5),-(sp)
   jsr   _Read
   lea   12(sp),sp
   move.l   d0,-4(a5)
.44
   jsr   _Zufall
   move.l   d0,-22(a5)
   cmp.l   #2,-4(a5)
   bne   .45
   move.l   -22(a5),d0
   jsr   .Ffix#
   move.w   -18(a5),d1
   ror.w   d0,d1
   move.w   d1,-18(a5)
.45
   move.l   -4(a5),-(sp)
   pea   -18(a5)
   move.l   -16(a5),-(sp)
   jsr   _Write
   lea   12(sp),sp
   pea   2
   pea   -18(a5)
   move.l   -12(a5),-(sp)
   jsr   _Read
   lea   12(sp),sp
   move.l   d0,-4(a5)
.42
   tst.l   -4(a5)
   bgt   .44
.43
   move.l   -16(a5),-(sp)
   jsr   _Close
   add.w   #4,sp
   move.l   -12(a5),-(sp)
   jsr   _Close
   add.w   #4,sp
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   pea   .36+0
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   bra   .46
.39
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   pea   .36+8
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   8(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
.46
.47
   movem.l   (sp)+,.38
   unlk   a5
   rts
.37   equ   -22
.38   reg   
.36
   dc.b   70,101,114,116,105,103,46,0,70,101,104,108,101,114,58
   dc.b   32,68,97,116,101,105,32,110,105,99,104,116,32,103,101
   dc.b   102,117,110,100,101,110,33,0
   ds   0
   public   _main
_main:
   link   a5,#.49
   movem.l   .50,-(sp)
   pea   33
   pea   .48+0
   jsr   _OpenLibrary
   add.w   #8,sp
   move.l   d0,_IntuitionBase
   bne   .51
   jsr   _Quit
.51
   pea   33
   pea   .48+18
   jsr   _OpenLibrary
   add.w   #8,sp
   move.l   d0,_GfxBase
   bne   .52
   jsr   _Quit
.52
   pea   _NewWindow
   jsr   _OpenWindow
   add.w   #4,sp
   move.l   d0,_Window
   bne   .53
   jsr   _Quit
.53
   pea   _request
   move.l   _Window,-(sp)
   jsr   _SetDMRequest
   add.w   #8,sp
   move.l   _Window,-(sp)
   pea   _OffGadget
   jsr   _AlleGadgets
   add.w   #8,sp
   clr.l   -(sp)
   move.l   _Window,-(sp)
   pea   _QuellfileGadget
   jsr   _ActivateGadget
   lea   12(sp),sp
.56
   move.l   _Window,a0
   move.l   86(a0),a1
   move.l   #0,d0
   move.b   15(a1),d0
   move.l   #1,d1
   asl.l   d0,d1
   move.l   d1,-(sp)
   jsr   _Wait
   add.w   #4,sp
.57
   move.l   _Window,a0
   move.l   86(a0),-(sp)
   jsr   _GetMsg
   add.w   #4,sp
   move.l   d0,-6(a5)
   beq   .58
   move.l   -6(a5),a0
   move.l   20(a0),-10(a5)
   move.l   -6(a5),a0
   move.l   28(a0),-14(a5)
   move.l   -6(a5),-(sp)
   jsr   _ReplyMsg
   add.w   #4,sp
   move.l   -10(a5),d0
   bra   .59
.61
   move.l   _Window,-(sp)
   move.l   -14(a5),-(sp)
   jsr   _GadgetMessage
   add.w   #8,sp
   bra   .60
.62
.63
   move.l   _Window,a0
   move.l   86(a0),-(sp)
   jsr   _GetMsg
   add.w   #4,sp
   move.l   d0,-6(a5)
   beq   .64
   move.l   -6(a5),-(sp)
   jsr   _ReplyMsg
   add.w   #4,sp
   bra   .63
.64
   pea   _request
   move.l   _Window,-(sp)
   jsr   _ClearDMRequest
   add.w   #8,sp
   jsr   _Quit
   bra   .60
.59
   sub.l   #64,d0
   beq   .61
   sub.l   #448,d0
   beq   .62
.60
   bra   .57
.58
.54
   bra   .56
.55
.65
   movem.l   (sp)+,.50
   unlk   a5
   rts
.49   equ   -14
.50   reg   
.48
   dc.b   105,110,116,117,105,116,105,111,110,46,108,105,98,114,97
   dc.b   114,121,0,103,114,97,112,104,105,99,115,46,108,105,98
   dc.b   114,97,114,121,0
   ds   0
   public   _Quit
_Quit:
   link   a5,#.67
   movem.l   .68,-(sp)
   tst.l   _Window
   beq   .69
   move.l   _Window,-(sp)
   jsr   _CloseWindow
   add.w   #4,sp
.69
   tst.l   _GfxBase
   beq   .70
   move.l   _GfxBase,-(sp)
   jsr   _CloseLibrary
   add.w   #4,sp
.70
   tst.l   _IntuitionBase
   beq   .71
   move.l   _IntuitionBase,-(sp)
   jsr   _CloseLibrary
   add.w   #4,sp
.71
   clr.l   -(sp)
   jsr   _exit
   add.w   #4,sp
.72
   movem.l   (sp)+,.68
   unlk   a5
   rts
.67   equ   0
.68   reg   
   bss   _executestr,300
   public   _GadgetMessage
_GadgetMessage:
   link   a5,#.73
   movem.l   .74,-(sp)
   lea   _QuellfileGadget,a0
   move.l   8(a5),a1
   cmp.l   a0,a1
   bne   .75
   tst.b   _QuellfileBuffer
   beq   .75
   pea   _QuellfileBuffer
   pea   _ZielfileBuffer
   jsr   _strcpy
   add.w   #8,sp
   move.w   #46,-(sp)
   pea   _ZielfileBuffer
   jsr   _strchback
   add.w   #6,sp
   move.w   d0,-2(a5)
   tst.w   -2(a5)
   ble   .76
   move.w   -2(a5),d0
   lea   _ZielfileBuffer,a0
   clr.b   (a0,d0.w)
   bra   .77
.76
   pea   .66+0
   pea   _ZielfileBuffer
   jsr   _strcat
   add.w   #8,sp
.77
   clr.l   -(sp)
   move.l   12(a5),-(sp)
   pea   _ZielfileGadget
   jsr   _RefreshGadgets
   lea   12(sp),sp
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   12(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   move.l   12(a5),-(sp)
   pea   _OnGadget
   jsr   _AlleGadgets
   add.w   #8,sp
.75
   lea   _ZielfileGadget,a0
   move.l   8(a5),a1
   cmp.l   a0,a1
   bne   .78
   tst.b   _ZielfileBuffer
   beq   .80
   tst.b   _QuellfileBuffer
   beq   .79
.80
   pea   _ZielfileBuffer
   pea   _QuellfileBuffer
   jsr   _strcmp
   add.w   #8,sp
   tst.w   d0
   bne   .78
.79
   pea   _ZielfileBuffer
   pea   _QuellfileBuffer
   jsr   _strcpy
   add.w   #8,sp
   move.w   #46,-(sp)
   pea   _QuellfileBuffer
   jsr   _strchback
   add.w   #6,sp
   move.w   d0,-2(a5)
   tst.w   -2(a5)
   ble   .81
   move.w   -2(a5),d0
   lea   _QuellfileBuffer,a0
   clr.b   (a0,d0.w)
   bra   .82
.81
   pea   .66+5
   pea   _QuellfileBuffer
   jsr   _strcat
   add.w   #8,sp
.82
   clr.l   -(sp)
   move.l   12(a5),-(sp)
   pea   _QuellfileGadget
   jsr   _RefreshGadgets
   lea   12(sp),sp
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   12(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   move.l   12(a5),-(sp)
   pea   _OnGadget
   jsr   _AlleGadgets
   add.w   #8,sp
.78
   lea   _VerGadget,a0
   move.l   8(a5),a1
   cmp.l   a0,a1
   bne   .83
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   12(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   tst.b   _SchlZahlBuffer
   beq   .84
   move.l   12(a5),-(sp)
   pea   _OffGadget
   jsr   _AlleGadgets
   add.w   #8,sp
   move.l   12(a5),-(sp)
   jsr   _verschluesseln
   add.w   #4,sp
   move.l   12(a5),-(sp)
   pea   _OnGadget
   jsr   _AlleGadgets
   add.w   #8,sp
   bra   .85
.84
   pea   .66+10
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   12(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   clr.l   -(sp)
   move.l   12(a5),-(sp)
   pea   _SchlZahlGadget
   jsr   _ActivateGadget
   lea   12(sp),sp
.85
.83
   lea   _EntGadget,a0
   move.l   8(a5),a1
   cmp.l   a0,a1
   bne   .86
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   12(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   tst.b   _SchlZahlBuffer
   beq   .87
   move.l   12(a5),-(sp)
   pea   _OffGadget
   jsr   _AlleGadgets
   add.w   #8,sp
   move.l   12(a5),-(sp)
   jsr   _entschluesseln
   add.w   #4,sp
   move.l   12(a5),-(sp)
   pea   _OnGadget
   jsr   _AlleGadgets
   add.w   #8,sp
   bra   .88
.87
   pea   .66+39
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   12(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
   clr.l   -(sp)
   move.l   12(a5),-(sp)
   pea   _SchlZahlGadget
   jsr   _ActivateGadget
   lea   12(sp),sp
.88
.86
   lea   _SchlZahlGadget,a0
   move.l   8(a5),a1
   cmp.l   a0,a1
   bne   .89
   pea   _Loeschen
   pea   _Fehlertext
   jsr   _strcpy
   add.w   #8,sp
   clr.w   -(sp)
   clr.w   -(sp)
   pea   _Fehlermeldung
   move.l   12(a5),a0
   move.l   50(a0),-(sp)
   jsr   _PrintIText
   lea   12(sp),sp
.89
.90
   movem.l   (sp)+,.74
   unlk   a5
   rts
.73   equ   -2
.74   reg   
.66
   dc.b   46,107,114,112,0,46,107,114,112,0,69,114,115,116,32
   dc.b   83,99,104,108,-4,115,115,101,108,122,97,104,108,32,101
   dc.b   105,110,103,101,98,101,110,46,0,69,114,115,116,32,83
   dc.b   99,104,108,-4,115,115,101,108,122,97,104,108,32,101,105
   dc.b   110,103,101,98,101,110,46,0
   ds   0
   public   _AlleGadgets
_AlleGadgets:
   link   a5,#.92
   movem.l   .93,-(sp)
   clr.l   -(sp)
   move.l   12(a5),-(sp)
   pea   _VerGadget
   move.l   8(a5),a0
   jsr   (a0)
   lea   12(sp),sp
   clr.l   -(sp)
   move.l   12(a5),-(sp)
   pea   _EntGadget
   move.l   8(a5),a0
   jsr   (a0)
   lea   12(sp),sp
.94
   movem.l   (sp)+,.93
   unlk   a5
   rts
.92   equ   0
.93   reg   
   public   _strcmp
   public   _strcat
   public   _exit
   public   _strcpy
   public   _strlen
   public   _Write
   public   _Wait
   public   _SetDMRequest
   public   _ReplyMsg
   public   _RefreshGadgets
   public   _Read
   public   _PrintIText
   public   _OpenWindow
   public   _OpenLibrary
   public   _Open
   public   _OnGadget
   public   _OffGadget
   public   _GetMsg
   public   _CloseWindow
   public   _CloseLibrary
   public   _Close
   public   _ClearDMRequest
   public   _ActivateGadget
   public   .begin
   dseg
   end