Home » Archimedes archive » Acorn User » AU 1995-04.adf » !StarInfo_StarInfo » Miskin/!CompInfo/!RunIm3
Miskin/!CompInfo/!RunIm3
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 1995-04.adf » !StarInfo_StarInfo |
| Filename: | Miskin/!CompInfo/!RunIm3 |
| Read OK: | ✔ |
| File size: | 01C1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ONERROR REPORT:PRINTERL/10:END
20LIBRARY "<CompInfo$Dir>.Common"
30PROCvars
40DIM messages% 24
50!messages%=2:messages%!4=6:messages%!8=&400C0
60messages%!12=9:messages%!16=3:messages%!20=0
70$B%="TASK":SYS &400C0,310,!B%,prog$,messages% TO v%,task%
80ON ERROR IF FNwimperror THEN END
90PROCicon
100PROCloadTemplates("3")
110ON ERROR IF FNwimperror THEN END
120REPEAT
130PROCpoll
140UNTIL quit%
150PROCclose
160END
170:
180DEFFNourkey
190IF B%!24<>13:=FALSE
200IF !B%=sbx% PROCquicksave:=TRUE
210IF !B%=opt% PROCdrawsprite:=TRUE
220=TRUE
� �:�/10:�
ț "<CompInfo$Dir>.Common"
�vars
(� messages% 24
21!messages%=2:messages%!4=6:messages%!8=&400C0
<0messages%!12=9:messages%!16=3:messages%!20=0
F;$B%="TASK":ș &400C0,310,!B%,prog$,messages% � v%,task%
P� � � �wimperror � �
Z �icon
d�loadTemplates("3")
n� � � �wimperror � �
x�
� �poll
� � quit%
�
�close
��
�:
� ݤourkey
�� B%!24<>13:=�
� � !B%=sbx% �quicksave:=�
� � !B%=opt% �drawsprite:=�
�=�
� 00000000 0d 00 0a 10 ee 85 20 f6 3a f1 9e 2f 31 30 3a e0 |...... .:../10:.|
00000010 0d 00 14 1e c8 9b 20 22 3c 43 6f 6d 70 49 6e 66 |...... "<CompInf|
00000020 6f 24 44 69 72 3e 2e 43 6f 6d 6d 6f 6e 22 0d 00 |o$Dir>.Common"..|
00000030 1e 09 f2 76 61 72 73 0d 00 28 12 de 20 6d 65 73 |...vars..(.. mes|
00000040 73 61 67 65 73 25 20 32 34 0d 00 32 31 21 6d 65 |sages% 24..21!me|
00000050 73 73 61 67 65 73 25 3d 32 3a 6d 65 73 73 61 67 |ssages%=2:messag|
00000060 65 73 25 21 34 3d 36 3a 6d 65 73 73 61 67 65 73 |es%!4=6:messages|
00000070 25 21 38 3d 26 34 30 30 43 30 0d 00 3c 30 6d 65 |%!8=&400C0..<0me|
00000080 73 73 61 67 65 73 25 21 31 32 3d 39 3a 6d 65 73 |ssages%!12=9:mes|
00000090 73 61 67 65 73 25 21 31 36 3d 33 3a 6d 65 73 73 |sages%!16=3:mess|
000000a0 61 67 65 73 25 21 32 30 3d 30 0d 00 46 3b 24 42 |ages%!20=0..F;$B|
000000b0 25 3d 22 54 41 53 4b 22 3a c8 99 20 26 34 30 30 |%="TASK":.. &400|
000000c0 43 30 2c 33 31 30 2c 21 42 25 2c 70 72 6f 67 24 |C0,310,!B%,prog$|
000000d0 2c 6d 65 73 73 61 67 65 73 25 20 b8 20 76 25 2c |,messages% . v%,|
000000e0 74 61 73 6b 25 0d 00 50 18 ee 20 85 20 e7 20 a4 |task%..P.. . . .|
000000f0 77 69 6d 70 65 72 72 6f 72 20 8c 20 e0 0d 00 5a |wimperror . ...Z|
00000100 09 f2 69 63 6f 6e 0d 00 64 17 f2 6c 6f 61 64 54 |..icon..d..loadT|
00000110 65 6d 70 6c 61 74 65 73 28 22 33 22 29 0d 00 6e |emplates("3")..n|
00000120 18 ee 20 85 20 e7 20 a4 77 69 6d 70 65 72 72 6f |.. . . .wimperro|
00000130 72 20 8c 20 e0 0d 00 78 05 f5 0d 00 82 09 f2 70 |r . ...x.......p|
00000140 6f 6c 6c 0d 00 8c 0b fd 20 71 75 69 74 25 0d 00 |oll..... quit%..|
00000150 96 0a f2 63 6c 6f 73 65 0d 00 a0 05 e0 0d 00 aa |...close........|
00000160 05 3a 0d 00 b4 0c dd a4 6f 75 72 6b 65 79 0d 00 |.:......ourkey..|
00000170 be 12 e7 20 42 25 21 32 34 3c 3e 31 33 3a 3d a3 |... B%!24<>13:=.|
00000180 0d 00 c8 1c e7 20 21 42 25 3d 73 62 78 25 20 f2 |..... !B%=sbx% .|
00000190 71 75 69 63 6b 73 61 76 65 3a 3d b9 0d 00 d2 1d |quicksave:=.....|
000001a0 e7 20 21 42 25 3d 6f 70 74 25 20 f2 64 72 61 77 |. !B%=opt% .draw|
000001b0 73 70 72 69 74 65 3a 3d b9 0d 00 dc 06 3d b9 0d |sprite:=.....=..|
000001c0 ff |.|
000001c1 
.