execbase = 4
openlib  = -408
output   = -60
exit     = -144
write    = -48
start:
 move.l execbase,a6
 lea dosname,a1
 moveq #0,d0
 jsr openlib(a6)
 move.l d0,dosbase
 move.l d0,a6
 jsr output(a6)
 move.l #text,d2
 move.l #textende-text,d3
 jsr write(a6)
 moveq #0,d1
 jmp exit(a6)
dosname:
 dc.b 'dos.library',0
 even
dosbase:
 blk.l 1
text:
 dc.b $9b,"1;2;0m"
 dc.b $0c,$0d,$0a
 dc.b "                      COPY DISK V2.6+  © 1987 by Langnese",$0a
 dc.b $0d,$0a,$0a
 dc.b "    1 - TRUE COPY II          5 - MARAUDER I            9 - DirUtil V",$0d,$0a
 dc.b "    2 - TURBOCOPY V1.0        6 - MARAUDER II          10 - DISKCOPY V1.5a",$0d,$0a
 dc.b "    3 - WHITE LIGHTNING       7 - CLImate 1.2          11 - IFFLOAD",$0d,$0a
 dc.b "    4 - SUPERKIT-AMIGA        8 - A-COPY V1.0",$0a
 dc.b $0d,$0a,$0a
 dc.b "                 To start 'Mirror with 82T' type 'Mirror 1.4'",$0a
 dc.b $0d,$0a,$0a
 dc.b "                 Type number of desired copy and press RETURN",$0d,$0a,$0a,$0a
 dc.b $9b,"0;1;0m"
 even
textende:
 even