0  PRINT  CHR$ (4)"OPEN HELLO.TXT": PRINT  CHR$ (4)"WRITE HELLO.TXT": LIST : PRINT  CHR$ (4)"CLOSE HELLO.TXT"
 1  END 
 10 D$ =  CHR$ (4)
 12  PRINT  CHR$ (7); CHR$ (7); CHR$ (7); CHR$ (7); CHR$ (7)
 15  TEXT : HOME : PRINT "OH, HI ERIC!  THANKS FOR WAKING ME UP.": PRINT : PRINT : PRINT "I'VE BEEN SLEEPING SO LONG...": PRINT : PRINT : PRINT 
 20  POKE 49246,0: POKE 49244,0: POKE 49242,0: POKE 49240,0
 170  INPUT "WHAT YEAR IS IT?";YY
 172  IF YY < 1998 THEN  PRINT "INVALID YEAR": GOTO 170
 175  INPUT "WHAT MONTH IS IT?";MM
 177  IF MM < 1 OR MM > 12 THEN  PRINT "INVALID MONTH": GOTO 175
 180  INPUT "WHAT DAY IS IT?";DD
 182  IF DD < 1 OR DD > 31 THEN  PRINT "INVALID DAY": GOTO 180
 190 O$ = "TODAY.TXT"
 193  PRINT 
 194  PRINT D$"OPEN "O$
 195  PRINT D$"WRITE "O$
 196  PRINT YY","MM","DD
 200  PRINT D$"CLOSE"
 210  PRINT "THANK YOU VERY MUCH.": PRINT "I WILL NOW LOAD YOUR FOOD DIARY PROGRAM."
 2000  PRINT D$"RUN DIARY.BAS": END