Home » Archimedes archive » Archimedes World » AW-1994-08-Disc1.adf » Disk1Aug94 » !AWAug94/Goodies/Locate/OverWrite/RSI/Schema/!Schema_2/!Run
!AWAug94/Goodies/Locate/OverWrite/RSI/Schema/!Schema_2/!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-08-Disc1.adf » Disk1Aug94 |
| Filename: | !AWAug94/Goodies/Locate/OverWrite/RSI/Schema/!Schema_2/!Run |
| Read OK: | ✔ |
| File size: | 072B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| !Run for !Schema2 | Set Schema2$Dir <Obey$Dir> Set Schema2$Menu <Obey$Dir> Set Schema2$Bold "Bold Demi" Set Schema2$Italic "Italic Oblique" Set Schema2$Medium "Medium Book" | | Set Schema2$TimeFormat "%%24.%mi" Set Schema2$DateFormat "%zdy %m3 %yr" | IconSprites <Obey$Dir>.!Sprites | Set File$Type_AEF Sheet Set File$Type_AEE SheetWS Set File$Type_AED SheetMc Set File$Type_DFE CSV Set File$Type_C26 ASheet Set File$Type_BE9 SWorkSp | Set Alias$@RunType_C26 Run <Obey$Dir>.!Run %%*0 Set Alias$@PrintType_C26 Run <Obey$Dir>.!Run -print %%*0 Set Alias$@RunType_C0C Run <Obey$Dir>.!Run -SMacro %%*0 Set Alias$@RunType_BE9 Run <Obey$Dir>.!Run -workspace %%*0 | Set Schema2$OsVersion "Yes" RMEnsure UtilityModule 3.10 Set Schema2$OsVersion "No" if "<System$Path>"+"<Schema2$OsVersion>"="No" then Error 0 Please open a directory display containing !System If "<Wimp$Scrap>" = "" Then Error 0 Please open a directory display containing !Scrap | | RMEnsure FPEmulator 2.8 RMLoad System:Modules.FPEmulator RMEnsure FPEmulator 2.8 Error You need FPEmulator 2.8 or later | RMEnsure ColourTrans 0.52 RMLoad System:Modules.Colours RMEnsure ColourTrans 0.52 Error You need ColourTrans 0.52 or later | RMEnsure WindowUtils 0.04 RMLoad System:Modules.WimpUtils RMEnsure WindowUtils 0.04 Error You need WimpUtils 0.04 or later | RMEnsure SharedCLibrary 3.75 RMLoad System:Modules.CLib RMEnsure SharedCLibrary Error You need CLib 3.75 or later | IF "<Schema2$OsVersion>" = "Yes" THEN RMEnsure BorderUtils 0.02 RMLoad <Schema2$Dir>.BorderUtil | IF "<Schema2$OsVersion>" = "Yes" THEN RMEnsure DrawFile 0.01 RMLoad <Schema2$Dir>.Drawfile IF "<Schema2$OsVersion>" = "Yes" THEN RMEnsure DrawFile 0.01 Error You need a drawfile rendering module in !System | | WimpSlot -min 896K WimpSlot -min 768k -max 768k | Run <Schema2$Dir>.!RunImage %*0
00000000 7c 20 21 52 75 6e 20 66 6f 72 20 21 53 63 68 65 || !Run for !Sche| 00000010 6d 61 32 20 0a 7c 0a 0a 53 65 74 20 53 63 68 65 |ma2 .|..Set Sche| 00000020 6d 61 32 24 44 69 72 20 3c 4f 62 65 79 24 44 69 |ma2$Dir <Obey$Di| 00000030 72 3e 0a 53 65 74 20 53 63 68 65 6d 61 32 24 4d |r>.Set Schema2$M| 00000040 65 6e 75 20 3c 4f 62 65 79 24 44 69 72 3e 0a 53 |enu <Obey$Dir>.S| 00000050 65 74 20 53 63 68 65 6d 61 32 24 42 6f 6c 64 20 |et Schema2$Bold | 00000060 22 42 6f 6c 64 20 44 65 6d 69 22 0a 53 65 74 20 |"Bold Demi".Set | 00000070 53 63 68 65 6d 61 32 24 49 74 61 6c 69 63 20 22 |Schema2$Italic "| 00000080 49 74 61 6c 69 63 20 4f 62 6c 69 71 75 65 22 0a |Italic Oblique".| 00000090 53 65 74 20 53 63 68 65 6d 61 32 24 4d 65 64 69 |Set Schema2$Medi| 000000a0 75 6d 20 22 4d 65 64 69 75 6d 20 42 6f 6f 6b 22 |um "Medium Book"| 000000b0 0a 7c 0a 7c 0a 53 65 74 20 53 63 68 65 6d 61 32 |.|.|.Set Schema2| 000000c0 24 54 69 6d 65 46 6f 72 6d 61 74 20 22 25 25 32 |$TimeFormat "%%2| 000000d0 34 2e 25 6d 69 22 0a 53 65 74 20 53 63 68 65 6d |4.%mi".Set Schem| 000000e0 61 32 24 44 61 74 65 46 6f 72 6d 61 74 20 22 25 |a2$DateFormat "%| 000000f0 7a 64 79 20 25 6d 33 20 25 79 72 22 0a 7c 0a 49 |zdy %m3 %yr".|.I| 00000100 63 6f 6e 53 70 72 69 74 65 73 20 3c 4f 62 65 79 |conSprites <Obey| 00000110 24 44 69 72 3e 2e 21 53 70 72 69 74 65 73 0a 7c |$Dir>.!Sprites.|| 00000120 0a 53 65 74 20 46 69 6c 65 24 54 79 70 65 5f 41 |.Set File$Type_A| 00000130 45 46 20 53 68 65 65 74 0a 53 65 74 20 46 69 6c |EF Sheet.Set Fil| 00000140 65 24 54 79 70 65 5f 41 45 45 20 53 68 65 65 74 |e$Type_AEE Sheet| 00000150 57 53 0a 53 65 74 20 46 69 6c 65 24 54 79 70 65 |WS.Set File$Type| 00000160 5f 41 45 44 20 53 68 65 65 74 4d 63 0a 53 65 74 |_AED SheetMc.Set| 00000170 20 46 69 6c 65 24 54 79 70 65 5f 44 46 45 20 43 | File$Type_DFE C| 00000180 53 56 0a 53 65 74 20 46 69 6c 65 24 54 79 70 65 |SV.Set File$Type| 00000190 5f 43 32 36 20 41 53 68 65 65 74 0a 53 65 74 20 |_C26 ASheet.Set | 000001a0 46 69 6c 65 24 54 79 70 65 5f 42 45 39 20 53 57 |File$Type_BE9 SW| 000001b0 6f 72 6b 53 70 0a 7c 20 20 20 20 20 20 20 20 20 |orkSp.| | 000001c0 20 0a 53 65 74 20 41 6c 69 61 73 24 40 52 75 6e | .Set Alias$@Run| 000001d0 54 79 70 65 5f 43 32 36 20 52 75 6e 20 3c 4f 62 |Type_C26 Run <Ob| 000001e0 65 79 24 44 69 72 3e 2e 21 52 75 6e 20 25 25 2a |ey$Dir>.!Run %%*| 000001f0 30 0a 53 65 74 20 41 6c 69 61 73 24 40 50 72 69 |0.Set Alias$@Pri| 00000200 6e 74 54 79 70 65 5f 43 32 36 20 52 75 6e 20 3c |ntType_C26 Run <| 00000210 4f 62 65 79 24 44 69 72 3e 2e 21 52 75 6e 20 2d |Obey$Dir>.!Run -| 00000220 70 72 69 6e 74 20 25 25 2a 30 0a 53 65 74 20 41 |print %%*0.Set A| 00000230 6c 69 61 73 24 40 52 75 6e 54 79 70 65 5f 43 30 |lias$@RunType_C0| 00000240 43 20 52 75 6e 20 3c 4f 62 65 79 24 44 69 72 3e |C Run <Obey$Dir>| 00000250 2e 21 52 75 6e 20 2d 53 4d 61 63 72 6f 20 25 25 |.!Run -SMacro %%| 00000260 2a 30 0a 53 65 74 20 41 6c 69 61 73 24 40 52 75 |*0.Set Alias$@Ru| 00000270 6e 54 79 70 65 5f 42 45 39 20 52 75 6e 20 3c 4f |nType_BE9 Run <O| 00000280 62 65 79 24 44 69 72 3e 2e 21 52 75 6e 20 2d 77 |bey$Dir>.!Run -w| 00000290 6f 72 6b 73 70 61 63 65 20 25 25 2a 30 0a 7c 0a |orkspace %%*0.|.| 000002a0 53 65 74 20 53 63 68 65 6d 61 32 24 4f 73 56 65 |Set Schema2$OsVe| 000002b0 72 73 69 6f 6e 20 22 59 65 73 22 0a 52 4d 45 6e |rsion "Yes".RMEn| 000002c0 73 75 72 65 20 55 74 69 6c 69 74 79 4d 6f 64 75 |sure UtilityModu| 000002d0 6c 65 20 33 2e 31 30 20 53 65 74 20 53 63 68 65 |le 3.10 Set Sche| 000002e0 6d 61 32 24 4f 73 56 65 72 73 69 6f 6e 20 22 4e |ma2$OsVersion "N| 000002f0 6f 22 0a 69 66 20 22 3c 53 79 73 74 65 6d 24 50 |o".if "<System$P| 00000300 61 74 68 3e 22 2b 22 3c 53 63 68 65 6d 61 32 24 |ath>"+"<Schema2$| 00000310 4f 73 56 65 72 73 69 6f 6e 3e 22 3d 22 4e 6f 22 |OsVersion>"="No"| 00000320 20 74 68 65 6e 20 45 72 72 6f 72 20 30 20 50 6c | then Error 0 Pl| 00000330 65 61 73 65 20 6f 70 65 6e 20 61 20 64 69 72 65 |ease open a dire| 00000340 63 74 6f 72 79 20 64 69 73 70 6c 61 79 20 63 6f |ctory display co| 00000350 6e 74 61 69 6e 69 6e 67 20 21 53 79 73 74 65 6d |ntaining !System| 00000360 0a 49 66 20 22 3c 57 69 6d 70 24 53 63 72 61 70 |.If "<Wimp$Scrap| 00000370 3e 22 20 3d 20 22 22 20 54 68 65 6e 20 45 72 72 |>" = "" Then Err| 00000380 6f 72 20 30 20 50 6c 65 61 73 65 20 6f 70 65 6e |or 0 Please open| 00000390 20 61 20 64 69 72 65 63 74 6f 72 79 20 64 69 73 | a directory dis| 000003a0 70 6c 61 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 |play containing | 000003b0 21 53 63 72 61 70 0a 7c 0a 7c 0a 52 4d 45 6e 73 |!Scrap.|.|.RMEns| 000003c0 75 72 65 20 46 50 45 6d 75 6c 61 74 6f 72 20 32 |ure FPEmulator 2| 000003d0 2e 38 20 52 4d 4c 6f 61 64 20 53 79 73 74 65 6d |.8 RMLoad System| 000003e0 3a 4d 6f 64 75 6c 65 73 2e 46 50 45 6d 75 6c 61 |:Modules.FPEmula| 000003f0 74 6f 72 0a 52 4d 45 6e 73 75 72 65 20 46 50 45 |tor.RMEnsure FPE| 00000400 6d 75 6c 61 74 6f 72 20 32 2e 38 20 45 72 72 6f |mulator 2.8 Erro| 00000410 72 20 59 6f 75 20 6e 65 65 64 20 46 50 45 6d 75 |r You need FPEmu| 00000420 6c 61 74 6f 72 20 32 2e 38 20 6f 72 20 6c 61 74 |lator 2.8 or lat| 00000430 65 72 0a 7c 0a 52 4d 45 6e 73 75 72 65 20 43 6f |er.|.RMEnsure Co| 00000440 6c 6f 75 72 54 72 61 6e 73 20 30 2e 35 32 20 52 |lourTrans 0.52 R| 00000450 4d 4c 6f 61 64 20 53 79 73 74 65 6d 3a 4d 6f 64 |MLoad System:Mod| 00000460 75 6c 65 73 2e 43 6f 6c 6f 75 72 73 20 0a 52 4d |ules.Colours .RM| 00000470 45 6e 73 75 72 65 20 43 6f 6c 6f 75 72 54 72 61 |Ensure ColourTra| 00000480 6e 73 20 30 2e 35 32 20 45 72 72 6f 72 20 59 6f |ns 0.52 Error Yo| 00000490 75 20 6e 65 65 64 20 43 6f 6c 6f 75 72 54 72 61 |u need ColourTra| 000004a0 6e 73 20 30 2e 35 32 20 6f 72 20 6c 61 74 65 72 |ns 0.52 or later| 000004b0 0a 7c 0a 52 4d 45 6e 73 75 72 65 20 57 69 6e 64 |.|.RMEnsure Wind| 000004c0 6f 77 55 74 69 6c 73 20 30 2e 30 34 20 52 4d 4c |owUtils 0.04 RML| 000004d0 6f 61 64 20 53 79 73 74 65 6d 3a 4d 6f 64 75 6c |oad System:Modul| 000004e0 65 73 2e 57 69 6d 70 55 74 69 6c 73 0a 52 4d 45 |es.WimpUtils.RME| 000004f0 6e 73 75 72 65 20 57 69 6e 64 6f 77 55 74 69 6c |nsure WindowUtil| 00000500 73 20 30 2e 30 34 20 45 72 72 6f 72 20 59 6f 75 |s 0.04 Error You| 00000510 20 6e 65 65 64 20 57 69 6d 70 55 74 69 6c 73 20 | need WimpUtils | 00000520 30 2e 30 34 20 6f 72 20 6c 61 74 65 72 0a 7c 0a |0.04 or later.|.| 00000530 52 4d 45 6e 73 75 72 65 20 53 68 61 72 65 64 43 |RMEnsure SharedC| 00000540 4c 69 62 72 61 72 79 20 33 2e 37 35 20 52 4d 4c |Library 3.75 RML| 00000550 6f 61 64 20 53 79 73 74 65 6d 3a 4d 6f 64 75 6c |oad System:Modul| 00000560 65 73 2e 43 4c 69 62 0a 52 4d 45 6e 73 75 72 65 |es.CLib.RMEnsure| 00000570 20 53 68 61 72 65 64 43 4c 69 62 72 61 72 79 20 | SharedCLibrary | 00000580 45 72 72 6f 72 20 59 6f 75 20 6e 65 65 64 20 43 |Error You need C| 00000590 4c 69 62 20 33 2e 37 35 20 6f 72 20 6c 61 74 65 |Lib 3.75 or late| 000005a0 72 0a 7c 0a 0a 49 46 20 22 3c 53 63 68 65 6d 61 |r.|..IF "<Schema| 000005b0 32 24 4f 73 56 65 72 73 69 6f 6e 3e 22 20 3d 20 |2$OsVersion>" = | 000005c0 22 59 65 73 22 20 54 48 45 4e 20 52 4d 45 6e 73 |"Yes" THEN RMEns| 000005d0 75 72 65 20 42 6f 72 64 65 72 55 74 69 6c 73 20 |ure BorderUtils | 000005e0 30 2e 30 32 20 52 4d 4c 6f 61 64 20 3c 53 63 68 |0.02 RMLoad <Sch| 000005f0 65 6d 61 32 24 44 69 72 3e 2e 42 6f 72 64 65 72 |ema2$Dir>.Border| 00000600 55 74 69 6c 0a 7c 0a 49 46 20 22 3c 53 63 68 65 |Util.|.IF "<Sche| 00000610 6d 61 32 24 4f 73 56 65 72 73 69 6f 6e 3e 22 20 |ma2$OsVersion>" | 00000620 3d 20 22 59 65 73 22 20 54 48 45 4e 20 52 4d 45 |= "Yes" THEN RME| 00000630 6e 73 75 72 65 20 44 72 61 77 46 69 6c 65 20 30 |nsure DrawFile 0| 00000640 2e 30 31 20 52 4d 4c 6f 61 64 20 3c 53 63 68 65 |.01 RMLoad <Sche| 00000650 6d 61 32 24 44 69 72 3e 2e 44 72 61 77 66 69 6c |ma2$Dir>.Drawfil| 00000660 65 0a 49 46 20 22 3c 53 63 68 65 6d 61 32 24 4f |e.IF "<Schema2$O| 00000670 73 56 65 72 73 69 6f 6e 3e 22 20 3d 20 22 59 65 |sVersion>" = "Ye| 00000680 73 22 20 54 48 45 4e 20 52 4d 45 6e 73 75 72 65 |s" THEN RMEnsure| 00000690 20 44 72 61 77 46 69 6c 65 20 30 2e 30 31 20 45 | DrawFile 0.01 E| 000006a0 72 72 6f 72 20 59 6f 75 20 6e 65 65 64 20 61 20 |rror You need a | 000006b0 64 72 61 77 66 69 6c 65 20 72 65 6e 64 65 72 69 |drawfile renderi| 000006c0 6e 67 20 6d 6f 64 75 6c 65 20 69 6e 20 21 53 79 |ng module in !Sy| 000006d0 73 74 65 6d 0a 7c 0a 7c 0a 57 69 6d 70 53 6c 6f |stem.|.|.WimpSlo| 000006e0 74 20 2d 6d 69 6e 20 38 39 36 4b 0a 57 69 6d 70 |t -min 896K.Wimp| 000006f0 53 6c 6f 74 20 2d 6d 69 6e 20 37 36 38 6b 20 2d |Slot -min 768k -| 00000700 6d 61 78 20 37 36 38 6b 0a 7c 0a 52 75 6e 20 3c |max 768k.|.Run <| 00000710 53 63 68 65 6d 61 32 24 44 69 72 3e 2e 21 52 75 |Schema2$Dir>.!Ru| 00000720 6e 49 6d 61 67 65 20 25 2a 30 0a |nImage %*0.| 0000072b
.