| !Run for !Schema V1.06 910512
|

Set Schema$Dir <Obey$Dir>
Set Schema$Menu <Obey$Dir>.menus
Set Schema$start <Obey$Dir>.menus
Set Schema$sysmacs <Obey$Dir>.mac_test

Set PDriver$TextChars1 c3 02 1b 4a
Set PDriver$TextChars2 A3 07 1b 52 03 23 1b 52 00

|
| colours
| colours come in two types BGRX (32 bits) and GCOLS 8 bits
| KEY : FG => Foreground, BG -> Background
| 0 FG selected cell and block  1 ditto BG  
| 2 FG selected cell            3 ditto BG
| 4 FG selected block           5 ditto BG
| 6 matrix separator            7 ditto for printing
| 8 input block                 
| 9 grid     
| 10 marked cell 
| 11 labels colour              12 ditto for printing
|
| 0,  2,  4,    7,8,9,10,  12 BGR colour
|   1,  3,  5,6,         11   GCOL
|
| 1 -> dont overwrite macroswithout warning
| 2 ->  "   wipe block without warning
| 4 ->  "   fill block without warning
| 8 ->  "   overwrite files without warning
| Set Schema$Flags 14
|
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 Alias$@RunType_AEF Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_AEE Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_AED Run <Obey$Dir>.!Run %%*0
|
If "<System$Path>" = "" Then Error 0 Please open a directory display containing !System
|
Set Schema$mactemp <System$Path>SchemaTemp
|
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
|
WimpSlot -min 640k
|
Set Schema$CSVField 44
Set Schema$CSVRecord 10
Set Schema$Cols 10
Set Schema$Rows 30
Set Schema$ThinLine 2
Set Schema$Colours "FF000000,0F,00000000,0A,00000000,09,02,00000000,00000000,00000000,99999900,07,00000000"
Set Schema$flags 15
Set Schema$Width 80 132
if "<Printer$>"="" then Set PDriver$TextPage "-Ph<32>70<32>-Mt<32>2<32>-Mb<32>8<32>-Ml<32>0<32>-Th<32>0<32>-Nl<32>||M<32>-Rs<32>||R||[W||@||[P||[R||@<32>-Cd<32>||O||[W||@||[P"
Run <Schema$Dir>.!RunImage -dest 1 -ignore 10 -printer "FX-80" -others "%*0"

