Home » Archimedes archive » Apps » Acorn Applications Update (1994)(Acorn Computers).adf » !Calc/!RunLink
!Calc/!RunLink
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 » Apps » Acorn Applications Update (1994)(Acorn Computers).adf |
| Filename: | !Calc/!RunLink |
| Read OK: | ✔ |
| File size: | 00BE bytes |
| Load address: | FFFFFB45 |
| Exec address: | 264549C4 |
File contents
5REM>Datafiles.!RunLink
10H%=OPENIN("Calculator:!RunImage"):L%=EXT#H%:SYS41,21,H%TO,A%,W%:CLOSE#H%:IF(W%AND255)=46THENPAGE=A%:RUN
15*WimpSlot2
20*Unset Alias$WimpSlot2
25*Basic64 -quit "Calculator:!RunImage"
�>Datafiles.!RunLink
SH%=�("Calculator:!RunImage"):L%=�#H%:ș41,21,H%�,A%,W%:�#H%:�(W%�255)=46��=A%:�
*WimpSlot2
*Unset Alias$WimpSlot2
)*Basic64 -quit "Calculator:!RunImage"
� 00000000 0d 00 05 18 f4 3e 44 61 74 61 66 69 6c 65 73 2e |.....>Datafiles.|
00000010 21 52 75 6e 4c 69 6e 6b 0d 00 0a 53 48 25 3d 8e |!RunLink...SH%=.|
00000020 28 22 43 61 6c 63 75 6c 61 74 6f 72 3a 21 52 75 |("Calculator:!Ru|
00000030 6e 49 6d 61 67 65 22 29 3a 4c 25 3d a2 23 48 25 |nImage"):L%=.#H%|
00000040 3a c8 99 34 31 2c 32 31 2c 48 25 b8 2c 41 25 2c |:..41,21,H%.,A%,|
00000050 57 25 3a d9 23 48 25 3a e7 28 57 25 80 32 35 35 |W%:.#H%:.(W%.255|
00000060 29 3d 34 36 8c d0 3d 41 25 3a f9 0d 00 0f 0e 2a |)=46..=A%:.....*|
00000070 57 69 6d 70 53 6c 6f 74 32 0d 00 14 1a 2a 55 6e |WimpSlot2....*Un|
00000080 73 65 74 20 41 6c 69 61 73 24 57 69 6d 70 53 6c |set Alias$WimpSl|
00000090 6f 74 32 0d 00 19 29 2a 42 61 73 69 63 36 34 20 |ot2...)*Basic64 |
000000a0 2d 71 75 69 74 20 22 43 61 6c 63 75 6c 61 74 6f |-quit "Calculato|
000000b0 72 3a 21 52 75 6e 49 6d 61 67 65 22 0d ff |r:!RunImage"..|
000000be 
.