10 PRINT "Read or Write";
20 INPUT M$
30 IF M$="R" THEN GOTO 250
40 IF M$="W" THEN GOTO 70
50 SOUND 8,1:SOUND 15,2:SOUND 8,1
60 GOTO 10
70 REM PREPARE RAM FILE
80 REM RECORD LENGTH IS 8
90 REM STARTING AT OFFSET 0
100 DEFFIL 8,0
110 REM SAVE STARTING TIME
120 LET S$=TIME$:C=0
130 PUT% 0,S$
140 CLS
150 REM CONTINUOUSLY SAVE THE CURRENT
160 REM TIME TO RECORD 1 UNTIL THE
170 REM BATTERY RUNS OUT
180 LET T$=TIME$:C=C+1
190 PUT% 1,T$
200 LOCATE 0,0,1
210 PRINT S$;"-";T$
220 PRINT C;
230 GOTO 180
240 REM DEFINE RAMFILE FOR READOUT
250 DEFFIL 8,0
260 REM GET STARTING TIME
270 GET% 0,T$:PRINT "Start: ";T$
280 REM GET SAVED TIME BEFORE POWEROFF
290 GET% 1,T$:PRINT "End:   ";T$
300 END