‘**********************************
‘* program : LizzyDB.bas *
‘* author : Computothought * s
‘* last fix: Jan. 1, 1996 *
‘* Note : Pc clone flat file *
‘* database from what *
‘* we learned at school.*
‘**********************************
DECLARE FUNCTION Acquire.chars$ (Maxlen!)
DECLARE FUNCTION Acquire.time$ (Maxlen!)
DECLARE FUNCTION Acquire.date$ (Maxlen!)
DECLARE FUNCTION Acquire.logical$ (Maxlen!)
DECLARE FUNCTION Acquire.text$ (Maxlen!)
DECLARE FUNCTION Acquire.numbers$ (Maxlen!, Dcmlplaces!)
DECLARE SUB Utoh (cr!, cc!, length!)
DECLARE SUB prvmenu (name$(), Column%, Message%, Vpos%)
DECLARE SUB Vmenu (name$(), Vpos%, Message%, Column%, menu$)

Begin:
GOSUB Main.housekeeping
GOSUB Mainmenu
GOSUB Eoj
END:

Main.housekeeping:
‘===================================================================
‘ housekeeping
‘