* Program: 
      * Insertion Code for Standard Variables
      * Copyright ALP Systems LLC
      *
      PROMPT ''
      CLR=@(-1)
      EOP=@(-3)
      EOL=@(-4)
      BON=@(-7)
      BOF=@(-8)
      BELL=CHAR(7) ; BEEP=CHAR(7)
      AM=CHAR(254)
      VM=CHAR(253)
      SVM=CHAR(252)
      PR=@(0,22):EOL:@(0,22)
      ER=@(0,23):EOL:@(0,23)
      ABORT=0
      TODAY=OCONV(DATE(),'D2-')
      BADS=''
      FOR M=0 TO 31
         BADS:=CHAR(M)
      NEXT M