home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August - Disc 3 / chip_20018103_hu.iso / amiga / chiputil / dragndrop14b.lha / Dragndrop_demo.lha / DragnDrop / TestDragnDrop.s < prev   
Text File  |  1999-03-30  |  38KB  |  1,345 lines
  1.  
  2.  
  3.  
  4. IFND Konstanten_Flag
  5. Konstanten_Flag=1
  6. Endif
  7.  
  8. Mode_New=1006
  9. Mode_Old=1005
  10. Offset_Begin=-1
  11. Offset_End=1
  12. Offset_Current=0
  13. Access_Read=-2
  14. Access_Write=-1
  15. DosTrue=-1
  16. DosFalse=0
  17. True=Dostrue
  18. False=DosFalse
  19. Null=0                      
  20.                         
  21.                      
  22.                          
  23.                        
  24.                         
  25.                    
  26.                    
  27.                      
  28.                        
  29.                  
  30.  
  31.     IncDir     "Sys:Coder/"
  32.     Include     "Preass/Konstanten.inc"
  33.     Include     "Preass/ASL_lib.inc"
  34.     Include     "Preass/intuition.inc"
  35.     Include     "Include/Guienv.i"
  36.     Include     "Include/Libraries/gadtools.i"
  37.  
  38. Main:
  39.     Include "preass/Startup.i"
  40.     Jsr Openlibs
  41.     Tst.l D0
  42.     Beq Mainende
  43.     Jsr START
  44. Mainende:
  45.     jsr Closelibs
  46.     Move.l Error,d0
  47.     tst.l d0
  48.     beq .l1
  49.     jmp ErrorHandling
  50. .l1:    Rts
  51.  
  52.     Mode_NoCase= 100
  53.     Mode_Case=   0
  54.  
  55.  
  56. FileReq:
  57.      Move.l A0,LokalScreen
  58.      Move.l AslBase,a6
  59.      Move.l #ASL_FileRequest,d0
  60.      Move.l #0,a0
  61.      Jsr AllocAslRequest(a6)
  62.      Move.l D0,Requester
  63.      Tst.l Requester
  64.      Beq .Select2
  65.      move.l #ASLFR_Taglist,a0
  66.      move.l LokalScreen,4(a0)
  67.      Move.l Requester,a0
  68.      Move.l #ASLFR_Taglist,a1
  69.      Jsr ASLRequest(a6)
  70.      Move.l D0,Result
  71.         Tst.l Result
  72.         Beq .Select2
  73.         Clr.l D0
  74.         Move.l Requester,A0
  75.         Move.l 4(A0),D0
  76.         Move.l D0,Filename_Zeiger
  77.         Clr.l D0
  78.         Move.l Requester,A0
  79.         Move.l 8(A0),D0
  80.         Move.l D0,Dirname_zeiger
  81.         Move.l ExecBase,a6
  82.         Move.l Dirname_zeiger,a0
  83.         Move.l #Dirname,a1
  84.         Move.l #100,d0
  85.         Jsr Copymem(a6)
  86.         Move.l Filename_zeiger,a0
  87.         Move.l #Name,a1
  88.         Move.l #100,d0
  89.         Jsr Copymem(a6)
  90.         Lea Name_Bak,a0
  91.         move.l Dirname_zeiger,a1
  92. .Sel1:  move.b (a1)+,(a0)+
  93.         cmpi.b #0,(a1)
  94.         bne .sel1
  95.         cmpi.b #":",-1(a0)
  96.         beq .sel12
  97.         move.b #"/",(a0)+
  98. .sel12: move.l Filename_zeiger,a1
  99. .Sel2:  move.b (a1)+,(a0)+
  100.         cmpi.b #0,(a1)
  101.         bne .sel2
  102.         move.b #0,(a0)+
  103. .Select2:
  104.         Tst.l Requester
  105.         Beq .lab1
  106.         Move.l AslBase,a6
  107.         Move.l Requester,a0
  108.         Jsr FreeASLRequest(a6)
  109. .lab1:  RTS
  110.  
  111. FillBuffer:
  112.     subq.l #1,d1
  113. .l1:move.b d0,(a0)+
  114.     dbra  d1,.l1
  115.     RTS
  116.  
  117. ConvertZahl:
  118.     Move.l #"    ",Zusatz
  119.     Move.l #"   0",Zahl
  120. ConvertZahl1:
  121.     Movem.l a0-a5,-(sp)
  122.     Lea Zusatz,a0
  123.     Cmpi.l #0,d7
  124.     bpl .l0
  125.     Neg.l d7
  126.     move.b #"-",zahl
  127.     Cmpi.l #9999,d7
  128.     bgt .l0
  129.     move.b #"-",zusatz
  130. .l0:Move.l d7,d0
  131.     MoveQ.l #-1,d1
  132. .l1:AddQ.l #1,d1
  133.     Subi.l #10000000,d0
  134.     Bpl .l1
  135.     Addi.l #10000000,d0
  136.     addi.l #$30,d1
  137.     cmpi.b #"0",d1
  138.     Beq .l11
  139.     move.b d1,0(a0)
  140. .l11:MoveQ.l #-1,d1
  141. .l2:AddQ.l #1,d1
  142.     Subi.l #1000000,d0
  143.     Bpl .l2
  144.     Addi.l #1000000,d0
  145.     addi.l #$30,d1
  146.     cmpi.b #" ",0(a0)
  147.     bne .l22
  148.     cmpi.b #"0",d1
  149.     Beq .l21
  150. .l22:
  151.     move.b d1,1(a0)
  152. .l21:MoveQ.l #-1,d1
  153. .l3:AddQ.l #1,d1
  154.     Subi.l #100000,d0
  155.     Bpl .l3
  156.     Addi.l #100000,d0
  157.     addi.l #$30,d1
  158.     cmpi.b #" ",1(a0)
  159.     bne .l32
  160.     cmpi.b #"0",d1
  161.     Beq .l31
  162. .l32:
  163.     move.b d1,2(a0)
  164. .l31:MoveQ.l #-1,d1
  165. .l4:AddQ.l #1,d1
  166.     Subi.l #10000,d0
  167.     Bpl .l4
  168.     Addi.l #10000,d0
  169.     addi.l #$30,d1
  170.     cmpi.b #" ",2(a0)
  171.     bne .l42
  172.     cmpi.b #"0",d1
  173.     Beq .l41
  174. .l42:
  175.     move.b d1,3(a0)
  176. .l41:MoveQ.l #-1,d1
  177. .l5:AddQ.l #1,d1
  178.     Subi.l #1000,d0
  179.     Bpl .l5
  180.     Addi.l #1000,d0
  181.     addi.l #$30,d1
  182.     cmpi.b #" ",3(a0)
  183.     bne .l52
  184.     cmpi.b #"0",d1
  185.     Beq .l51
  186. .l52:
  187.     move.b d1,4(a0)
  188. .l51:MoveQ.l #-1,d1
  189. .l6:AddQ.l #1,d1
  190.     Subi.l #100,d0
  191.     Bpl .l6
  192.     Addi.l #100,d0
  193.     addi.l #$30,d1
  194.     cmpi.b #" ",4(a0)
  195.     bne .l62
  196.     cmpi.b #"0",d1
  197.     Beq .l61
  198. .l62:
  199.     move.b d1,5(a0)
  200. .l61:MoveQ.l #-1,d1
  201. .l7:AddQ.l #1,d1
  202.     Subi.l #10,d0
  203.     Bpl .l7
  204.     Addi.l #10,d0
  205.     addi.l #$30,d1
  206.     cmpi.b #" ",5(a0)
  207.     bne .l72
  208.     cmpi.b #"0",d1
  209.     Beq .l71
  210. .l72:
  211.     move.b d1,6(a0)
  212. .l71:
  213.     addi.l #$30,d0
  214.     move.b d0,7(a0)
  215.     Movem.l (sp)+,a0-a5
  216.     Tst.l D6
  217.     Beq .ende   
  218.     Move.l DOSBase,a6
  219.     Move.l D6,d1
  220.     Move.l #Zusatz,d2
  221.     Move.l #8,d3
  222.     Jsr Write(a6)
  223. .ende:RTS
  224.  
  225. CompareString:
  226.     movem.l d0-d7/a0-a6,-(sp)
  227.     movem.l d0-d1/a0-a1,-(sp)
  228.     Jsr CountString
  229.     Move.l D0,Stringlaenge
  230.     movem.l (sp)+,d0-d1/a0-a1
  231.     movem.l d0-d1/a0-a1,-(sp)
  232. Move.l a1,A0
  233. Jsr CountString
  234.     Cmp.l Stringlaenge,D0
  235.     Beq .l0
  236.     movem.l (sp)+,d0-d1/a0-a1
  237.     bra .fehler
  238. .l0:movem.l (sp)+,d0-d1/a0-a1
  239.     cmpi.l #Mode_Nocase,d1
  240.     beq .nocase
  241.     move.l Stringlaenge,d1
  242.     subq.l #1,d1
  243.     addi.l d0,a1
  244. .l1:move.b (a0)+,d0
  245.     cmp.b (a1)+,d0
  246.     bne .fehler
  247.     dbra d1,.l1
  248.     movem.l (a7)+,d0-d7/a0-a6
  249.     moveq.l #-1,d0
  250.     RTS
  251. .NoCase:
  252.     move.l Stringlaenge,d1
  253.     subq.l #1,d1
  254.     addi.l d0,a1
  255. .l2:move.b (a0)+,d0
  256.     move.b (a1)+,d2
  257.     bclr #5,d0
  258.     bclr #5,d2
  259.     cmp.b d2,d0
  260.     bne .fehler
  261.     dbra d1,.l2
  262.     movem.l (a7)+,d0-d7/a0-a6
  263.     moveq.l #-1,d0
  264.     RTS
  265. .Fehler:
  266.     movem.l (a7)+,d0-d7/a0-a6
  267.     moveq.l #0,d0
  268.     RTS
  269.  
  270. CountString:
  271.         move.l a1,-(Sp)
  272.         move.l a0,a1
  273. .l1:    cmpi.b #$00,(a1)+
  274.         bne .l1
  275.         lea -1(a1),a1
  276.         sub.l a0,a1
  277.         move.l a1,d0
  278.         move.l (sp)+,a1
  279.         RTS
  280.  
  281. CountEOL:
  282.         move.l a1,-(Sp)
  283.         move.l a0,a1
  284. .l1:    cmpi.b #$0a,(a1)
  285.         beq .l2
  286.         cmpi.b #$00,(a1)+
  287.         bne .l1
  288.         lea -1(a1),a1
  289. .l2:    sub.l a0,a1
  290.         move.l a1,d0
  291.         addq.l #1,d0
  292.         cmpi.b #$00,(a0)
  293.         beq .null
  294.         move.l (sp)+,a1
  295.         RTS
  296. .null:  clr.l d0
  297.         move.l (sp)+,a1
  298.         RTS
  299.  
  300. CD:
  301.         Move.l DOSBase,a6
  302.         Move.l a0,d1
  303.         Move.l #Access_read,d2
  304.         Jsr Lock(a6)
  305.         Tst.l d0
  306.         Beq .ende
  307.             Move.l d0,d1
  308.             Jsr Currentdir(a6)
  309.             Move.l d0,d1
  310.             Jsr Unlock(a6)
  311.             moveq.l #-1,d0
  312. .ende:  RTS
  313.  
  314. GetFilename:
  315.         cmpi.l #0,laenge
  316.         beq .l13
  317.         cmpi.l #1,laenge
  318.         beq .l13
  319.         Move.l Adresse,a0
  320. .l1:    cmpi.b #`"`,(a0)
  321.         beq .l10
  322.         cmpi.b #` `,(a0)+
  323.         beq .l1
  324.         lea -1(a0),a1
  325. .l2:    cmpi.b #`"`,(a0)
  326.         beq .l11
  327.         cmpi.b #$0a,(a0)
  328.         beq .l12
  329.         cmpi.b #$00,(a0)
  330.         beq .l12
  331.         cmpi.b #` `,(a0)+
  332.         bne .l2
  333.         Lea -1(a0),a2
  334. .l3:    suba.l a1,a2
  335.         move.l A0,NextArg
  336.         Move.l ExecBase,a6
  337.         Move.l a1,a0
  338.         Move.l #Filename,a1
  339.         Move.l a2,d0
  340.         Jsr Copymem(a6)
  341.         Move.l a2,d0
  342.         rts
  343. .l10:   lea 1(a0),a1
  344.         bra .l2
  345. .l11:   lea 1(a0),a1
  346.         bra .l3
  347. .l12:   move.l a0,a2
  348.         bra .l3
  349. .l13:   moveq.l #0,d0
  350.         RTS
  351.  
  352.  
  353.  
  354.  
  355.  
  356.     Normal=     0
  357.     Kein_CLS=   1
  358.     Keine_CMAP= 2
  359.     Play_Anim=  3
  360.  
  361. CNOP 0,4
  362. BMHD:
  363. Breite: dc.w 0
  364. Hoehe:  dc.w 0
  365. Posx:   dc.w 0
  366. Posy:   dc.w 0
  367. Tiefe:  dc.b 0
  368. Maske:  dc.b 0
  369. Packart:dc.b 0,0
  370. Trans:  dc.w 0
  371.         dc.b 0,0
  372. PageX:  dc.w 0
  373. PageY:  dc.w 0
  374.  
  375. Bitmap:
  376. BPR:    dc.w 0
  377. Rows:   dc.w 0
  378.         dc.b 0
  379. Tiefe1: dc.b 0
  380.         dc.w 0
  381. plane1: dc.l 0
  382. plane2: dc.l 0
  383. plane3: dc.l 0
  384. plane4: dc.l 0
  385. plane5: dc.l 0
  386. plane6: dc.l 0
  387. plane7: dc.l 0
  388. plane8: dc.l 0
  389.  
  390. Cnop 0,4
  391. DisplayIFF:
  392.     Moveq.l #$0,D0
  393.     Move.l D0,SBlock
  394.     Moveq.l #$0,D0
  395.     Move.l D0,DBlock
  396.     Move.l DOSBase,a6
  397.     Move.l a0,d1
  398.     Move.l #Mode_old,d2
  399.     Jsr Open(a6)
  400.     Move.l D0,FH
  401.     Tst.l FH
  402.     Beq .Error
  403.         Move.l Lokalmode,d0
  404.         Cmp.l #Normal,D0
  405.         Beq .pre0000
  406.         Bra .pre0001
  407. .pre0000:
  408.    Move.l GraphicsBase,a6
  409.    Move.l Viewport,a0
  410.    Move.l #0,d0
  411.    Move.l #0,d1
  412.    Move.l #0,d2
  413.    Move.l #0,d3
  414.    Jsr SetRGB32(a6)
  415.                                  Move.l LRp,a1
  416.                                  Move.l #0,d0
  417.                                  Jsr SetAPen(a6)
  418.                                  Move.l LRp,a1
  419.                                  Move.l #0,d0
  420.                                  Move.l #0,d1
  421.                                  Move.l #639,d2
  422.                                  Move.l #279,d3
  423.                                  Jsr RectFill(a6)
  424. .Pre0001:
  425.                                                                                                             
  426.         Move.l DOSBase,a6
  427.         Move.l FH,d1
  428.         Move.l #Buffer,d2
  429.         Move.l #4,d3
  430.         Jsr Read(a6)
  431.         Move.l Buffer,d0
  432.         Cmp.l #"FORM",D0
  433.         Bne .ErrorClose1
  434.         Move.l FH,d1
  435.         Move.l #Buffer,d2
  436.         Move.l #4,d3
  437.         Jsr Read(a6)
  438.         Move.l FH,d1
  439.         Move.l #Buffer,d2
  440.         Move.l #4,d3
  441.         Jsr Read(a6)
  442.         Move.l Buffer,d0
  443.         Cmp.l #"ILBM",D0
  444.         Bne .ErrorClose1
  445.         Move.l FH,d1
  446.         Move.l #Buffer,d2
  447.         Move.l #4,d3
  448.         Jsr Read(a6)
  449.         Move.l Buffer,d0
  450.         Cmp.l #"BMHD",D0
  451.         Bne .ErrorClose1
  452.         Move.l FH,d1
  453.         Move.l #anzahl,d2
  454.         Move.l #4,d3
  455.         Jsr Read(a6)
  456.         Move.l FH,d1
  457.         Move.l #BMHD,d2
  458.         Move.l anzahl,d3
  459.         Jsr Read(a6)
  460.         Clr.l d0
  461.         Move.l Lokalmode,d0
  462.         Cmp.l #PLAY_Anim,D0
  463.         Beq .pre0005
  464.         Bra .pre0006
  465. .pre0005:
  466.  
  467.                                   Move.l #44,PosLeft
  468.                                   Move.l #0,PosTop
  469.                                 
  470. .Pre0006:
  471.                                                                                                                                          
  472.         Move.w Breite,d0
  473.         Move.l d0,BildBreite
  474.         Move.w Hoehe,d0
  475.         Move.l d0,Bildhoehe
  476.         Move.l BildHoehe,d0
  477.         Cmp.l MaxHoehe,D0
  478.         Blt .Schleife
  479.         Move.l MaxHoehe,BildHoehe
  480. .Schleife:
  481.         Move.l DOSBase,a6
  482.         Move.l FH,d1
  483.         Move.l #Buffer,d2
  484.         Move.l #4,d3
  485.         Jsr Read(a6)
  486.         Move.l D0,Anzahl
  487.         Move.l Anzahl,d0
  488.         Cmp.l #4,D0
  489.         Bne .ende
  490.         Move.l FH,d1
  491.         Move.l #anzahl,d2
  492.         Move.l #4,d3
  493.         Jsr Read(a6)
  494.         Move.l Buffer,d0
  495.         Cmp.l #"CMAP",D0
  496.         Beq .pre0010
  497.         Bra .pre0011
  498. .pre0010:
  499.  
  500.                             Move.l FH,d1
  501.                             Move.l #Buffer,d2
  502.                             Move.l anzahl,d3
  503.                             Jsr Read(a6)
  504.                             Move.l LokalMode,d0
  505.                             Cmp.l #Keine_CMAP,D0
  506.                             Beq .Schleife
  507.                             move.l Anzahl,d7
  508.                             divu.l #3,d7
  509.                             subq.l #1,d7
  510.                             Lea Buffer,a4
  511.                             Moveq.l #-1,d4
  512. .CMAP1:                     Clr.l d1
  513.                             Clr.l d2
  514.                             Clr.l d3
  515.                             addq.l #1,d4
  516.                             move.b (a4)+,d1
  517.                             move.b (a4)+,d2
  518.                             move.b (a4)+,d3
  519.                             ROR.l #8,d1
  520.                             ROR.l #8,d2
  521.                             ROR.l #8,d3
  522.                             Move.l GraphicsBase,a6
  523.                             Move.l Viewport,a0
  524.                             Move.l D4,d0
  525.                             Move.l D1,d1
  526.                             Move.l D2,d2
  527.                             Jsr SetRGB32(a6)
  528.                             Move.l D4,d0
  529.                             Cmp.l #255,D0
  530.                             Bne .Cmap1
  531.                             bra .Schleife
  532.                           
  533. .Pre0011:
  534.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
  535.         Move.l Buffer,d0
  536.         Cmp.l #"BODY",D0
  537.         Beq .pre0015
  538.         Bra .pre0016
  539. .pre0015:
  540.  
  541.                             Move.l ExecBase,a6
  542.                             Move.l Anzahl,d0
  543.                             Move.l #MEMF_any,d1
  544.                             Jsr Allocmem(a6)
  545.                             Move.l D0,SBlock
  546.                             Tst.l SBlock
  547.                             Beq .errorclose1
  548.                             Move.l DOSBase,a6
  549.                             Move.l FH,d1
  550.                             Move.l Sblock,d2
  551.                             Move.l anzahl,d3
  552.                             Jsr Read(a6)
  553.                             clr.l d0
  554.                             clr.l d1
  555.                             move.W Breite,d0
  556.                             divu.w #8,d0
  557.                             swap d0
  558.                             cmpi.w #0,d0
  559.                             beq.s .body1
  560.                             addi.l #$00010000,d0
  561. .body1:
  562.                             swap.w d0
  563.                             andi.l #$FFFF,d0
  564.                             move.l d0,BytesperRow
  565.                             move.w hoehe,d1
  566.                             mulu.l d1,d0
  567.                             clr.w d1
  568.                             move.b Tiefe,d1
  569.                             mulu.l d1,d0
  570.                             move.l d0,BM_laenge                            
  571.                             Move.l ExecBase,a6
  572.                             Move.l BM_Laenge,d0
  573.                             Move.l #MEMF_ANY,d1
  574.                             Jsr AllocMem(a6)
  575.                             Move.l D0,DBlock
  576.                             Tst.l Dblock
  577.                             Beq .Errorclose2
  578.                             move.l sblock,a0
  579.                             move.l dblock,a1
  580.                             move.l a1,a2
  581.                             add.l BM_laenge,a2
  582. .Body2:                     clr.w d0
  583.                             cmp.l a1,a2
  584.                             ble.s .Bodyende
  585.                             move.b (a0)+,d0
  586.                             tst.b d0
  587.                             bpl.s .plus           ; nicht gleiche
  588.                             neg.b d0
  589.                             move.b (a0)+,d1
  590. .Body3:                     move.b d1,(a1)+
  591.                             dbra d0,.Body3
  592.                             bra.s .body2
  593. .plus:                      move.b (a0)+,(a1)+
  594.                             dbra d0,.plus
  595.                             bra.s .body2
  596. .Bodyende:                  
  597.                             Move.l ExecBase,a6
  598.                             Move.l SBlock,a1
  599.                             Move.l Anzahl,d0
  600.                             Jsr Freemem(a6)
  601.                             Move.l DBlock,SBlock        ; Tausche Source<->Ziel
  602.                             Move.l BM_Laenge,d0
  603.                             Move.l #MEMF_Chip,d1
  604.                             Jsr AllocMem(a6)
  605.                             Move.l D0,DBlock
  606.                             Tst.l Dblock
  607.                             Beq .Errorclose3
  608.                             clr.l d1
  609.                             move.l Bytesperrow,d7
  610.                             Move.l d7,d0
  611.                             move.w Hoehe,d1
  612.                             mulu.l d0,d1
  613.                             move.l d1,BitPlaneGroesse
  614.                             move.l d7,d1
  615. ;                            Lsr.l #2,d7
  616.                             subq.l #1,d7
  617.                             move.l d7,d6
  618.                             clr.l d0
  619.                             move.b tiefe,D0
  620.                             move.l d0,Planes
  621.                             subq.l #1,d0
  622.                             mulu.l d1,d0
  623.                             move.l d0,skip
  624.  
  625.                         Move.l #1,I
  626.                         Move.l Planes,I_bis
  627.                         Move.l #1,I_Step
  628. .I_Label:
  629.  
  630.                             Move.l Sblock,a0
  631.                             Move.l I,d0
  632.                             Subq.l #1,d0
  633.                             move.l BytesPerRow,d1
  634.                             mulu.l d1,d0
  635.                             add.l d0,a0
  636.                             Move.l Dblock,a1
  637.                             Move.l I,d0
  638.                             Subq.l #1,d0
  639.                             move.l BitPlanegroesse,d1
  640.                             mulu.l d1,d0
  641.                             add.l d0,a1
  642.                             move.w hoehe,d5
  643.                             subq.l #1,d5
  644. .body5:                     Move.b (a0)+,(a1)+
  645.                             dbra d6,.Body5
  646.                             add.l Skip,a0
  647.                             move.l d7,d6
  648.                             dbra d5,.Body5
  649.  
  650.                         Move.l I,D0
  651.                         Add.l I_Step,D0
  652.                         Move.l D0,I
  653.                         Cmp.l I_Bis,D0
  654.                         Ble .I_Label
  655.                         Move.l sblock,a1
  656.                         Move.l BM_Laenge,d0
  657.                         Jsr Freemem(a6)
  658.                         Move.l LokalMode,d0
  659.                         Cmp.l #PLAY_Anim,D0
  660.                         Bne .pre0017
  661.                         Bra .pre0018
  662. .pre0017:
  663.  
  664.                                         Move.l DOSBase,a6
  665.                                         Move.l FH,d1
  666.                                         Jsr Close(a6)
  667.                                                 
  668. .Pre0018:
  669.                                                                                                              
  670.                         move.l BytesperRow,d0
  671.                         move.w d0,BPR
  672.                         move.w hoehe,Rows
  673.                         move.b tiefe,tiefe1
  674.                         Move.l Bitplanegroesse,d0
  675.                         move.l DBlock,a0
  676.                         move.l #plane1,a1
  677.                         move.l a0,(a1)+
  678.                         add.l d0,a0
  679.                         move.l a0,(a1)+
  680.                         add.l d0,a0
  681.                         move.l a0,(a1)+
  682.                         add.l d0,a0
  683.                         move.l a0,(a1)+
  684.                         add.l d0,a0
  685.                         move.l a0,(a1)+
  686.                         add.l d0,a0
  687.                         move.l a0,(a1)+
  688.                         add.l d0,a0
  689.                         move.l a0,(a1)+
  690.                         add.l d0,a0
  691.                         move.l a0,(a1)+
  692.                         Move.l GraphicsBase,a6
  693.                         Move.l #Bitmap,a0
  694.                         Move.l #0,d0
  695.                         Move.l #0,d1
  696.                         Move.l LRp,a1
  697.                         Move.l PosLeft,d2
  698.                         Move.l PosTop,d3
  699.                         Move.l BildBreite,d4
  700.                         Move.l Bildhoehe,d5
  701.                         Move.l #$C0,d6
  702.                         Jsr BltBitMapRastport(a6)
  703.                         Move.l ExecBase,a6
  704.                         Move.l Dblock,a1
  705.                         Move.l BM_Laenge,d0
  706.                         Jsr Freemem(a6)
  707.                         Move.l LokalMode,d0
  708.                         Cmp.l #Play_Anim,D0
  709.                         Beq .Schleife
  710.                         RTS
  711.                         
  712. .Pre0016:
  713.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  714.         Move.l DOSBase,a6
  715.         Move.l FH,d1
  716.         Move.l #Buffer,d2
  717.         Move.l anzahl,d3
  718.         Jsr Read(a6)
  719.         Bra .Schleife          
  720. .Error: Move.l #0,d0
  721.         RTS
  722. .errorClose3:
  723.         Move.l ExecBase,a6
  724.         Move.l Dblock,a1
  725.         Move.l BM_laenge,d0
  726.         Jsr FreeMem(a6)
  727.         bra.s .ErrorClose1        
  728. .errorClose2:
  729.         Move.l ExecBase,a6
  730.         Move.l Sblock,a1
  731.         Move.l Anzahl,d0
  732.         Jsr FreeMem(a6)
  733. .ErrorClose1:
  734.         Move.l DOSBase,a6
  735.         Move.l FH,d1
  736.         Jsr Close(a6)
  737.         bra.s .error
  738. .ende:  
  739.         Move.l DOSBase,a6
  740.         Move.l FH,d1
  741.         Jsr Close(a6)
  742.         RTS
  743.  
  744.  
  745. Open_Window:              
  746.     Move.l GUIEnvBase,a6
  747.     Move.l #000,D0
  748.     Move.l #000,D1
  749.     Move.l #640,D2
  750.     Move.l #480,D3
  751.     Move.l Lokal1,A0
  752.     Move.l #IDCMP_MOUSEMOVE!IDCMP_MOUSEBUTTONS!IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_REFRESHWINDOW!IDCMP_MENUPICK!IDCMP_VANILLAKEY!IDCMP_RAWKEY!0,D4
  753.     Move.l #WFLG_BACKDROP!WFLG_BORDERLESS!WFLG_REPORTMOUSE!0,D5
  754.     Move.l Lokal,A1
  755.     Move.l #0,A2
  756.     Jsr OpenGuiWindowA(a6)
  757.     Move.l D0,Window
  758.     Tst.l Window
  759.     Beq Open_Windowende
  760.     Move.l Window,A0
  761.     Move.l #0,A1
  762.     Jsr CreateGuiInfoA(a6)
  763.     Move.l D0,GUI
  764.       Move.l gui,A0
  765.       Move.l #001,D0
  766.       Move.l #Projektname000,A1
  767.       Move.l #0,A2
  768.       Jsr CreateGUIMenuEntryA(a6)
  769.     Move.l gui,A0
  770.     Move.l #002,D0
  771.     Move.l #Quitname001,A1
  772.     Move.l #Menu001Tags,A2
  773.     Jsr CreateGUIMenuEntryA(a6)
  774. Open_Windowende:
  775.     Move.l Window,D0
  776.     RTS
  777.  
  778. Close_Window:       
  779.     Move.l GUIEnvBase,a6
  780.     Move.l Lokal,A0
  781.     Jsr CloseGuiWindow(a6)
  782.     RTS
  783.  
  784. Open_Screen:                   
  785.     Move.l GUIEnvBase,a6
  786.     Move.l Screenmode,D0
  787.     Move.l #8,D1
  788.     Move.l Lokal1,A0
  789.     Move.l #ScreenTags,A1
  790.     Jsr OpenGuiScreenA(a6)
  791.     Move.l D0,Screen
  792. .Ende:
  793.     Move.l Screen,D0
  794.     RTS
  795.  
  796. even
  797. TopazAttr:
  798.     dc.l TopazName
  799.     dc.w 8
  800.     dc.b 0,0
  801. Topazname:
  802.     dc.b "topaz.font",0
  803.     blk.b 29,0
  804.  
  805. Close_Screen:       
  806.     Move.l GUIEnvBase,a6
  807.     Move.l Lokal,A0
  808.     Jsr CloseGuiScreen(a6)
  809.     RTS
  810.  
  811. Haupt:  
  812.     Move.l GUIEnvBase,a6
  813.     Move.l Gui,A0
  814.     Jsr WaitGuiMsg(a6)
  815.     Clr.l D0
  816.     Move.l Gui,A0
  817.     Move.l 36(A0),D0
  818.     Move.l D0,MsgClass
  819.     Clr.l D0
  820.     Move.l Gui,A0
  821.     Move.w 52(A0),D0
  822.     Move.l D0,MsgGadNbr
  823.     Clr.l D0
  824.     Move.l Gui,A0
  825.     Move.w 54(A0),D0
  826.     Move.l D0,MsgMenuNum
  827.     Clr.l D0
  828.     Move.l Gui,A0
  829.     Move.w 56(A0),D0
  830.     Move.l D0,MsgItemNum
  831.     Clr.l D0
  832.     Move.l Gui,A0
  833.     Move.l 32(A0),D0
  834.     Move.l D0,Imsg
  835.     Clr.l D0
  836.     Move.l Imsg,A0
  837.     Move.w 32(A0),D0
  838.     Move.l D0,Mx
  839.     Clr.l D0
  840.     Move.l Imsg,A0
  841.     Move.w 34(A0),D0
  842.     Move.l D0,My
  843.     Move.l mx,D0
  844.     Sub.l mxa,D0
  845.     Move.l D0,dx
  846.     Move.l my,D0
  847.     Sub.l mya,D0
  848.     Move.l D0,dy
  849.     Move.l mx,D0
  850.     Move.l D0,mxa
  851.     Move.l my,D0
  852.     Move.l D0,mya
  853.     Move.l MsgClass,d0
  854.     Cmp.l #IDCMP_MOUSEMOVE,D0
  855.     Beq .pre0022
  856.     Bra .pre0023
  857. .pre0022:
  858. Move.l Dragstatus,d0
  859. Cmp.l #1,D0
  860. Beq .Delta
  861. .Pre0023:
  862.  
  863.    Move.l MsgClass,d0
  864.    Cmp.l #IDCMP_MOUSEBUTTONS,D0
  865.    Beq .Dragdrop
  866.     Move.l MsgClass,d0
  867.     Cmp.l #IDCMP_MENUPICK,D0
  868.     Bne Haupt
  869.     RTS
  870. .DragDrop:
  871.     Move.l DragStatus,d0
  872.     Cmp.l #1,D0
  873.     Beq .Drop
  874. .Drag:
  875. Move.l DragnDropBase,a6
  876. lea Polygon1,a0
  877. Move.l mx,d0
  878. Move.l my,d1
  879. Jsr DND_TestPolygon(a6)
  880. Move.l D0,TA_result
  881.     Cmp.l #0,D0
  882.     Bne .Dragfound
  883. lea Polygon2,a0
  884. Move.l mx,d0
  885. Move.l my,d1
  886. Jsr DND_TestPolygon(a6)
  887. Move.l D0,TA_result
  888.     Cmp.l #0,D0
  889.     Bne .Dragfound
  890. lea Polygon3,a0
  891. Move.l mx,d0
  892. Move.l my,d1
  893. Jsr DND_TestPolygon(a6)
  894. Move.l D0,TA_result
  895.     Cmp.l #0,D0
  896.     Bne .Dragfound
  897. lea Polygon4,a0
  898. Move.l mx,d0
  899. Move.l my,d1
  900. Jsr DND_TestPolygon(a6)
  901. Move.l D0,TA_result
  902.     Cmp.l #0,D0
  903.     Bne .Dragfound
  904. lea Polygon5,a0
  905. Move.l mx,d0
  906. Move.l my,d1
  907. Jsr DND_TestPolygon(a6)
  908. Move.l D0,TA_result
  909.     Cmp.l #0,D0
  910.     Bne .Dragfound
  911. lea Polygon7,a0
  912. Move.l mx,d0
  913. Move.l my,d1
  914. Jsr DND_TestPolygon(a6)
  915. Move.l D0,TA_result
  916.     Cmp.l #0,D0
  917.     Bne .Dragfound
  918. lea Polygon8,a0
  919. Move.l mx,d0
  920. Move.l my,d1
  921. Jsr DND_TestPolygon(a6)
  922. Move.l D0,TA_result
  923.     Cmp.l #0,D0
  924.     Bne .Dragfound
  925.     Bra Haupt
  926. .dragfound:
  927.     Moveq.l #$1,D0
  928.     Move.l D0,Dragstatus
  929.     Move.l Rastport1,a0
  930.     Move.l TA_Result,a1
  931.     Move.l Screen1,a2
  932.     Jsr DND_OpenPolygon(a6)
  933.     Move.l D0,Drag
  934.     bra Haupt
  935. .Delta:
  936.     Move.l DragnDropBase,a6
  937.     Move.l Drag,a0
  938.     Move.l dx,d0
  939.     Move.l dy,d1
  940.     Jsr DND_MoveDrag(a6)
  941.     bra Haupt
  942. .Drop:
  943.     Moveq.l #$0,D0
  944.     Move.l D0,Dragstatus
  945.     Move.l DragnDropBase,a6
  946.     Move.l Drag,a0
  947.     Jsr DND_CloseDrag(a6)
  948.     Move.l TA_Result,a0
  949.     Jsr DND_FreeResult(a6)
  950.     Moveq.l #$0,D0
  951.     Move.l D0,Drag
  952. lea Drops,A0
  953. Move.l mx,d0
  954. Move.l my,d1
  955. Jsr DND_TestArea(a6)
  956. Move.l D0,TA_result
  957.     Cmp.l #0,D0
  958.     Beq Haupt
  959.     Move.l Ta_result,a0
  960.     Jsr DND_FreeResult(a6)
  961. .Dropfound:
  962.     Move.l GUIEnvBase,a6
  963.     Move.l Gui,A0
  964.     Move.l #Dropname002,A1
  965.     Move.l #GER_Okkind,D0
  966.     Move.l #0,A2
  967.     Jsr GuiRequestA(a6)
  968.     bra Haupt
  969.  
  970. Hintergrundbild:       
  971.     Move.l Screen1,A0
  972.     lea 84(A0),A0
  973.     Move.l A0,ScreenRastport
  974.     Move.l Screen1,A0
  975.     lea 44(A0),A0
  976.     Move.l A0,Viewport
  977.     Move.l #480,D0
  978.     Move.l D0,Maxhoehe
  979.     Move.l LOKAL,A0
  980.     Move.l #Normal,LokalMode
  981.     Move.l Rastport1,LRp
  982.     Move.l #00,PosLeft
  983.     Move.l #0,PosTop
  984.     Jsr DisplayIff
  985.     RTS
  986.  
  987. Start:
  988.     Move.l DOSBase,a6
  989.     Jsr Input(a6)
  990.     Move.l D0,IH
  991.     Jsr Output(a6)
  992.     Move.l D0,OH
  993. Move.l #$39024,Screenmode
  994. Move.l #Screen1name003,Lokal1
  995. Jsr Open_Screen
  996. Move.l D0,Screen1
  997.        Cmp.l #0,D0
  998.        Bne .pre0027
  999.        Bra .pre0028
  1000. .pre0027:
  1001.  
  1002. Move.l Screen1,Lokal
  1003. Move.l #Window1name004,Lokal1
  1004. Jsr Open_Window
  1005. Move.l D0,Window1
  1006.            Cmp.l #0,D0
  1007.            Bne .pre0029
  1008.            Bra .pre0030
  1009. .pre0029:
  1010.  
  1011.                 Move.l Gui,D0
  1012.                 Move.l D0,Gui1
  1013.                         Clr.l D0
  1014.                         Move.l Window1,A0
  1015.                         Move.l 50(A0),D0
  1016.                         Move.l D0,Rastport1
  1017.                         Move.l #dragndropname005,Lokal
  1018.                         Jsr HintergrundBild
  1019. ;                        DND_Draw(Rastport1,&Drags,1)
  1020. ;                        DND_DrawPolygon(Rastport1,&polygon,1)
  1021.                         Move.l GUIEnvBase,a6
  1022.                         Move.l Gui1,A0
  1023.                         Move.l #0,A1
  1024.                         Jsr DrawGuiA(a6)
  1025.                         Move.l Gui1,D0
  1026.                         Move.l D0,Gui
  1027.                         Jsr Haupt
  1028.                         Move.l Window1,Lokal
  1029.                         Jsr Close_Window
  1030.                                                          
  1031. .Pre0030:
  1032.                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
  1033.                     Move.l Screen1,Lokal
  1034.                     Jsr Close_Screen
  1035.                                                       
  1036. .Pre0028:
  1037.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          
  1038.     RTS
  1039. Errorhandling:
  1040.     Move.l DOSBase,a6
  1041.     Jsr output(a6)
  1042.     Move.l D0,Ausgabe
  1043.     Move.l Error,d0
  1044.     Cmp.l #1,D0
  1045.     Beq .Pre0000
  1046.     Bra .Pre0001
  1047. .Pre0000:
  1048. Move.l DOSBase,a6
  1049. Move.l Ausgabe,d1
  1050. Move.l #Allgemeiner_Fehlerxnname000,d2
  1051. Moveq.l #$13,d3
  1052. Jsr Write(a6)
  1053. .Pre0001:
  1054.     Move.l Error,d0
  1055.     Cmp.l #2,D0
  1056.     Beq .Pre0002
  1057.     Bra .Pre0003
  1058. .Pre0002:
  1059. Move.l DOSBase,a6
  1060. Move.l Ausgabe,d1
  1061. Move.l #Konnte_File_nicht_findenxnname001,d2
  1062. Moveq.l #$19,d3
  1063. Jsr Write(a6)
  1064. .Pre0003:
  1065.     Move.l Error,d0
  1066.     Cmp.l #3,D0
  1067.     Beq .Pre0004
  1068.     Bra .Pre0005
  1069. .Pre0004:
  1070. Move.l DOSBase,a6
  1071. Move.l Ausgabe,d1
  1072. Move.l #Window_Screen_Fehlerxnname002,d2
  1073. Moveq.l #$15,d3
  1074. Jsr Write(a6)
  1075. .Pre0005:
  1076.     Move.l Error,d0
  1077.     Cmp.l #4,D0
  1078.     Beq .Pre0006
  1079.     Bra .Pre0007
  1080. .Pre0006:
  1081. Move.l DOSBase,a6
  1082. Move.l Ausgabe,d1
  1083. Move.l #Library_nicht_gefundenxnname003,d2
  1084. Moveq.l #$17,d3
  1085. Jsr Write(a6)
  1086. .Pre0007:
  1087.     Move.l Error,d0
  1088.     Cmp.l #5,D0
  1089.     Beq .Pre0008
  1090.     Bra .Pre0009
  1091. .Pre0008:
  1092. Move.l DOSBase,a6
  1093. Move.l Ausgabe,d1
  1094. Move.l #Fehlerhafte_Eingabexnname004,d2
  1095. Moveq.l #$14,d3
  1096. Jsr Write(a6)
  1097. .Pre0009:
  1098.     Move.l Error,d0
  1099.     Cmp.l #6,D0
  1100.     Beq .Pre0010
  1101.     Bra .Pre0011
  1102. .Pre0010:
  1103. Move.l DOSBase,a6
  1104. Move.l Ausgabe,d1
  1105. Move.l #Speicherfehlerxnname005,d2
  1106. Moveq.l #$0F,d3
  1107. Jsr Write(a6)
  1108. .Pre0011:
  1109.     RTS
  1110. even
  1111. Ausgabe:        dc.l 0
  1112. Allgemeiner_Fehlerxnname000:
  1113.     dc.b `Allgemeiner Fehler`,$a,``,0
  1114. even
  1115. Konnte_File_nicht_findenxnname001:
  1116.     dc.b `Konnte File nicht finden`,$a,``,0
  1117. even
  1118. Window_Screen_Fehlerxnname002:
  1119.     dc.b `Window|Screen Fehler`,$a,``,0
  1120. even
  1121. Library_nicht_gefundenxnname003:
  1122.     dc.b `Library nicht gefunden`,$a,``,0
  1123. even
  1124. Fehlerhafte_Eingabexnname004:
  1125.     dc.b `Fehlerhafte Eingabe`,$a,``,0
  1126. even
  1127. Speicherfehlerxnname005:    dc.b `Speicherfehler`,$a,``,0
  1128. even
  1129.  
  1130. Even
  1131. Openlibs:
  1132.     Move.l $4.w,a6
  1133.     Move.l #Aslname,a1
  1134.     Moveq.l #0,d0
  1135.     Jsr Openlibrary(a6)
  1136.     Move.l d0,Aslbase
  1137.     Tst.l D0
  1138.     Beq.w .ende
  1139.     Move.l #DOSname,a1
  1140.     Moveq.l #0,d0
  1141.     Jsr Openlibrary(a6)
  1142.     Move.l d0,DOSbase
  1143.     Tst.l D0
  1144.     Beq.w .ende
  1145.     Move.l #Graphicsname,a1
  1146.     Moveq.l #0,d0
  1147.     Jsr Openlibrary(a6)
  1148.     Move.l d0,Graphicsbase
  1149.     Tst.l D0
  1150.     Beq.w .ende
  1151.     Move.l #GUIEnvname,a1
  1152.     Moveq.l #0,d0
  1153.     Jsr Openlibrary(a6)
  1154.     Move.l d0,GUIEnvbase
  1155.     Tst.l D0
  1156.     Beq.w .ende
  1157.     Move.l #DragnDropname,a1
  1158.     Moveq.l #0,d0
  1159.     Jsr Openlibrary(a6)
  1160.     Move.l d0,DragnDropbase
  1161.     Tst.l D0
  1162.     Beq.w .ende
  1163.     RTS
  1164. .ende:    Move.l #4,Error
  1165.     Rts
  1166. Closelibs:
  1167.     Move.l $4.w,a6
  1168.     Tst.l Aslbase
  1169.     Beq.w .ende00
  1170.     Move.l Aslbase,a1
  1171.     Jsr Closelibrary(a6)
  1172. .ende00:Tst.l DOSbase
  1173.     Beq.w .ende01
  1174.     Move.l DOSbase,a1
  1175.     Jsr Closelibrary(a6)
  1176. .ende01:Tst.l Graphicsbase
  1177.     Beq.w .ende02
  1178.     Move.l Graphicsbase,a1
  1179.     Jsr Closelibrary(a6)
  1180. .ende02:Tst.l GUIEnvbase
  1181.     Beq.w .ende03
  1182.     Move.l GUIEnvbase,a1
  1183.     Jsr Closelibrary(a6)
  1184. .ende03:Tst.l DragnDropbase
  1185.     Beq.w .ende04
  1186.     Move.l DragnDropbase,a1
  1187.     Jsr Closelibrary(a6)
  1188. .ende04:Rts
  1189. even
  1190. WBmessage:        dc.l 0
  1191. Laenge:        dc.l 0
  1192. Adresse:        dc.l 0
  1193. Error:        dc.l 0
  1194. LokalScreen:        dc.l 0
  1195. Requester:        dc.l 0
  1196. Result:        dc.l 0
  1197. Filename_Zeiger:        dc.l 0
  1198. Dirname_zeiger:        dc.l 0
  1199. Zusatz:        dc.l 0
  1200. Zahl:        dc.l 0
  1201. Zahlyyy:        dc.l 0
  1202. Stringlaenge:        dc.l 0
  1203. NextArg:        dc.l 0
  1204. Lokalmode:        dc.l 0
  1205. Anzahl:        dc.l 0
  1206. Rot:        dc.l 0
  1207. Gruen:        dc.l 0
  1208. Blau:        dc.l 0
  1209. BM_Laenge:        dc.l 0
  1210. BytesperRow:        dc.l 0
  1211. Planes:        dc.l 0
  1212. BitPlanegroesse:        dc.l 0
  1213. LRP:        dc.l 0
  1214. BildBreite:        dc.l 0
  1215. Bildhoehe:        dc.l 0
  1216. Skip:        dc.l 0
  1217. MaxHoehe:        dc.l 0
  1218. PosLeft:        dc.l 0
  1219. PosTop:        dc.l 0
  1220. SBlock:        dc.l 0
  1221. DBlock:        dc.l 0
  1222. FH:        dc.l 0
  1223. I:        dc.l 0
  1224. I_bis:        dc.l 0
  1225. I_step:        dc.l 0
  1226. Window:        dc.l 0
  1227. GUI:        dc.l 0
  1228. Lokal:        dc.l 0
  1229. Screenmode:        dc.l 0
  1230. Lokal1:        dc.l 0
  1231. Lokal2:        dc.l 0
  1232. Lokal3:        dc.l 0
  1233. Screen:        dc.l 0
  1234. TA_Result:        dc.l 0
  1235. MsgClass:        dc.l 0
  1236. MsgGadNbr:        dc.l 0
  1237. MsgMenuNum:        dc.l 0
  1238. MsgItemNum:        dc.l 0
  1239. Imsg:        dc.l 0
  1240. Mx:        dc.l 0
  1241. My:        dc.l 0
  1242. dx:        dc.l 0
  1243. dy:        dc.l 0
  1244. mxa:        dc.l 0
  1245. mya:        dc.l 0
  1246. Dragstatus:        dc.l 0
  1247. Drag:        dc.l 0
  1248. ScreenRastport:        dc.l 0
  1249. Viewport:        dc.l 0
  1250. IH:        dc.l 0
  1251. OH:        dc.l 0
  1252. Screen1:        dc.l 0
  1253. Window1:        dc.l 0
  1254. Gui1:        dc.l 0
  1255. Rastport1:        dc.l 0
  1256. AslBase:        dc.l 0
  1257. DOSBase:        dc.l 0
  1258. NONE:        dc.l 0
  1259. GraphicsBase:        dc.l 0
  1260. GUIEnvBase:        dc.l 0
  1261. DragnDropBase:        dc.l 0
  1262. even
  1263. DirName:    blk.b 256,0
  1264. even
  1265. Name:    blk.b 256,0
  1266. even
  1267. Name_bak:    blk.b 256,0
  1268. even
  1269. ASLTitletext:    dc.b "WΣhle Filenamen                               ",0
  1270. even
  1271. ASLFR_Taglist:
  1272.     dc.l ASLFR_screen,0
  1273.     dc.l ASLFR_PrivateIDCMP,Dostrue
  1274.     dc.l ASLFR_TextAttr,Dosfalse
  1275.     dc.l ASLFR_InitialLeftEdge,20
  1276.     dc.l ASLFR_InitialTopEdge,24
  1277.     dc.l ASLFR_TitleText,ASLTitletext
  1278.     dc.l ASLFR_InitialWidth,300
  1279.     dc.l ASLFR_Initialheight,210
  1280.     dc.l ASLFR_InitialDrawer,Dirname
  1281.     dc.l ASLFR_InitialFile,Name
  1282.     dc.l Tag_end,0
  1283. Filename:    blk.b 256,0
  1284. even
  1285. Version:    dc.b "$VER: (C) CYBORG 1998-99",0
  1286. even
  1287. Drops:    dc.L 141,419,295,472,0,0,0,0,0,0,0
  1288. even
  1289. Polygon1:    dc.L 22,13,141,13,82,70,81,70,22,13,0,0,0
  1290. even
  1291. Polygon2:    dc.L 82,73,141,132,82,191,81,191,22,132,82,73,0,0,0
  1292. even
  1293. Polygon3:    dc.L 22,254,81,195,82,195,141,254,22,254,0,0,0
  1294. even
  1295. Polygon4:    dc.L 401,99,460,40,519,40,580,100,521,159,460,159,401,100,0,0,0
  1296. even
  1297. Polygon5:    dc.L 28,447,138,418,138,474,28,447,0,0,0
  1298. even
  1299. Polygon7:    dc.L 297,418,403,447,297,473,297,418,0,0,0
  1300. even
  1301. Polygon8:    dc.L 228,134,634,374,602,475,518,459,158,226,228,134,0,0,0
  1302. even
  1303. Cnop 0,4
  1304. Buffer:    blk.b 1024,0
  1305. even
  1306. Projektname000:    dc.b `Projekt`,0
  1307. even
  1308. Quitname001:    dc.b `Quit`,0
  1309. even
  1310. Menu001Tags:
  1311.     dc.l GEM_Shortcut,MenuShorCut001MSC
  1312.     dc.l Tag_Done,0
  1313. ScreenTags:
  1314.     dc.l SA_Font,TopazAttr
  1315.     dc.l SA_Left,0
  1316.     dc.l SA_Top,0
  1317.     dc.l SA_Behind,false
  1318.     dc.l SA_Width,640
  1319.     dc.l SA_Height,480
  1320.     dc.l Tag_done,Null
  1321. Dropname002:    dc.b `Drop!`,0
  1322. even
  1323. Block:    blk.b 1024,0
  1324. even
  1325. Screen1name003:    dc.b `Screen1`,0
  1326. even
  1327. Window1name004:    dc.b `Window1`,0
  1328. even
  1329. dragndropname005:    dc.b `dragndrop.iff`,0
  1330. even
  1331. Aslname: dc.b "asl.library",0
  1332. DOSname: dc.b "dos.library",0
  1333. Graphicsname: dc.b "graphics.library",0
  1334. GUIEnvname: dc.b "guienv.library",0
  1335. DragnDropname: dc.b "dragndrop.library",0
  1336. even
  1337. MenuShorCut001MSC:    dc.b "q",0
  1338.     Include "Preass:LVO3.0/Exec_lib.i"
  1339.     Include "Preass:LVO3.0/Asl_lib.i"
  1340.     Include "Preass:LVO3.0/DOS_lib.i"
  1341.     Include "Preass:LVO3.0/Graphics_lib.i"
  1342.     Include "Preass:LVO3.0/GUIEnv_lib.i"
  1343.     Include "Preass:LVO3.0/DragnDrop_lib.i"
  1344.  
  1345.