10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! PAGE.BAS !! !! PAGE.BAS V01-AA !! !! A 'TYPIST' SYSTEM PROGRAM !! !! SAVE COMPILED [1,2]<40> !! 20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! RSTS/11 VERSION BY !! !! DARRYL JOHNSON !! !! BENTLEY COLLEGE !! !! OCTOBER 1973 !! 30 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 100 &:&:& "PAGE V01-AA":&:& "What is the name of the FILE to": INPUT " Be printed ";F$:ON ERROR GOTO 150: OPEN F$ FOR INPUT AS FILE 1%:GOTO 210 150 IF ERR<>5 OR ERL<>100 THEN ON ERROR GOTO 0 ELSE RESUME 160 160 &:& "Your FILE - ";F$;" seems to be MISSING, i can't FIND it.": GOTO 9999 210 &:& "Do you want a selective one page print-out": & " for making ditto masters -";:GOSUB 4000:S%=Q%: IF S% THEN &:INPUT "skip how many pages -";L% 220 &:& "Does this terminal have sprocket feed paper -";: GOSUB 4000:F%=Q% 230 &:& "Do you wish to suppress the trailer line from printing ";: GOSUB 4000:N%=Q%:IF N% THEN &: & "Number of blank lines between the trailer": INPUT " and the bottom of the page ";B% 250 W%=65%:P%=66%:&:& "Is the standard 8+1/2 by 11 inch page format": & " applicable to your FILE - ";F$;" ";:GOSUB 4000: GOTO 1000 IF Q% 260 &:INPUT "Number of printing characters per line -";W%: IF W%<=0% THEN &:& W%;" printing characters ";: & "per line ?????":GOTO 260 270 &:INPUT "Total number of lines per page -";P%: IF P%<=0% THEN &:& P%;" lines per page ?????": GOTO 270 1000 & FOR I%=1% TO 5% IF NOT F%:B%=P%-B%:GOSUB 2400 IF F%: GOTO 1500 IF S%:GOSUB 2000 WHILE -1% 1500 Q%=F%:F%=-1%:GOSUB 2000 FOR I1%=1% TO L%:S%=0%:F%=Q%: GOSUB 2000:GOSUB 2500:GOTO 9999 2000 GOSUB 2500 IF NOT F%:ON ERROR GOTO 9000:FOR I%=1% TO P%: INPUT LINE #1%,L$:L$=MID(L$,1%,LEN(L$)-2%):GOSUB 3000: NEXT I%:RETURN 2400 &:& "Please align your paper so that the following dashes": & "appear at the top line of your form.":SLEEP(5%): &:FOR I1%=1% TO 20%:& "-";:SLEEP(1%):NEXT I1%:RETURN 2500 & "-"; FOR I1%=1% TO W%:&:RETURN 3000 RETURN IF S%:L$="" IF (N% AND B%=I%):& L$:RETURN 4000 INPUT Q$:Q%=ASCII(Q$) and 95%:GOTO 4010 IF Q%=89% OR Q%=78%: &:& "Please answer with 'Yes' or 'No'.";:GOTO 4000 4010 Q%=-1% IF Q%=89%:Q%=0% IF Q%=78%:RETURN 9000 IF ERR=11 THEN RESUME 9100 ELSE ON ERROR GOTO 0 9100 IF (I%>1% AND I%