Home » Personal collection » Acorn hard disk » misc » dcfprogs » Server1/Stuff/0e

Server1/Stuff/0e

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 » Personal collection » Acorn hard disk » misc » dcfprogs
Filename: Server1/Stuff/0e
Read OK:
File size: 0213 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10DIM taskid%4:$taskid%="TASK"
   20SYS "Wimp_Initialise",200,!taskid%,"FREAKY" TO version%,handle%
   30:
   40DIM q% &300,buffer% &200
   50:
   60DIM DiscNameArray% 30
   70DIM NameArray% 60
   80DiscName$ = "xx"
   90ON ERROR REPORT:PRINT " @ ";ERL:END
  100:
  110PROCdo_your_stuff
  120REPEAT
  130  SYS "Wimp_Poll",0,q% TO A%
  140  PROCreceive(q%):REM 17 is shut me up, 18 is shut all up.
  150  ENDCASE
  160UNTIL FALSE
  170:
  180DEFPROCdo_your_stuff:P$="":ENDPROC
  190:
  200DEF PROCreceive(q%)
  210IF (A%=17 OR A%=18) AND q%!16=0 THEN END
  220A$=INKEY$(0)
  230IF A$="" THEN ENDPROC
  240IF LEN(P$)<254 THEN P$=P$+A$
  250IF A$="~" THEN MODE 0:PRINT P$;"** END **"
  260ENDPROC
  270

� taskid%4:$taskid%="TASK"
Aș "Wimp_Initialise",200,!taskid%,"FREAKY" � version%,handle%
:
(� q% &300,buffer% &200
2:
<� DiscNameArray% 30
F� NameArray% 60
PDiscName$ = "xx"
Z� � �:� " @ ";�:�
d:
n�do_your_stuff
x�
�  ș "Wimp_Poll",0,q% � A%
�9  �receive(q%):� 17 is shut me up, 18 is shut all up.
�  �
�� �
�:
���do_your_stuff:P$="":�
�:
�� �receive(q%)
�#� (A%=17 � A%=18) � q%!16=0 � �
�A$=�(0)
�� A$="" � �
�� �(P$)<254 � P$=P$+A$
�#� A$="~" � � 0:� P$;"** END **"
�

�
00000000  0d 00 0a 1e de 20 74 61  73 6b 69 64 25 34 3a 24  |..... taskid%4:$|
00000010  74 61 73 6b 69 64 25 3d  22 54 41 53 4b 22 0d 00  |taskid%="TASK"..|
00000020  14 41 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.A.. "Wimp_Initi|
00000030  61 6c 69 73 65 22 2c 32  30 30 2c 21 74 61 73 6b  |alise",200,!task|
00000040  69 64 25 2c 22 46 52 45  41 4b 59 22 20 b8 20 76  |id%,"FREAKY" . v|
00000050  65 72 73 69 6f 6e 25 2c  68 61 6e 64 6c 65 25 0d  |ersion%,handle%.|
00000060  00 1e 05 3a 0d 00 28 1a  de 20 71 25 20 26 33 30  |...:..(.. q% &30|
00000070  30 2c 62 75 66 66 65 72  25 20 26 32 30 30 0d 00  |0,buffer% &200..|
00000080  32 05 3a 0d 00 3c 17 de  20 44 69 73 63 4e 61 6d  |2.:..<.. DiscNam|
00000090  65 41 72 72 61 79 25 20  33 30 0d 00 46 13 de 20  |eArray% 30..F.. |
000000a0  4e 61 6d 65 41 72 72 61  79 25 20 36 30 0d 00 50  |NameArray% 60..P|
000000b0  14 44 69 73 63 4e 61 6d  65 24 20 3d 20 22 78 78  |.DiscName$ = "xx|
000000c0  22 0d 00 5a 15 ee 20 85  20 f6 3a f1 20 22 20 40  |"..Z.. . .:. " @|
000000d0  20 22 3b 9e 3a e0 0d 00  64 05 3a 0d 00 6e 12 f2  | ";.:...d.:..n..|
000000e0  64 6f 5f 79 6f 75 72 5f  73 74 75 66 66 0d 00 78  |do_your_stuff..x|
000000f0  05 f5 0d 00 82 1e 20 20  c8 99 20 22 57 69 6d 70  |......  .. "Wimp|
00000100  5f 50 6f 6c 6c 22 2c 30  2c 71 25 20 b8 20 41 25  |_Poll",0,q% . A%|
00000110  0d 00 8c 39 20 20 f2 72  65 63 65 69 76 65 28 71  |...9  .receive(q|
00000120  25 29 3a f4 20 31 37 20  69 73 20 73 68 75 74 20  |%):. 17 is shut |
00000130  6d 65 20 75 70 2c 20 31  38 20 69 73 20 73 68 75  |me up, 18 is shu|
00000140  74 20 61 6c 6c 20 75 70  2e 0d 00 96 07 20 20 cb  |t all up.....  .|
00000150  0d 00 a0 07 fd 20 a3 0d  00 aa 05 3a 0d 00 b4 1b  |..... .....:....|
00000160  dd f2 64 6f 5f 79 6f 75  72 5f 73 74 75 66 66 3a  |..do_your_stuff:|
00000170  50 24 3d 22 22 3a e1 0d  00 be 05 3a 0d 00 c8 12  |P$="":.....:....|
00000180  dd 20 f2 72 65 63 65 69  76 65 28 71 25 29 0d 00  |. .receive(q%)..|
00000190  d2 23 e7 20 28 41 25 3d  31 37 20 84 20 41 25 3d  |.#. (A%=17 . A%=|
000001a0  31 38 29 20 80 20 71 25  21 31 36 3d 30 20 8c 20  |18) . q%!16=0 . |
000001b0  e0 0d 00 dc 0b 41 24 3d  bf 28 30 29 0d 00 e6 0f  |.....A$=.(0)....|
000001c0  e7 20 41 24 3d 22 22 20  8c 20 e1 0d 00 f0 1a e7  |. A$="" . ......|
000001d0  20 a9 28 50 24 29 3c 32  35 34 20 8c 20 50 24 3d  | .(P$)<254 . P$=|
000001e0  50 24 2b 41 24 0d 00 fa  23 e7 20 41 24 3d 22 7e  |P$+A$...#. A$="~|
000001f0  22 20 8c 20 eb 20 30 3a  f1 20 50 24 3b 22 2a 2a  |" . . 0:. P$;"**|
00000200  20 45 4e 44 20 2a 2a 22  0d 01 04 05 e1 0d 01 0e  | END **"........|
00000210  04 0d ff                                          |...|
00000213