OPER   DLY	EQU	0060H
 CLS	EQU	01C9H
 LKEY	EQU	05D9H
 DSPLY	EQU	0033H
 INKEY	EQU	002BH
 KEY	EQU	0049H
 MSIZE	EQU	4018H
 DRIVE	EQU	1
 STATUS	EQU	37ECH
 SELECT	EQU	37E1H
 SEEK	EQU	1BH
 REST	EQU	03
 TRACK	EQU	37EEH
 	ORG	8000H
 WHO	DEFM	'LEVEL IV DOS -- (DUMMY OPERATING SYSTEM) -- VERSION 2.59965'
 	DEFW	0D0DH
 	DEFM	'COPYRIGHT (C) 1980  LEVEL IV PRODUCTS INC.'
 	DEFB	0DH
 	DEFM	'THE AUTHOR REFUSES TO CLAIM CREDIT, RESPONSIBILITY, OR ANY'
 	DEFB	0DH
 	DEFM	'CONNECTION WHATSOEVER WITH THIS OPERATING SYSTEM !!'
 	DEFW	0D0DH
 	DEFB	0
 DOS	DEFB	0DH
 	DEFM	'SOD YDAER'
 	DEFB	0
 DOS2	DEFM	'   OOPS !'
 	DEFB	0
 DOS3	DEFB	0DH
 	DEFM	'DOS READY'
 	DEFW	000DH
 FLG2	DEFB	1
 CLK	DEFB	0
 FLBUG	DEFB	0
 DCHK	DEFS	3
 LOOKUP	DEFB	3
 	DEFM	'DIR'
 	DEFW	DIR
 	DEFB	3
 	DEFM	'LIB'
 	DEFW	LIB
 	DEFB	4
 	DEFM	'FREE'
 	DEFW	FREE
 	DEFB	4
 	DEFM	'AUTO'
 	DEFW	AUTO
 	DEFB	4
 	DEFM	'TIME'
 	DEFW	TIME
 	DEFB	5
 	DEFM	'BASIC'
 	DEFW	BASIC
 	DEFB	4
 	DEFM	'PROT'
 	DEFW	PROT
 	DEFB	5
 	DEFM	'PRINT'
 	DEFW	LPRINT
 	DEFB	4
 	DEFM	'LOAD'
 	DEFW	LOAD
 	DEFB	4
 	DEFM	'LIST'
 	DEFW	LIST
 	DEFB	6
 	DEFM	'VERIFY'
 	DEFW	VERIFY
 	DEFB	4
 	DEFM	'COPY'
 	DEFW	COPY
 	DEFB	6
 	DEFM	'FORMAT'
 	DEFW	FORMAT
 	DEFB	6
 	DEFM	'BACKUP'
 	DEFW	BACKUP
 	DEFB	4
 	DEFM	'DATE'
 	DEFW	DATE
 	DEFB	6
 	DEFM	'RENAME'
 	DEFW	RENAME
 	DEFB	6
 	DEFM	'DEVICE'
 	DEFW	DEVICE
 	DEFB	4
 	DEFM	'DUMP'
 	DEFW	DUMP
 	DEFB	6
 	DEFM	'APPEND'
 	DEFW	APPEND
 	DEFB	6
 	DEFM	'ATTRIB'
 	DEFW	ATTRIB
 	DEFB	5
 	DEFM	'CLOCK'
 	DEFW	CLOCK
 	DEFB	5
 	DEFM	'DEBUG'
 	DEFW	DEBUG
 	DEFW	0000
 START	DI
 	LD	SP,WHO-4
 	LD	HL,06D2H
 	LD	DE,4000H
 	LD	BC,0036H
 	LDIR
 	LD	HL,18F7H
 	LD	DE,4080H
 	LD	BC,27H
 	LDIR
 	LD	B,15H
 	LD	A,0C9H
 	LD	DE,012DH
 	LD	HL,4152H
 	LD	B,1CH
 INIT1	LD	(HL),0C3H
 	INC	HL
 	LD	(HL),E
 	INC	HL
 	LD	(HL),D
 	INC	HL
 	DJNZ	INIT1
 	LD	B,15H
 INIT2	LD	(HL),A
 	INC	HL
 	INC	HL
 	INC	HL
 	DJNZ	INIT2
 	CALL	CLS
 	LD	HL,WHO
 	CALL	PRINT
 LSCAN	LD	BC,5000H
 	CALL	DLY
 	LD	HL,FLG2
 	LD	A,1
 	XOR	(HL)
 	LD	(HL),A
 	JR	NZ,LSCAN2
 	LD	HL,DOS
 	CALL	PRINT
 	CALL	DLY
 	LD	HL,DOS2
 	CALL	PRINT
 	CALL	DLY
 LSCAN2	LD	HL,DOS3
 	CALL	PRINT
      	LD	HL,KBUFF
 	PUSH	HL
 	POP	DE
 	PUSH	DE
 	XOR	A
 	LD	(HL),A
 	INC	DE
 	LD	BC,15
 	LDIR
 	POP	HL
 	LD	B,240
 	CALL	LKEY
 	JR	C,BCHK
 	LD	A,B
 	OR	A
 	JR	Z,NONE
 	LD	HL,LOOKUP
 PARSE	LD	DE,KBUFF
 	LD	A,(HL)
 	OR	A
 	JR	Z,NOCMD
 	LD	B,A
 	ADD	A,2
 	LD	C,A
 TBSCAN	INC	HL
 	LD	A,(DE)
 	CP	(HL)
 	JR	NZ,CMPNO
 	INC	DE
 	DEC	C
 	DJNZ	TBSCAN
 	INC	HL
 	LD	C,(HL)
 	INC	HL
 	LD	B,(HL)
 	LD	HL,LSCAN
 	PUSH	HL
 	LD	A,(CLK)
 	OR	A
 	JR	Z,GO
 	LD	HL,CLOCK
 	LD	A,L
 	CP	C
 	JP	NZ,TICTOC
 	LD	A,H
 	CP	B
 	JP	NZ,TICTOC
 GO	PUSH	BC
 	RET
 NONE	LD	HL,MWHAT
 	CALL	PRINT
 	JR	LSCAN
 CMPNO	LD	A,L
 	ADD	A,C
 	LD	L,A
 	JR	PARSE
 NOCMD	LD	A,17
 	CALL	DISK
 	LD	A,3
 	CALL	DISK
 	LD	A,8
 	CALL	DISK
 	LD	HL,MFILE
 	CALL	PRINT
 	JP	LSCAN
 BCHK	LD	A,(FLBUG)
 	OR	A
 	CALL	NZ,BUGS
 	JP	LSCAN
 PRINT	LD	A,(HL)
 	OR	A
 	RET	Z
 	CALL	DSPLY
 	INC	HL
 	JR	PRINT
 DIR	PUSH	DE
 	CALL	CLS
 	LD	A,4
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	POP	DE
 	INC	DE
 	LD	A,(DE)
 	CP	3AH
 	JR	NZ,DIR2
 	INC	DE
 	LD	A,(DE)
 	LD	(NUM),A
 	LD	HL,MDIR
 	JR	PRINT
 DIR2	CP	28H	;"("
 	JR	NZ,DIR3
 	INC	DE
 	PUSH	DE
 	LD	HL,MDIR2
 	CALL	PRINT
 	LD	B,3
 	LD	HL,DCHK
 	PUSH	HL
 	XOR	A
 XXX	LD	(HL),A
 	INC	HL
 	DJNZ	XXX
 	POP	HL
 	LD	B,3
 	POP	DE
 SMLP	PUSH	HL
 	LD	A,(DE)
 	CP	53H	;"S"
 	JR	NZ,NO1
 	INC	(HL)
 NO1	INC	HL
 	LD	A,(DE)
 	CP	49H	;"I"
 	JR	NZ,NO2
 	INC	(HL)
 NO2	INC	HL
 	LD	A,(DE)
 	CP	41H	;"A"
 	JR	NZ,NO3
 	INC	(HL)
 NO3	POP	HL
 	INC	DE
 	INC	DE
 	DJNZ	SMLP
 	PUSH	HL
 	POP	BC
 	LD	HL,MDIRS
 	LD	A,(BC)
 	OR	A
 	CALL	NZ,PRINT
 	LD	HL,MDIRI
 	INC	BC
 	LD	A,(BC)
 	OR	A
 	CALL	NZ,PRINT
 	LD	HL,MDIRA
 	INC	BC
 	LD	A,(BC)
 	OR	A
 	CALL	NZ,PRINT
 	RET
 DIR3	LD	HL,MDIR2
 	CALL	PRINT
 	LD	HL,MDIR3
 	JP	PRINT
 LIB	LD	HL,MLIB
 	JP	PRINT
 FREE	LD	A,7
 	CALL	DISK
 	LD	A,23
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	HL,MFREE
 	JP	PRINT
 AUTO	LD	A,7
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	HL,MAUTO
 	JP	PRINT
 TIME	LD	HL,MTIME
 	CALL	PRINT
 	LD	BC,0
 	CALL	DLY
 	CALL	DLY
 	INC	HL
 	CALL	PRINT
 	CALL	DLY
 	CALL	DLY
 	CALL	DLY
 	LD	D,0FFH
 LULP	PUSH	DE
 	LD	HL,1000
 	LD	DE,3C00H
 	LD	BC,1024
 	LDIR
 	LD	BC,2000
 	CALL	DLY
 	POP	DE
 	DEC	D
 	JR	NZ,LULP
 	CALL	CLS
 	LD	HL,MTIM2
 	JP	PRINT
 BASIC	LD	A,4
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	A,7
 	CALL	DISK
 	LD	A,10
 	CALL	DISK
 	LD	HL,MBAS
 	CALL	PRINT
 	CALL	KEY
 	LD	HL,MBAS2
 	CALL	PRINT
 	LD	BC,0
 	CALL	DLY
 	JP	DLY
 PROT	LD	HL,MPROT
 	JP	PRINT
 LPRINT	LD	A,(37E8H)
 	LD	HL,MPRINT
 	CP	63
 	JP	NZ,PRINT
 LP4	LD	A,(HL)
 	OR	A
 	RET	Z
 	INC	HL
 	CALL	003BH
 	JR	LP4
 LOAD	LD	A,2
 	CALL	DISK
 	LD	A,12
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	HL,MLOAD
 	JP	PRINT
 LIST	LD	HL,MLIST
 	JP	PRINT
 VERIFY	LD	HL,MVERI
 	JP	PRINT
 COPY	LD	A,6
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	A,0
 	CALL	DISK
 	LD	HL,FRMT
 	CALL	PRINT
 	LD	BC,0
 	CALL	DLY
 	LD	A,1
 	LD	C,33
 DLOOP	PUSH	AF
 	PUSH	BC
 	CALL	DISK
 	LD	BC,1000
 	CALL	DLY
 	POP	BC
 	POP	AF
 	INC	A
 	DEC	C
 	JR	NZ,DLOOP
 	LD	A,5
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	HL,MCOPY
 	LD	D,10
 LP5	PUSH	DE
 	CALL	PRINT
 	LD	BC,0
 	CALL	DLY
 	CALL	DLY
 	INC	HL
 	POP	DE
 	DEC	D
 	JR	NZ,LP5
 	RET
 FORMAT	LD	A,3
 	CALL	DISK
 	LD	A,19
 	CALL	DISK
 	LD	A,8
 	CALL	DISK
 	LD	A,10
 	CALL	DISK
 	LD	A,20
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	BC,0
 	CALL	DLY
 	LD	HL,MFORM
 	JP	PRINT
 BACKUP	LD	A,4
 	CALL	DISK
 	LD	A,15
 	CALL	DISK
 	LD	A,10
 	CALL	DISK
 	LD	A,17
 	CALL	DISK
 	LD	BC,0
 	CALL	DLY
 	LD	HL,MBACK
 	JP	PRINT
 DATE	LD	HL,MDATE
 	JP	PRINT
 RENAME	LD	HL,NAME
 	JP	PRINT
 DEVICE	RET
 DUMP	LD	HL,MDUMP
 	JP	PRINT
 APPEND	RET
 ATTRIB	RET
 CLOCK	INC	DE
 	POP	BC
 	LD	A,(DE)
 	CP	28H	;"("
 	JP	NZ,ERROR
 	INC	DE
 	LD	A,(DE)
 	CP	4FH	;"O"
 	JP	NZ,NONE
 	INC	DE
 	LD	A,(DE)
 	CP	4EH	;"N"
 	JR	NZ,COFF1
 	LD	A,1
 	LD	(CLK),A
 TICTOC	LD	HL,TIC
 	CALL	PRINT
 	CALL	INKEY
 	CP	01
 	JP	Z,LSCAN
 	LD	BC,0A000H
 	CALL	DLY
 	LD	HL,TOC
 	CALL	PRINT
 	CALL	INKEY
 	CP	01
 	JP	Z,LSCAN
 	LD	BC,0A000H
 	CALL	DLY
 	JR	TICTOC
 COFF1	CP	46H	;"F"
 	JP	NZ,NONE
 	XOR	A
 	LD	(CLK),A
 	LD	HL,COFF
 	CALL	PRINT
 	JP	LSCAN
 ERROR	LD	HL,MWHAT
 	CALL	PRINT
 	LD	HL,TRY
 	CALL	PRINT
 	JP	LSCAN
 DEBUG	INC	DE
 	INC	DE
 	INC	DE
 	LD	A,(DE)
 	CP	4EH	;"ON"
 	JR	Z,BON
 	CP	46H	;"OFF"
 	JR	Z,BOFF
 	POP	HL
 	JP	ERROR
 BOFF	XOR	A
 	LD	(FLBUG),A
 	LD	HL,BUGOFF
 	JP	PRINT
 BON	LD	A,1
 	LD	(FLBUG),A
 	LD	HL,BUGON
 	JP	PRINT
 BUGS	CALL	CLS
 	LD	HL,MBUG1
 	CALL	PRINT
 	LD	HL,3C04H
 	LD	DE,3C05H
 	LD	BC,1015
 BUGLP	PUSH	DE
 	PUSH	DE
 	PUSH	BC
 	LD	BC,5
 	LDDR
 	LD	BC,500H
 	CALL	DLY
 	POP	BC
 	POP	HL
 	POP	DE
 	INC	DE
 	DEC	BC
 	LD	A,B
 	OR	C
 	JR	NZ,BUGLP
 	CALL	DLY
 	CALL	DLY
 	CALL	CLS
 	LD	HL,MBUG2
 	JP	PRINT
 DISK	DI
 	LD	D,A
 	LD	E,0
 	LD	HL,STATUS
 	LD	A,DRIVE
 	LD	(SELECT),A
 	PUSH	AF
 	POP	AF
 	PUSH	AF
 	POP	AF
 	LD	(SELECT),A
 	PUSH	BC
 	POP	BC
 	PUSH	BC
 	POP	BC
 	LD	(TRACK),DE
 	LD	A,SEEK
 	LD	(HL),A
 	PUSH	AF
 	POP	AF
 	PUSH	AF
 	POP	AF
 BSYCHK	LD	A,(HL)
 	RRCA
 	JR	C,BSYCHK
 	LD	A,(HL)
 	LD	BC,8000H
 	CALL	DLY
 	DI
 	RET
 MWHAT	DEFB	0DH
 	DEFM	'HUH ??'
 	DEFW	000DH
 MFILE	DEFB	0DH
 	DEFM	'FILE NOT FOUND !!!!'
 	DEFW	0D0DH
 	DEFM	'DON'
 	DEFB	39
 	DEFM	'T YOU HAVE ANYTHING BETTER TO DO THAN SEND ME'
 	DEFB	0DH
 	DEFM	'LOOKING FOR A NON-EXISTANT FILE ????  SHEEEESH !'
 	DEFW	000DH
 MDIR	DEFM	'FILE DIRECTORY --- DRIVE '
 NUM	DEFB	0
 	DEFM	' --- DEVICE NOT AVAILABLE'
 	DEFW	0D0DH
 	DEFM	'OR MAYBE THE DRIVE DID A SELF-DESTRUCT...OR THE COMPUTER IS ON  '
 	DEFM	'FIRE...OR THE COMPUTER OPERATOR CANNOT COUNT.'
 	DEFB	0DH
 	DEFB	0
 MDIR2	DEFM	'PHONE DIRECTORY --- DRIVE 0 --- LEVEL IV DOS'
 	DEFW	0D0DH
 	DEFB	0
 MDIR3	DEFB	0DH
 	DEFM	'POLICE DEPT - 555 6565      FIRE DEPT - 555 9969'
 	DEFB	0DH
 	DEFM	'DIAL-A-PRAYER - 555 HELP    COMPUTER REPAIR - UNLISTED NUMBER'
 	DEFW	0D0DH
 	DEFM	'LEVEL IV PROD. TUE-SAT - 11AM-7PM'
 	DEFB	0DH
 	DEFM	'313-525-6200   OR  SEE OUR ADS FOR TOLL FREE NUMBER.'
 	DEFW	0D0DH
 	DEFM	'FOR ALL OTHER NUMBERS CALL THE OPERATOR.'
 	DEFW	000DH
 MDIRS	DEFM	'THERE IS NO SYSTEM TO THIS DOS !'
 	DEFW	000DH
 MDIRI	DEFM	'HOW CAN YOU SEE SOMETHING THAT IS INVISIBLE ??'
 	DEFW	000DH
 MDIRA	DEFM	'ALLOCATION IS ZERO BECAUSE COMPUTERS DO NOT REALLY EXIST !'
 	DEFW	000DH
 MLIB	DEFM	'  APPEND        ATTRIB        AUTO          CLOCK'
 	DEFB	0DH
 	DEFM	'  COPY          DATE          DEVICE        DIR'
 	DEFB	0DH
 	DEFM	'  DUMP          FREE          KILL          LIB'
 	DEFB	0DH
 	DEFM	'  LIST          LOAD          PRINT         PROT'
 	DEFB	0DH
 	DEFM	'  RENAME        TIME          VERIFY'
 	DEFW	000DH
 MFREE	DEFB	0DH
 	DEFM	'F R E E !!???   WHAT DO YOU MEAN ...FREE !!??'
 	DEFB	0DH
 	DEFM	'I MUST HAVE COST YOU AT LEAST $1,500.00  AND THAT'
 	DEFW	5327H
 	DEFB	0DH
 	DEFM	'NOWHERE NEAR FREE !   TALK ABOUT INSULTED......'
 	DEFW	000DH
 MAUTO	DEFB	0DH
 	DEFM	'AUTO.......NOW THAT'
 	DEFW	5327H
 	DEFM	' AN INTERESTING COMMAND.  I GUESS YOU WANT'
 	DEFB	0DH
 	DEFM	'ME TO SET UP SOME SORT OF COMMAND FOR AUTOMATIC EXECUTION'
 	DEFB	0DH
 	DEFM	'DURING POWER-UP....YAWN.....BUT I REALLY DON'
 	DEFB	27H
 	DEFM	'T FEEL LIKE IT'
 	DEFB	0DH
 	DEFM	'RIGHT NOW .....MAYBE LATER. OK ?'
 	DEFW	000DH
 MTIME	DEFB	0DH
 	DEFM	'TIME ?? HMNNN.... LET ME CHECK...'
 	DEFW	000DH
 	DEFM	'LUNCH TIME !!!  ---   GONE TO LUNCH !!!'
 	DEFW	000DH
 MTIM2	DEFM	'OK ---- BACK AGAIN !'
 	DEFW	000DH
 MBAS	DEFW	0D0DH
 	DEFM	'LEVEL IV DISK BASIC - VERSION 0.01'
 	DEFW	0D0DH
 	DEFM	'THIS BASIC ORIGINALLY AUTHORED AND COPYRIGHTED BY'
 	DEFB	0DH
 	DEFM	'MAXIJUNK, 1902.  ALTERATIONS BY LITTLE ELVES HELD CAPTIVE'
 	DEFB	0DH
 	DEFM	'IN A COOKIE FACTORY IN PARTS UNKNOWN.'
 	DEFW	0D0DH
 	DEFW	0D0DH
 	DEFM	'READY'
 	DEFB	0DH
 	DEFM	'>'
 	DEFW	0D5FH
 	DEFB	0
 MBAS2	DEFB	0DH
 	DEFM	'FOOLED YA !!   YOU DIDN'
 	DEFB	27H
 	DEFM	'T THINK YOU WOULD REALLY GET A BASIC'
 	DEFB	0DH
 	DEFM	'WITH THIS - DID YOU ?'
 	DEFW	000DH
 MPROT	DEFB	0DH
 	DEFM	'WHO -- ME ???   I CAN'
 	DEFB	27H
 	DEFM	'T EVEN PROTECT MYSELF.  YOU BETTER CALL'
 	DEFB	0DH
 	DEFM	'THE POLICE.  (SEE DIR)'
 	DEFW	000DH
 MPRINT	DEFB	0DH
 	DEFM	'PRINTER NOT WORKING ---- TRY "LIST".'
 	DEFW	000DH
 MLOAD	DEFB	0DH
 	DEFM	'SORRY --- I DON'
 	DEFB	27H
 	DEFM	'T DRINK SO YOU'
 	DEFB	27H
 	DEFM	'LL JUST HAVE TO GET LOADED BY YOURSELF.'
 	DEFW	000DH
 MLIST	DEFB	0DH
 	DEFM	'DISPLAY NOT WORKING --- TRY "PRINT".'
 	DEFW	000DH
 MVERI	DEFB	0DH
 	DEFM	'DO YOU REALLY THINK THAT THIS TURKEY IS WORTH VERIFYING ?'
 	DEFW	000DH
 FRMT	DEFW	0D0DH
 	DEFM	' FORMATTING'
 	DEFW	000DH
 MCOPY	DEFB	0DH
 	DEFM	'    ACCESS DENIED - INCORRECT PASSWORD'
 	DEFW	000DH
 	DEFM	'    LOAD FILE FORMAT ERROR'
 	DEFW	000DH
 	DEFM	'    HIT READ ERROR'
 	DEFW	000DH
 	DEFM	'    LOST DATA IN READ'
 	DEFW	000DH
 	DEFM	'    LOST DATA IN WRITE'
 	DEFW	000DH
 	DEFM	'    END OF FILE ENCOUNTERED'
 	DEFW	000DH
 	DEFM	'    L3 ERROR'
 	DEFW	000DH
 	DEFM	'    QUIT WHILE WE'
 	DEFB	27H
 	DEFM	'RE AHEAD'
 	DEFW	000DH
 	DEFM	'    ALL OF THE ABOVE'
 	DEFW	000DH
 	DEFM	'    NONE OF THE ABOVE'
 	DEFW	000DH
 MFORM	DEFB	0DH
 	DEFM	'   CAN'
 	DEFB	27H
 	DEFM	'T FORMAT - MOTOR SPEED DOES NOT COINCIDE WITH THE'
 	DEFB	0DH
 	DEFM	'ROTATIONAL SPEED OF THE EARTH ACCORDING TO THE ATOMIC CLOCK'
 	DEFB	0DH
 	DEFM	'USED TO CALCULATE THE DATE AND TIME ON THE MODERN JULIAN '
 	DEFB	0DH
 	DEFM	'CALANDER USED AT THIS TIME. CHECK YOUR HOROSCOPE TO SET CORRECT'
 	DEFB	0DH
 	DEFM	'SPEED.....OR RETURN DISK DRIVE TO MANUFACTURER FOR ADJUSTMENT.'
 	DEFW	000DH
 MBACK	DEFB	0DH
 	DEFM	'SORRY --- NO REVERSE ON THIS THING --- TRY "COPY"'
 	DEFW	000DH
 MDATE	DEFB	0DH
 	DEFM	'NOT TONIGHT -- I HAVE TO WASH MY TRANSISTERS.'
 	DEFW	000DH
 TIC	DEFM	'TIC  '
 	DEFB	00
 TOC	DEFM	'TOC    '
 	DEFB	00
 COFF	DEFW	0D0DH
 	DEFM	'CLOCK OFF'
 	DEFW	000DH
 TRY	DEFB	0DH
 	DEFM	'TRY  (ON)  OR (OFF).'
 	DEFW	000DH
 NAME	DEFB	0DH
 	DEFM	'YOU HAVE TO GO THROUGH THE COURTS TO CHANGE A NAME'
 	DEFB	0DH
 	DEFM	'SORRY - BUT IT'
 	DEFB	27H
 	DEFM	'S OUT OF MY HANDS.'
 	DEFW	000DH
 MDUMP	DEFB	0DH
 	DEFM	'IT IS BEGINING TO LOOK PRETTY BAD AROUND HERE.'
 	DEFB	0DH
 	DEFM	'MAYBE WE SHOULD CLEAN IT UP A BIT.'
 	DEFW	000DH
 BUGON	DEFB	0DH
 	DEFM	'DEBUG ON'
 	DEFW	000DH
 BUGOFF	DEFB	0DH
 	DEFM	'DEBUG OFF'
 	DEFW	000DH
 MBUG1	DEFW	9F20H
 	DEFW	9F9FH
 	DEFM	'*'
 	DEFB	0
 MBUG2	DEFW	0D0DH
 	DEFM	'YEP - WE GOT BUGS'
 	DEFW	000DH
 KBUFF	DEFS	250
 	END	START
