10 REM THIS PROGRAM IS DESIGNED TO RECORD SITINGS IN 24 HOUR FORMAT 20 REM WRITTEN BY RUSS KINCAID, 26 JULY 2005 30 CLS 40 PRINT"PRESS 'ENTER' WHEN YOU WANT TO RECORD THE TIME AND DATE" 50 PRINT"YOU CAN THEN ENTER A COMMENT AND PRESS 'ENTER' WHEN FINISHED" 60 PRINT"OR JUST PRESS 'ENTER' TWICE AGAIN TO BE READY FOR THE NEXT EVENT" 70 PRINT"COMMAS ARE NOT ALLOWED BUT YOU CAN USE A DASH INSTEAD" 80 PRINT"WHEN YOU PRESS 'ENTER' AFTER THE COMMENT, THE QUESTION 'MORE ?' APPEARS" 90 PRINT"ANSWERING 'Y' OR 'YES' WILL ALLOW ANOTHER LINE OF INPUT. ANSWERING 'N'" 100 PRINT"OR JUST 'ENTER' WILL GO TO 'READY'. TO STOP THE PROGRAM, ANSWER 'S' " 110 PRINT" OR 'STOP'. THE DATES AND COMMENTS ARE IN A FILE 'EVENTS.DAT'" 120 PRINT:PRINT"NOTE: EACH TIME YOU RUN THE PROGRAM, THE FILE 'EVENTS.DAT' IS" 130 PRINT"ERASED, SO YOU SHOULD RE-NAME THE FILE OR PRINT IT TO HAVE A PERMANENT" 140 PRINT"RECORD." 150 PRINT:PRINT 160 OPEN "EVENTS.DAT" FOR OUTPUT AS #1 170 INPUT"READY",Y$ 180 PRINT#1,DATE$;" ";TIME$ 190 INPUT D$ 200 PRINT#1,D$ 210 INPUT"MORE ",Y$ 220 IF LEFT$(Y$,1)="Y" OR LEFT$(Y$,1)="y" THEN 190 230 IF LEFT$(Y$,1)="S" OR LEFT$(Y$,1)="s" THEN 250 240 GOTO 170 250 CLOSE#1 260 END