Home » Archimedes archive » Archimedes World » AW-1994-06-Disc2.adf » Disk2Jun94 » !AWJune94/Goodies/Zap/!Zap/!Run
!AWJune94/Goodies/Zap/!Zap/!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-1994-06-Disc2.adf » Disk2Jun94 |
| Filename: | !AWJune94/Goodies/Zap/!Zap/!Run |
| Read OK: | ✔ |
| File size: | 04AA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| | !Run file for Zap | (c) D.H.Symes 1991/1992/1993/1994 | | Set up directory paths and load sprites Set Zap$Dir <Obey$Dir> Set Zap$3rdParty <Zap$Dir>.3rdParty Iconsprites <Zap$Dir>.!Sprites | Find operating system version SetEval Zap$OSVsn 300 RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200 | Claim file types and taskwindows Set TaskWindow$Server <Zap$Dir> Set Alias$TaskWindow "ZapBasic_TaskWindow " Set Alias$@RunType_FFF Run <Zap$Dir>.!Run %%*0 | Choose template file Set Zap$Templates <Zap$3rdParty>.TemplatesD IF Zap$OSVsn=300 THEN Set Zap$Templates <Zap$3rdParty>.TemplatesE | Check Zap isn't already running Set Zap$Temp "loaded" RMEnsure Zap 0.01 SET Zap$Temp "notloaded" IF Zap$Temp="loaded" AND Zap$OSVsn=200 THEN ERROR 0 Zap is already loaded IF Zap$Temp="loaded" AND Zap$OSVsn=300 THEN %Basic -quit <Zap$3rdParty>.Check | Load modules RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours RMEnsure ZapRedraw 0.01 RMLoad <Zap$Dir>.ZapRedraw RMLoad <Zap$Dir>.Zap | Load extension modes RMLoad <Zap$Dir>.ZapBasic RMLoad <Zap$3rdParty>.ZapCMode |RMLoad <Zap$3rdParty>.ZapUtils RMLoad <Zap$3rdParty>.ZapMje | Start up the Zap task (loading file if need be) Zap_Desktop %0
00000000 7c 0a 7c 20 21 52 75 6e 20 66 69 6c 65 20 66 6f ||.| !Run file fo| 00000010 72 20 5a 61 70 0a 7c 20 28 63 29 20 44 2e 48 2e |r Zap.| (c) D.H.| 00000020 53 79 6d 65 73 20 31 39 39 31 2f 31 39 39 32 2f |Symes 1991/1992/| 00000030 31 39 39 33 2f 31 39 39 34 0a 7c 0a 0a 7c 20 53 |1993/1994.|..| S| 00000040 65 74 20 75 70 20 64 69 72 65 63 74 6f 72 79 20 |et up directory | 00000050 70 61 74 68 73 20 61 6e 64 20 6c 6f 61 64 20 73 |paths and load s| 00000060 70 72 69 74 65 73 0a 53 65 74 20 5a 61 70 24 44 |prites.Set Zap$D| 00000070 69 72 20 3c 4f 62 65 79 24 44 69 72 3e 0a 53 65 |ir <Obey$Dir>.Se| 00000080 74 20 5a 61 70 24 33 72 64 50 61 72 74 79 20 3c |t Zap$3rdParty <| 00000090 5a 61 70 24 44 69 72 3e 2e 33 72 64 50 61 72 74 |Zap$Dir>.3rdPart| 000000a0 79 0a 49 63 6f 6e 73 70 72 69 74 65 73 20 3c 5a |y.Iconsprites <Z| 000000b0 61 70 24 44 69 72 3e 2e 21 53 70 72 69 74 65 73 |ap$Dir>.!Sprites| 000000c0 0a 0a 7c 20 46 69 6e 64 20 6f 70 65 72 61 74 69 |..| Find operati| 000000d0 6e 67 20 73 79 73 74 65 6d 20 76 65 72 73 69 6f |ng system versio| 000000e0 6e 0a 53 65 74 45 76 61 6c 20 5a 61 70 24 4f 53 |n.SetEval Zap$OS| 000000f0 56 73 6e 20 33 30 30 0a 52 4d 45 6e 73 75 72 65 |Vsn 300.RMEnsure| 00000100 20 55 74 69 6c 69 74 79 4d 6f 64 75 6c 65 20 33 | UtilityModule 3| 00000110 2e 31 30 20 53 65 74 45 76 61 6c 20 5a 61 70 24 |.10 SetEval Zap$| 00000120 4f 53 56 73 6e 20 32 30 30 0a 0a 7c 20 43 6c 61 |OSVsn 200..| Cla| 00000130 69 6d 20 66 69 6c 65 20 74 79 70 65 73 20 61 6e |im file types an| 00000140 64 20 74 61 73 6b 77 69 6e 64 6f 77 73 0a 53 65 |d taskwindows.Se| 00000150 74 20 54 61 73 6b 57 69 6e 64 6f 77 24 53 65 72 |t TaskWindow$Ser| 00000160 76 65 72 20 3c 5a 61 70 24 44 69 72 3e 0a 53 65 |ver <Zap$Dir>.Se| 00000170 74 20 41 6c 69 61 73 24 54 61 73 6b 57 69 6e 64 |t Alias$TaskWind| 00000180 6f 77 20 22 5a 61 70 42 61 73 69 63 5f 54 61 73 |ow "ZapBasic_Tas| 00000190 6b 57 69 6e 64 6f 77 20 22 0a 53 65 74 20 41 6c |kWindow ".Set Al| 000001a0 69 61 73 24 40 52 75 6e 54 79 70 65 5f 46 46 46 |ias$@RunType_FFF| 000001b0 20 52 75 6e 20 3c 5a 61 70 24 44 69 72 3e 2e 21 | Run <Zap$Dir>.!| 000001c0 52 75 6e 20 25 25 2a 30 0a 0a 7c 20 43 68 6f 6f |Run %%*0..| Choo| 000001d0 73 65 20 74 65 6d 70 6c 61 74 65 20 66 69 6c 65 |se template file| 000001e0 0a 53 65 74 20 5a 61 70 24 54 65 6d 70 6c 61 74 |.Set Zap$Templat| 000001f0 65 73 20 3c 5a 61 70 24 33 72 64 50 61 72 74 79 |es <Zap$3rdParty| 00000200 3e 2e 54 65 6d 70 6c 61 74 65 73 44 0a 49 46 20 |>.TemplatesD.IF | 00000210 5a 61 70 24 4f 53 56 73 6e 3d 33 30 30 20 54 48 |Zap$OSVsn=300 TH| 00000220 45 4e 20 53 65 74 20 5a 61 70 24 54 65 6d 70 6c |EN Set Zap$Templ| 00000230 61 74 65 73 20 3c 5a 61 70 24 33 72 64 50 61 72 |ates <Zap$3rdPar| 00000240 74 79 3e 2e 54 65 6d 70 6c 61 74 65 73 45 0a 0a |ty>.TemplatesE..| 00000250 7c 20 43 68 65 63 6b 20 5a 61 70 20 69 73 6e 27 || Check Zap isn'| 00000260 74 20 61 6c 72 65 61 64 79 20 72 75 6e 6e 69 6e |t already runnin| 00000270 67 0a 53 65 74 20 5a 61 70 24 54 65 6d 70 20 22 |g.Set Zap$Temp "| 00000280 6c 6f 61 64 65 64 22 0a 52 4d 45 6e 73 75 72 65 |loaded".RMEnsure| 00000290 20 5a 61 70 20 30 2e 30 31 20 53 45 54 20 5a 61 | Zap 0.01 SET Za| 000002a0 70 24 54 65 6d 70 20 22 6e 6f 74 6c 6f 61 64 65 |p$Temp "notloade| 000002b0 64 22 0a 49 46 20 5a 61 70 24 54 65 6d 70 3d 22 |d".IF Zap$Temp="| 000002c0 6c 6f 61 64 65 64 22 20 41 4e 44 20 5a 61 70 24 |loaded" AND Zap$| 000002d0 4f 53 56 73 6e 3d 32 30 30 20 54 48 45 4e 20 45 |OSVsn=200 THEN E| 000002e0 52 52 4f 52 20 30 20 5a 61 70 20 69 73 20 61 6c |RROR 0 Zap is al| 000002f0 72 65 61 64 79 20 6c 6f 61 64 65 64 0a 49 46 20 |ready loaded.IF | 00000300 5a 61 70 24 54 65 6d 70 3d 22 6c 6f 61 64 65 64 |Zap$Temp="loaded| 00000310 22 20 41 4e 44 20 5a 61 70 24 4f 53 56 73 6e 3d |" AND Zap$OSVsn=| 00000320 33 30 30 20 54 48 45 4e 20 25 42 61 73 69 63 20 |300 THEN %Basic | 00000330 2d 71 75 69 74 20 3c 5a 61 70 24 33 72 64 50 61 |-quit <Zap$3rdPa| 00000340 72 74 79 3e 2e 43 68 65 63 6b 0a 0a 7c 20 4c 6f |rty>.Check..| Lo| 00000350 61 64 20 6d 6f 64 75 6c 65 73 0a 52 4d 45 6e 73 |ad modules.RMEns| 00000360 75 72 65 20 43 6f 6c 6f 75 72 54 72 61 6e 73 20 |ure ColourTrans | 00000370 30 2e 35 31 20 52 4d 4c 6f 61 64 20 53 79 73 74 |0.51 RMLoad Syst| 00000380 65 6d 3a 4d 6f 64 75 6c 65 73 2e 43 6f 6c 6f 75 |em:Modules.Colou| 00000390 72 73 0a 52 4d 45 6e 73 75 72 65 20 5a 61 70 52 |rs.RMEnsure ZapR| 000003a0 65 64 72 61 77 20 30 2e 30 31 20 52 4d 4c 6f 61 |edraw 0.01 RMLoa| 000003b0 64 20 3c 5a 61 70 24 44 69 72 3e 2e 5a 61 70 52 |d <Zap$Dir>.ZapR| 000003c0 65 64 72 61 77 0a 52 4d 4c 6f 61 64 20 3c 5a 61 |edraw.RMLoad <Za| 000003d0 70 24 44 69 72 3e 2e 5a 61 70 0a 0a 7c 20 4c 6f |p$Dir>.Zap..| Lo| 000003e0 61 64 20 65 78 74 65 6e 73 69 6f 6e 20 6d 6f 64 |ad extension mod| 000003f0 65 73 0a 52 4d 4c 6f 61 64 20 3c 5a 61 70 24 44 |es.RMLoad <Zap$D| 00000400 69 72 3e 2e 5a 61 70 42 61 73 69 63 0a 52 4d 4c |ir>.ZapBasic.RML| 00000410 6f 61 64 20 3c 5a 61 70 24 33 72 64 50 61 72 74 |oad <Zap$3rdPart| 00000420 79 3e 2e 5a 61 70 43 4d 6f 64 65 0a 7c 52 4d 4c |y>.ZapCMode.|RML| 00000430 6f 61 64 20 3c 5a 61 70 24 33 72 64 50 61 72 74 |oad <Zap$3rdPart| 00000440 79 3e 2e 5a 61 70 55 74 69 6c 73 0a 52 4d 4c 6f |y>.ZapUtils.RMLo| 00000450 61 64 20 3c 5a 61 70 24 33 72 64 50 61 72 74 79 |ad <Zap$3rdParty| 00000460 3e 2e 5a 61 70 4d 6a 65 0a 0a 7c 20 53 74 61 72 |>.ZapMje..| Star| 00000470 74 20 75 70 20 74 68 65 20 5a 61 70 20 74 61 73 |t up the Zap tas| 00000480 6b 20 28 6c 6f 61 64 69 6e 67 20 66 69 6c 65 20 |k (loading file | 00000490 69 66 20 6e 65 65 64 20 62 65 29 0a 5a 61 70 5f |if need be).Zap_| 000004a0 44 65 73 6b 74 6f 70 20 25 30 |Desktop %0| 000004aa
.