home *** CD-ROM | disk | FTP | other *** search
- ; AddMem 200000 2fffff ;Include non auto-config. RAM (e.g. 1 Mb from 200000).
- ; Remove initial semicolon to use the command.
- ; Follow expansion manual to set parameters. Copy AddMem to "c" directory.
-
- df0:intro
- Assign >NIL: PWrite: EXISTS
- If NOT WARN
- Assign PWRITESTARTUP: PWrite:
- Else
- Assign PWRITESTARTUP: SYS:
- EndIf
-
- PWRITESTARTUP:c/RAMExp ; Memory Save Mode (< 1 Mbyte RAM)
- If WARN
- If NOT EXISTS PWRITESTARTUP:PW_Locale/Startup-PWLclTxt.ita
- SYS:System/SetMap i
- EndIf
- If NOT EXISTS PWRITESTARTUP:PW_Locale/Startup-PWLclTxt.deu
- SYS:System/SetMap d
- EndIf
- If NOT EXISTS PWRITESTARTUP:PW_Locale/Startup-PWLclTxt.eng
- SYS:System/SetMap usa1
- EndIf
- LoadWb
- PWRITESTARTUP:PWrite
- EndCLI
- EndIf ; End of Memory Save Startup
-
- SetPatch >NIL:
-
- If EXISTS PWRITESTARTUP:s/Startup-PWLclTxt
- Print -f PWRITESTARTUP:s/Startup-PWLclTxt
- EndIf
-
- Resident C:Resident PURE
- Resident C:Execute PURE
- Resident C:Assign PURE
- Resident C:If PURE
- Resident C:EndIf PURE
- Resident CLI L:Shell-Seg SYSTEM PURE ADD
- Resident C:Run PURE
- Resident C:CD PURE
- Resident C:Makedir PURE
-
- AddBuffers df0: 10
-
- MakeDir RAM:t
- Assign T: RAM:t
-
- If EXISTS PWRITESTARTUP:s/Startup-PWLclExe
- Execute PWRITESTARTUP:s/Startup-PWLclExe
- EndIf
-
- Assign >NIL: PWrite: EXISTS
- If WARN
- Assign PWrite: PWRITESTARTUP:
- EndIf
- Assign PWRITESTARTUP:
-
- Assign >NIL: df1: EXISTS
- If NOT WARN
- AddBuffers df1: 10
- EndIf
-
- Sys:System/FastMemFirst
- BindDrivers
- SetClock >NIL: LOAD
-
- If EXISTS C:FF
- FF >NIL: -0
- EndIf
-
- MakeDir RAM:env
- Assign ENV: RAM:env
- MakeDir RAM:clipboards
- Assign CLIPS: RAM:clipboards
- Mount NEWCON:
-
- Path RAM: C: SYS:System S: ADD
- LoadWB DELAY
-
- Resident MakeDir REMOVE
- Resident If REMOVE
- Resident EndIF REMOVE
- Resident Assign REMOVE
-
- PWrite:PWrite
-
- EndCLI >NIL:
-