1 REM *** Written by Mark Ray, please read welcome.msg first ***
2 ON ERROR IF ERR=17 THEN CH."AUTO" ELSE REPORT:PRINT " at ";ERL:END
10 O$=" ":CLS:REPEAT:T$=RIGHT$(TIME$,8)
20 IF LEFT$(T$,5)=O$ THEN PROCbig(RIGHT$(T$,2)) ELSE PROCbig(T$)
30 O$=LEFT$(T$,5):REPEAT:UNTIL T$<>RIGHT$(TIME$,8):UNTIL INKEY(0)=13
40 CHAIN"AUTO"
50 DEF PROCbig(S$)
60 S=LEN(S$):PRINT TAB(8-S,0);S$:S=S*6
70 FOR Y=0TO7:VDU31,64-S,Y:FOR X=(48-S)TO48
80 Z=-POINT(X,64-Y):VDU219AND Z,32AND NOT Z
90 NEXT:NEXT:ENDPROC