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