\\         *** 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