Nancekiev/!Slowdown/!Runimage

Home » Archimedes archive » Acorn User » AU 1994-04.adf » !StarInfo_StarInfo » Nancekiev/!Slowdown/!Runimage

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 1994-04.adf » !StarInfo_StarInfo
Filename:	Nancekiev/!Slowdown/!Runimage
Read OK:	✔
File size:	04CC bytes
Load address:	0000
Exec address:	0000

File contents

   10REM     >!SlowDown.!Runimage
   20REM by  Dominic Nancekievill
   30REM (c) AU April 1994
   40:
   50Task = &4B534154
   60Wimp_Version = 2
   70SYS "Wimp_Initialise",Wimp_Version*100,Task,"!Slowdown" TO ,Task_Handle
   80DIM buffer% 1000
   90DIM winspace% &400
  100Turbo%=0
  110:
  120SYS "Wimp_OpenTemplate",,"<Slowdown$Dir>.Templates"
  130SYS "Wimp_LoadTemplate",,buffer%,winspace%,winspace%+&400,-1,"TheWindow",0 TO,,winspace%
  140SYS "Wimp_CreateWindow",,buffer% TO window%
  150SYS "Wimp_CloseTemplate"
  160:
  170!buffer%=window%
  180buffer%!4=350
  190buffer%!8=300
  200buffer%!12=924
  210buffer%!16=700
  220buffer%!28=-1
  230SYS "Wimp_OpenWindow",,buffer%
  240:
  250REPEAT
  260SYS "Wimp_Poll",,buffer% TO action%
  270CASE action% OF
  280WHEN 2 : SYS "Wimp_OpenWindow",,buffer%
  290WHEN 3 : SYS "Wimp_CloseDown"
  300WHEN 6 : PROCcheck
  310ENDCASE
  320UNTIL FALSE
  330:
  340DEFPROCcheck
  350IF buffer%!8=4 AND buffer%!16=11 THEN PROCmodule
  360IF buffer%!8=4 OR buffer%!8=1 THEN
  370IF buffer%!16=3 THEN Turbo%=0
  380ENDIF
  390IF buffer%!8=4 OR buffer%!8=1 THEN
  400IF buffer%!16=2 THEN Turbo%=2
  410ENDIF
  420IF buffer%!8=4 OR buffer%!8=1 THEN
  430IF buffer%!16=1 THEN Turbo%=1
  440ENDIF
  450ENDPROC
  460DEFPROCmodule
  470IF Turbo%=0 THEN *RMLOAD <Slowdown$Dir>.Arm250
  480IF Turbo%=1 THEN *RMLOAD <Slowdown$Dir>.Arm250++
  490IF Turbo%=2 THEN *RMLOAD <Slowdown$Dir>.Arm250+
  500SYS "Wimp_CloseDown"
  510ENDPROC
  520


�     >!SlowDown.!Runimage
� by  Dominic Nancekievill
� (c) AU April 1994
(:
2Task = &4B534154
<Wimp_Version = 2
FIș "Wimp_Initialise",Wimp_Version*100,Task,"!Slowdown" � ,Task_Handle
P� buffer% 1000
Z� winspace% &400
dTurbo%=0
n:
x6ș "Wimp_OpenTemplate",,"<Slowdown$Dir>.Templates"
�Zș "Wimp_LoadTemplate",,buffer%,winspace%,winspace%+&400,-1,"TheWindow",0 �,,winspace%
�-ș "Wimp_CreateWindow",,buffer% � window%
�ș "Wimp_CloseTemplate"
�:
�!buffer%=window%
�buffer%!4=350
�buffer%!8=300
�buffer%!12=924
�buffer%!16=700
�buffer%!28=-1
�!ș "Wimp_OpenWindow",,buffer%
�:
��
%ș "Wimp_Poll",,buffer% � action%
Ȏ action% �
'� 2 : ș "Wimp_OpenWindow",,buffer%
"� 3 : ș "Wimp_CloseDown"
,� 6 : �check
6�
@� �
J:
T��check
^+� buffer%!8=4 � buffer%!16=11 � �module
h!� buffer%!8=4 � buffer%!8=1 �
r� buffer%!16=3 � Turbo%=0
|�
�!� buffer%!8=4 � buffer%!8=1 �
�� buffer%!16=2 � Turbo%=2
��
�!� buffer%!8=4 � buffer%!8=1 �
�� buffer%!16=1 � Turbo%=1
��
��
���module
�.� Turbo%=0 � *RMLOAD <Slowdown$Dir>.Arm250
�0� Turbo%=1 � *RMLOAD <Slowdown$Dir>.Arm250++
�/� Turbo%=2 � *RMLOAD <Slowdown$Dir>.Arm250+
�ș "Wimp_CloseDown"
��

�

00000000  0d 00 0a 1e f4 20 20 20  20 20 3e 21 53 6c 6f 77  |.....     >!Slow|
00000010  44 6f 77 6e 2e 21 52 75  6e 69 6d 61 67 65 0d 00  |Down.!Runimage..|
00000020  14 1e f4 20 62 79 20 20  44 6f 6d 69 6e 69 63 20  |... by  Dominic |
00000030  4e 61 6e 63 65 6b 69 65  76 69 6c 6c 0d 00 1e 17  |Nancekievill....|
00000040  f4 20 28 63 29 20 41 55  20 41 70 72 69 6c 20 31  |. (c) AU April 1|
00000050  39 39 34 0d 00 28 05 3a  0d 00 32 14 54 61 73 6b  |994..(.:..2.Task|
00000060  20 3d 20 26 34 42 35 33  34 31 35 34 0d 00 3c 14  | = &4B534154..<.|
00000070  57 69 6d 70 5f 56 65 72  73 69 6f 6e 20 3d 20 32  |Wimp_Version = 2|
00000080  0d 00 46 49 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |..FI.. "Wimp_Ini|
00000090  74 69 61 6c 69 73 65 22  2c 57 69 6d 70 5f 56 65  |tialise",Wimp_Ve|
000000a0  72 73 69 6f 6e 2a 31 30  30 2c 54 61 73 6b 2c 22  |rsion*100,Task,"|
000000b0  21 53 6c 6f 77 64 6f 77  6e 22 20 b8 20 2c 54 61  |!Slowdown" . ,Ta|
000000c0  73 6b 5f 48 61 6e 64 6c  65 0d 00 50 12 de 20 62  |sk_Handle..P.. b|
000000d0  75 66 66 65 72 25 20 31  30 30 30 0d 00 5a 14 de  |uffer% 1000..Z..|
000000e0  20 77 69 6e 73 70 61 63  65 25 20 26 34 30 30 0d  | winspace% &400.|
000000f0  00 64 0c 54 75 72 62 6f  25 3d 30 0d 00 6e 05 3a  |.d.Turbo%=0..n.:|
00000100  0d 00 78 36 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..x6.. "Wimp_Ope|
00000110  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 53 6c  |nTemplate",,"<Sl|
00000120  6f 77 64 6f 77 6e 24 44  69 72 3e 2e 54 65 6d 70  |owdown$Dir>.Temp|
00000130  6c 61 74 65 73 22 0d 00  82 5a c8 99 20 22 57 69  |lates"...Z.. "Wi|
00000140  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000150  2c 2c 62 75 66 66 65 72  25 2c 77 69 6e 73 70 61  |,,buffer%,winspa|
00000160  63 65 25 2c 77 69 6e 73  70 61 63 65 25 2b 26 34  |ce%,winspace%+&4|
00000170  30 30 2c 2d 31 2c 22 54  68 65 57 69 6e 64 6f 77  |00,-1,"TheWindow|
00000180  22 2c 30 20 b8 2c 2c 77  69 6e 73 70 61 63 65 25  |",0 .,,winspace%|
00000190  0d 00 8c 2d c8 99 20 22  57 69 6d 70 5f 43 72 65  |...-.. "Wimp_Cre|
000001a0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 75 66 66  |ateWindow",,buff|
000001b0  65 72 25 20 b8 20 77 69  6e 64 6f 77 25 0d 00 96  |er% . window%...|
000001c0  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
000001d0  65 6d 70 6c 61 74 65 22  0d 00 a0 05 3a 0d 00 aa  |emplate"....:...|
000001e0  14 21 62 75 66 66 65 72  25 3d 77 69 6e 64 6f 77  |.!buffer%=window|
000001f0  25 0d 00 b4 11 62 75 66  66 65 72 25 21 34 3d 33  |%....buffer%!4=3|
00000200  35 30 0d 00 be 11 62 75  66 66 65 72 25 21 38 3d  |50....buffer%!8=|
00000210  33 30 30 0d 00 c8 12 62  75 66 66 65 72 25 21 31  |300....buffer%!1|
00000220  32 3d 39 32 34 0d 00 d2  12 62 75 66 66 65 72 25  |2=924....buffer%|
00000230  21 31 36 3d 37 30 30 0d  00 dc 11 62 75 66 66 65  |!16=700....buffe|
00000240  72 25 21 32 38 3d 2d 31  0d 00 e6 21 c8 99 20 22  |r%!28=-1...!.. "|
00000250  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000260  2c 2c 62 75 66 66 65 72  25 0d 00 f0 05 3a 0d 00  |,,buffer%....:..|
00000270  fa 05 f5 0d 01 04 25 c8  99 20 22 57 69 6d 70 5f  |......%.. "Wimp_|
00000280  50 6f 6c 6c 22 2c 2c 62  75 66 66 65 72 25 20 b8  |Poll",,buffer% .|
00000290  20 61 63 74 69 6f 6e 25  0d 01 0e 10 c8 8e 20 61  | action%...... a|
000002a0  63 74 69 6f 6e 25 20 ca  0d 01 18 27 c9 20 32 20  |ction% ....'. 2 |
000002b0  3a 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |: .. "Wimp_OpenW|
000002c0  69 6e 64 6f 77 22 2c 2c  62 75 66 66 65 72 25 0d  |indow",,buffer%.|
000002d0  01 22 1d c9 20 33 20 3a  20 c8 99 20 22 57 69 6d  |.".. 3 : .. "Wim|
000002e0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 01 2c 10  |p_CloseDown"..,.|
000002f0  c9 20 36 20 3a 20 f2 63  68 65 63 6b 0d 01 36 05  |. 6 : .check..6.|
00000300  cb 0d 01 40 07 fd 20 a3  0d 01 4a 05 3a 0d 01 54  |...@.. ...J.:..T|
00000310  0b dd f2 63 68 65 63 6b  0d 01 5e 2b e7 20 62 75  |...check..^+. bu|
00000320  66 66 65 72 25 21 38 3d  34 20 80 20 62 75 66 66  |ffer%!8=4 . buff|
00000330  65 72 25 21 31 36 3d 31  31 20 8c 20 f2 6d 6f 64  |er%!16=11 . .mod|
00000340  75 6c 65 0d 01 68 21 e7  20 62 75 66 66 65 72 25  |ule..h!. buffer%|
00000350  21 38 3d 34 20 84 20 62  75 66 66 65 72 25 21 38  |!8=4 . buffer%!8|
00000360  3d 31 20 8c 0d 01 72 1d  e7 20 62 75 66 66 65 72  |=1 ...r.. buffer|
00000370  25 21 31 36 3d 33 20 8c  20 54 75 72 62 6f 25 3d  |%!16=3 . Turbo%=|
00000380  30 0d 01 7c 05 cd 0d 01  86 21 e7 20 62 75 66 66  |0..|.....!. buff|
00000390  65 72 25 21 38 3d 34 20  84 20 62 75 66 66 65 72  |er%!8=4 . buffer|
000003a0  25 21 38 3d 31 20 8c 0d  01 90 1d e7 20 62 75 66  |%!8=1 ...... buf|
000003b0  66 65 72 25 21 31 36 3d  32 20 8c 20 54 75 72 62  |fer%!16=2 . Turb|
000003c0  6f 25 3d 32 0d 01 9a 05  cd 0d 01 a4 21 e7 20 62  |o%=2........!. b|
000003d0  75 66 66 65 72 25 21 38  3d 34 20 84 20 62 75 66  |uffer%!8=4 . buf|
000003e0  66 65 72 25 21 38 3d 31  20 8c 0d 01 ae 1d e7 20  |fer%!8=1 ...... |
000003f0  62 75 66 66 65 72 25 21  31 36 3d 31 20 8c 20 54  |buffer%!16=1 . T|
00000400  75 72 62 6f 25 3d 31 0d  01 b8 05 cd 0d 01 c2 05  |urbo%=1.........|
00000410  e1 0d 01 cc 0c dd f2 6d  6f 64 75 6c 65 0d 01 d6  |.......module...|
00000420  2e e7 20 54 75 72 62 6f  25 3d 30 20 8c 20 2a 52  |.. Turbo%=0 . *R|
00000430  4d 4c 4f 41 44 20 3c 53  6c 6f 77 64 6f 77 6e 24  |MLOAD <Slowdown$|
00000440  44 69 72 3e 2e 41 72 6d  32 35 30 0d 01 e0 30 e7  |Dir>.Arm250...0.|
00000450  20 54 75 72 62 6f 25 3d  31 20 8c 20 2a 52 4d 4c  | Turbo%=1 . *RML|
00000460  4f 41 44 20 3c 53 6c 6f  77 64 6f 77 6e 24 44 69  |OAD <Slowdown$Di|
00000470  72 3e 2e 41 72 6d 32 35  30 2b 2b 0d 01 ea 2f e7  |r>.Arm250++.../.|
00000480  20 54 75 72 62 6f 25 3d  32 20 8c 20 2a 52 4d 4c  | Turbo%=2 . *RML|
00000490  4f 41 44 20 3c 53 6c 6f  77 64 6f 77 6e 24 44 69  |OAD <Slowdown$Di|
000004a0  72 3e 2e 41 72 6d 32 35  30 2b 0d 01 f4 17 c8 99  |r>.Arm250+......|
000004b0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
000004c0  22 0d 01 fe 05 e1 0d 02  08 04 0d ff              |"...........|
000004cc

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .