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

Server1/Stuff/TEMPTT

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/TEMPTT
Read OK:
File size: 02B4 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 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
   60
   70DIM DiscNameArray% 30
   80DIM NameArray% 60
   90DiscName$ = "xx"
  100ON ERROR REPORT:PRINT " @ ";ERL:END
  110
  120
  130PROCdo_your_stuff
  140REPEAT
  150  SYS "Wimp_Poll",0,q% TO A%
  160  PROCreceive(q%):REM 17 is shut me up, 18 is shut all up.
  170  ENDCASE
  180UNTIL FALSE
  190
  200DEFPROCdo_your_stuff:MOUSE ON:ST=FALSE:ENDPROC
  210
  220DEF PROCreceive(q%)
  230IF (A%=17 OR A%=18) AND q%!16=0 THEN END
  240REMIF MID$(TIME$,17,5)="14:52" THEN ST=TRUE
  250ST=TRUE
  260IF ST=FALSE THEN ENDPROC
  270VDU 19,RND(15),RND(15),0;0;0;
  280IF RND(5)=2 THEN SOUND 1,-15,RND(255),5
  290IF RND(5)=2 THEN SOUND 2,-15,RND(255),5
  300REMMOUSE TO RND(1000),RND(1000)
  310GCOL 0,RND(15)
  320MOVE RND(1280),RND(1024):DRAW RND(1280),RND(1024)
  330ENDPROC
  340

� taskid%4:$taskid%="TASK"
Aș "Wimp_Initialise",200,!taskid%,"FREAKY" � version%,handle%

(� q% &300,buffer% &200
2
<
F� DiscNameArray% 30
P� NameArray% 60
ZDiscName$ = "xx"
d� � �:� " @ ";�:�
n
x
��do_your_stuff
��
�  ș "Wimp_Poll",0,q% � A%
�9  �receive(q%):� 17 is shut me up, 18 is shut all up.
�  �
�� �
�
���do_your_stuff:ȗ �:ST=�:�
�
�� �receive(q%)
�#� (A%=17 � A%=18) � q%!16=0 � �
�-�IF MID$(TIME$,17,5)="14:52" THEN ST=TRUE
�ST=�
� ST=� � �
� 19,�(15),�(15),0;0;0;
� �(5)=2 � � 1,-15,�(255),5
"� �(5)=2 � � 2,-15,�(255),5
,!�MOUSE TO RND(1000),RND(1000)
6
� 0,�(15)
@'� �(1280),�(1024):� �(1280),�(1024)
J�
T
�
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 04 0d 00 28 1a de  20 71 25 20 26 33 30 30  |.....(.. q% &300|
00000070  2c 62 75 66 66 65 72 25  20 26 32 30 30 0d 00 32  |,buffer% &200..2|
00000080  04 0d 00 3c 04 0d 00 46  17 de 20 44 69 73 63 4e  |...<...F.. DiscN|
00000090  61 6d 65 41 72 72 61 79  25 20 33 30 0d 00 50 13  |ameArray% 30..P.|
000000a0  de 20 4e 61 6d 65 41 72  72 61 79 25 20 36 30 0d  |. NameArray% 60.|
000000b0  00 5a 14 44 69 73 63 4e  61 6d 65 24 20 3d 20 22  |.Z.DiscName$ = "|
000000c0  78 78 22 0d 00 64 15 ee  20 85 20 f6 3a f1 20 22  |xx"..d.. . .:. "|
000000d0  20 40 20 22 3b 9e 3a e0  0d 00 6e 04 0d 00 78 04  | @ ";.:...n...x.|
000000e0  0d 00 82 12 f2 64 6f 5f  79 6f 75 72 5f 73 74 75  |.....do_your_stu|
000000f0  66 66 0d 00 8c 05 f5 0d  00 96 1e 20 20 c8 99 20  |ff.........  .. |
00000100  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 30 2c 71 25  |"Wimp_Poll",0,q%|
00000110  20 b8 20 41 25 0d 00 a0  39 20 20 f2 72 65 63 65  | . A%...9  .rece|
00000120  69 76 65 28 71 25 29 3a  f4 20 31 37 20 69 73 20  |ive(q%):. 17 is |
00000130  73 68 75 74 20 6d 65 20  75 70 2c 20 31 38 20 69  |shut me up, 18 i|
00000140  73 20 73 68 75 74 20 61  6c 6c 20 75 70 2e 0d 00  |s shut all up...|
00000150  aa 07 20 20 cb 0d 00 b4  07 fd 20 a3 0d 00 be 04  |..  ...... .....|
00000160  0d 00 c8 1f dd f2 64 6f  5f 79 6f 75 72 5f 73 74  |......do_your_st|
00000170  75 66 66 3a c8 97 20 ee  3a 53 54 3d a3 3a e1 0d  |uff:.. .:ST=.:..|
00000180  00 d2 04 0d 00 dc 12 dd  20 f2 72 65 63 65 69 76  |........ .receiv|
00000190  65 28 71 25 29 0d 00 e6  23 e7 20 28 41 25 3d 31  |e(q%)...#. (A%=1|
000001a0  37 20 84 20 41 25 3d 31  38 29 20 80 20 71 25 21  |7 . A%=18) . q%!|
000001b0  31 36 3d 30 20 8c 20 e0  0d 00 f0 2d f4 49 46 20  |16=0 . ....-.IF |
000001c0  4d 49 44 24 28 54 49 4d  45 24 2c 31 37 2c 35 29  |MID$(TIME$,17,5)|
000001d0  3d 22 31 34 3a 35 32 22  20 54 48 45 4e 20 53 54  |="14:52" THEN ST|
000001e0  3d 54 52 55 45 0d 00 fa  08 53 54 3d b9 0d 01 04  |=TRUE....ST=....|
000001f0  0e e7 20 53 54 3d a3 20  8c 20 e1 0d 01 0e 1b ef  |.. ST=. . ......|
00000200  20 31 39 2c b3 28 31 35  29 2c b3 28 31 35 29 2c  | 19,.(15),.(15),|
00000210  30 3b 30 3b 30 3b 0d 01  18 1f e7 20 b3 28 35 29  |0;0;0;..... .(5)|
00000220  3d 32 20 8c 20 d4 20 31  2c 2d 31 35 2c b3 28 32  |=2 . . 1,-15,.(2|
00000230  35 35 29 2c 35 0d 01 22  1f e7 20 b3 28 35 29 3d  |55),5..".. .(5)=|
00000240  32 20 8c 20 d4 20 32 2c  2d 31 35 2c b3 28 32 35  |2 . . 2,-15,.(25|
00000250  35 29 2c 35 0d 01 2c 21  f4 4d 4f 55 53 45 20 54  |5),5..,!.MOUSE T|
00000260  4f 20 52 4e 44 28 31 30  30 30 29 2c 52 4e 44 28  |O RND(1000),RND(|
00000270  31 30 30 30 29 0d 01 36  0d e6 20 30 2c b3 28 31  |1000)..6.. 0,.(1|
00000280  35 29 0d 01 40 27 ec 20  b3 28 31 32 38 30 29 2c  |5)..@'. .(1280),|
00000290  b3 28 31 30 32 34 29 3a  df 20 b3 28 31 32 38 30  |.(1024):. .(1280|
000002a0  29 2c b3 28 31 30 32 34  29 0d 01 4a 05 e1 0d 01  |),.(1024)..J....|
000002b0  54 04 0d ff                                       |T...|
000002b4