CLS
KEY OFF
LOCATE 2, 30: PRINT "TEL BOOk"
LOCATE 3, 1: PRINT ">>name = ";chr$(34);"done";chr$(34);" to exit<<";STRING$(55, "_")
LOCATE 9, 1: PRINT TAB(3); "NAME"; TAB(20); "TEL"; TAB(40); "ADDRESS"
LOCATE 10: PRINT STRING$(80, "-")
LOCATE 25, 1: PRINT STRING$(80, "_")
i = 9
DO
VIEW PRINT 4 TO 7
  PRINT "Name:"; CHR$(13); "Tel:"; CHR$(13); "Address:"
  LOCATE 4, 1
  LINE INPUT "Name:"; name$:IF name$="done" THEN EXIT DO
  LINE INPUT "Tel:"; tel$
  LINE INPUT "Address:"; address$
  CLS 2
VIEW PRINT 10 TO 24
  i = i + 1: IF i > 24 THEN i = 24
  LOCATE i, 1
  PRINT TAB(1); "] "; name$; TAB(20); tel$; TAB(40); address$
LOOP
END