10REM             --SALES REPORT--
15 d$=CHR$(4)
17 z$=CHR$(13)
20HOME
30HTAB 10:VTAB 2:? "SALES REPORT"
40HTAB 4:VTAB 4:INPUT "FOR MONTH OF: "; month$
49HTAB 4:VTAB 6:INPUT "FOR YEAR OF: "; year
50?:GOSUB 1000
60?:? "ENTER SALESMAN'S NAME:"
70INPUT a$
80?:? "ENTER TERRITORY #:":INPUT b$
90GOSUB 1000
100?:? "ENTER "; year-1; " YTD TRADE CLASS 1:"
110INPUT c
120?:? "ENTER "; year; " YTD TRADE CLASS 1:"
130INPUT e
140 l=e-c:?:? "$ DIFFERENCE=$"; l
150 t=e/c: p=INT(t*100)/100
160?:? "% OF "; year-1; "="; p
170? "PRESS ANY KEY TO CONTINUE"
180GET key$
190HOME:? a$, b$:GOSUB 1000
200?:? "ENTER "; year-1; " YTD TRADE CLASS 2:"
210INPUT f
220?:? "ENTER "; year; " YTD TRADE CLASS 2:"
230INPUT g
240 m=g-f:?:? "$ DIFFERENCE=$"; m
250 t=g/f: q=INT(t*100)/100
260?:? "% OF "; year-1; "="; q
270?:GOSUB 1000
280?:? "ENTER "; year-1; " YTD TRADE CLASS 4:"
290INPUT h
300?:? "ENTER "; year; " YTD TRADE CLASS 4:"
310INPUT i
320 n=i-h:?:? "$ DIFFERENCE=$"; n
330 t=i/h: r=INT(t*100)/100
340?:? "% OF "; year-1; "="; r
350?:GOSUB 1000
360?:? "ENTER "; year-1; " YTD TRADE CLASS 56:"
370INPUT j
380?:? "ENTER "; year; " YTD TRADE CLASS 56:"
390INPUT k
400 o=k-j:?:? "$ DIFFERENCE=$"; o
410 t=k/j: s=INT(t*100)/100
420?:? "% OF "; year-1; "="; s
430?:GOSUB 1000
440?:? "PRESS ANY KEY TO CONTINUE"
450GET key$
460HOME:?:? a$, b$
470?:GOSUB 1000
480?:? "ARE YOU FINISHED WITH"
490? "THIS SALESMAN? (Y OR N)"
500GET yes$
510IF yes$="Y" OR yes$="y" THEN GOTO 700
520?:? "IF YOU WANT TO REDO THIS"
530? "SALESMAN, PRESS 'R', IF YOU WANT"
540? "TO STOP, PRESS 'E'"
550GET yes$
555HOME
560IF yes$="R" OR yes$="r" THEN GOTO 90
570? d$; "RUN SALESMENU"
700HOME
710?:? a$, b$:?:GOSUB 1000
720?:? TAB(8); "!! PLEASE WAIT !!"
730?:? TAB(5); "FILE IS BEING UPDATED"
740? d$; "OPEN "; b$
750? d$; "WRITE "; b$
760? a$; z$; b$; z$; month$; z$; year; z$; c; z$; e; z$; 
770? f; z$; g; z$; h; z$; i; z$; j; z$; 
780? k; z$; l; z$; m; z$; n; z$; o; z$; 
790? p; z$; q; z$; r; z$; s; z$; 
800? d$; "CLOSE "; b$
810?:? "!! FINISHED !!"
820?:GOSUB 1000
830?:? "DO YOU WISH TO DO ANOTHER"
840? "SALESMAN (PRESS 'S') OR GO BACK"
850? "TO THE MENU (PRESS 'M')"
860GET yes$
865HOME
870IF yes$="S" OR yes$="s" THEN GOTO 10
880? d$; "RUN SALESMENU"
1000FOR x=1 TO 31
1010? CHR$(45); 
1020NEXT x
1030RETURN
