Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD » NetPlex/!Netplex/!RunImage/Library/IfRunning
NetPlex/!Netplex/!RunImage/Library/IfRunning
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-Xmas B.adf » PD |
| Filename: | NetPlex/!Netplex/!RunImage/Library/IfRunning |
| Read OK: | ✔ |
| File size: | 01CA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >IfRunning 20REM ======================================================================== 30REM Name: IfRunning 40REM Purpose: Is the specified task already running? 50REM Author: LEN David Thomas, 1997 60REM Version: 0.00 (13 Apr 1997) 70REM ======================================================================== 80DIMC%15:A%=FALSE:WHILEA%>=FALSESYS&42681,A%,C%,16TOA%:IFA%>=FALSEA$="":B%=C%!4:WHILE?B%>31A$+=CHR$?B%:B%+=1:ENDWHILE:IFA$="Netplex"ERROR0,"Netplex is already running" 90ENDWHILE:END
� >IfRunning N� ======================================================================== � Name: IfRunning (5� Purpose: Is the specified task already running? 2#� Author: � David Thomas, 1997 <!� Version: 0.00 (13 Apr 1997) FN� ======================================================================== P��C%15:A%=�:ȕA%>=�ș&42681,A%,C%,16�A%:�A%>=�A$="":B%=C%!4:ȕ?B%>31A$+=�?B%:B%+=1:�:�A$="Netplex"�0,"Netplex is already running" Z�:� �
00000000 0d 00 0a 10 f4 20 3e 49 66 52 75 6e 6e 69 6e 67 |..... >IfRunning| 00000010 0d 00 14 4e f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |...N. ==========| 00000020 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================| * 00000050 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 |==============..| 00000060 1e 18 f4 20 20 20 20 4e 61 6d 65 3a 20 49 66 52 |... Name: IfR| 00000070 75 6e 6e 69 6e 67 0d 00 28 35 f4 20 50 75 72 70 |unning..(5. Purp| 00000080 6f 73 65 3a 20 49 73 20 74 68 65 20 73 70 65 63 |ose: Is the spec| 00000090 69 66 69 65 64 20 74 61 73 6b 20 61 6c 72 65 61 |ified task alrea| 000000a0 64 79 20 72 75 6e 6e 69 6e 67 3f 0d 00 32 23 f4 |dy running?..2#.| 000000b0 20 20 41 75 74 68 6f 72 3a 20 a9 20 44 61 76 69 | Author: . Davi| 000000c0 64 20 54 68 6f 6d 61 73 2c 20 31 39 39 37 0d 00 |d Thomas, 1997..| 000000d0 3c 21 f4 20 56 65 72 73 69 6f 6e 3a 20 30 2e 30 |<!. Version: 0.0| 000000e0 30 20 28 31 33 20 41 70 72 20 31 39 39 37 29 0d |0 (13 Apr 1997).| 000000f0 00 46 4e f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |.FN. ===========| 00000100 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================| * 00000130 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 50 |=============..P| 00000140 84 de 43 25 31 35 3a 41 25 3d a3 3a c8 95 41 25 |..C%15:A%=.:..A%| 00000150 3e 3d a3 c8 99 26 34 32 36 38 31 2c 41 25 2c 43 |>=...&42681,A%,C| 00000160 25 2c 31 36 b8 41 25 3a e7 41 25 3e 3d a3 41 24 |%,16.A%:.A%>=.A$| 00000170 3d 22 22 3a 42 25 3d 43 25 21 34 3a c8 95 3f 42 |="":B%=C%!4:..?B| 00000180 25 3e 33 31 41 24 2b 3d bd 3f 42 25 3a 42 25 2b |%>31A$+=.?B%:B%+| 00000190 3d 31 3a ce 3a e7 41 24 3d 22 4e 65 74 70 6c 65 |=1:.:.A$="Netple| 000001a0 78 22 85 30 2c 22 4e 65 74 70 6c 65 78 20 69 73 |x".0,"Netplex is| 000001b0 20 61 6c 72 65 61 64 79 20 72 75 6e 6e 69 6e 67 | already running| 000001c0 22 0d 00 5a 07 ce 3a e0 0d ff |"..Z..:...| 000001ca
.