REM MAILING SYSTEM
TPYFILE$="SORT.FIL"
FILE TPYFILE$
DIM FIRST$(40), LAST$(40), STREET$(40), CITY$(40)
DIM ZIP$(40), AREA$(40), TEL$(40)
ONE=1
CNT=ONE
PRINT CHR$(26)
PRINT "START OF UPDATE"
50 REM DATA ENTRY
INPUT "ENTER FIRST NAME:";FIRST$(CNT)
FIRST$(CNT)=FIRST$(CNT)+" "
INPUT "ENTER LAST NAME:";LAST$(CNT)
INPUT "ENTER STREET ADDRESS:";STREET$(CNT)
INPUT "ENTER CITY/STATE:";CITY$(CNT)
INPUT "ENTER POSTAL 'ZIP'";ZIP$(CNT)
INPUT "ENTER TEL.AREA CODE";AREA$(CNT)
INPUT "ENTER TELEPHONE NUMBER";TEL$(CNT)
PRINT
PRINT CNT
PRINT FIRST$(CNT);LAST$(CNT)
PRINT STREET$(CNT)
PRINT CITY$(CNT);", ";ZIP$(CNT)
PRINT "(";AREA$(CNT);") ";TEL$(CNT)
PRINT
IF FIRST$(CNT)="END " THEN 200
90 REM
INPUT "ACCEPT(Y) ELSE REJECT(N): "; ANS$
IF ANS$="Y" THEN 100
IF ANS$="N" THEN 50
PRINT "PLS ENTER CORRECT OPTION"
GOTO 90
100 REM BUMP UP COUNT
PRINT "RECORD ACCEPTED"
PRINT
CNT=CNT+1
GOTO 50
200 REM COUNT UP AND SORT
CNT=CNT-1
PRINT CNT;"ITEMS ENTERED"
OFF=0
SET=1
TWO=2
FILLER$=" "
PRINT "SORTING...",
500 REM SORT
LASTCNT=CNT-1
IF LASTCNT=0 THEN 900
CNT=1
FLAG=OFF
550 REM SORT ITERATION
L$=LAST$(CNT)+FILLER$
L$=LEFT$(L$,24)
F$=FIRST$(CNT)+FILLER$
F$=LEFT$(F$,24)
NAME1$=L$+F$
L$=LAST$(CNT+1)+FILLER$
L$=LEFT$(L$,24)
F$=FIRST$(CNT+1)+FILLER$
F$=LEFT$(F$,24)
NAME2$=L$+F$
IF NAME1$ <= NAME2$ THEN 600
GOSUB 700
