Duplicates

There are 3 duplicate copies of this file in the archive:

• Personal collection » Acorn ADFS disks » Archimedes » Dominic_2.ADF » PrinterDMs/!PrinterDM/!Run
• Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_2.adf » PrinterDMs/!PrinterDM/!Run
• Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_2B.adf » PrinterDMs/!PrinterDM/!Run
• Personal collection » Acorn hard disk » apps » Printers » RiscOs2/!PrinterDM/!Run

File contents

• Preview
• Hex Dump

| >!Run V 0.82 (14-Dec-88)
Wimpslot -min 56K -max 56K
if "<$Printing>"<>"" then error 42 Printer in use
Set PDriver$Dir <Obey$Dir>
if "<Printer$Scrap>" = "" OR "<Printer$Scrap>" RIGHT 6 = "!Scrap" then set Printer$Scrap <PDriver$Dir>.DM!Scrap
if "<Printer$Temp>" = "" OR "<Printer$Temp>" RIGHT 5 = "!Temp" then set Printer$Temp <PDriver$Dir>.DM!Temp
| set the printer
rmload <PDriver$Dir>.PDriverDM
| don't RMEnsure as we are probably replacing some other printer
set File$Type_FF4 "DM data"
Run <PDriver$Dir>.!RunImage

00000000  7c 20 3e 21 52 75 6e 20  56 20 30 2e 38 32 20 28  || >!Run V 0.82 (|
00000010  31 34 2d 44 65 63 2d 38  38 29 0a 57 69 6d 70 73  |14-Dec-88).Wimps|
00000020  6c 6f 74 20 2d 6d 69 6e  20 35 36 4b 20 2d 6d 61  |lot -min 56K -ma|
00000030  78 20 35 36 4b 0a 69 66  20 22 3c 24 50 72 69 6e  |x 56K.if "<$Prin|
00000040  74 69 6e 67 3e 22 3c 3e  22 22 20 74 68 65 6e 20  |ting>"<>"" then |
00000050  65 72 72 6f 72 20 34 32  20 50 72 69 6e 74 65 72  |error 42 Printer|
00000060  20 69 6e 20 75 73 65 0a  53 65 74 20 50 44 72 69  | in use.Set PDri|
00000070  76 65 72 24 44 69 72 20  3c 4f 62 65 79 24 44 69  |ver$Dir <Obey$Di|
00000080  72 3e 0a 69 66 20 22 3c  50 72 69 6e 74 65 72 24  |r>.if "<Printer$|
00000090  53 63 72 61 70 3e 22 20  3d 20 22 22 20 4f 52 20  |Scrap>" = "" OR |
000000a0  22 3c 50 72 69 6e 74 65  72 24 53 63 72 61 70 3e  |"<Printer$Scrap>|
000000b0  22 20 52 49 47 48 54 20  36 20 3d 20 22 21 53 63  |" RIGHT 6 = "!Sc|
000000c0  72 61 70 22 20 74 68 65  6e 20 73 65 74 20 50 72  |rap" then set Pr|
000000d0  69 6e 74 65 72 24 53 63  72 61 70 20 3c 50 44 72  |inter$Scrap <PDr|
000000e0  69 76 65 72 24 44 69 72  3e 2e 44 4d 21 53 63 72  |iver$Dir>.DM!Scr|
000000f0  61 70 0a 69 66 20 22 3c  50 72 69 6e 74 65 72 24  |ap.if "<Printer$|
00000100  54 65 6d 70 3e 22 20 3d  20 22 22 20 4f 52 20 22  |Temp>" = "" OR "|
00000110  3c 50 72 69 6e 74 65 72  24 54 65 6d 70 3e 22 20  |<Printer$Temp>" |
00000120  52 49 47 48 54 20 35 20  3d 20 22 21 54 65 6d 70  |RIGHT 5 = "!Temp|
00000130  22 20 74 68 65 6e 20 73  65 74 20 50 72 69 6e 74  |" then set Print|
00000140  65 72 24 54 65 6d 70 20  3c 50 44 72 69 76 65 72  |er$Temp <PDriver|
00000150  24 44 69 72 3e 2e 44 4d  21 54 65 6d 70 0a 7c 20  |$Dir>.DM!Temp.| |
00000160  73 65 74 20 74 68 65 20  70 72 69 6e 74 65 72 0a  |set the printer.|
00000170  72 6d 6c 6f 61 64 20 3c  50 44 72 69 76 65 72 24  |rmload <PDriver$|
00000180  44 69 72 3e 2e 50 44 72  69 76 65 72 44 4d 0a 7c  |Dir>.PDriverDM.||
00000190  20 64 6f 6e 27 74 20 52  4d 45 6e 73 75 72 65 20  | don't RMEnsure |
000001a0  61 73 20 77 65 20 61 72  65 20 70 72 6f 62 61 62  |as we are probab|
000001b0  6c 79 20 72 65 70 6c 61  63 69 6e 67 20 73 6f 6d  |ly replacing som|
000001c0  65 20 6f 74 68 65 72 20  70 72 69 6e 74 65 72 0a  |e other printer.|
000001d0  73 65 74 20 46 69 6c 65  24 54 79 70 65 5f 46 46  |set File$Type_FF|
000001e0  34 20 22 44 4d 20 64 61  74 61 22 0a 52 75 6e 20  |4 "DM data".Run |
000001f0  3c 50 44 72 69 76 65 72  24 44 69 72 3e 2e 21 52  |<PDriver$Dir>.!R|
00000200  75 6e 49 6d 61 67 65 0a                           |unImage.|
00000208