10REM       --SALES MENU--
1000 d$=CHR$(4): beep$=CHR$(7)+CHR$(7)
1100GOSUB 8600:REM          display menu
1200GET key$
1210NORMAL
1250 key%=ASC(key$)
1300IF key%=3 THEN END
1400IF key%<130 OR key%>134 THEN 2000
1450?:REM          end any print line
1500ON key%-129 GOTO 3000, 4000, 5000, 6000, 1700
1700HOME:? "END OF SALES MENU"
1720END
2000REM          error message
2100HTAB 1:VTAB 22:? "YOU PRESSED INVALID KEY"; beep$; 
2200GOTO 1200
4000? d$; "RUN SLSINPUT"
5000? d$; "RUN SLSDISPLAY"
6000? d$; "RUN SLSPRINT"
8600REM          display mail menu
8605TEXT
8610HTAB 7:VTAB 3:? "SALES REPORT MENU"
8620HTAB 3:VTAB 5:? "--- FUNCTION -----------"; 
8630HTAB 3:VTAB 7:? "KEY   DESCRIPTION"; 
8650HTAB 3:VTAB 9:? "III  INPUT ROUTINE"; 
8660HTAB 3:VTAB 11:? "IV   DISPLAY ROUTINE"; 
8670HTAB 3:VTAB 13:? "V    PRINT ROUTINE"; 
8680HTAB 3:VTAB 15:? "VI   END"; 
8700HTAB 1:VTAB 21:INVERSE:? "PRESS DESIRED FUNCTION KEY"; 
8790RETURN
