PRINT TAB(-1,0);
PRINT TAB(1,20);TAB(-1,32);" BASIC ADDRESS LABEL PRINTING PROGRAM ";TAB(-1,33)
PRINT TAB(2,20); " BY G.B. SOFTWARE CONCEPTS"
XCALL NOECHO
NAME:
PRINT TAB(05,09); "1) ENTER NAME ";
XCALL INPUT,05,28,25,0,"AE",ENTRY,INXCTL,1
IF INXCTL = 2 THEN CHAIN "MISCMN"
NAME = ENTRY
ADDRESS:
PRINT TAB(06,09); "2) ENTER ADDRESS ";
XCALL INPUT,06,28,25,0,"AE",ENTRY,INXCTL,1
IF INXCTL = 2 THEN GOTO NAME
ADDRESS = ENTRY
CITY:
PRINT TAB(07,09); "3) ENTER CITY ";
XCALL INPUT,07,28,15,0,"AE",ENTRY,INXCTL,1
IF INXCTL = 2 THEN GOTO ADDRESS
CITY = ENTRY
XCALL STRIP,CITY
STATE:
PRINT TAB(08,09); "4) ENTER STATE ";
XCALL INPUT,08,28,2,0,"AE",ENTRY,INXCTL,1
IF INXCTL = 2 THEN GOTO CITY
STATE = ENTRY
ZIP:
PRINT TAB(09,09); "5) ENTER ZIP CODE ";
XCALL INPUT,09,28,05,0,"#E",ENTRY,INXCTL,1
IF INXCTL = 2 THEN GOTO STATE
ZIP = ENTRY
NUMLAB:
PRINT TAB(14,10);"HOW MANY LABELS DO YOU WISH TO PRINT"
PRINT TAB(15,10);" EVEN NUMBERS ONLY";
XCALL INPUT,15,47,04,0,"#E",ENTRY,INXCTL,1
IF INXCTL = 2 THEN CHAIN "MISCMN"
NUMLAB = ENTRY
IF NUMLAB = 0 THEN CHAIN "MISCMN.RUN"
FORMAT:
PRINT TAB(16,10);"WHICH FORMAT: <1> ROW OR <2> ";
XCALL INPUT,16,47,1,0,"#E",ENTRY,INXCTL,1
IF INXCTL = 2 THEN CHAIN "MISCMN"
FORMAT = ENTRY
IF FORMAT = 1 THEN GOTO ONEROW ELSE GOTO TWOROW
TWOROW:
OPEN #5,"LABELS.PRT",OUTPUT
LABNUM = NUMLAB/2
FOR X = 1 TO LABNUM
PLINE[6;26] = NAME : PLINE[40;26] = NAME : CALL PRINT
PLINE[6;26] = ADDRESS : PLINE[40;26] = ADDRESS : CALL PRINT
PLINE[6;26] = CITY+", "+STATE+" "+ZIP : PLINE[40;26] = CITY+", "+STATE+" "+ZIP : CALL PRINT
PLINE = SPACE
CALL PRINT
PLINE = SPACE
CALL PRINT
PLINE = SPACE
CALL PRINT
NEXT X
GOTO CLOSE
ONEROW:
OPEN #5,"LABELS.PRT",OUTPUT
FOR C=1 TO NUMLAB
PLINE[5;25] = NAME
CALL PRINT
PLINE[5;25] = ADDRESS
CALL PRINT
PLINE[5;26] = CITY + ", " + STATE + " " + ZIP
CALL PRINT
PLINE = SPACE
CALL PRINT
PLINE = SPACE
CALL PRINT
NEXT C
CLOSE:
CLOSE #5
PRINT CHR(7)
XCALL SPOOL,"LABELS.PRT"
CHAIN "MISCMN"
PRINT:
PRINT#5,PLINE
PLINE = ""
RETURN
