home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
maths
/
praktikum_2
/
!Praktikum
/
!Run
< prev
next >
Wrap
Text File
|
1995-09-13
|
1KB
|
48 lines
| Start-datei für die !Praktikum-Applikation
|
| © 1995 Andreas Feldner & Markus Braun GdbR
|
*IconSprites <Obey$Dir>.!Sprites
*set Alias$@RunType_b55 Obey <Obey$Dir>.!Run %%*0
|
*if "<File$Type_DFE>" = "" OR "<File$Type_CE5>" = "" then set Praktikum$ExportType "setzen"
*if "<Praktikum$ExportType>" = "setzen" then set File$Type_DFE CSV
*if "<Praktikum$ExportType>" = "setzen" then set File$Type_CE5 TEX
*if "<Praktikum$ExportType>" = "setzen" then iconsprites <Obey$Dir>.ExpSpr
*unset Praktikum$ExportType
|
*set File$Type_b55 PrakVar
*set File$Type_03c PrakDef
|
*if "<System$Path>" = "" then Error 0 Kann die System-Resourcen nicht finden (Pfad "System:" nicht definiert)
|
*RMEnsure WindowManager 3.10
|
*RMEnsure Draw 1.01
|
*RMEnsure TerritoryManager 0.00
|
*RMEnsure SharedCLibrary 3.60 RMLoad System:Modules.Clib
*RMEnsure SharedCLibrary 3.60
|
*RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator
*RMEnsure FPEmulator 2.70
|
*RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
*RMEnsure ColourTrans 0.51
|
*Set Praktikum$UseColourPicker on
*RMEnsure ColourPicker 0.00 Set Praktikum$UseColourPicker off
|
*Set Praktikum$Dir <Obey$Dir>
*CDir <Wimp$ScrapDir>.Praktikum
*WimpSlot -min 348k -max 348k
|
| Praktikum$Path auf konfiguriertes Territory zeigen lassen:
| *** SetPath Praktikum <x> stellt Territorium x ein ***
*Run <Praktikum$Dir>.SetPath Praktikum
|
| Startup
|
*Run <Praktikum$Dir>.!RunImage %*0