Shareware Overload/ShartewareOverload.cdr/database/prg_hlp.zip/START.PRG

Text File | 1987-04-07 | 4KB | 81 lines

**********************************************************************
*                                                                                            *
*                                S. Robert Davidoff                           *
*                         ...START.PRG                                        *
*                                                                                            *
*                                                                                            *
**********************************************************************
*...This file will set the defaults for the program
set talk off
set echo off
set escape on
set device to screen
do screen
*set scoreboard off
set bell off
set heading off
set menu on
set exact off
set deleted on
set century off
set key -1 to prg_hlp
set procedure to menuproc
public answer,bar,bell,cdate,choice,range
public selection,mreturn,A,B,C
public line,help_code,repeat,MNLQ,DRAFT
A = "START"
B = 0
C = SPACE(10)
MNLQ = chr(27) +"x"+ chr(1)
DRAFT = chr(27)+"x"+chr(0)
D = DATE()
ANSWER = SPACE(1)
BAR = chr(205)
    do while len(bar) < 78
        BAR = BAR + BAR
    enddo
BAR = substr(bar,1,78)
line = "-"
    do while len(line) <78
        line = line + line
    enddo
line = substr(line,1,78)
BELL = chr(7)
CDATE = cmonth(D) + str(day(D),3)+','+str(year(D),5)
return
**********************************************************************
*                            END    START.PRG                                            *
**********************************************************************
procedure screen
@  0,  0  SAY "*******************************************************************************"
@  1,  0  SAY "*                                                                             *"
@  2,  0  SAY "*                                                                             *"
@  3,  0  SAY "*                                                                             *"
@  4,  0  SAY "*                                                                             *"
@  5,  0  SAY "*                                                                             *"
@  6,  0  SAY "*                          STARRBYTE INCORPORATED                             *"
@  7,  0  SAY "*                                                                             *"
@  8,  0  SAY "*                  <<<  The business solutions people >>>                     *"
@  9,  0  SAY "*                                                                             *"
@ 10,  0  SAY "*                                                                             *"
@ 11,  0  SAY "*                                                                             *"
@ 12,  0  SAY "*                              PRESENT THE                                    *"
@ 13,  0  SAY "*                                                                             *"
@ 14,  0  SAY "*                                                                             *"
@ 15,  0  SAY "*             *********  CLIPPER MANAGEMENT PROGRAM  *********                 *"
@ 16,  0  SAY "*                                                                             *"
@ 17,  0  SAY "*                                                                             *"
@ 18,  0  SAY "*                           Designed by:                                      *"
@ 19,  0  SAY "*                                                                             *"
@ 20,  0  SAY "*                                                                             *"
@ 21,  0  SAY "*                              S. ROBERT DAVIDOFF, D.M.D.                     *"
@ 22,  0  SAY "*                                                                             *"
@ 23,  0  SAY "*                                                                             *"
@ 24,  0  SAY "*******************************************************************************"
@ 16, 14  TO 16, 14    DOUBLE
@ 16, 14  TO 16, 60    DOUBLE
@  4, 15  TO 10, 60    DOUBLE
@ 14, 14  TO 14, 60    DOUBLE
@ 23,79
inkey(8)
return