Home » Personal collection » Acorn hard disk » files » DomFord » Stuff/FREAKY3
Stuff/FREAKY3
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 » files » DomFord |
| Filename: | Stuff/FREAKY3 |
| Read OK: | ✔ |
| File size: | 0237 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Server1/Stuff/FREAKY3
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Server1/Stuff/FREAKY3
- Personal collection » Acorn hard disk » files » DomFord » Stuff/FREAKY3
- Personal collection » Acorn hard disk » misc » dcfprogs » Server1/Stuff/FREAKY3
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:MOUSE OX,OY,C:XV=0:YV=0:ENDPROC 210 220DEF PROCreceive(q%) 230IF (A%=17 OR A%=18) AND q%!16=0 THEN END 240FOR CN=0 TO 15 250VDU 19,CN,RND(255),0;0; 260NEXT 270FORW=0TO250:NEXT 280FOR CN=0 TO 15 290VDU 19,CN,RND(255),0;0; 300NEXT 310ENDPROC 320
� 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:ȗ �:ȗ OX,OY,C:XV=0:YV=0:� � �� �receive(q%) �#� (A%=17 � A%=18) � q%!16=0 � � �� CN=0 � 15 �� 19,CN,�(255),0;0; � �W=0�250:� � CN=0 � 15 "� 19,CN,�(255),0;0; ,� 6� @ �
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 2f 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 c8 97 20 4f 58 2c 4f |uff:.. .:.. OX,O| 00000180 59 2c 43 3a 58 56 3d 30 3a 59 56 3d 30 3a e1 0d |Y,C:XV=0:YV=0:..| 00000190 00 d2 04 0d 00 dc 12 dd 20 f2 72 65 63 65 69 76 |........ .receiv| 000001a0 65 28 71 25 29 0d 00 e6 23 e7 20 28 41 25 3d 31 |e(q%)...#. (A%=1| 000001b0 37 20 84 20 41 25 3d 31 38 29 20 80 20 71 25 21 |7 . A%=18) . q%!| 000001c0 31 36 3d 30 20 8c 20 e0 0d 00 f0 0f e3 20 43 4e |16=0 . ...... CN| 000001d0 3d 30 20 b8 20 31 35 0d 00 fa 17 ef 20 31 39 2c |=0 . 15..... 19,| 000001e0 43 4e 2c b3 28 32 35 35 29 2c 30 3b 30 3b 0d 01 |CN,.(255),0;0;..| 000001f0 04 05 ed 0d 01 0e 0e e3 57 3d 30 b8 32 35 30 3a |........W=0.250:| 00000200 ed 0d 01 18 0f e3 20 43 4e 3d 30 20 b8 20 31 35 |...... CN=0 . 15| 00000210 0d 01 22 17 ef 20 31 39 2c 43 4e 2c b3 28 32 35 |..".. 19,CN,.(25| 00000220 35 29 2c 30 3b 30 3b 0d 01 2c 05 ed 0d 01 36 05 |5),0;0;..,....6.| 00000230 e1 0d 01 40 04 0d ff |...@...| 00000237
.