Quick Basic in Application

‘****************************************************************************
‘Program title: Birthdays Recorder
‘****************************************************************************
SCREEN 0
TYPE Birthday
firstname AS STRING * 15
lastname AS STRING * 30
bday AS STRING * 10
END TYPE
DIM birday AS Birthday
start:
CLS
a$ = “”
c = 0
WHILE a$ <> CHR$(13)
COLOR 7, 0
LOCATE 5, 10
PRINT “***********************************************************”
LOCATE 6, 30
PRINT “The Birthdays Recorder”
LOCATE 7, 10
PRINT “***********************************************************”
IF c = 0 THEN
LOCATE 11, 30
COLOR 15, 7
PRINT “N”;
COLOR 0, 7
PRINT “EW ENTRY”
LOCATE [...]