home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
DIET2
/
HELLO.TXT
< prev
next >
Wrap
Text File
|
2020-08-13
|
945b
|
22 lines
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