5 IFPEEK(49153)<>58THENLOAD"RTC 49152",8,8
10 SYS49152,0:PRINT"[147] RTC - PRUEFPROGRAMM      NH-110889-ARR
20 [158]49158,"235950311289DO
30 FORI=1TO1300
40 SYS49155,0,A$
50 PRINT" "A$"  MOMENT...[145]"
60 NEXT:PRINT" RTC-BAUSTEIN ";
70 IFA$<>"00:00:31 FR,01.01.90"THENPRINT"FEHLERHAFT[146] !":END
80 PRINT"OKAY.
90 [128]