home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / DIET2 / HELLO.TXT < prev    next >
Text File  |  2020-08-13  |  945b  |  22 lines
  1.  
  2.  0  PRINT  CHR$ (4)"OPEN HELLO.TXT": PRINT  CHR$ (4)"WRITE HELLO.TXT": LIST : PRINT  CHR$ (4)"CLOSE HELLO.TXT"
  3.  1  END 
  4.  10 D$ =  CHR$ (4)
  5.  12  PRINT  CHR$ (7); CHR$ (7); CHR$ (7); CHR$ (7); CHR$ (7)
  6.  15  TEXT : HOME : PRINT "OH, HI ERIC!  THANKS FOR WAKING ME UP.": PRINT : PRINT : PRINT "I'VE BEEN SLEEPING SO LONG...": PRINT : PRINT : PRINT 
  7.  20  POKE 49246,0: POKE 49244,0: POKE 49242,0: POKE 49240,0
  8.  170  INPUT "WHAT YEAR IS IT?";YY
  9.  172  IF YY < 1998 THEN  PRINT "INVALID YEAR": GOTO 170
  10.  175  INPUT "WHAT MONTH IS IT?";MM
  11.  177  IF MM < 1 OR MM > 12 THEN  PRINT "INVALID MONTH": GOTO 175
  12.  180  INPUT "WHAT DAY IS IT?";DD
  13.  182  IF DD < 1 OR DD > 31 THEN  PRINT "INVALID DAY": GOTO 180
  14.  190 O$ = "TODAY.TXT"
  15.  193  PRINT 
  16.  194  PRINT D$"OPEN "O$
  17.  195  PRINT D$"WRITE "O$
  18.  196  PRINT YY","MM","DD
  19.  200  PRINT D$"CLOSE"
  20.  210  PRINT "THANK YOU VERY MUCH.": PRINT "I WILL NOW LOAD YOUR FOOD DIARY PROGRAM."
  21.  2000  PRINT D$"RUN DIARY.BAS": END 
  22.