Home » Archimedes archive » Archimedes World » AW-1994-04-Disc1.adf » Disk1Apr94 » !AWApr94/Goodies/Hedghog/!Cold_Run/Cold_Check
!AWApr94/Goodies/Hedghog/!Cold_Run/Cold_Check
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 » Archimedes World » AW-1994-04-Disc1.adf » Disk1Apr94 |
| Filename: | !AWApr94/Goodies/Hedghog/!Cold_Run/Cold_Check |
| Read OK: | ✔ |
| File size: | 0348 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
�� 0O� �� ��0�0� R��(�O�i �H
&� Cold Runner Confirmation Program
+� Programming By Chris Wymark : Age 15
&� An Aard'vark Software Production
( � � 1994 Archimedes World
2;� *** Very Simple Desktop Front End For Cold Runner ***
<:
F�wimp_init:�:�poll:� �
P:
Z��wimp_init
d>� b% &FF:task$="Cold Runner":ș &400C0,&C8,&4B534154,task$
n�
x:
���warn(m$)
��!b%=&FF:$(b%+4)=(m$+�0):ș &400DF,b%,&13,"Warning From Cold Runner" � ,click%:� click%=1 � ș &400DD:ș &5,"Set No_Go 0":� � ș&400DD:ș &5,"Set No_Go 1":�
��
�:
� � �poll
� ș &400C7,&0,b% � p%:Ȏ p% �
�_� 0: �warn("Caution All UnSaved Data Will Be Lost, Click OK To Continue Or Cancel To Quit")
��
��
�
� � , � ����O� @-� �C�� ��� �$ ��4 � ��4�� ��� �, ��# �� �� � ��� *Basic -quit @ 00000000 20 20 9f e5 0c 30 4f e2 03 00 82 e0 0f 1c 80 e2 | ...0O.........|
00000010 04 30 10 e4 04 30 01 e4 04 20 52 e2 fb ff ff 1a |.0...0... R.....|
00000020 28 c0 4f e2 69 04 00 ea 48 03 00 00 0d 00 0a 26 |(.O.i...H......&|
00000030 f4 20 43 6f 6c 64 20 52 75 6e 6e 65 72 20 43 6f |. Cold Runner Co|
00000040 6e 66 69 72 6d 61 74 69 6f 6e 20 50 72 6f 67 72 |nfirmation Progr|
00000050 61 6d 0d 00 14 2b f4 20 50 72 6f 67 72 61 6d 6d |am...+. Programm|
00000060 69 6e 67 20 42 79 20 43 68 72 69 73 20 57 79 6d |ing By Chris Wym|
00000070 61 72 6b 20 20 3a 20 41 67 65 20 31 35 0d 00 1e |ark : Age 15...|
00000080 26 f4 20 41 6e 20 41 61 72 64 27 76 61 72 6b 20 |&. An Aard'vark |
00000090 53 6f 66 74 77 61 72 65 20 50 72 6f 64 75 63 74 |Software Product|
000000a0 69 6f 6e 0d 00 28 1d f4 20 a9 20 31 39 39 34 20 |ion..(.. . 1994 |
000000b0 41 72 63 68 69 6d 65 64 65 73 20 57 6f 72 6c 64 |Archimedes World|
000000c0 0d 00 32 3b f4 20 2a 2a 2a 20 56 65 72 79 20 53 |..2;. *** Very S|
000000d0 69 6d 70 6c 65 20 44 65 73 6b 74 6f 70 20 46 72 |imple Desktop Fr|
000000e0 6f 6e 74 20 45 6e 64 20 46 6f 72 20 43 6f 6c 64 |ont End For Cold|
000000f0 20 52 75 6e 6e 65 72 20 2a 2a 2a 0d 00 3c 05 3a | Runner ***..<.:|
00000100 0d 00 46 1a f2 77 69 6d 70 5f 69 6e 69 74 3a f5 |..F..wimp_init:.|
00000110 3a f2 70 6f 6c 6c 3a fd 20 a3 0d 00 50 05 3a 0d |:.poll:. ...P.:.|
00000120 00 5a 0f dd f2 77 69 6d 70 5f 69 6e 69 74 0d 00 |.Z...wimp_init..|
00000130 64 3e de 20 62 25 20 26 46 46 3a 74 61 73 6b 24 |d>. b% &FF:task$|
00000140 3d 22 43 6f 6c 64 20 52 75 6e 6e 65 72 22 3a c8 |="Cold Runner":.|
00000150 99 20 26 34 30 30 43 30 2c 26 43 38 2c 26 34 42 |. &400C0,&C8,&4B|
00000160 35 33 34 31 35 34 2c 74 61 73 6b 24 0d 00 6e 05 |534154,task$..n.|
00000170 e1 0d 00 78 05 3a 0d 00 82 0e dd f2 77 61 72 6e |...x.:......warn|
00000180 28 6d 24 29 0d 00 8c 9f 21 62 25 3d 26 46 46 3a |(m$)....!b%=&FF:|
00000190 24 28 62 25 2b 34 29 3d 28 6d 24 2b bd 30 29 3a |$(b%+4)=(m$+.0):|
000001a0 c8 99 20 26 34 30 30 44 46 2c 62 25 2c 26 31 33 |.. &400DF,b%,&13|
000001b0 2c 22 57 61 72 6e 69 6e 67 20 46 72 6f 6d 20 43 |,"Warning From C|
000001c0 6f 6c 64 20 52 75 6e 6e 65 72 22 20 b8 20 2c 63 |old Runner" . ,c|
000001d0 6c 69 63 6b 25 3a e7 20 63 6c 69 63 6b 25 3d 31 |lick%:. click%=1|
000001e0 20 8c 20 c8 99 20 26 34 30 30 44 44 3a c8 99 20 | . .. &400DD:.. |
000001f0 26 35 2c 22 53 65 74 20 4e 6f 5f 47 6f 20 30 22 |&5,"Set No_Go 0"|
00000200 3a e0 20 8b 20 c8 99 26 34 30 30 44 44 3a c8 99 |:. . ..&400DD:..|
00000210 20 26 35 2c 22 53 65 74 20 4e 6f 5f 47 6f 20 31 | &5,"Set No_Go 1|
00000220 22 3a e0 0d 00 96 05 e1 0d 00 a0 05 3a 0d 00 aa |":..........:...|
00000230 0b dd 20 f2 70 6f 6c 6c 0d 00 b4 20 c8 99 20 26 |.. .poll... .. &|
00000240 34 30 30 43 37 2c 26 30 2c 62 25 20 b8 20 70 25 |400C7,&0,b% . p%|
00000250 3a c8 8e 20 70 25 20 ca 0d 00 be 5f c9 20 30 3a |:.. p% ...._. 0:|
00000260 20 f2 77 61 72 6e 28 22 43 61 75 74 69 6f 6e 20 | .warn("Caution |
00000270 41 6c 6c 20 55 6e 53 61 76 65 64 20 44 61 74 61 |All UnSaved Data|
00000280 20 57 69 6c 6c 20 42 65 20 4c 6f 73 74 2c 20 43 | Will Be Lost, C|
00000290 6c 69 63 6b 20 4f 4b 20 54 6f 20 43 6f 6e 74 69 |lick OK To Conti|
000002a0 6e 75 65 20 4f 72 20 43 61 6e 63 65 6c 20 54 6f |nue Or Cancel To|
000002b0 20 51 75 69 74 22 29 0d 00 c8 05 cb 0d 00 d2 05 | Quit").........|
000002c0 e1 0d 00 dc 04 0d ff 00 00 c0 0b 00 2c 0f 00 00 |............,...|
000002d0 0c 10 1f e5 0c 10 81 e0 14 10 0f e5 18 d0 4f e2 |..............O.|
000002e0 00 40 2d e9 20 00 1f e5 43 10 8f e2 09 20 a0 e3 |.@-. ...C.... ..|
000002f0 d4 00 00 ef 24 00 9f e5 34 10 1f e5 01 00 80 e0 |....$...4.......|
00000300 34 10 8f e2 09 20 a0 e3 d4 00 00 ef 2c 00 a0 e3 |4.... ......,...|
00000310 23 00 cf e5 08 00 8f e2 05 00 00 ef 00 80 bd e8 |#...............|
00000320 9b 02 00 00 2a 42 61 73 69 63 20 2d 71 75 69 74 |....*Basic -quit|
00000330 20 20 40 00 00 00 00 00 00 00 00 00 00 00 00 00 | @.............|
00000340 00 00 00 00 00 00 00 00 |........|
00000348 
.