jmp 	run

ExecBase=	$04

OpenLib=	-408
CloseLib=	-414
Open=	-30
Close=	-36
Write=	-48

run:
move.l	ExecBase,a6
lea	dosname,a1
jsr	OpenLib(a6)
move.l	d0,DosBase
beq	einde

move.l	DosBase,a6
move.l	#fenstername,d1
move.l	#1005,d2	; Modus OLD
jsr	Open(a6)
beq	einde
move.l	d0,handle


move.l	DosBase,a6
move.l	handle,d1
move.l	#msg1,d2
move.l	#msg1end-msg1,d3
jsr	Write(a6)

lmb:
btst	#6,$bfe001
bne	lmb

move.l	DosBase,a6
move.l	handle,d1
move.l	#msg2,d2
move.l	#msg2end-msg2,d3
jsr	Write(a6)

move.l	handle,d1
move.l	DosBase,a6
jsr	Close(a6)

move.l	ExecBase,a6
move.l	DosBase,a1
jsr	CloseLib(a6)

einde:
rts


**********************
dosname:	dc.b	'dos.library',0
even
fenstername:	dc.b	'CON:0/0/640/200/*** GOLEM INFORMATIE WINDOW ***',0
even
msg1:		dc.b	$9b,$30,$20,$70,$0a,$0a,$0d
dc.b	'GEACHTE KLANTEN,',$0a,$0a,$0d,'DEZE GOLEM-DISK IS EEN WORK'
dc.b	'BENCH 1.1 DISK EN DIENT ',$9b,"1;32;41m",'ENKEL',$9b,"0m"
dc.b	' OM U TE TONEN HOE U DE GOLEM RAM-UITBREIDING MOET IN'
dc.b	'BINDEN IN HET SYSTEEM ',$9b,"1;32;41m",'ALS U KICKSTART 1.1'
dc.b	$0a,$0d,'GEBRUIKT',$9b,"0m",' !',$0a,$0d
dc.b	'BEKIJKT U DE STARTUP-SEQUENCE EENS. U ZIET DAT HET PROGRAMMA'
dc.b	' "GOLEM-TEST"    WORD AANGEWEND. IN DE C-'
dc.b	'DIRECTORY VAN DEZE DISK VIND U DIT PROGRAMMA.',$0a,$0d
dc.b	'HET GEBRUIK VAN HET GOLEM-TEST PROGRAMMA IS '
dc.b	'BESCHREVEN IN DE HANDLEIDING.',$0a,$0a,$0d
dc.b	$9b,"1;33;40m",'WANNEER U '
dc.b	'ECHTER KICKSTART 1.2 OF HOGER GEBRUIKT VERLOOPT HET IN'
dc.b	'BINDEN IN HETSYSTEEM GEHEEL AUTOMATISCH ! U HOEFT NIETS '
dc.b	'TE DOEN ! GEMAKKELIJKER KAN NIET !',$9b,"0m",$0a,$0a,$0a,$0d
dc.b	'HOOGACHTEND,',$0a,$0a,$0d,'J. VAN HOUTVEN.',$0a,$0a,$0a,$0a
dc.b	$0a,$0a,$0d,$9b,"3;32;40m"
dc.b	'              [ CLICK OP DE LINKER MUISBUTTON OM '
dc.b	'VERDER TE GAAN ]',$9b,"0m"
msg1end:
even
msg2:		dc.b	$9b,$20,$70	; cursor on
msg2end:
even

DosBase:	blk.l	1
handle:		blk.l	1