move.l $0004.w,A6
	lea.l Dos_Name(pc),a1
	jsr -408(a6)
	move.l d0,A6
	bne.s SetText
	moveq #-1,d0
	rts
SetText:
	jsr -60(a6)		;output
	move.l d0,d1
	move.l #text1,D2
	move.l #text2-text1,D3
	jsr -48(A6)		;write to screen (text1)
	move.l a6,a1
	move.l $0004.w,a6
	jsr -414(a6)		;Close Dos.Library
	clr.l d0
	rts
text1:
dc.b $C,$A,$A
;dc.b $0A
DC.B' ',$A
dc.b"                             ---------------------                  ",$A
DC.B"		          --- Razor 1911 ToolDisk ---               ",$A
dc.b'		             ---------------------                  ',$A
dc.b'   1..Flash Ripper 2.3      2..FixDisk       1.0        3..3rd Today    1.0',$A
DC.B'   4..Virus X      4.40     5..DiskMon Prof  1.2        6..Setkey       1.0',$A
DC.b'   7..AmigaMon     2.11     8..Iff Converter 1.0        9..Pcopy        3.0',$a
dc.b"  10..Kill'em All  2.2     11..BinConverter  1.0       12..Phone        1.0",$A
DC.B'  13..DiskMaster   1.3     14..G-Searcher    2.1     x 15..TitanCrunch  1.1',$a
dc.b'  16..C-Mon        2.02    17..Guardian      1.2       18..VirusExpert  1.4',$A
DC.B'  19..MegaCrunch   1.2     20..Seka          3.2       21..kill fastdir 1.0',$a
dc.b'  22..SynCruncher  4.6     23..Mseka         1.53      24..TxEd+        1.0',$A
DC.B'  25..DiskSalv     1.40    26..Powerpacker   2.3b      27..PPmore       1.2',$a
dc.b'  28..Zap          1.40    29..Dmouse        1.20      30..Link-killer  1.01',$A
dc.b'  31..ST-Ripper    2.3     32..Shell         1.0       33..TrackRepair  1.0   ',$A

DC.B' ',$A

;3456789012345678901234567890123456789012345678***9
text2:
even
Dos_Name:
dc.b 'dos.library',0
ame:
dc.b 'dos.library',0
end