Home » Archimedes archive » Acorn User » AU 1995-04.adf » !StarInfo_StarInfo » Miskin/!CompInfo/!RunIm2
Miskin/!CompInfo/!RunIm2
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/!RunIm2 |
| Read OK: | ✔ |
| File size: | 01DA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ONERROR REPORT:PRINTERL/10:END
20LIBRARY "<CompInfo$Dir>.Common"
30PROCvars
40$B%="TASK":SYS &400C0,200,!B%,prog$ TO ,task%
50ON ERROR IF FNwimperror THEN END
60PROCicon
70PROCloadTemplates("2")
80ON ERROR IF FNwimperror THEN END
90REPEAT
100PROCpoll
110UNTIL quit%
120PROCclose
130END
140:
150DEFFNourkey
160IF B%!24<>13:=FALSE
170IF !B%=sbx% PROCquicksave:=TRUE
180IF !B%<>opt% :=FALSE
190icon%=B%!4:jc%=icon%
200IF icon%<4 icon%+=1 ELSE IF icon%=4 icon%=21
210IF icon%=21 PROCsetpts
220SYS &400D2,opt%,icon%,0,0,-1,LEN(FNtext(opt%,21))
230IF jc%=21 PROCdrawsprite
240=TRUE
� �:�/10:�
ț "<CompInfo$Dir>.Common"
�vars
(/$B%="TASK":ș &400C0,200,!B%,prog$ � ,task%
2� � � �wimperror � �
< �icon
F�loadTemplates("2")
P� � � �wimperror � �
Z�
d �poll
n � quit%
x
�close
��
�:
� ݤourkey
�� B%!24<>13:=�
� � !B%=sbx% �quicksave:=�
�� !B%<>opt% :=�
�icon%=B%!4:jc%=icon%
�+� icon%<4 icon%+=1 � � icon%=4 icon%=21
�� icon%=21 �setpts
�1ș &400D2,opt%,icon%,0,0,-1,�(�text(opt%,21))
�� jc%=21 �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 2f 24 42 25 3d 22 |...vars..(/$B%="|
00000040 54 41 53 4b 22 3a c8 99 20 26 34 30 30 43 30 2c |TASK":.. &400C0,|
00000050 32 30 30 2c 21 42 25 2c 70 72 6f 67 24 20 b8 20 |200,!B%,prog$ . |
00000060 2c 74 61 73 6b 25 0d 00 32 18 ee 20 85 20 e7 20 |,task%..2.. . . |
00000070 a4 77 69 6d 70 65 72 72 6f 72 20 8c 20 e0 0d 00 |.wimperror . ...|
00000080 3c 09 f2 69 63 6f 6e 0d 00 46 17 f2 6c 6f 61 64 |<..icon..F..load|
00000090 54 65 6d 70 6c 61 74 65 73 28 22 32 22 29 0d 00 |Templates("2")..|
000000a0 50 18 ee 20 85 20 e7 20 a4 77 69 6d 70 65 72 72 |P.. . . .wimperr|
000000b0 6f 72 20 8c 20 e0 0d 00 5a 05 f5 0d 00 64 09 f2 |or . ...Z....d..|
000000c0 70 6f 6c 6c 0d 00 6e 0b fd 20 71 75 69 74 25 0d |poll..n.. quit%.|
000000d0 00 78 0a f2 63 6c 6f 73 65 0d 00 82 05 e0 0d 00 |.x..close.......|
000000e0 8c 05 3a 0d 00 96 0c dd a4 6f 75 72 6b 65 79 0d |..:......ourkey.|
000000f0 00 a0 12 e7 20 42 25 21 32 34 3c 3e 31 33 3a 3d |.... B%!24<>13:=|
00000100 a3 0d 00 aa 1c e7 20 21 42 25 3d 73 62 78 25 20 |...... !B%=sbx% |
00000110 f2 71 75 69 63 6b 73 61 76 65 3a 3d b9 0d 00 b4 |.quicksave:=....|
00000120 13 e7 20 21 42 25 3c 3e 6f 70 74 25 20 3a 3d a3 |.. !B%<>opt% :=.|
00000130 0d 00 be 18 69 63 6f 6e 25 3d 42 25 21 34 3a 6a |....icon%=B%!4:j|
00000140 63 25 3d 69 63 6f 6e 25 0d 00 c8 2b e7 20 69 63 |c%=icon%...+. ic|
00000150 6f 6e 25 3c 34 20 69 63 6f 6e 25 2b 3d 31 20 8b |on%<4 icon%+=1 .|
00000160 20 e7 20 69 63 6f 6e 25 3d 34 20 69 63 6f 6e 25 | . icon%=4 icon%|
00000170 3d 32 31 0d 00 d2 16 e7 20 69 63 6f 6e 25 3d 32 |=21..... icon%=2|
00000180 31 20 f2 73 65 74 70 74 73 0d 00 dc 31 c8 99 20 |1 .setpts...1.. |
00000190 26 34 30 30 44 32 2c 6f 70 74 25 2c 69 63 6f 6e |&400D2,opt%,icon|
000001a0 25 2c 30 2c 30 2c 2d 31 2c a9 28 a4 74 65 78 74 |%,0,0,-1,.(.text|
000001b0 28 6f 70 74 25 2c 32 31 29 29 0d 00 e6 18 e7 20 |(opt%,21))..... |
000001c0 6a 63 25 3d 32 31 20 f2 64 72 61 77 73 70 72 69 |jc%=21 .drawspri|
000001d0 74 65 0d 00 f0 06 3d b9 0d ff |te....=...|
000001da 
.