;;;;;;;;;(DEFUN MYERROR (S)
;;;;;;;;;;; PRINC (STRCAT "\nERROR : " S))
;;;;;;;;;;    (SETVAR "OSMODE" OS )
;;;;;;;;;;       (CLOSE FA)
 ;;;;;;;;  (SETQ *ERROR* ERR)
;;;;;;;;;;   (PRINC)
;;;;;;;;;;;;;;;)
(DEFUN C:TPF()
  ;;;;;;(SETQ ERR *ERROR* *ERROR* MYERROR)
     (SETQ OS (GETVAR "OSMODE" ))
       (SETVAR "OSMODE" 0 )
     (SETQ FI (GETSTRING "\nENTER FILE NAME : ")
           STA (STRCAT FI ".GSI")
           STA (STRCAT "C:/" STA)
           FA (OPEN STA "a" )
           SS 1
     )
(SETQ NUM(GETSTRING "\nAPPEND NAME FOR POINT  OR {C} = CANCEL :"))
    (SETQ IND (GETINT "\nENTER START NUMBER :"))
   (WHILE ( /= SS 0 )
          (SETQ SS(GETPOINT "\nSELECTION POINT :")
                INDA (ITOA IND)
                X(RTOS (CAR SS) 2 3)
                Y(RTOS (CADR SS) 2 3)
                XL(RTOS ( * (CAR SS) 1000) 2 0)
                YL(RTOS ( * (CADR SS) 1000) 2 0)
                STC (STRCAT NUM INDA)
                STL ( STRLEN STC))
 (IF ( = STL 2)(SETQ STCC(STRCAT "11...0+000000" STC )))
 (IF ( = STL 3)(SETQ STCC(STRCAT "11...0+00000" STC )))
 (IF ( = STL 4)(SETQ STCC(STRCAT "11...0+0000" STC )))
 (IF ( = STL 5)(SETQ STCC(STRCAT "11...0+000" STC )))
 (IF ( = STL 6)(SETQ STCC(STRCAT "11...0+00" STC )))
 (IF ( = STL 7)(SETQ STCC(STRCAT "11...0+0" STC )))
 (IF ( = STL 8)(SETQ STCC(STRCAT "11...0+" STC )))
               (SETQ STX ( STRLEN XL))
 (IF ( = STX 2)(SETQ STXC(STRCAT STCC " 81...0+000000" XL )))
 (IF ( = STX 3)(SETQ STXC(STRCAT STCC " 81...0+00000" XL )))
 (IF ( = STX 4)(SETQ STXC(STRCAT STCC " 81...0+0000" XL )))
 (IF ( = STX 5)(SETQ STXC(STRCAT STCC " 81...0+000" XL )))
 (IF ( = STX 6)(SETQ STXC(STRCAT STCC " 81...0+00" XL )))
 (IF ( = STX 7)(SETQ STXC(STRCAT STCC " 81...0+0" XL )))
 (IF ( = STX 8)(SETQ STXC(STRCAT STCC " 81...0+" XL )))
                (SETQ STY ( STRLEN YL))
 (IF ( = STY 2)(SETQ STYC(STRCAT STXC " 82...0+000000" YL " 83...0+00000000")))
 (IF ( = STY 3)(SETQ STYC(STRCAT STXC " 82...0+00000" YL " 83...0+00000000")))
 (IF ( = STY 4)(SETQ STYC(STRCAT STXC " 82...0+0000" YL " 83...0+00000000")))
 (IF ( = STY 5)(SETQ STYC(STRCAT STXC " 82...0+000" YL " 83...0+00000000")))
 (IF ( = STY 6)(SETQ STYC(STRCAT STXC " 82...0+00" YL " 83...0+00000000")))
 (IF ( = STY 7)(SETQ STYC(STRCAT STXC " 82...0+0" YL " 83...0+00000000")))
 (IF ( = STY 8)(SETQ STYC(STRCAT STXC " 82...0+" YL " 83...0+00000000")))
              ( WRITE-LINE STYC FA )
              (SETQ IND ( + IND 1))
)
 ( CLOSE FA )
       (SETVAR "OSMODE" OS )
      ;;;;;;;;;; (SETQ *ERROR* ERR)
)