Home » Archimedes archive » Acorn User » AU 1995-06.adf » !Internet_StarterPak » !TTFN/Resources/Check

!TTFN/Resources/Check

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 1995-06.adf » !Internet_StarterPak
Filename: !TTFN/Resources/Check
Read OK:
File size: 0114 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > Check 1.01 (by Mike Borcherds)
   20DIM buffer 30
   30A%=0
   40REPEAT
   50SYS "TaskManager_EnumerateTasks",A%,buffer,30 TO A%
   51IF A%<0 THEN END
   60B%=buffer!4-1
   70task$=""
   80REPEAT B%+=1
   90IF ?B%>31 THEN task$=task$+CHR$?B%
  100UNTIL ?B%<32
  110IF task$="TTFN" THEN *SET TTFN$Running TRUE
  120UNTIL A%<0
  121END

&� > Check 1.01 (by Mike Borcherds)
� buffer 30
A%=0
(�
25ș "TaskManager_EnumerateTasks",A%,buffer,30 � A%
3� A%<0 � �
<B%=buffer!4-1
Ftask$=""
P� B%+=1
Z� ?B%>31 � task$=task$+�?B%
d� ?B%<32
n+� task$="TTFN" � *SET TTFN$Running TRUE
x
� A%<0
y�
�
00000000  0d 00 0a 26 f4 20 3e 20  43 68 65 63 6b 20 31 2e  |...&. > Check 1.|
00000010  30 31 20 28 62 79 20 4d  69 6b 65 20 42 6f 72 63  |01 (by Mike Borc|
00000020  68 65 72 64 73 29 0d 00  14 0f de 20 62 75 66 66  |herds)..... buff|
00000030  65 72 20 33 30 0d 00 1e  08 41 25 3d 30 0d 00 28  |er 30....A%=0..(|
00000040  05 f5 0d 00 32 35 c8 99  20 22 54 61 73 6b 4d 61  |....25.. "TaskMa|
00000050  6e 61 67 65 72 5f 45 6e  75 6d 65 72 61 74 65 54  |nager_EnumerateT|
00000060  61 73 6b 73 22 2c 41 25  2c 62 75 66 66 65 72 2c  |asks",A%,buffer,|
00000070  33 30 20 b8 20 41 25 0d  00 33 0e e7 20 41 25 3c  |30 . A%..3.. A%<|
00000080  30 20 8c 20 e0 0d 00 3c  11 42 25 3d 62 75 66 66  |0 . ...<.B%=buff|
00000090  65 72 21 34 2d 31 0d 00  46 0c 74 61 73 6b 24 3d  |er!4-1..F.task$=|
000000a0  22 22 0d 00 50 0b f5 20  42 25 2b 3d 31 0d 00 5a  |""..P.. B%+=1..Z|
000000b0  1f e7 20 3f 42 25 3e 33  31 20 8c 20 74 61 73 6b  |.. ?B%>31 . task|
000000c0  24 3d 74 61 73 6b 24 2b  bd 3f 42 25 0d 00 64 0c  |$=task$+.?B%..d.|
000000d0  fd 20 3f 42 25 3c 33 32  0d 00 6e 2b e7 20 74 61  |. ?B%<32..n+. ta|
000000e0  73 6b 24 3d 22 54 54 46  4e 22 20 8c 20 2a 53 45  |sk$="TTFN" . *SE|
000000f0  54 20 54 54 46 4e 24 52  75 6e 6e 69 6e 67 20 54  |T TTFN$Running T|
00000100  52 55 45 0d 00 78 0a fd  20 41 25 3c 30 0d 00 79  |RUE..x.. A%<0..y|
00000110  05 e0 0d ff                                       |....|
00000114