Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD » NetPlex/!Netplex/!Help/HTML/cgi-bin/velocity
NetPlex/!Netplex/!Help/HTML/cgi-bin/velocity
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/!Help/HTML/cgi-bin/velocity |
| Read OK: | ✔ |
| File size: | 0502 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >cgi-bin.velocity (Netplex Example)
20REM =========================================================================
30REM Prints information on the current desktop load.
40REM =========================================================================
50
60REM Set ourselves a suitable amount of memory.
70END = &8000 + 16384 :REM 16 Kbytes
80
90LIBRARY "<Netplex$Dir>.CGILibrary"
100REM Set up error handler, redirection and library variables.
110PROCcgi_init
120
130PROCcgi_header("text/html",-1)
140
150PRINT "<HTML>";
160PRINT "<HEAD><TITLE>Velocity</TITLE></HEAD>";
170PRINT "<BODY>";
180PRINT "<H1>Velocity</H1>";
190PRINT "<HR>";
200
210REM We're going to multitask
220PROCcgi_polling(TRUE)
230
240REM Deactivate redirection
250PROCcgi_redirect(0)
260
270REM No. of centiseconds to multitask for
280cs%=500
290
300REM Find out the current desktop speed
310SYS "Wimp_Initialise",200,&4B534154,"Velocity"
320starttime%=TIME:polls%=0
330WHILE starttime%+cs%>TIME
340 SYS "Wimp_Poll",,misc%:polls%+=1
350ENDWHILE
360endtime%=TIME
370SYS "Wimp_CloseDown"
380
390REM We've stopped multitasking
400PROCcgi_polling(FALSE)
410
420REM Reactivate redirection
430PROCcgi_redirect(1)
440
450PRINT "<CENTER><P><FONT SIZE=7>Desktop speed appears to be about "+STR$INT(polls%*100/(endtime%-starttime%))+" polls/sec.</FONT></P></CENTER>"
460
470PRINT "</BODY>";
480PRINT "</HTML>";
490
500END
*� >cgi-bin.velocity (Netplex Example)
O� =========================================================================
5� Prints information on the current desktop load.
(O� =========================================================================
2
<0� Set ourselves a suitable amount of memory.
F#� = &8000 + 16384 :� 16 Kbytes
P
Z!ț "<Netplex$Dir>.CGILibrary"
d>� Set up error handler, redirection and library variables.
n
�cgi_init
x
� �cgi_header("text/html",-1)
�
�� "<HTML>";
�-� "<HEAD><TITLE>Velocity</TITLE></HEAD>";
�� "<BODY>";
�� "<H1>Velocity</H1>";
�
� "<HR>";
�
� � We're going to multitask
��cgi_polling(�)
�
� � Deactivate redirection
��cgi_redirect(0)
*� No. of centiseconds to multitask for
cs%=500
"
,(� Find out the current desktop speed
61ș "Wimp_Initialise",200,&4B534154,"Velocity"
@starttime%=�:polls%=0
Jȕ starttime%+cs%>�
T% ș "Wimp_Poll",,misc%:polls%+=1
^�
hendtime%=�
rș "Wimp_CloseDown"
|
� � We've stopped multitasking
��cgi_polling(�)
�
� � Reactivate redirection
��cgi_redirect(1)
�
� "<CENTER><P><FONT SIZE=7>Desktop speed appears to be about "+è(polls%*100/(endtime%-starttime%))+" polls/sec.</FONT></P></CENTER>"
�
�� "</BODY>";
�� "</HTML>";
�
��
� 00000000 0d 00 0a 2a f4 20 3e 63 67 69 2d 62 69 6e 2e 76 |...*. >cgi-bin.v|
00000010 65 6c 6f 63 69 74 79 20 20 28 4e 65 74 70 6c 65 |elocity (Netple|
00000020 78 20 45 78 61 6d 70 6c 65 29 0d 00 14 4f f4 20 |x Example)...O. |
00000030 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000070 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 1e 35 f4 20 50 |=========...5. P|
00000080 72 69 6e 74 73 20 69 6e 66 6f 72 6d 61 74 69 6f |rints informatio|
00000090 6e 20 6f 6e 20 74 68 65 20 63 75 72 72 65 6e 74 |n on the current|
000000a0 20 64 65 73 6b 74 6f 70 20 6c 6f 61 64 2e 0d 00 | desktop load...|
000000b0 28 4f f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |(O. ============|
000000c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
000000f0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 32 |=============..2|
00000100 04 0d 00 3c 30 f4 20 53 65 74 20 6f 75 72 73 65 |...<0. Set ourse|
00000110 6c 76 65 73 20 61 20 73 75 69 74 61 62 6c 65 20 |lves a suitable |
00000120 61 6d 6f 75 6e 74 20 6f 66 20 6d 65 6d 6f 72 79 |amount of memory|
00000130 2e 0d 00 46 23 e0 20 3d 20 26 38 30 30 30 20 2b |...F#. = &8000 +|
00000140 20 31 36 33 38 34 20 20 3a f4 20 31 36 20 4b 62 | 16384 :. 16 Kb|
00000150 79 74 65 73 0d 00 50 04 0d 00 5a 21 c8 9b 20 22 |ytes..P...Z!.. "|
00000160 3c 4e 65 74 70 6c 65 78 24 44 69 72 3e 2e 43 47 |<Netplex$Dir>.CG|
00000170 49 4c 69 62 72 61 72 79 22 0d 00 64 3e f4 20 53 |ILibrary"..d>. S|
00000180 65 74 20 75 70 20 65 72 72 6f 72 20 68 61 6e 64 |et up error hand|
00000190 6c 65 72 2c 20 72 65 64 69 72 65 63 74 69 6f 6e |ler, redirection|
000001a0 20 61 6e 64 20 6c 69 62 72 61 72 79 20 76 61 72 | and library var|
000001b0 69 61 62 6c 65 73 2e 0d 00 6e 0d f2 63 67 69 5f |iables...n..cgi_|
000001c0 69 6e 69 74 0d 00 78 04 0d 00 82 1f f2 63 67 69 |init..x......cgi|
000001d0 5f 68 65 61 64 65 72 28 22 74 65 78 74 2f 68 74 |_header("text/ht|
000001e0 6d 6c 22 2c 2d 31 29 0d 00 8c 04 0d 00 96 0f f1 |ml",-1).........|
000001f0 20 22 3c 48 54 4d 4c 3e 22 3b 0d 00 a0 2d f1 20 | "<HTML>";...-. |
00000200 22 3c 48 45 41 44 3e 3c 54 49 54 4c 45 3e 56 65 |"<HEAD><TITLE>Ve|
00000210 6c 6f 63 69 74 79 3c 2f 54 49 54 4c 45 3e 3c 2f |locity</TITLE></|
00000220 48 45 41 44 3e 22 3b 0d 00 aa 0f f1 20 22 3c 42 |HEAD>";..... "<B|
00000230 4f 44 59 3e 22 3b 0d 00 b4 1a f1 20 22 3c 48 31 |ODY>";..... "<H1|
00000240 3e 56 65 6c 6f 63 69 74 79 3c 2f 48 31 3e 22 3b |>Velocity</H1>";|
00000250 0d 00 be 0d f1 20 22 3c 48 52 3e 22 3b 0d 00 c8 |..... "<HR>";...|
00000260 04 0d 00 d2 1e f4 20 57 65 27 72 65 20 67 6f 69 |...... We're goi|
00000270 6e 67 20 74 6f 20 6d 75 6c 74 69 74 61 73 6b 0d |ng to multitask.|
00000280 00 dc 13 f2 63 67 69 5f 70 6f 6c 6c 69 6e 67 28 |....cgi_polling(|
00000290 b9 29 0d 00 e6 04 0d 00 f0 1c f4 20 44 65 61 63 |.)......... Deac|
000002a0 74 69 76 61 74 65 20 72 65 64 69 72 65 63 74 69 |tivate redirecti|
000002b0 6f 6e 0d 00 fa 14 f2 63 67 69 5f 72 65 64 69 72 |on.....cgi_redir|
000002c0 65 63 74 28 30 29 0d 01 04 04 0d 01 0e 2a f4 20 |ect(0).......*. |
000002d0 4e 6f 2e 20 6f 66 20 63 65 6e 74 69 73 65 63 6f |No. of centiseco|
000002e0 6e 64 73 20 74 6f 20 6d 75 6c 74 69 74 61 73 6b |nds to multitask|
000002f0 20 66 6f 72 0d 01 18 0b 63 73 25 3d 35 30 30 0d | for....cs%=500.|
00000300 01 22 04 0d 01 2c 28 f4 20 46 69 6e 64 20 6f 75 |."...,(. Find ou|
00000310 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 |t the current de|
00000320 73 6b 74 6f 70 20 73 70 65 65 64 0d 01 36 31 c8 |sktop speed..61.|
00000330 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 |. "Wimp_Initiali|
00000340 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 |se",200,&4B53415|
00000350 34 2c 22 56 65 6c 6f 63 69 74 79 22 0d 01 40 19 |4,"Velocity"..@.|
00000360 73 74 61 72 74 74 69 6d 65 25 3d 91 3a 70 6f 6c |starttime%=.:pol|
00000370 6c 73 25 3d 30 0d 01 4a 17 c8 95 20 73 74 61 72 |ls%=0..J... star|
00000380 74 74 69 6d 65 25 2b 63 73 25 3e 91 0d 01 54 25 |ttime%+cs%>...T%|
00000390 20 20 c8 99 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 | .. "Wimp_Poll"|
000003a0 2c 2c 6d 69 73 63 25 3a 70 6f 6c 6c 73 25 2b 3d |,,misc%:polls%+=|
000003b0 31 0d 01 5e 05 ce 0d 01 68 0e 65 6e 64 74 69 6d |1..^....h.endtim|
000003c0 65 25 3d 91 0d 01 72 17 c8 99 20 22 57 69 6d 70 |e%=...r... "Wimp|
000003d0 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d 01 7c 04 0d |_CloseDown"..|..|
000003e0 01 86 20 f4 20 57 65 27 76 65 20 73 74 6f 70 70 |.. . We've stopp|
000003f0 65 64 20 6d 75 6c 74 69 74 61 73 6b 69 6e 67 0d |ed multitasking.|
00000400 01 90 13 f2 63 67 69 5f 70 6f 6c 6c 69 6e 67 28 |....cgi_polling(|
00000410 a3 29 0d 01 9a 04 0d 01 a4 1c f4 20 52 65 61 63 |.)......... Reac|
00000420 74 69 76 61 74 65 20 72 65 64 69 72 65 63 74 69 |tivate redirecti|
00000430 6f 6e 0d 01 ae 14 f2 63 67 69 5f 72 65 64 69 72 |on.....cgi_redir|
00000440 65 63 74 28 31 29 0d 01 b8 04 0d 01 c2 89 f1 20 |ect(1)......... |
00000450 22 3c 43 45 4e 54 45 52 3e 3c 50 3e 3c 46 4f 4e |"<CENTER><P><FON|
00000460 54 20 53 49 5a 45 3d 37 3e 44 65 73 6b 74 6f 70 |T SIZE=7>Desktop|
00000470 20 73 70 65 65 64 20 61 70 70 65 61 72 73 20 74 | speed appears t|
00000480 6f 20 62 65 20 61 62 6f 75 74 20 22 2b c3 a8 28 |o be about "+..(|
00000490 70 6f 6c 6c 73 25 2a 31 30 30 2f 28 65 6e 64 74 |polls%*100/(endt|
000004a0 69 6d 65 25 2d 73 74 61 72 74 74 69 6d 65 25 29 |ime%-starttime%)|
000004b0 29 2b 22 20 70 6f 6c 6c 73 2f 73 65 63 2e 3c 2f |)+" polls/sec.</|
000004c0 46 4f 4e 54 3e 3c 2f 50 3e 3c 2f 43 45 4e 54 45 |FONT></P></CENTE|
000004d0 52 3e 22 0d 01 cc 04 0d 01 d6 10 f1 20 22 3c 2f |R>"......... "</|
000004e0 42 4f 44 59 3e 22 3b 0d 01 e0 10 f1 20 22 3c 2f |BODY>";..... "</|
000004f0 48 54 4d 4c 3e 22 3b 0d 01 ea 04 0d 01 f4 05 e0 |HTML>";.........|
00000500 0d ff |..|
00000502 
.