Home » Archimedes archive » Acorn User » AU 1997-02 A.adf » !Voyager/Stack/CheckKill

!Voyager/Stack/CheckKill

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 » Archimedes archive » Acorn User » AU 1997-02 A.adf
Filename: !Voyager/Stack/CheckKill
Read OK:
File size: 0284 bytes
Load address: FFFFFB47
Exec address: 21B9DC72
File contents
   10REM>CheckKill for VoyagerShell
   20Kill$=""
   30*Set VTi$KillModules ""
   40*Set VTi$LoadVStack 1
   50IFFNmoduleversion("InternetA")>=0 THEN
   60IFFNmoduleversion("ShareFS") PROCkillmodule("ShareFS")
   70PROCkillmodule("InternetA")
   90END
  100ENDIF
  110IFFNmoduleversion("Internet")>=0 THEN
  120IFFNmoduleversion("ShareFS") PROCkillmodule("ShareFS")
  130PROCkillmodule("Internet")
  131ENDIF
  150END
  270DEFFNmoduleversion(Q$)
  280SYS"XOS_Module",18,Q$ TO J%,,,M%
  290IFJ%<>18 =-1
  300M%+=M%!20
  310WHILE?M%<>9:M%+=1:ENDWHILE
  320WHILE?M%=9:M%+=1:ENDWHILE
  330N$="":WHILE?M%>32:N$+=CHR$?M%:M%+=1:ENDWHILE
  340=VALN$*100
  350DEFPROCkillmodule(N$)
  360IFKill$<>"" THEN Kill$+=","
  370Kill$+=N$
  380OSCLI"Set VTi$KillModules "+Kill$
  390SYS"XOS_Module",4,N$
  400ENDPROC

 �>CheckKill for VoyagerShell
Kill$=""
*Set VTi$KillModules ""
(*Set VTi$LoadVStack 1
2%�moduleversion("InternetA")>=0 �
<5�moduleversion("ShareFS") �killmodule("ShareFS")
F�killmodule("InternetA")
Z�
d�
n$�moduleversion("Internet")>=0 �
x5�moduleversion("ShareFS") �killmodule("ShareFS")
��killmodule("Internet")
��
��
ݤmoduleversion(Q$)
"ș"XOS_Module",18,Q$ � J%,,,M%
"�J%<>18 =-1
,
M%+=M%!20
6ȕ?M%<>9:M%+=1:�
@ȕ?M%=9:M%+=1:�
J#N$="":ȕ?M%>32:N$+=�?M%:M%+=1:�
T=�N$*100
^��killmodule(N$)
h�Kill$<>"" � Kill$+=","
r
Kill$+=N$
|!�"Set VTi$KillModules "+Kill$
�ș"XOS_Module",4,N$
��
�
00000000  0d 00 0a 20 f4 3e 43 68  65 63 6b 4b 69 6c 6c 20  |... .>CheckKill |
00000010  66 6f 72 20 56 6f 79 61  67 65 72 53 68 65 6c 6c  |for VoyagerShell|
00000020  0d 00 14 0c 4b 69 6c 6c  24 3d 22 22 0d 00 1e 1b  |....Kill$=""....|
00000030  2a 53 65 74 20 56 54 69  24 4b 69 6c 6c 4d 6f 64  |*Set VTi$KillMod|
00000040  75 6c 65 73 20 22 22 0d  00 28 19 2a 53 65 74 20  |ules ""..(.*Set |
00000050  56 54 69 24 4c 6f 61 64  56 53 74 61 63 6b 20 31  |VTi$LoadVStack 1|
00000060  0d 00 32 25 e7 a4 6d 6f  64 75 6c 65 76 65 72 73  |..2%..modulevers|
00000070  69 6f 6e 28 22 49 6e 74  65 72 6e 65 74 41 22 29  |ion("InternetA")|
00000080  3e 3d 30 20 8c 0d 00 3c  35 e7 a4 6d 6f 64 75 6c  |>=0 ...<5..modul|
00000090  65 76 65 72 73 69 6f 6e  28 22 53 68 61 72 65 46  |eversion("ShareF|
000000a0  53 22 29 20 f2 6b 69 6c  6c 6d 6f 64 75 6c 65 28  |S") .killmodule(|
000000b0  22 53 68 61 72 65 46 53  22 29 0d 00 46 1c f2 6b  |"ShareFS")..F..k|
000000c0  69 6c 6c 6d 6f 64 75 6c  65 28 22 49 6e 74 65 72  |illmodule("Inter|
000000d0  6e 65 74 41 22 29 0d 00  5a 05 e0 0d 00 64 05 cd  |netA")..Z....d..|
000000e0  0d 00 6e 24 e7 a4 6d 6f  64 75 6c 65 76 65 72 73  |..n$..modulevers|
000000f0  69 6f 6e 28 22 49 6e 74  65 72 6e 65 74 22 29 3e  |ion("Internet")>|
00000100  3d 30 20 8c 0d 00 78 35  e7 a4 6d 6f 64 75 6c 65  |=0 ...x5..module|
00000110  76 65 72 73 69 6f 6e 28  22 53 68 61 72 65 46 53  |version("ShareFS|
00000120  22 29 20 f2 6b 69 6c 6c  6d 6f 64 75 6c 65 28 22  |") .killmodule("|
00000130  53 68 61 72 65 46 53 22  29 0d 00 82 1b f2 6b 69  |ShareFS").....ki|
00000140  6c 6c 6d 6f 64 75 6c 65  28 22 49 6e 74 65 72 6e  |llmodule("Intern|
00000150  65 74 22 29 0d 00 83 05  cd 0d 00 96 05 e0 0d 01  |et")............|
00000160  0e 17 dd a4 6d 6f 64 75  6c 65 76 65 72 73 69 6f  |....moduleversio|
00000170  6e 28 51 24 29 0d 01 18  22 c8 99 22 58 4f 53 5f  |n(Q$)...".."XOS_|
00000180  4d 6f 64 75 6c 65 22 2c  31 38 2c 51 24 20 b8 20  |Module",18,Q$ . |
00000190  4a 25 2c 2c 2c 4d 25 0d  01 22 0f e7 4a 25 3c 3e  |J%,,,M%.."..J%<>|
000001a0  31 38 20 3d 2d 31 0d 01  2c 0d 4d 25 2b 3d 4d 25  |18 =-1..,.M%+=M%|
000001b0  21 32 30 0d 01 36 14 c8  95 3f 4d 25 3c 3e 39 3a  |!20..6...?M%<>9:|
000001c0  4d 25 2b 3d 31 3a ce 0d  01 40 13 c8 95 3f 4d 25  |M%+=1:...@...?M%|
000001d0  3d 39 3a 4d 25 2b 3d 31  3a ce 0d 01 4a 23 4e 24  |=9:M%+=1:...J#N$|
000001e0  3d 22 22 3a c8 95 3f 4d  25 3e 33 32 3a 4e 24 2b  |="":..?M%>32:N$+|
000001f0  3d bd 3f 4d 25 3a 4d 25  2b 3d 31 3a ce 0d 01 54  |=.?M%:M%+=1:...T|
00000200  0c 3d bb 4e 24 2a 31 30  30 0d 01 5e 14 dd f2 6b  |.=.N$*100..^...k|
00000210  69 6c 6c 6d 6f 64 75 6c  65 28 4e 24 29 0d 01 68  |illmodule(N$)..h|
00000220  1b e7 4b 69 6c 6c 24 3c  3e 22 22 20 8c 20 4b 69  |..Kill$<>"" . Ki|
00000230  6c 6c 24 2b 3d 22 2c 22  0d 01 72 0d 4b 69 6c 6c  |ll$+=","..r.Kill|
00000240  24 2b 3d 4e 24 0d 01 7c  21 ff 22 53 65 74 20 56  |$+=N$..|!."Set V|
00000250  54 69 24 4b 69 6c 6c 4d  6f 64 75 6c 65 73 20 22  |Ti$KillModules "|
00000260  2b 4b 69 6c 6c 24 0d 01  86 17 c8 99 22 58 4f 53  |+Kill$......"XOS|
00000270  5f 4d 6f 64 75 6c 65 22  2c 34 2c 4e 24 0d 01 90  |_Module",4,N$...|
00000280  05 e1 0d ff                                       |....|
00000284