Listing 1: Default Logon Script

; *****************Section 1***********************
; Default Logon Script for Forestry Service
; June 4, 1997
; Written By Jon McDonald (jmcdonald@randomc.com)
; *****************Section 2***********************
; Clear Screen
CLS
;
Color g+/n
big                   ; Display in BIG character mode
at (2,10)   "Forestry"
small
at (12,36)       "*"
at (13,35)      "***"
at (14,33)    "*******"
at (15,31)  "***********"
at (16,31)  "***********"
at (17,33)    "*******"
Color w+/n
at (18,35)      "***"
at (19,35)      "***"
at (20,33)    "*******"
;
sleep 2               ; Wait for 2 secs
;
; *****************Section 3***********************
;
CLS
;
small
Color b+/n
BOX (7,20,17,61,FULL)
;
Color w+/n
;
IF ((@time > "00:00:00") AND (@time < "12:00:00"))
at (9,22)   "Good Morning,"
ELSE
  IF ((@time >= "12:00:00") AND (@time < "18:00:00"))
  at (9,22)   "Good Afternoon,"
  ELSE
  at (9,22)   "Good Evening,"
  ENDIF
ENDIF
;
at (10,22)   @fullname
at (12,22)   "Please Wait For Logon script Execution"
at (13,22)   "Progress"
;
; *****************Section 4***********************
; Set Time From "KeyStone" Time Server
SETTIME "\\Sequoia"
;
at (13,30)   ".."
;
; *****************Section 5***********************
;
; Map Drives to Server "Sequoia"
;
USE H: "\\Sequoia\@userid"
USE P: "\\Sequoia\Public"
;
at (13,32)   ".."
;
sleep 1                         ; Wait for 1 sec
;
EXIT