Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50110/signup.uti
There are 2 other files named signup.uti in the archive. Click here to see a list.
100'  NAME--SIGNUP
110'
120'  DESCRIPTION--PRINTS A TELETYPE SIGNUP LIST WITH VARYING TIME
130'  INCREMENTS.
140'
150'  SOURCE--RONALD FAGIN '67.
160'
170'  INSTRUCTIONS--DATA STARTS IN LINE 1000 IN GROUPS OF 3 NUMBERS,
180'  THE FIRST IS THE INITIAL TIME IN THE PERIOD, THE
190'  SECOND IS THE FINAL TIME (IN BOTH CASES ADD 1200 IF TIME IS
200'  AFTER 12:59 A.M.), AND THE THIRD NUMBER IS THE TIME INCREMENT
210'  IN MINUTES. THUS FOR 9:00 TO 12:00 WITH INCREMENTS OF 30
220'  MINUTES FOLLOWED BY 1:00 TO 5:30 WITH INCREMENTS OF 90 
230'  MINUTES THE DATA SHOULD READ:
240'      1000 DATA 900,1200,30,1300,1730,90
250'  TYPE:
260'        380 PRINT"OCTOBER 15"
270'  IF THE WEEK BEGINS ON OCTOBER 15.
280'  GIVE AS PRINT STATEMENTS IN LINES 720-750 ANY MESSAGES YOU
290'  WISH PRINTED OUT SUCH AS A LIMIT ON THE NUMBER OF PERIODS
300'  SOMEONE MAY SIGN UP FOR.
310'
320'
330'  *  *  *  *  *  *  *  MAIN PROGRAM   *  *  *  *  *  *  *  *
340'
350 GOSUB 780
360 GOSUB 780
370 PRINT "TELETYPE SIGNUP LIST FOR THE WEEK BEGINNING ";
380 PRINT "OCTOBER 15"
390 GOSUB 780
400 PRINT TAB(11);"SUNDAY   MONDAY  TUESDAY WEDNESDAY THURSDAY  ";
410 PRINT "FRIDAY SATURDAY"
420 READ A
430 READ B,C
440 LET Q=0
450 IF A>1259 THEN 500
460 IF A>999 THEN 480
470 PRINT " ";
480 PRINT A;
490 GOTO 530
500 IF A>2199 THEN 520
510 PRINT " ";
520 PRINT A-1200;
530 PRINT TAB(9);
540 FOR I=1 TO 6
550 PRINT ":--------";
560 NEXT I
570 PRINT ":-------:"
580 IF A<B THEN 620
590 READ A
600 LET Q=1
610 IF A=-1 THEN 710
620 PRINT TAB(9);
630 FOR I=1 TO 6
640 PRINT ":        ";
650 NEXT I
660 PRINT ":       :"
670 IF Q=1 THEN 430
680 LET K=A-100*INT(A/100)
690 LET A=A+C+40*INT((C+K)/60)
700 GOTO 450
710 GOSUB 780
720 
730 
740 
750 
760 GOSUB 780
770 STOP
780 FOR I=1 TO 5
790 PRINT
800 NEXT I
810 RETURN
1000 DATA 900,1200,30,1300,1730,90
2000 REM  DATA IN LINE 3000 IS PART OF THE PROGRAM.
3000 DATA -1
4000 END