1140 PRINT //Dl," COULDN'T FIND JOB." \END 1150 OPEN #D3,S$+"JCL,"+U$ 1160 READ #D3,N,N0,Nl \REM-# CMD ENTRIES, CURRENT CMD, PTR TO 1ST ENTRY 1170 READ #D3,P$ \REM PASS OVER FIRST STRING 1180 READ #D3,D$,T$ \REM READ IN DATE AND TIME 1190 READ #D3,P5,P6,P7 \REM LINES /PAGE, TOP MARGIN, BOTTOM MARGIN 1200 READ #D3,L(1),L(2),L(3) \REM MAX LENGTH FOR TITLE, AUTHOR, DATE
serial: 11155501234
30303 $enjoy
1150 OPEN #D3,S$+"JCL,"+U$
1160 READ #D3,N,N0,Nl \REM-# CMD ENTRIES, CURRENT CMD, PTR TO 1ST ENTRY
1170 READ #D3,P$ \REM PASS OVER FIRST STRING
1180 READ #D3,D$,T$ \REM READ IN DATE AND TIME
1190 READ #D3,P5,P6,P7 \REM LINES /PAGE, TOP MARGIN, BOTTOM MARGIN
1200 READ #D3,L(1),L(2),L(3) \REM MAX LENGTH FOR TITLE, AUTHOR, DATE
25555 $enjoy