Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_1_scp.adf » !ProFiler_ProFiler » !ProFiler/!Toolbox
!ProFiler/!Toolbox
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 » archimedes_world_volume_15_issue_1_scp.adf » !ProFiler_ProFiler |
| Filename: | !ProFiler/!Toolbox |
| Read OK: | ✔ |
| File size: | 029B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Set Alias$GetMod RMEnsure %%0 %%1 RMLoad System:Modules.Toolbox.%%0|MRMEnsure %%0 %%1 ERROR You need %%0 %%1 or later GetMod Toolbox 1.36 GetMod Window 1.31 GetMod Menu 0.24 GetMod ColourMenu 0.16 GetMod ProgInfo 0.09 GetMod IconBar 1.12 GetMod SaveAs 0.12 Unset Alias$GetMod RMEnsure DrawFile 1.46 RMLoad System:Modules.DrawFile RMEnsure DrawFile 1.46 Error You need DrawFile 1.46 SetEval Filer%NW 1 RMEnsure WindowManager 3.91 SetEval Filer%NW 0 If <Filer%NW> Then RMEnsure Window 1.39 RMLoad System:Modules.Toolbox.Window If <Filer%NW> Then RMEnsure Window 1.39 Error You need Window 1.39 to work with the nested wimp. Unset Filer%NW
00000000 53 65 74 20 41 6c 69 61 73 24 47 65 74 4d 6f 64 |Set Alias$GetMod| 00000010 20 52 4d 45 6e 73 75 72 65 20 25 25 30 20 25 25 | RMEnsure %%0 %%| 00000020 31 20 52 4d 4c 6f 61 64 20 53 79 73 74 65 6d 3a |1 RMLoad System:| 00000030 4d 6f 64 75 6c 65 73 2e 54 6f 6f 6c 62 6f 78 2e |Modules.Toolbox.| 00000040 25 25 30 7c 4d 52 4d 45 6e 73 75 72 65 20 25 25 |%%0|MRMEnsure %%| 00000050 30 20 25 25 31 20 45 52 52 4f 52 20 59 6f 75 20 |0 %%1 ERROR You | 00000060 6e 65 65 64 20 25 25 30 20 25 25 31 20 6f 72 20 |need %%0 %%1 or | 00000070 6c 61 74 65 72 0a 47 65 74 4d 6f 64 20 54 6f 6f |later.GetMod Too| 00000080 6c 62 6f 78 20 20 20 20 31 2e 33 36 0a 47 65 74 |lbox 1.36.Get| 00000090 4d 6f 64 20 57 69 6e 64 6f 77 20 20 20 20 20 31 |Mod Window 1| 000000a0 2e 33 31 0a 47 65 74 4d 6f 64 20 4d 65 6e 75 20 |.31.GetMod Menu | 000000b0 20 20 20 20 20 20 30 2e 32 34 0a 47 65 74 4d 6f | 0.24.GetMo| 000000c0 64 20 43 6f 6c 6f 75 72 4d 65 6e 75 20 30 2e 31 |d ColourMenu 0.1| 000000d0 36 0a 47 65 74 4d 6f 64 20 50 72 6f 67 49 6e 66 |6.GetMod ProgInf| 000000e0 6f 20 20 20 30 2e 30 39 0a 47 65 74 4d 6f 64 20 |o 0.09.GetMod | 000000f0 49 63 6f 6e 42 61 72 20 20 20 20 31 2e 31 32 0a |IconBar 1.12.| 00000100 47 65 74 4d 6f 64 20 53 61 76 65 41 73 20 20 20 |GetMod SaveAs | 00000110 20 20 30 2e 31 32 0a 55 6e 73 65 74 20 41 6c 69 | 0.12.Unset Ali| 00000120 61 73 24 47 65 74 4d 6f 64 0a 52 4d 45 6e 73 75 |as$GetMod.RMEnsu| 00000130 72 65 20 44 72 61 77 46 69 6c 65 20 20 20 20 20 |re DrawFile | 00000140 31 2e 34 36 20 52 4d 4c 6f 61 64 20 53 79 73 74 |1.46 RMLoad Syst| 00000150 65 6d 3a 4d 6f 64 75 6c 65 73 2e 44 72 61 77 46 |em:Modules.DrawF| 00000160 69 6c 65 0a 52 4d 45 6e 73 75 72 65 20 44 72 61 |ile.RMEnsure Dra| 00000170 77 46 69 6c 65 20 20 20 20 20 31 2e 34 36 20 45 |wFile 1.46 E| 00000180 72 72 6f 72 20 59 6f 75 20 6e 65 65 64 20 44 72 |rror You need Dr| 00000190 61 77 46 69 6c 65 20 31 2e 34 36 0a 53 65 74 45 |awFile 1.46.SetE| 000001a0 76 61 6c 20 46 69 6c 65 72 25 4e 57 20 31 0a 52 |val Filer%NW 1.R| 000001b0 4d 45 6e 73 75 72 65 20 57 69 6e 64 6f 77 4d 61 |MEnsure WindowMa| 000001c0 6e 61 67 65 72 20 33 2e 39 31 20 53 65 74 45 76 |nager 3.91 SetEv| 000001d0 61 6c 20 46 69 6c 65 72 25 4e 57 20 30 0a 49 66 |al Filer%NW 0.If| 000001e0 20 3c 46 69 6c 65 72 25 4e 57 3e 20 54 68 65 6e | <Filer%NW> Then| 000001f0 20 52 4d 45 6e 73 75 72 65 20 57 69 6e 64 6f 77 | RMEnsure Window| 00000200 20 31 2e 33 39 20 52 4d 4c 6f 61 64 20 53 79 73 | 1.39 RMLoad Sys| 00000210 74 65 6d 3a 4d 6f 64 75 6c 65 73 2e 54 6f 6f 6c |tem:Modules.Tool| 00000220 62 6f 78 2e 57 69 6e 64 6f 77 0a 49 66 20 3c 46 |box.Window.If <F| 00000230 69 6c 65 72 25 4e 57 3e 20 54 68 65 6e 20 52 4d |iler%NW> Then RM| 00000240 45 6e 73 75 72 65 20 57 69 6e 64 6f 77 20 31 2e |Ensure Window 1.| 00000250 33 39 20 45 72 72 6f 72 20 59 6f 75 20 6e 65 65 |39 Error You nee| 00000260 64 20 57 69 6e 64 6f 77 20 31 2e 33 39 20 74 6f |d Window 1.39 to| 00000270 20 77 6f 72 6b 20 77 69 74 68 20 74 68 65 20 6e | work with the n| 00000280 65 73 74 65 64 20 77 69 6d 70 2e 0a 55 6e 73 65 |ested wimp..Unse| 00000290 74 20 46 69 6c 65 72 25 4e 57 0a |t Filer%NW.| 0000029b
.