*
* LOVE 7/16/83 BY R. SHIPP(460-9353)
RELEASE ALL
ERASE
? '==============================================='
?
? ' Welcome to the Church Computer!   DATE = '+DATE()
? ' -------------------------------'
?
? ' dBase II ver. 2.3b (SINGLE RECORD)'
?
? ' For: Glenmont United Methodist Church'
? '      12901 Georgia Avenue, Wheaton Md. 20906'
? '      Phone: 946-5577 or 946-5578'
?
? '      Application Program'
? '      by Ralph Shipp'
?
? ' NOTE --- Press RETURN Key if needed after'
? '          entry to continue.'
?
? ' PRESS ANY KEY TO CONTINUE'
? '==============================================='
WAIT
ERASE
? '==============================================='
?
? 'THIS PROGRAM IS USED WITH A SINGLE DISK'
?
? '   AND EACH NAME IS IN A SINGLE RECORD'
?
?
? 'USE DISK # 402 IN DRIVE B WHICH HAS'
?
? '   ALL THE CHURCH MASTER LIST.(A THRU Z)'
?
? 'PLEASE PUT DISK INTO DISK DRIVE B AND'
? '================================='
?
? 'CLOSE THE DISK DRIVE DOOR AT THIS TIME!'
?
?
? 'PRESS ANY KEY TO CONTINUE'
? '==============================================='
WAIT
ERASE
DO CODLIS
? 'PRESS ANY KEY TO CONTINUE'
? '=============================================='
WAIT
DO MENU
* THE END --  LOVE