;STARTUP.1   STARTUP-SEQUENCE AS OF OCTOBER 15, 1988
;ARP VERSION 1.1

   path sys:system add
BindDrivers
set copyflags=CN ESCAPE \  ; original dates and filenotes
addbuffers df2: 50
cd df0:c
;prompt "%N %p"
prompt "\e[0;33;1m%n> \e[m%p"

FAILAT 25
ifexists DPaint:
if NOT ERROR
   CD DPaint:
   X go_dpaint    ; I have renamed EXECUTE to X
   info
   SKIP NOTASKS
endif

arun gomf1.0      ; for what its worth, which isn't much
setfont pearl     ; or your favorite font

FAILAT 25
ifexists BASIC:
if NOT ERROR
   CD BASIC:
   info
   SKIP NOTASKS
endif

FAILAT 25
ifexists Digi-View:
if NOT ERROR
   CD Digi-View:
   FAILAT 25
   ifexists DH:        ;I have labeled my archive disks DH: for storage
   if NOT ERROR        ;of .pic files with paint programs and digiview.
     assign DH0: DH:   ;this allows clicking on the load/save requestor
   endif               ;where it says DH: or DH0:
   Digi-View:digi-view
   SKIP NOTASKS
endif

STACK 32000

FAILAT 25
ifexists DH:
if NOT ERROR
   CD DH:
   SKIP NOTASKS
endif

;the above tasks need lots of memory so no sticky ram
;following tasks want VD0: so we mount it now

ASK "\X9B7mMOUNT VD0: ? Y/N\X9B0m" "N" "Y" TIMEOUT 30
if  NOT WARN
  Mount VD0:
    if NOT EXISTS VD0:C
       ASK "\X9B7mSET the Date ? Y/N\X9B0m" "Y" "N" TIMEOUT 30
       if WARN
         date
         date ?
         date > df0:datefile
       ELSE
       date < df0:datefile
       endif
      Makedir VD0:c
      echo "Copying the c directory to VD0:c"
      copy df0:c to VD0:c all quiet
    endif
assign c: VD0:c               ;often used files are in c:
path reset vd0:c sys:system   ;others have been moved to sys:system
cd VD0:
info
     if exists VD0:ww
        CD vd0:
        ww
        SKIP NOTASKS
     endif

ELSE
SKIP NOTASKS
endif

FAILAT 25
ifexists WordWright:
IF NOT ERROR
   copy WordWright:ww to VD0:
   copy WordWright:spell to vd0: all
   ww
   SKIP NOTASKS
endif

FAILAT 25
ifexists WRK_2:
IF NOT ERROR
cd WRK_2:
execute go_QB
   SKIP NAGLAB
endif

FAILAT 25
ifexists ONLINE!:go_ONLINE!          ;modem software
    if NOT ERROR
     CD ONLINE!:
     FAILAT 25
     ifexists ONLINE!:U
      if NOT ERROR
        if NOT EXISTS VD0:c/arc
          ONLINE!:blitzfonts
          copy ONLINE!:U to VD0:c all
         endif
    endif
  arun machII -rAH -fdf0:s/arc.key  PRI -5
   execute ONLINE!:go_ONLINE!
   list
   skip NOTASKS
endif

LAB NAGLAB

ASK "\X9B7mRun MachII? <no for ONLINE!> Y/N\X9B0m" "N" "Y" TIMEOUT 10
IF not WARN
   arun machII  -rAH -fdf0:s/mach.config PRI -5
endif

ARUN SYS:system/nag PRI -4     ;Naging appointment calendar
info

cd ram:
LAB NOTASKS
RESIDENT c:type c:copy