Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_5B.ADF » !InstallVP/!runimage

!InstallVP/!runimage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_5B.ADF
Filename: !InstallVP/!runimage
Read OK:
File size: 0677 bytes
Load address: FFFFFB44
Exec address: 2334B557
Duplicates

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

File contents
    5REM>!RunImage
   10DIMb 255:DIMc 8192:SYS262336,200,1263747412,"Installer"TO,j:FORA%=0TO50:SYS262343,,b:NEXT:SYS131107,"System$Path",b,255,0TO,,k;d:d=(dAND1):IFNOT(d=0)THEN
   15PROCa("Error from","Find your !System and try again")
   20ELSE:A$="":FORF%=0TOk-1:IF(b?F%)<>32THENA$=A$+CHR$(b?F%)
   25NEXT:A%=INSTR(A$,"$"):IFA%=0THENA%=(INSTR(A$,"::")+2)
   30a$=LEFT$(A$,A%):SYS131080,5,A$+"Modules"TOa:IFa<>2THEN
   35PROCa("Error from","There is no modules directory inside "+A$)
   40ELSE:OSCLI("COPY <Obey$Dir>.vprotect "+A$+"Modules.VProtect ~PF~C~V"):SYS8,5,a$+".!Boot"TOa,,e,g,f,h:CASEaOF
   45WHEN0:A%=OPENOUT(a$+".!Boot"):CLOSE#A%:OSCLI("SETTYPE "+a$+".!Boot Obey"):A%=INSTR(A$,":"):OSCLI(LEFT$(A$,A%)+"OPT 4 2"):SYS8,5,a$+".!Boot"TOa,,e,g,f,h:PROCb(a$+".!Boot"):OSCLI("Configure Boot")
   50WHEN1:PROCb(a$+".!Boot")
   55WHEN2:SYS8,5,a$+".!Boot.!Run"TOl,,e,g,f,h:CASElOF
   60WHEN1:PROCb(a$+".!Boot.!Run")
   65OTHERWISE:PROCa("Error from","Unable to find startup file - update aborted")
   70ENDCASE
   75OTHERWISE:PROCa("Error from","Unable to find startup file - update aborted")
   80ENDCASE
   85ENDIF
   90ENDIF
   95SYS262365,j,1263747412:END
  100DEFPROCb(b$):OSCLI("Access "+b$+" WR"):a=(eAND1048320)>>8:IFa<>4075ANDa<>4094ANDa<>4095ANDa<>4074THEN
  105PROCa("Error from","Not an Obey/Command/Text/Desktop file - update aborted")
  110ELSE:IFa=4074THEN
  115c$="RMRun "+A$+"Modules.VProtect"+CHR$10
  120ELSE:c$="RMLoad "+A$+"Modules.VProtect"+CHR$10
  125ENDIF
  130$c=c$:i=c+LEN(c$):OSCLI("Load "+b$+" "+STR$~i):T$="":T=0:REPEAT:S=i?T:T$=T$+CHR$S:T+=1:UNTILS<32:IFINSTR(T$,"VProtect")>0THEN
  135ELSE:OSCLI("Save "+b$+" "+STR$~(c)+" +"+STR$~(f+LENc$)):CASEaOF
  140WHEN4074:OSCLI("Settype "+b$+" Desktop")
  145WHEN4075:OSCLI("Settype "+b$+" Obey")
  150WHEN4094:OSCLI("Settype "+b$+" Command")
  155WHEN4095:OSCLI("Settype "+b$+" Text")
  160ENDCASE
  165*CO. BOOT
  170ENDIF
  175PROCa("Message from","VProtect successfully installed")
  180ENDIF
  185ENDPROC
  190DEFPROCa(d$,e$):d$=d$+" installer":!b=0:$(b+4)=e$+CHR$0:SYS262367,b,16+1,d$:ENDPROC
�>!RunImage

��b 255:�c 8192:ș262336,200,1263747412,"Installer"�,j:�A%=0�50:ș262343,,b:�:ș131107,"System$Path",b,255,0�,,k;d:d=(d�1):�(d=0)�
6�a("Error from","Find your !System and try again")
/�:A$="":�F%=0�k-1:�(b?F%)<>32�A$=A$+�(b?F%)
(�:A%=�A$,"$"):�A%=0�A%=(�A$,"::")+2)
/a$=�A$,A%):ș131080,5,A$+"Modules"�a:�a<>2�
#?�a("Error from","There is no modules directory inside "+A$)
(d�:�("COPY <Obey$Dir>.vprotect "+A$+"Modules.VProtect ~PF~C~V"):ș8,5,a$+".!Boot"�a,,e,g,f,h:Ȏa�
-��0:A%=�(a$+".!Boot"):�#A%:�("SETTYPE "+a$+".!Boot Obey"):A%=�A$,":"):�(�A$,A%)+"OPT 4 2"):ș8,5,a$+".!Boot"�a,,e,g,f,h:�b(a$+".!Boot"):�("Configure Boot")
2�1:�b(a$+".!Boot")
7-�2:ș8,5,a$+".!Boot.!Run"�l,,e,g,f,h:Ȏl�
<�1:�b(a$+".!Boot.!Run")
AE:�a("Error from","Unable to find startup file - update aborted")
F�
KE:�a("Error from","Unable to find startup file - update aborted")
P�
U�
Z�
_ș262365,j,1263747412:�
dT��b(b$):�("Access "+b$+" WR"):a=(e�1048320)>>8:�a<>4075�a<>4094�a<>4095�a<>4074�
iM�a("Error from","Not an Obey/Command/Text/Desktop file - update aborted")
n�:�a=4074�
s)c$="RMRun "+A$+"Modules.VProtect"+�10
x,�:c$="RMLoad "+A$+"Modules.VProtect"+�10
}�
�c$c=c$:i=c+�(c$):�("Load "+b$+" "+�~i):T$="":T=0:�:S=i?T:T$=T$+�S:T+=1:�S<32:�T$,"VProtect")>0�
�1�:�("Save "+b$+" "+�~(c)+" +"+�~(f+�c$)):Ȏa�
�%�4074:�("Settype "+b$+" Desktop")
�"�4075:�("Settype "+b$+" Obey")
�%�4094:�("Settype "+b$+" Command")
�"�4095:�("Settype "+b$+" Text")
��
�
*CO. BOOT
��
�8�a("Message from","VProtect successfully installed")
��
��
�H��a(d$,e$):d$=d$+" installer":!b=0:$(b+4)=e$+�0:ș262367,b,16+1,d$:�
�
00000000  0d 00 05 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 0a 86 de 62 20 32 35  35 3a de 63 20 38 31 39  |....b 255:.c 819|
00000020  32 3a c8 99 32 36 32 33  33 36 2c 32 30 30 2c 31  |2:..262336,200,1|
00000030  32 36 33 37 34 37 34 31  32 2c 22 49 6e 73 74 61  |263747412,"Insta|
00000040  6c 6c 65 72 22 b8 2c 6a  3a e3 41 25 3d 30 b8 35  |ller".,j:.A%=0.5|
00000050  30 3a c8 99 32 36 32 33  34 33 2c 2c 62 3a ed 3a  |0:..262343,,b:.:|
00000060  c8 99 31 33 31 31 30 37  2c 22 53 79 73 74 65 6d  |..131107,"System|
00000070  24 50 61 74 68 22 2c 62  2c 32 35 35 2c 30 b8 2c  |$Path",b,255,0.,|
00000080  2c 6b 3b 64 3a 64 3d 28  64 80 31 29 3a e7 ac 28  |,k;d:d=(d.1):..(|
00000090  64 3d 30 29 8c 0d 00 0f  36 f2 61 28 22 45 72 72  |d=0)....6.a("Err|
000000a0  6f 72 20 66 72 6f 6d 22  2c 22 46 69 6e 64 20 79  |or from","Find y|
000000b0  6f 75 72 20 21 53 79 73  74 65 6d 20 61 6e 64 20  |our !System and |
000000c0  74 72 79 20 61 67 61 69  6e 22 29 0d 00 14 2f cc  |try again").../.|
000000d0  3a 41 24 3d 22 22 3a e3  46 25 3d 30 b8 6b 2d 31  |:A$="":.F%=0.k-1|
000000e0  3a e7 28 62 3f 46 25 29  3c 3e 33 32 8c 41 24 3d  |:.(b?F%)<>32.A$=|
000000f0  41 24 2b bd 28 62 3f 46  25 29 0d 00 19 28 ed 3a  |A$+.(b?F%)...(.:|
00000100  41 25 3d a7 41 24 2c 22  24 22 29 3a e7 41 25 3d  |A%=.A$,"$"):.A%=|
00000110  30 8c 41 25 3d 28 a7 41  24 2c 22 3a 3a 22 29 2b  |0.A%=(.A$,"::")+|
00000120  32 29 0d 00 1e 2f 61 24  3d c0 41 24 2c 41 25 29  |2).../a$=.A$,A%)|
00000130  3a c8 99 31 33 31 30 38  30 2c 35 2c 41 24 2b 22  |:..131080,5,A$+"|
00000140  4d 6f 64 75 6c 65 73 22  b8 61 3a e7 61 3c 3e 32  |Modules".a:.a<>2|
00000150  8c 0d 00 23 3f f2 61 28  22 45 72 72 6f 72 20 66  |...#?.a("Error f|
00000160  72 6f 6d 22 2c 22 54 68  65 72 65 20 69 73 20 6e  |rom","There is n|
00000170  6f 20 6d 6f 64 75 6c 65  73 20 64 69 72 65 63 74  |o modules direct|
00000180  6f 72 79 20 69 6e 73 69  64 65 20 22 2b 41 24 29  |ory inside "+A$)|
00000190  0d 00 28 64 cc 3a ff 28  22 43 4f 50 59 20 3c 4f  |..(d.:.("COPY <O|
000001a0  62 65 79 24 44 69 72 3e  2e 76 70 72 6f 74 65 63  |bey$Dir>.vprotec|
000001b0  74 20 22 2b 41 24 2b 22  4d 6f 64 75 6c 65 73 2e  |t "+A$+"Modules.|
000001c0  56 50 72 6f 74 65 63 74  20 7e 50 46 7e 43 7e 56  |VProtect ~PF~C~V|
000001d0  22 29 3a c8 99 38 2c 35  2c 61 24 2b 22 2e 21 42  |"):..8,5,a$+".!B|
000001e0  6f 6f 74 22 b8 61 2c 2c  65 2c 67 2c 66 2c 68 3a  |oot".a,,e,g,f,h:|
000001f0  c8 8e 61 ca 0d 00 2d 9e  c9 30 3a 41 25 3d ae 28  |..a...-..0:A%=.(|
00000200  61 24 2b 22 2e 21 42 6f  6f 74 22 29 3a d9 23 41  |a$+".!Boot"):.#A|
00000210  25 3a ff 28 22 53 45 54  54 59 50 45 20 22 2b 61  |%:.("SETTYPE "+a|
00000220  24 2b 22 2e 21 42 6f 6f  74 20 4f 62 65 79 22 29  |$+".!Boot Obey")|
00000230  3a 41 25 3d a7 41 24 2c  22 3a 22 29 3a ff 28 c0  |:A%=.A$,":"):.(.|
00000240  41 24 2c 41 25 29 2b 22  4f 50 54 20 34 20 32 22  |A$,A%)+"OPT 4 2"|
00000250  29 3a c8 99 38 2c 35 2c  61 24 2b 22 2e 21 42 6f  |):..8,5,a$+".!Bo|
00000260  6f 74 22 b8 61 2c 2c 65  2c 67 2c 66 2c 68 3a f2  |ot".a,,e,g,f,h:.|
00000270  62 28 61 24 2b 22 2e 21  42 6f 6f 74 22 29 3a ff  |b(a$+".!Boot"):.|
00000280  28 22 43 6f 6e 66 69 67  75 72 65 20 42 6f 6f 74  |("Configure Boot|
00000290  22 29 0d 00 32 16 c9 31  3a f2 62 28 61 24 2b 22  |")..2..1:.b(a$+"|
000002a0  2e 21 42 6f 6f 74 22 29  0d 00 37 2d c9 32 3a c8  |.!Boot")..7-.2:.|
000002b0  99 38 2c 35 2c 61 24 2b  22 2e 21 42 6f 6f 74 2e  |.8,5,a$+".!Boot.|
000002c0  21 52 75 6e 22 b8 6c 2c  2c 65 2c 67 2c 66 2c 68  |!Run".l,,e,g,f,h|
000002d0  3a c8 8e 6c ca 0d 00 3c  1b c9 31 3a f2 62 28 61  |:..l...<..1:.b(a|
000002e0  24 2b 22 2e 21 42 6f 6f  74 2e 21 52 75 6e 22 29  |$+".!Boot.!Run")|
000002f0  0d 00 41 45 7f 3a f2 61  28 22 45 72 72 6f 72 20  |..AE.:.a("Error |
00000300  66 72 6f 6d 22 2c 22 55  6e 61 62 6c 65 20 74 6f  |from","Unable to|
00000310  20 66 69 6e 64 20 73 74  61 72 74 75 70 20 66 69  | find startup fi|
00000320  6c 65 20 2d 20 75 70 64  61 74 65 20 61 62 6f 72  |le - update abor|
00000330  74 65 64 22 29 0d 00 46  05 cb 0d 00 4b 45 7f 3a  |ted")..F....KE.:|
00000340  f2 61 28 22 45 72 72 6f  72 20 66 72 6f 6d 22 2c  |.a("Error from",|
00000350  22 55 6e 61 62 6c 65 20  74 6f 20 66 69 6e 64 20  |"Unable to find |
00000360  73 74 61 72 74 75 70 20  66 69 6c 65 20 2d 20 75  |startup file - u|
00000370  70 64 61 74 65 20 61 62  6f 72 74 65 64 22 29 0d  |pdate aborted").|
00000380  00 50 05 cb 0d 00 55 05  cd 0d 00 5a 05 cd 0d 00  |.P....U....Z....|
00000390  5f 1b c8 99 32 36 32 33  36 35 2c 6a 2c 31 32 36  |_...262365,j,126|
000003a0  33 37 34 37 34 31 32 3a  e0 0d 00 64 54 dd f2 62  |3747412:...dT..b|
000003b0  28 62 24 29 3a ff 28 22  41 63 63 65 73 73 20 22  |(b$):.("Access "|
000003c0  2b 62 24 2b 22 20 57 52  22 29 3a 61 3d 28 65 80  |+b$+" WR"):a=(e.|
000003d0  31 30 34 38 33 32 30 29  3e 3e 38 3a e7 61 3c 3e  |1048320)>>8:.a<>|
000003e0  34 30 37 35 80 61 3c 3e  34 30 39 34 80 61 3c 3e  |4075.a<>4094.a<>|
000003f0  34 30 39 35 80 61 3c 3e  34 30 37 34 8c 0d 00 69  |4095.a<>4074...i|
00000400  4d f2 61 28 22 45 72 72  6f 72 20 66 72 6f 6d 22  |M.a("Error from"|
00000410  2c 22 4e 6f 74 20 61 6e  20 4f 62 65 79 2f 43 6f  |,"Not an Obey/Co|
00000420  6d 6d 61 6e 64 2f 54 65  78 74 2f 44 65 73 6b 74  |mmand/Text/Deskt|
00000430  6f 70 20 66 69 6c 65 20  2d 20 75 70 64 61 74 65  |op file - update|
00000440  20 61 62 6f 72 74 65 64  22 29 0d 00 6e 0e cc 3a  | aborted")..n..:|
00000450  e7 61 3d 34 30 37 34 8c  0d 00 73 29 63 24 3d 22  |.a=4074...s)c$="|
00000460  52 4d 52 75 6e 20 22 2b  41 24 2b 22 4d 6f 64 75  |RMRun "+A$+"Modu|
00000470  6c 65 73 2e 56 50 72 6f  74 65 63 74 22 2b bd 31  |les.VProtect"+.1|
00000480  30 0d 00 78 2c cc 3a 63  24 3d 22 52 4d 4c 6f 61  |0..x,.:c$="RMLoa|
00000490  64 20 22 2b 41 24 2b 22  4d 6f 64 75 6c 65 73 2e  |d "+A$+"Modules.|
000004a0  56 50 72 6f 74 65 63 74  22 2b bd 31 30 0d 00 7d  |VProtect"+.10..}|
000004b0  05 cd 0d 00 82 63 24 63  3d 63 24 3a 69 3d 63 2b  |.....c$c=c$:i=c+|
000004c0  a9 28 63 24 29 3a ff 28  22 4c 6f 61 64 20 22 2b  |.(c$):.("Load "+|
000004d0  62 24 2b 22 20 22 2b c3  7e 69 29 3a 54 24 3d 22  |b$+" "+.~i):T$="|
000004e0  22 3a 54 3d 30 3a f5 3a  53 3d 69 3f 54 3a 54 24  |":T=0:.:S=i?T:T$|
000004f0  3d 54 24 2b bd 53 3a 54  2b 3d 31 3a fd 53 3c 33  |=T$+.S:T+=1:.S<3|
00000500  32 3a e7 a7 54 24 2c 22  56 50 72 6f 74 65 63 74  |2:..T$,"VProtect|
00000510  22 29 3e 30 8c 0d 00 87  31 cc 3a ff 28 22 53 61  |")>0....1.:.("Sa|
00000520  76 65 20 22 2b 62 24 2b  22 20 22 2b c3 7e 28 63  |ve "+b$+" "+.~(c|
00000530  29 2b 22 20 2b 22 2b c3  7e 28 66 2b a9 63 24 29  |)+" +"+.~(f+.c$)|
00000540  29 3a c8 8e 61 ca 0d 00  8c 25 c9 34 30 37 34 3a  |):..a....%.4074:|
00000550  ff 28 22 53 65 74 74 79  70 65 20 22 2b 62 24 2b  |.("Settype "+b$+|
00000560  22 20 44 65 73 6b 74 6f  70 22 29 0d 00 91 22 c9  |" Desktop")...".|
00000570  34 30 37 35 3a ff 28 22  53 65 74 74 79 70 65 20  |4075:.("Settype |
00000580  22 2b 62 24 2b 22 20 4f  62 65 79 22 29 0d 00 96  |"+b$+" Obey")...|
00000590  25 c9 34 30 39 34 3a ff  28 22 53 65 74 74 79 70  |%.4094:.("Settyp|
000005a0  65 20 22 2b 62 24 2b 22  20 43 6f 6d 6d 61 6e 64  |e "+b$+" Command|
000005b0  22 29 0d 00 9b 22 c9 34  30 39 35 3a ff 28 22 53  |")...".4095:.("S|
000005c0  65 74 74 79 70 65 20 22  2b 62 24 2b 22 20 54 65  |ettype "+b$+" Te|
000005d0  78 74 22 29 0d 00 a0 05  cb 0d 00 a5 0d 2a 43 4f  |xt").........*CO|
000005e0  2e 20 42 4f 4f 54 0d 00  aa 05 cd 0d 00 af 38 f2  |. BOOT........8.|
000005f0  61 28 22 4d 65 73 73 61  67 65 20 66 72 6f 6d 22  |a("Message from"|
00000600  2c 22 56 50 72 6f 74 65  63 74 20 73 75 63 63 65  |,"VProtect succe|
00000610  73 73 66 75 6c 6c 79 20  69 6e 73 74 61 6c 6c 65  |ssfully installe|
00000620  64 22 29 0d 00 b4 05 cd  0d 00 b9 05 e1 0d 00 be  |d").............|
00000630  48 dd f2 61 28 64 24 2c  65 24 29 3a 64 24 3d 64  |H..a(d$,e$):d$=d|
00000640  24 2b 22 20 69 6e 73 74  61 6c 6c 65 72 22 3a 21  |$+" installer":!|
00000650  62 3d 30 3a 24 28 62 2b  34 29 3d 65 24 2b bd 30  |b=0:$(b+4)=e$+.0|
00000660  3a c8 99 32 36 32 33 36  37 2c 62 2c 31 36 2b 31  |:..262367,b,16+1|
00000670  2c 64 24 3a e1 0d ff                              |,d$:...|
00000677
!InstallVP/!runimage.m0
!InstallVP/!runimage.m1
!InstallVP/!runimage.m2
!InstallVP/!runimage.m4
!InstallVP/!runimage.m5