Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94 » !AWMar94/Goodies/SquishDemo/!Squish/!Run

!AWMar94/Goodies/SquishDemo/!Squish/!Run

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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94
Filename: !AWMar94/Goodies/SquishDemo/!Squish/!Run
Read OK:
File size: 030A bytes
Load address: 0000
Exec address: 0000
File contents
| !Run
| For !Squish
| by Kevin J Swinton and Izzy (24-Dec-1991)
|

SET Squish$Dir <Obey$Dir>
ICONSPRITES  <Squish$Dir>.!Sprites

IF "<System$Path>" = "" THEN ERROR 0 System Resources cannot be found
IF "<Wimp$Scrap>"  = "" THEN ERROR 0 Scrap File for data transfer cannot be found

RMENSURE SharedClibrary 0.00 RMLOAD System:Modules.CLib
RMENSURE SharedClibrary 3.87 ERROR You need at least version 3.87 of the shared C library

RMENSURE FPEmulator 0.00 RMLOAD System:Modules.FPEmulator
RMENSURE FPEmulator 2.85 ERROR You need at least version 2.85 of the FPEmulator

RMENSURE DragASprite 0.00 THEN System:Modules.DragASprite
RMENSURE DragASprite 0.03 THEN ERROR You need at least version 0.03 of the DragASprite module

WIMPSLOT -MIN 128k -MAX 128k
RUN <Squish$Dir>.!RunImage
00000000  7c 20 21 52 75 6e 0a 7c  20 46 6f 72 20 21 53 71  || !Run.| For !Sq|
00000010  75 69 73 68 0a 7c 20 62  79 20 4b 65 76 69 6e 20  |uish.| by Kevin |
00000020  4a 20 53 77 69 6e 74 6f  6e 20 61 6e 64 20 49 7a  |J Swinton and Iz|
00000030  7a 79 20 28 32 34 2d 44  65 63 2d 31 39 39 31 29  |zy (24-Dec-1991)|
00000040  0a 7c 0a 0a 53 45 54 20  53 71 75 69 73 68 24 44  |.|..SET Squish$D|
00000050  69 72 20 3c 4f 62 65 79  24 44 69 72 3e 0a 49 43  |ir <Obey$Dir>.IC|
00000060  4f 4e 53 50 52 49 54 45  53 20 20 3c 53 71 75 69  |ONSPRITES  <Squi|
00000070  73 68 24 44 69 72 3e 2e  21 53 70 72 69 74 65 73  |sh$Dir>.!Sprites|
00000080  0a 0a 49 46 20 22 3c 53  79 73 74 65 6d 24 50 61  |..IF "<System$Pa|
00000090  74 68 3e 22 20 3d 20 22  22 20 54 48 45 4e 20 45  |th>" = "" THEN E|
000000a0  52 52 4f 52 20 30 20 53  79 73 74 65 6d 20 52 65  |RROR 0 System Re|
000000b0  73 6f 75 72 63 65 73 20  63 61 6e 6e 6f 74 20 62  |sources cannot b|
000000c0  65 20 66 6f 75 6e 64 0a  49 46 20 22 3c 57 69 6d  |e found.IF "<Wim|
000000d0  70 24 53 63 72 61 70 3e  22 20 20 3d 20 22 22 20  |p$Scrap>"  = "" |
000000e0  54 48 45 4e 20 45 52 52  4f 52 20 30 20 53 63 72  |THEN ERROR 0 Scr|
000000f0  61 70 20 46 69 6c 65 20  66 6f 72 20 64 61 74 61  |ap File for data|
00000100  20 74 72 61 6e 73 66 65  72 20 63 61 6e 6e 6f 74  | transfer cannot|
00000110  20 62 65 20 66 6f 75 6e  64 0a 0a 52 4d 45 4e 53  | be found..RMENS|
00000120  55 52 45 20 53 68 61 72  65 64 43 6c 69 62 72 61  |URE SharedClibra|
00000130  72 79 20 30 2e 30 30 20  52 4d 4c 4f 41 44 20 53  |ry 0.00 RMLOAD S|
00000140  79 73 74 65 6d 3a 4d 6f  64 75 6c 65 73 2e 43 4c  |ystem:Modules.CL|
00000150  69 62 0a 52 4d 45 4e 53  55 52 45 20 53 68 61 72  |ib.RMENSURE Shar|
00000160  65 64 43 6c 69 62 72 61  72 79 20 33 2e 38 37 20  |edClibrary 3.87 |
00000170  45 52 52 4f 52 20 59 6f  75 20 6e 65 65 64 20 61  |ERROR You need a|
00000180  74 20 6c 65 61 73 74 20  76 65 72 73 69 6f 6e 20  |t least version |
00000190  33 2e 38 37 20 6f 66 20  74 68 65 20 73 68 61 72  |3.87 of the shar|
000001a0  65 64 20 43 20 6c 69 62  72 61 72 79 0a 0a 52 4d  |ed C library..RM|
000001b0  45 4e 53 55 52 45 20 46  50 45 6d 75 6c 61 74 6f  |ENSURE FPEmulato|
000001c0  72 20 30 2e 30 30 20 52  4d 4c 4f 41 44 20 53 79  |r 0.00 RMLOAD Sy|
000001d0  73 74 65 6d 3a 4d 6f 64  75 6c 65 73 2e 46 50 45  |stem:Modules.FPE|
000001e0  6d 75 6c 61 74 6f 72 0a  52 4d 45 4e 53 55 52 45  |mulator.RMENSURE|
000001f0  20 46 50 45 6d 75 6c 61  74 6f 72 20 32 2e 38 35  | FPEmulator 2.85|
00000200  20 45 52 52 4f 52 20 59  6f 75 20 6e 65 65 64 20  | ERROR You need |
00000210  61 74 20 6c 65 61 73 74  20 76 65 72 73 69 6f 6e  |at least version|
00000220  20 32 2e 38 35 20 6f 66  20 74 68 65 20 46 50 45  | 2.85 of the FPE|
00000230  6d 75 6c 61 74 6f 72 0a  0a 52 4d 45 4e 53 55 52  |mulator..RMENSUR|
00000240  45 20 44 72 61 67 41 53  70 72 69 74 65 20 30 2e  |E DragASprite 0.|
00000250  30 30 20 54 48 45 4e 20  53 79 73 74 65 6d 3a 4d  |00 THEN System:M|
00000260  6f 64 75 6c 65 73 2e 44  72 61 67 41 53 70 72 69  |odules.DragASpri|
00000270  74 65 0a 52 4d 45 4e 53  55 52 45 20 44 72 61 67  |te.RMENSURE Drag|
00000280  41 53 70 72 69 74 65 20  30 2e 30 33 20 54 48 45  |ASprite 0.03 THE|
00000290  4e 20 45 52 52 4f 52 20  59 6f 75 20 6e 65 65 64  |N ERROR You need|
000002a0  20 61 74 20 6c 65 61 73  74 20 76 65 72 73 69 6f  | at least versio|
000002b0  6e 20 30 2e 30 33 20 6f  66 20 74 68 65 20 44 72  |n 0.03 of the Dr|
000002c0  61 67 41 53 70 72 69 74  65 20 6d 6f 64 75 6c 65  |agASprite module|
000002d0  0a 0a 57 49 4d 50 53 4c  4f 54 20 2d 4d 49 4e 20  |..WIMPSLOT -MIN |
000002e0  31 32 38 6b 20 2d 4d 41  58 20 31 32 38 6b 0a 52  |128k -MAX 128k.R|
000002f0  55 4e 20 3c 53 71 75 69  73 68 24 44 69 72 3e 2e  |UN <Squish$Dir>.|
00000300  21 52 75 6e 49 6d 61 67  65 0a                    |!RunImage.|
0000030a