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