10REM          --SALES PRINT--
20 d$=CHR$(4): z$=CHR$(13)
30HOME:?:? TAB(10); "SALES PRINT"
40?:GOSUB 1000
50?:INPUT "TERRITORY # TO PRINT: "; b$
60?:GOSUB 1000
70?:? TAB(7); "!! PLEASE WAIT !!":? TAB(9); "LOCATING FILE"
80? d$; "open "; b$
90? d$; "read "; b$
100INPUT ""; a$
101INPUT ""; b$
102INPUT ""; month$
103INPUT ""; year
104INPUT ""; c
105INPUT ""; e
106INPUT ""; f
108INPUT ""; g
110INPUT ""; h
112INPUT ""; i
114INPUT ""; j
116INPUT ""; k
118INPUT ""; l
120INPUT ""; m
122INPUT ""; n
124INPUT ""; o
126INPUT ""; p
128INPUT ""; q
130INPUT ""; r
132INPUT ""; s
140? d$; "CLOSE "; b$
150HOME
152?:GOSUB 1000:? "ARE YOU READY TO PRINT?(Y OR N)"
154GET yes$:IF yes$="Y" OR yes$="y" THEN GOTO 158
156HOME:? d$; "RUN SALESMENU"
158PR #1
160?:? a$; SPC(10); "TERRITORY "; b$
165?:? "SALES REPORT FOR "; month$; ", "; year
170GOSUB 1100
200?:? "TRADE CLASS"; SPC(6); year-1; " YTD"; SPC(6); year; " YTD"; SPC(6); "$ DIFFERENCE"; SPC(6); "% OF "; year-1
210? TAB(6); "1"; 
220 x$=STR$(c):? SPC(19-LEN(x$)); c; 
230 y$=STR$(e):? SPC(14-LEN(y$)); e; 
240 v$=STR$(l):? SPC(18-LEN(v$)); l; 
250 w$=STR$(p):GOSUB 6000:? SPC(15-LEN(w$)); w$
260? TAB(6); "2"; 
270 x$=STR$(f):? SPC(19-LEN(x$)); f; 
280 y$=STR$(g):? SPC(14-LEN(y$)); g; 
290 v$=STR$(m):? SPC(18-LEN(v$)); m; 
300 w$=STR$(q):GOSUB 6000:? SPC(15-LEN(w$)); w$
310? TAB(6); "4"; 
320 x$=STR$(h):? SPC(19-LEN(x$)); h; 
330 y$=STR$(i):? SPC(14-LEN(y$)); i; 
340 v$=STR$(n):? SPC(18-LEN(v$)); n; 
350 w$=STR$(r):GOSUB 6000:? SPC(15-LEN(w$)); w$
360? TAB(5); "56"; 
370 x$=STR$(j):? SPC(19-LEN(x$)); j; 
380 y$=STR$(k):? SPC(14-LEN(y$)); k; 
390 v$=STR$(o):? SPC(18-LEN(v$)); o; 
400 w$=STR$(s):GOSUB 6000:? SPC(15-LEN(w$)); w$
410? TAB(18); "________"; SPC(6); "________"; SPC(12); "______"; SPC(10); "_____"
420 aa=c+f+h+j
430 bb=e+g+i+k
440 cc=l+m+n+o
450 t=bb/aa: dd=INT(t*100)/100
455? " TOTAL"; 
460 x$=STR$(aa):? SPC(19-LEN(x$)); aa; 
470 y$=STR$(bb):? SPC(14-LEN(y$)); bb; 
480 v$=STR$(cc):? SPC(18-LEN(v$)); cc; 
490 w$=STR$(dd):GOSUB 6000:? SPC(15-LEN(w$)); w$
500?:GOSUB 1100
505PR #0
510?:? "ANOTHER SALESMAN? (Y OR N)"
520GET yes$
530IF yes$="Y" OR yes$="y" THEN GOTO 10
540HOME:? d$; "RUN SALESMENU"
1000FOR x=1 TO 31:? CHR$(45); :NEXT x:RETURN
1100FOR x=1 TO 77:? CHR$(45); :NEXT x:? CHR$(45):RETURN
6000IF LEN(w$)>4 THEN LET w$=LEFT$(w$, 4)
6010IF LEN(w$)=2 THEN LET w$=w$+"0"
6020IF LEN(w$)=1 THEN LET w$=w$+".00"
6030RETURN
