10
650 :
660 DEFPROCLine:VDU148:PRINTSTRING$(39,",");CHR$8:ENDPROC
670 DEFPROCtitle(A$):CLS:VDU132,157,135,141:PRINTSPC(17-LEN A$/2);A$:VDU132,157,135,141:PRINTSPC(17-LEN A$/2);A$:PROCLine:ENDPROC
680 DEFFNget(x%,y%):LOCALp%,v%,A$:p%=POS:v%=VPOS:REPEATPRINTTAB(x%,y%);MID$(FNtime,17);TAB(p%,v%);:A$=INKEY$(100):UNTILA$<>"":=A$
700 :