553 GO TO NEXT 563 573 ; IF BLOCK ROUTINE 583 ; 593 ;... IF, CALL LABCHK ;CHECK FOR LABEL 603 ;... PROC ;PROCESS 'IF' COMMAND 613 ;... GOTO NEXT 623 IF, CALL LABCHK 633 DELIMS=D3 643 CALL GETFLD ;GET 'YES' OR 'NO' 653 YESNO1=TXT 663 DELIMS=D1 673 CALL GETFLD ;GET LABEL TO BRANCH TO 683 YNLBL=TXT 693 CALL CENTER 703 YESNO2= 713 DATA=IF1 723 CALL PUT 733 YESNO2='NO' 743 IF(YESNO1.EQ.'YES')GO TO IFX1 753 YESNO2='YES' 763 IFX1, CALL GETTXT 773 IFTXT1=TXT 783 DATA=IF2 793 CALL PUT 803 CALL GETTXT 813 IFTXT2=TXT 823 DATA=IF3 833 CALL PUT 843 CALL GETTXT 853 IFTXT3=TXT 863 DATA=IF4 873 CALL PUT 883 CALL GETTXT 893 IFTXT2=TXT 903 YESNO1= 913 DATA=IF3 923 CALL PUT 933 CALL GETTXT 943 IFTXT1=TXT 953 DATA=IF2 963 CALL PUT 973 DATA=IF1 983 CALL PUT 993 SRTLBL=YNLBL 1003 XMIT(3,SRTREC) 1013 GO TO NEXT 1023 1033 ; SUBROUTINE BLOCK ROUTINE 1043 ; 1053 ;... CALL, CALL LABCHK ;CHECK FOR LABEL 1063 ;... PROC ;PROCESS 'CALL' COMMAND 1073 ;... GOTO NEXT 1083 CALL, CALL LABCHK 1093 DATA=SUBR1 1103 CALL PUT 1113 DELIMS=D1 1123 CALL GETFLD ;GET SUBROUTINE NAME 1133 SUBNAM=TXT 1143 CALL CENTER 1153 DATA=SUBR2 1163 CALL PUT 1173 DATA=SUBR3 1183 CALL PUT 1193 CALL GETTXT 1203 SBTXT1=TXT 1213 DATA=SUBR4 1223 CALL PUT 1233 CALL GETTXT 1243 SBTXT2=TXT 1253 DATA=SUBR5 1263 CALL PUT 1273 CALL GETTXT 1283 SBTXT3=TXT 1293 DATA=SUBR6 1303 CALL PUT 1313 DATA=SUBR1 1323 CALL PUT 1333 SRTLBL=SUBNAM 1343 XMIT(3,SRTREC) 1353 GO TO NEXT 1363 1373 ; START BLOCK ROUTINE 1383 ; 1393 ;... STRT, PROC ;PROCESS 'START' COMMAND 1403 ;... ^I, START 3170 SS 1 COMMAND PROCESSING ROUTINES^F6;... SBTTL ;PASS 1 COMMAND PROCESSING ROUTINES^]@ ^RJ; PROCESS BLOCK ROUTINE^]T;^I^;... PROCES, CALL LABCHK ;CHECK FOR LABEL^L (;... PROC ;PROCESS 'PROC' COMMAND^V 2;... GOTO NEXT^T GO TO NEXT^]"H ^T"R; DISK BLOCK ROUTINE^]" ;^J#&;... DISK, CALL LABCHK ;CHECK FOR LABEL^L#0;... PROC ;PROCESS 'DISK' COMMAND^V#:;... GOTO NEXT^U#DDISK, CALL LABCHK^X#N CALL CENTER^X#X DATA=DISK1^Y$" CALL PUT^X$, CALL GETTXT^X$6 DKTXT1=TXT^X$@ DATA=DISK2^Y$J CALL PUT^X$T CALL GETTXT^X$^ DKTXT2=TXT^X%( DATA=DISK3^Y%2 CALL PUT^X%< CALL GETTXT^X%F DKTXT2=TXT^X%P DATA=DISK3^Y%Z CALL PUT^X&$ CALL GETTXT^X&. DKTXT2=TXT^X&8 DATA=DISK3^Y&B CALL PUT^X&L CALL GETTXT^X&V DKTXT1=TXT^X' DATA=DISK2^Y'* CALL PUT^X'4 DATA=DISK1^Y'> CALL PUTAN;^KAX;... IO, CALL LABCHK ;CHECK FOR LABEL^MB";... PROC ;PROCESS 'I/O' COMMAND^VB,;... GOTO NEXT^VB6IO, CALL LABCHK^XB@ CALL CENTER^YBJ DATA=IO1^YBT CALL PUT^XB^ CALL GETTXT^XC( IOTXT1=TXT^YC2 DATA=IO2^YC< CALL PUT^XCF CALL GETTXT^XCP IOTXT2=TXT^YCZ DATA=IO3^YD$ CALL PUT^XD. CALL GETTXT^XD8 IOTXT3=TXT^YDB DATA=IO4^YDL CALL PUT^XDV CALL GETTXT^XE IOTXT4=TXT^YE* DATA=IO5^YE4 CALL PUT^XE> CALL GETTXT^XEH IOTXT5=TXT^YER DATA=IO6^YE CALL PUT^YF& DATA=IO7^YF0 CALL PUT^XF: GO TO NEXT^]FD ^SFN; TITLE BLOCK ROUTINE^]FX;^MG";... TITLE, PROC ;SAVE NEW TITLE^VG,;... GOTO NEXT^XG6TITLE, TTL= 2593 TTL=CHR(BGN+1,LAST) 2603 GO TO NEXT 2613 2623 ; SUBTITLE BLOCK ROUTINE 2633 ; 2643 ;... SBTTL, PROC ;SAVE NEW SUBTITLE 2653 ;... CALL HOF ;START A NEW PAGE 2663 ;... GOTO NEXT 2673 SBTTL, SUB= 2683 SUB=CHR(BGN+1,LAST) 2693 COMAND= 2703 CALL HOF 2713 GO TO NEXT 2723 2733 ; PAGE BLOCK ROUTINE 2743 ; 2753 ;... PAGE, CALL HOF ;START A NEW PAGE 2763 ;... GOTO NEXT 2773 PAGE, CALL HOF 2783 GO TO NEXT