10 '-----------------------------------------------------------------
12 REM		SCHEMENU.BAS	18 June 83 thru 10 Jul 83
14 REM				derived from
15 REM		SCHEDULE.BAS	15 Aug thru 10 Sep 82
16 REM
18 REM		Author: Hurle F. Priser
20 '-----------------------------------------------------------------
22 %INCLUDE SCHEDCOM
98 GOTO 8000		'DISPLAY MENU


100 '--------------------------------------------
102 REM		BEGIN SUBROUTINES
104 '--------------------------------------------


220 '		Use Arrows for Menu
222 '	ENTER:	J=ROW	K=NUMBER OF LELECTIONS
224 '	EXIT:	M=SELECTION NUMBER	A=13


226 Y=M+J:X=1:PRINT FNAT$(Y,X);
228 A$=INPUT$(1):A=ASC(A$)
230 IF A=13 THEN RETURN
232 IF A=10 THEN M=M+1:IF M>K THEN M=K
234 IF A=11 THEN M=M-1:IF M<1 THEN M=1
236 GOTO 226


1000 '--------------------------------------------------
1002 REM		PROGRAM DIRECTOR
1004 '--------------------------------------------------
1010 CHAIN "SCHEDISK"		'Get new file
1030 CHAIN "SCHEDIT"		'Change job name or length
1040 P$="S":CHAIN "SCHEPRED"	'select all predcessors
1050 CHAIN "SCHECALC"		'do all calculations
1060 CHAIN "SCHEDISK"		'save file on disk
1070 CHAIN "SCHEPRNT"		'print routines
1090 CHAIN "SCHEDIT"		'change job name or length
1100 P$="C":CHAIN "SCHEPRED"	'change one predecessor at a time
1110 CHAIN "SCHEDIT"		'add a job
1120 CHAIN "SCHEDIT"		'delete a job
1200 GOTO 8000


7000 '------------------------------------------
7002 REM		END
7004 '------------------------------------------
7006 LPRINT CHR$(27);"N":WIDTH 80	' 10 PITCH : 80 CHARS
7007 LPRINT CHR$(27);"r";CHR$(10);CHR$(10);CHR$(27);"f"	'step paper back one
7008 CLOSE:PRINT CLS$:PRINT CHR$(30):PRINT FNAT$(10,25);" AUTHOR: HURLE PRISER"
7010 PRINT FNAT$(11,20);"** TRAINING  SYSTEMS  CENTER **"
7012 PRINT FNAT$(12,25);"    LAFB, AZ 85309":PRINT FNAT$(20,45)"":END



8000 '------------------------------------------
8002 REM	MASTER MENU
8004 '------------------------------------------
8006 PRINT CLS$:PRINT FNAT$(3,10);"**********  MENU  **********"
8008 J=6:K=11		'J=CURSOR POSITION : K=# OF MENU ENTRIES
8010 PRINT FNAT$(5,0);"OPTION:";TAB(19);"OPERATION":PRINT
8100 PRINT" 1.    GET .............AN EXISTING SCHEDULE FROM DISK."
8104 PRINT" 2.    CREATE ..........A NEW SCHEDULE."
8108 PRINT" 3.    SCHEDULE ........ALL PRECEEDING JOBS."
8112 PRINT" 4.    CALCULATE .......STARTS, ENDS, & CRITICAL PATH."
8116 PRINT" 5.    SAVE ............THE SCHEDULE ON DISK."
8120 PRINT" 6.    PRINT ...........THE SCHEDULE."
8124 PRINT" 7.    CHANGE ..........JOB NAME or LENGTH."
8128 PRINT" 8.    REDO ............ONE OR MORE PRECEEDING JOBS."
8132 PRINT" 9.    ADD .............A JOB."
8136 PRINT" 10.   DELETE ..........A JOB."
8140 PRINT" 11.   QUIT ............WHEN DONE."
8200 PRINT"-----------------------------------------------------"
8202 A=0:PRINT:PRINT TAB(14);"BEST CHOICE FLASHING"
8204 PRINT TAB(10);"USE ARROWS TO CHANGE CHOICE"
8206 PRINT TAB(14);"Press <RETURN> to go."
8208 GOSUB 220		'Use arrows to position cursor on menu
8210 ON M GOTO 1010,1030,1040,1050,1060,1070,1090,1100,1110,1120,7000
8212 GOTO 8004


10000 END
o position cursor on menu
8210 ON M GOTO 1010,103