Home » Archimedes archive » Archimedes World » AW-1991-10.adf » October91 » !AWOct91/Goodies/smArt/!smArt/!Run
!AWOct91/Goodies/smArt/!smArt/!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 » Archimedes archive » Archimedes World » AW-1991-10.adf » October91 |
| Filename: | !AWOct91/Goodies/smArt/!smArt/!Run |
| Read OK: | ✔ |
| File size: | 0464 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| !smArt | Version 0.03 | if "<System$Path>" = "" then Error 0 System resources cannot be found | RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later | set clib$flag 0 RMensure SharedClibrary 3.66 set clib$flag 1 RMensure SharedClibrary 0 set clib$flag 0 if "<clib$flag>"="1" then Error !!! Old shared C library !!! An old version of the shared C library (clib) is resident in memory. unset clib$flag | | Install the shared C library (clib) | ----------------------------------- | RMensure SharedClibrary 3.66 RMload System:modules.clib RMensure SharedClibrary 3.66 Error You need at least version 3.66 of the shared C library | | Install the floating point emulator | ----------------------------------- | RMensure FPEmulator 2.80 RMload System:modules.FPEmulator RMensure FPEmulator 2.80 Error You need at least version 2.80 of the floating point emulator | Set Alias$@RunType_C6A Run <Obey$Dir>.!Run %%*0 Set File$Type_C6A smArt | Set smArt$Dir <Obey$Dir> Wimpslot -min 200K -max 200K IconSprites <smArt$Dir>.!Sprites Run <smArt$Dir>.!RunImage %*0
00000000 7c 20 21 73 6d 41 72 74 0a 7c 20 56 65 72 73 69 || !smArt.| Versi| 00000010 6f 6e 20 30 2e 30 33 0a 7c 0a 69 66 20 22 3c 53 |on 0.03.|.if "<S| 00000020 79 73 74 65 6d 24 50 61 74 68 3e 22 20 3d 20 22 |ystem$Path>" = "| 00000030 22 20 74 68 65 6e 20 45 72 72 6f 72 20 30 20 53 |" then Error 0 S| 00000040 79 73 74 65 6d 20 72 65 73 6f 75 72 63 65 73 20 |ystem resources | 00000050 63 61 6e 6e 6f 74 20 62 65 20 66 6f 75 6e 64 0a |cannot be found.| 00000060 7c 0a 52 4d 45 6e 73 75 72 65 20 43 6f 6c 6f 75 ||.RMEnsure Colou| 00000070 72 54 72 61 6e 73 20 30 2e 35 31 20 52 4d 4c 6f |rTrans 0.51 RMLo| 00000080 61 64 20 53 79 73 74 65 6d 3a 4d 6f 64 75 6c 65 |ad System:Module| 00000090 73 2e 43 6f 6c 6f 75 72 73 0a 52 4d 45 6e 73 75 |s.Colours.RMEnsu| 000000a0 72 65 20 43 6f 6c 6f 75 72 54 72 61 6e 73 20 30 |re ColourTrans 0| 000000b0 2e 35 31 20 45 72 72 6f 72 20 59 6f 75 20 6e 65 |.51 Error You ne| 000000c0 65 64 20 43 6f 6c 6f 75 72 54 72 61 6e 73 20 30 |ed ColourTrans 0| 000000d0 2e 35 31 20 6f 72 20 6c 61 74 65 72 0a 7c 0a 73 |.51 or later.|.s| 000000e0 65 74 20 63 6c 69 62 24 66 6c 61 67 20 30 0a 52 |et clib$flag 0.R| 000000f0 4d 65 6e 73 75 72 65 20 53 68 61 72 65 64 43 6c |Mensure SharedCl| 00000100 69 62 72 61 72 79 20 33 2e 36 36 20 73 65 74 20 |ibrary 3.66 set | 00000110 63 6c 69 62 24 66 6c 61 67 20 31 0a 52 4d 65 6e |clib$flag 1.RMen| 00000120 73 75 72 65 20 53 68 61 72 65 64 43 6c 69 62 72 |sure SharedClibr| 00000130 61 72 79 20 30 20 73 65 74 20 63 6c 69 62 24 66 |ary 0 set clib$f| 00000140 6c 61 67 20 30 0a 69 66 20 22 3c 63 6c 69 62 24 |lag 0.if "<clib$| 00000150 66 6c 61 67 3e 22 3d 22 31 22 20 74 68 65 6e 20 |flag>"="1" then | 00000160 45 72 72 6f 72 20 21 21 21 20 4f 6c 64 20 73 68 |Error !!! Old sh| 00000170 61 72 65 64 20 43 20 6c 69 62 72 61 72 79 20 21 |ared C library !| 00000180 21 21 20 41 6e 20 6f 6c 64 20 76 65 72 73 69 6f |!! An old versio| 00000190 6e 20 6f 66 20 74 68 65 20 73 68 61 72 65 64 20 |n of the shared | 000001a0 43 20 6c 69 62 72 61 72 79 20 28 63 6c 69 62 29 |C library (clib)| 000001b0 20 69 73 20 72 65 73 69 64 65 6e 74 20 69 6e 20 | is resident in | 000001c0 6d 65 6d 6f 72 79 2e 0a 75 6e 73 65 74 20 63 6c |memory..unset cl| 000001d0 69 62 24 66 6c 61 67 0a 7c 20 20 0a 7c 20 49 6e |ib$flag.| .| In| 000001e0 73 74 61 6c 6c 20 74 68 65 20 73 68 61 72 65 64 |stall the shared| 000001f0 20 43 20 6c 69 62 72 61 72 79 20 28 63 6c 69 62 | C library (clib| 00000200 29 0a 7c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |).| ------------| 00000210 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000220 2d 2d 2d 2d 2d 2d 2d 0a 7c 0a 52 4d 65 6e 73 75 |-------.|.RMensu| 00000230 72 65 20 53 68 61 72 65 64 43 6c 69 62 72 61 72 |re SharedClibrar| 00000240 79 20 33 2e 36 36 20 52 4d 6c 6f 61 64 20 53 79 |y 3.66 RMload Sy| 00000250 73 74 65 6d 3a 6d 6f 64 75 6c 65 73 2e 63 6c 69 |stem:modules.cli| 00000260 62 0a 52 4d 65 6e 73 75 72 65 20 53 68 61 72 65 |b.RMensure Share| 00000270 64 43 6c 69 62 72 61 72 79 20 33 2e 36 36 20 45 |dClibrary 3.66 E| 00000280 72 72 6f 72 20 59 6f 75 20 6e 65 65 64 20 61 74 |rror You need at| 00000290 20 6c 65 61 73 74 20 76 65 72 73 69 6f 6e 20 33 | least version 3| 000002a0 2e 36 36 20 6f 66 20 74 68 65 20 73 68 61 72 65 |.66 of the share| 000002b0 64 20 43 20 6c 69 62 72 61 72 79 0a 7c 0a 7c 20 |d C library.|.| | 000002c0 49 6e 73 74 61 6c 6c 20 74 68 65 20 66 6c 6f 61 |Install the floa| 000002d0 74 69 6e 67 20 70 6f 69 6e 74 20 65 6d 75 6c 61 |ting point emula| 000002e0 74 6f 72 0a 7c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |tor.| ----------| 000002f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000300 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 7c 0a 52 4d 65 6e |---------.|.RMen| 00000310 73 75 72 65 20 46 50 45 6d 75 6c 61 74 6f 72 20 |sure FPEmulator | 00000320 32 2e 38 30 20 52 4d 6c 6f 61 64 20 53 79 73 74 |2.80 RMload Syst| 00000330 65 6d 3a 6d 6f 64 75 6c 65 73 2e 46 50 45 6d 75 |em:modules.FPEmu| 00000340 6c 61 74 6f 72 0a 52 4d 65 6e 73 75 72 65 20 46 |lator.RMensure F| 00000350 50 45 6d 75 6c 61 74 6f 72 20 32 2e 38 30 20 45 |PEmulator 2.80 E| 00000360 72 72 6f 72 20 59 6f 75 20 6e 65 65 64 20 61 74 |rror You need at| 00000370 20 6c 65 61 73 74 20 76 65 72 73 69 6f 6e 20 32 | least version 2| 00000380 2e 38 30 20 6f 66 20 74 68 65 20 66 6c 6f 61 74 |.80 of the float| 00000390 69 6e 67 20 70 6f 69 6e 74 20 65 6d 75 6c 61 74 |ing point emulat| 000003a0 6f 72 0a 7c 0a 53 65 74 20 41 6c 69 61 73 24 40 |or.|.Set Alias$@| 000003b0 52 75 6e 54 79 70 65 5f 43 36 41 20 52 75 6e 20 |RunType_C6A Run | 000003c0 3c 4f 62 65 79 24 44 69 72 3e 2e 21 52 75 6e 20 |<Obey$Dir>.!Run | 000003d0 25 25 2a 30 0a 53 65 74 20 46 69 6c 65 24 54 79 |%%*0.Set File$Ty| 000003e0 70 65 5f 43 36 41 20 73 6d 41 72 74 0a 7c 0a 53 |pe_C6A smArt.|.S| 000003f0 65 74 20 73 6d 41 72 74 24 44 69 72 20 3c 4f 62 |et smArt$Dir <Ob| 00000400 65 79 24 44 69 72 3e 0a 57 69 6d 70 73 6c 6f 74 |ey$Dir>.Wimpslot| 00000410 20 2d 6d 69 6e 20 32 30 30 4b 20 2d 6d 61 78 20 | -min 200K -max | 00000420 32 30 30 4b 0a 49 63 6f 6e 53 70 72 69 74 65 73 |200K.IconSprites| 00000430 20 3c 73 6d 41 72 74 24 44 69 72 3e 2e 21 53 70 | <smArt$Dir>.!Sp| 00000440 72 69 74 65 73 0a 52 75 6e 20 3c 73 6d 41 72 74 |rites.Run <smArt| 00000450 24 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 20 |$Dir>.!RunImage | 00000460 25 2a 30 0a |%*0.| 00000464
.