Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199801_2.adf » Regulars2 » StarInfo/Fletcher/Tanner/!Png2Spr/!Run

StarInfo/Fletcher/Tanner/!Png2Spr/!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_AcornUser_199801_2.adf » Regulars2
Filename: StarInfo/Fletcher/Tanner/!Png2Spr/!Run
Read OK:
File size: 02CC bytes
Load address: 0000
Exec address: 0000
File contents
<Obey$Dir>.!Boot

<Png2Spr$Dir>.Check %*0
IF Check$Temp="Run" THEN Obey

Alias Clean_Up UnAlias Clean_Up|MUnAlias Check_Module|MERROR You need version %%1 of %%0 from the Acorn Toolbox to run !Png2Spr
Alias Check_Module RmEnsure %%0 %%1 IfThere System:Modules.Toolbox.%%2 then RmLoad System:Modules.Toolbox.%%2|MRmEnsure %%0 %%1 Clean_Up %%0 %%1

Check_Module Toolbox 0.00 Toolbox
Check_Module Window 0.00 Window
Check_Module DCS 0.00 DCS_Quit
Check_Module IconBar 0.00 IconBar
Check_Module Menu 0.13 Menu
Check_Module ProgInfo 0.00 ProgInfo
Check_Module SaveAs 0.00 SaveAs
Check_Module ColourDBox 0.00 ColourDBox

UnAlias Check_Module
UnAlias Clean_Up

wimpslot -min 800k -max 800k
<Png2Spr$Dir>.!RunImage -wimp %*0
00000000  3c 4f 62 65 79 24 44 69  72 3e 2e 21 42 6f 6f 74  |<Obey$Dir>.!Boot|
00000010  0a 0a 3c 50 6e 67 32 53  70 72 24 44 69 72 3e 2e  |..<Png2Spr$Dir>.|
00000020  43 68 65 63 6b 20 25 2a  30 0a 49 46 20 43 68 65  |Check %*0.IF Che|
00000030  63 6b 24 54 65 6d 70 3d  22 52 75 6e 22 20 54 48  |ck$Temp="Run" TH|
00000040  45 4e 20 4f 62 65 79 0a  0a 41 6c 69 61 73 20 43  |EN Obey..Alias C|
00000050  6c 65 61 6e 5f 55 70 20  55 6e 41 6c 69 61 73 20  |lean_Up UnAlias |
00000060  43 6c 65 61 6e 5f 55 70  7c 4d 55 6e 41 6c 69 61  |Clean_Up|MUnAlia|
00000070  73 20 43 68 65 63 6b 5f  4d 6f 64 75 6c 65 7c 4d  |s Check_Module|M|
00000080  45 52 52 4f 52 20 59 6f  75 20 6e 65 65 64 20 76  |ERROR You need v|
00000090  65 72 73 69 6f 6e 20 25  25 31 20 6f 66 20 25 25  |ersion %%1 of %%|
000000a0  30 20 66 72 6f 6d 20 74  68 65 20 41 63 6f 72 6e  |0 from the Acorn|
000000b0  20 54 6f 6f 6c 62 6f 78  20 74 6f 20 72 75 6e 20  | Toolbox to run |
000000c0  21 50 6e 67 32 53 70 72  0a 41 6c 69 61 73 20 43  |!Png2Spr.Alias C|
000000d0  68 65 63 6b 5f 4d 6f 64  75 6c 65 20 52 6d 45 6e  |heck_Module RmEn|
000000e0  73 75 72 65 20 25 25 30  20 25 25 31 20 49 66 54  |sure %%0 %%1 IfT|
000000f0  68 65 72 65 20 53 79 73  74 65 6d 3a 4d 6f 64 75  |here System:Modu|
00000100  6c 65 73 2e 54 6f 6f 6c  62 6f 78 2e 25 25 32 20  |les.Toolbox.%%2 |
00000110  74 68 65 6e 20 52 6d 4c  6f 61 64 20 53 79 73 74  |then RmLoad Syst|
00000120  65 6d 3a 4d 6f 64 75 6c  65 73 2e 54 6f 6f 6c 62  |em:Modules.Toolb|
00000130  6f 78 2e 25 25 32 7c 4d  52 6d 45 6e 73 75 72 65  |ox.%%2|MRmEnsure|
00000140  20 25 25 30 20 25 25 31  20 43 6c 65 61 6e 5f 55  | %%0 %%1 Clean_U|
00000150  70 20 25 25 30 20 25 25  31 0a 0a 43 68 65 63 6b  |p %%0 %%1..Check|
00000160  5f 4d 6f 64 75 6c 65 20  54 6f 6f 6c 62 6f 78 20  |_Module Toolbox |
00000170  30 2e 30 30 20 54 6f 6f  6c 62 6f 78 0a 43 68 65  |0.00 Toolbox.Che|
00000180  63 6b 5f 4d 6f 64 75 6c  65 20 57 69 6e 64 6f 77  |ck_Module Window|
00000190  20 30 2e 30 30 20 57 69  6e 64 6f 77 0a 43 68 65  | 0.00 Window.Che|
000001a0  63 6b 5f 4d 6f 64 75 6c  65 20 44 43 53 20 30 2e  |ck_Module DCS 0.|
000001b0  30 30 20 44 43 53 5f 51  75 69 74 0a 43 68 65 63  |00 DCS_Quit.Chec|
000001c0  6b 5f 4d 6f 64 75 6c 65  20 49 63 6f 6e 42 61 72  |k_Module IconBar|
000001d0  20 30 2e 30 30 20 49 63  6f 6e 42 61 72 0a 43 68  | 0.00 IconBar.Ch|
000001e0  65 63 6b 5f 4d 6f 64 75  6c 65 20 4d 65 6e 75 20  |eck_Module Menu |
000001f0  30 2e 31 33 20 4d 65 6e  75 0a 43 68 65 63 6b 5f  |0.13 Menu.Check_|
00000200  4d 6f 64 75 6c 65 20 50  72 6f 67 49 6e 66 6f 20  |Module ProgInfo |
00000210  30 2e 30 30 20 50 72 6f  67 49 6e 66 6f 0a 43 68  |0.00 ProgInfo.Ch|
00000220  65 63 6b 5f 4d 6f 64 75  6c 65 20 53 61 76 65 41  |eck_Module SaveA|
00000230  73 20 30 2e 30 30 20 53  61 76 65 41 73 0a 43 68  |s 0.00 SaveAs.Ch|
00000240  65 63 6b 5f 4d 6f 64 75  6c 65 20 43 6f 6c 6f 75  |eck_Module Colou|
00000250  72 44 42 6f 78 20 30 2e  30 30 20 43 6f 6c 6f 75  |rDBox 0.00 Colou|
00000260  72 44 42 6f 78 0a 0a 55  6e 41 6c 69 61 73 20 43  |rDBox..UnAlias C|
00000270  68 65 63 6b 5f 4d 6f 64  75 6c 65 0a 55 6e 41 6c  |heck_Module.UnAl|
00000280  69 61 73 20 43 6c 65 61  6e 5f 55 70 0a 0a 77 69  |ias Clean_Up..wi|
00000290  6d 70 73 6c 6f 74 20 2d  6d 69 6e 20 38 30 30 6b  |mpslot -min 800k|
000002a0  20 2d 6d 61 78 20 38 30  30 6b 0a 3c 50 6e 67 32  | -max 800k.<Png2|
000002b0  53 70 72 24 44 69 72 3e  2e 21 52 75 6e 49 6d 61  |Spr$Dir>.!RunIma|
000002c0  67 65 20 2d 77 69 6d 70  20 25 2a 30              |ge -wimp %*0|
000002cc