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