\\ *** Loadscreen für Arbeitssystem *** 06jan07py Die folgenden Screens werden benutzt, um von FORTHKER aus ein Arbeitssystem hochzuziehen. Da das Kernal ein rudimentäres File Interface enthält, können alle Dateien mit Include geladen werden \ Loadscreen for Standard System 32b 21jun05py| User lastfile : .blk ( -- ) ( pause blk @ 0= ?EXIT isfile@ lastfile @ = 0= IF cr file? isfile@ lastfile ! THEN base push hex ." Blk " blk @ . ?cr ) ; ' .blk IS .status include assem486.fb include stream.fb include hash.fs save include fileint.fb save DOS legacy on Forth include errore.fs include strings.fs ( save ) include savemod.fb ( save ) include tasker.fb ( include idle.fs ) include vt100key.fs ( include printer.fs ) include output.fb include disass.fb include tools.fb include except.fs include forth200x.fs --> \ Startup part 2 05aug12pyinclude struct.fs include random.fs include environ.fs include float.fb save [IFDEF] win32 use bigforth.ini [ELSE] use .bigforthrc [THEN] DOS also FORTH main: [IFDEF] win32 bigforth.ini mroot $1C + @ @ >len 2dup dup 4- /string s" .exe" str= IF 4- THEN s" " [ELSE] .bigforthrc mroot $1C + @ @ >len 2dup '/ -scan nip /string s" ." [THEN] pad place pad $sum ! $add [IFDEF] win32 s" .ini" [ELSE] s" rc" [THEN] $add pad count isfile@ assign ['] #load catch IF [IFDEF] win32 s" bigforth.ini" [ELSE] s" .bigforthrc" [THEN] isfile@ assign ['] #load catch drop THEN forth.fb "error off ; Onlyforth save
No newline at end of file
\\ *** Loadscreen für Arbeitssystem *** 06jan07py Die folgenden Screens werden benutzt, um von FORTHKER aus ein Arbeitssystem hochzuziehen. Da das Kernal ein rudimentäres File Interface enthält, können alle Dateien mit Include geladen werden \ Loadscreen for Standard System 32b 08jan16py| User lastfile : .blk ( -- ) ( pause blk @ 0= ?EXIT isfile@ lastfile @ = 0= IF cr file? isfile@ lastfile ! THEN base push hex ." Blk " blk @ . ?cr ) ; ' .blk IS .status include assem486.fb include stream.fb include hash.fs save include fileint.fb save DOS legacy on Forth include errore.fs include strings.fs ( save ) include savemod.fb ( save ) include tasker.fb ( include idle.fs ) include vt100key.fs ( include printer.fs ) include output.fb include disass.fb include tools.fb include except.fs include forth200x.fs --> \ Startup part 2 05aug12pyinclude struct.fs include random.fs include environ.fs include float.fb save [IFDEF] win32 use bigforth.ini [ELSE] use .bigforthrc [THEN] DOS also FORTH main: [IFDEF] win32 bigforth.ini mroot $1C + @ @ >len 2dup dup 4- /string s" .exe" str= IF 4- THEN s" " [ELSE] .bigforthrc mroot $1C + @ @ >len 2dup '/ -scan nip /string s" ." [THEN] pad place pad $sum ! $add [IFDEF] win32 s" .ini" [ELSE] s" rc" [THEN] $add pad count isfile@ assign ['] #load catch IF [IFDEF] win32 s" bigforth.ini" [ELSE] s" .bigforthrc" [THEN] isfile@ assign ['] #load catch drop THEN forth.fb "error off ; Onlyforth save
