5 TIME$="23:59:49":DATE$="06-22-83"    ' Date verified by Read Gilgen
10 WHILE NOT TIME.OUT
20  IF TIME$>"00:00:05.00" AND TIME$<"00:01:00.00" THEN TIME.OUT=-1
30  OPEN "b:clock.chk" FOR APPEND AS #2
40    FOR LOOP = 1 TO 10
50        A$=A$ + " ***" + STR$(LOOP)
60    NEXT
70    PRINT #2,A$
75    A$=""
80  CLOSE #2
85 PRINT TIME$,DATE$
90 WEND
100 END
                