10 REM HELLIGKEIT ==============C64
20 REM (P) COMMODORE WELT TEAM   ==
30 REM ============================
40 REM (C) BY SCHMID-FABIAN      ==
50 REM        HEIDELBERG         ==
60 REM                           ==
70 REM                           ==
80 REM FOTOWIDERSTAND + 200 OHM  ==
85 REM PORT 1 (PIN 7 - PIN 9)    ==
90 REM ============================
100 PRINT"[147]";:INPUT"UHRZEIT";TI$:T0=TI
110 INPUT"MESSBEGINN (HHMMSS)";TS$
120 INPUT"ZEITDIFFERENZ";ZD
130 N=24*60/ZD:DIM Z$(N),W%(N):N=1
140 I=I+1:A=A+PEEK(54297):SP=A/I
150 IF TI$<TS$ THEN PRINTCHR$(147)TI$,SP
160 DT=(TI-T0)/3600
170 IF DT>=ZD THEN PRINT TI$,SP:T0=TI:Z$(N)=TI$:W%(N)=SP*10:N=N+1:A=0:I=0
180 GETA$:IFA$="" GOTO140
200 INPUT"DRUCKERAUSGABE? (J)";Q$:IF Q$="J" THEN OPEN4,4:CMD4
210 FOR I=1 TO N:PRINTLEFT$(Z$(I),2)+":"+MID$(Z$(I),3,2),W%(I):NEXT:CLOSE4