10REM         --SALES DISPLAY--
20 d$=CHR$(4): z$=CHR$(13)
30HOME:?:? TAB(9); "SALES DISPLAY"
40?:GOSUB 1000
50?:INPUT "TERRITORY # TO DISPLAY: "; 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
160?:? a$; "   "; b$
165?:? "REPORT FOR "; month$; ", "; year
170?:GOSUB 1000
200?:? TAB(2); "TC"; TAB(7); year-1; TAB(15); year; TAB(21); "$DIFF"; TAB(27); "%"; year-1
210? TAB(2); "1"; 
220 x$=STR$(c):GOSUB 3000:? c; 
230 y$=STR$(e):GOSUB 4000:? e; 
240 v$=STR$(l):GOSUB 5000:? l; 
250 w$=STR$(p):GOSUB 6000:? w$
260? TAB(2); "2"; 
270 x$=STR$(f):GOSUB 3000:? f; 
280 y$=STR$(g):GOSUB 4000:? g; 
290 v$=STR$(m):GOSUB 5000:? m; 
300 w$=STR$(q):GOSUB 6000:? w$
310? TAB(2); "4"; 
320 x$=STR$(h):GOSUB 3000:? h; 
330 y$=STR$(i):GOSUB 4000:? i; 
340 v$=STR$(n):GOSUB 5000:? n; 
350 w$=STR$(r):GOSUB 6000:? w$
360? TAB(1); "56"; 
370 x$=STR$(j):GOSUB 3000:? j; 
380 y$=STR$(k):GOSUB 4000:? k; 
390 v$=STR$(o):GOSUB 5000:? o; 
400 w$=STR$(s):GOSUB 6000:? w$
410? TAB(5); "_______"; TAB(13); "_______"; TAB(21); "_____"; TAB(27); "____"
415?
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
460 x$=STR$(aa):GOSUB 3000:? aa; 
470 y$=STR$(bb):GOSUB 4000:? bb; 
480 v$=STR$(cc):GOSUB 5000:? cc; 
490 w$=STR$(dd):GOSUB 6000:? w$
500?:GOSUB 1000
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
3000HTAB 11-LEN(x$)
3010RETURN
4000HTAB 19-LEN(y$)
4010RETURN
5000HTAB 26-LEN(v$)
5010RETURN
6000IF LEN(w$)>4 THEN LET w$=LEFT$(w$, 4)
6020IF LEN(w$)=2 THEN LET w$=w$+"0"
6030IF LEN(w$)=1 THEN LET w$=w$+".00"
6040HTAB 31-LEN(w$)
6050RETURN
