10 '-----------------------------------------------------------------
12 REM		SCHEDISK.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 1000		'Program driver


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


106 '		STRING PRINT ROUTINES
108 A=(80-LEN(A$))/2:PRINT TAB(A);A$:RETURN
110 A=(80-LEN(A$))/2:PRINT TAB(A);A$;:A$=INPUT$(1):RETURN
112 PRINT TAB(POS(0)-3);CHR$(11);:A$=INPUT$(1):RETURN
116 PRINT" _______"; TAB(POS(0)-8);CHR$(11);:LINE INPUT A$:RETURN
118 GOSUB 108:PRINT

	:PRINT TAB(25);"DO YOU WANT TO DO THIS ? (Y/N) ____";:GOSUB 112
120 PRINT:PRINT:RETURN


300 '		Input file name sub
302 PRINT"Type in FILENAME desired without the .SCH ==> ";
304 GOSUB 116:WO$=A$:IF WO$="" THEN PRINT CHR$(11);:GOTO 302	'Repeat
306 RETURN


800 '-------------------------------------------
802 REM		SEQUENTIAL FILES
804 '-------------------------------------------
806 '		Input file specifications
808 OPEN"I",1,WO$ + ".SCH"
810 INPUT #1, NJ: LJ=NJ-2
812 FOR J=1 TO NJ: INPUT #1, J$(J):INPUT #1,L(J)
814 INPUT #1,E(J):INPUT #1,S(J,1):INPUT #1,S(J,2):INPUT #1,C
816 FOR K=1 TO NJ:INPUT #1,P(J,K):NEXT K
818 NEXT J
820 CLOSE :RETURN


850 '		Save file specifications
852 OPEN "O",1, WO$ + ".SCH"
854 PRINT #1, NJ
856 FOR J=1 TO NJ:PRINT #1, J$(J):PRINT #1, L(J)
858 PRINT #1,E(J):PRINT #1,S(J,1):PRINT #1,S(J,2):PRINT #1,C
860 FOR K=1 TO NJ:PRINT #1,P(J,K):NEXT K
862 NEXT J
864 CLOSE 1: RETURN


1000 '--------------------------------------------------
1002 REM		PROGRAM DIRECTOR
1004 '--------------------------------------------------
1010 IF M=1 THEN GOSUB 2000

    :IF A$="N" THEN 1200 ELSE M=6:GOTO 1200		' get file
1060 GOSUB 5000

    :IF A$="N" THEN 1200 ELSE M=6:GOTO 1200		'save file
1200 ON ERROR GOTO 0
1210 CHAIN "SCHEMENU"


2000 '------------------------------------------
2002 REM	INPUT JOB DATA
2004 '------------------------------------------
2006 ON ERROR GOTO 0:PRINT CLS$

:PRINT"-----------------------------------------------------------------------"

    :FILES "*.SCH" : PRINT		'DISPLAY DIRECTORY
2008 PRINT"-----------------------------------------------------------------------"

    :A$="THESE ARE THE SCHEDULES ON DISK.":GOSUB 108:PRINT
2010 PRINT:A$="Do you want one of these schedules (Y/N).":GOSUB 110
2012 PRINT:PRINT:IF A$="N" THEN RETURN
2014 GOSUB 300			'Get file name
2020 ON ERROR GOTO 2050:GOSUB 800:A$="Y":RETURN
2022 RETURN


2050 CLOSE'		Error trap
2052 WO$="":A$="":PRINT:PRINT"*** FILE NOT FOUND, TRY AGAIN"
2054 LINE INPUT"PRESS <ENTER> TO CONTINUE";A$:RESUME 2000


5000 '------------------------------------------
5002 REM	SAVE FILE ON DISK
5004 '------------------------------------------
5006 PRINT CLS$:A$="------- SAVE FILE ON DISK -------":GOSUB 108
5008 PRINT TAB(35);WO$
5010 A$="-----------------------------------"

    :GOSUB 118:IF A$="N" THEN RETURN
5012 PRINT:A$="Do you want to change the FILENAME (Y/N)":GOSUB 110

	:PRINT:IF A$="N" THEN 5014 ELSE GOSUB 300
5014 GOSUB 850:A$="": RETURN


10000 END
o change the FILENAME (Y/N)":G