imageFile/f/5TH_AUTORUN

   1 D> \listF\listLIB\5TH_GFX include\r
   2 D> \listF\5TH_LOGO include\r
   3 \r
   4 : tmpmsg 200000 100 do\r
   5         dup c@ dup FC = if drop doexit else emit 1+ then\r
   6 loop drop ;\r
   7 .( Messages from core: )\r
   8 colhigh\r
   9 tmpmsg\r
  10 colnorm\r
  11 forget tmpmsg\r
  12 \r
  13 \r
  14 D> \listF\listLIB\5TH_DRVKBD include\r
  15 D> \listF\listLIB\5TH_UICMD include\r
  16 D> \listF\5TH_QUICKPATH include\r
  17 \r
  18 Dstr \listF\5TH_ET" tmpstr\r
  19 : lde tmpstr include ; rh tmpstr\r
  20 \r
  21 Dstr \listF\TXT_HELP" tmpstr\r
  22 : help tmpstr fs. ; rh tmpstr\r
  23 \r
  24 Dstr \listF\5TH_BOOT" tmpstr\r
  25 : putboot\r
  26 tmpstr fsDloadnew\r
  27 dup dynp [ 400 4 * ] [ 400 20 * ] disksave\r
  28 dynde ; rh tmpstr\r
  29 \r
  30 fslsr\r
  31 \r
  32 .( type 'help' to get help )\r