10 REM TOF (INSTRUCTIONS)
100 ? TAB(-1,0);
110 PRINT "BASIC SOURCE-FILE PRINT PROGRAM"
120 PRINT " (COURTESY TETON DATA SYSTEMS)"
130 PRINT "     (JACKSON, WYOMING)"
140 PRINT "         (1/20/78)"
150 ?:?:INPUT "WANT INSTRUCTIONS  (0=NO  1=YES)? ";A
160 IF A=0 GOTO VAR'MP
170 PRINT
180 ?"    This program will type your ALPHA-BASIC source file listings,"
190 ?"with options for listing module titles, page numbers, page titles,"
200 ?"module headings, page lengths and margins!!  You can print up to 20"
210 ?"source files unattended, (if you have enough paper!).  You can print"
220 ?"any page of a file, or any number of pages.  Needless to say, we have"
230 ?"found this to be a very useful program!  A list of module titles"
240 ?"makes a very nice front page index to your program."
250 ?
260 ?"   At the beginning of each page, (or module), of your program merely"
270 ?"insert a 'REM TOF', followed by a space and an optional module title,"
280 ?"enclosed in parenthesis.  The title will be printed, along with the"
290 ?"page heading, at the top of the page.  REMEMBER TO PUT A 'REM TOF' AS"
300 ?"THE FIRST LINE OF YOUR PROGRAM!!."
310 ?
320 ?"    Define your printer as 'PRNTR' in TRMDEF, and have the TRM driver"
330 ?"in system memory.  Load FILPRT.BAS and follow the prompts.  You might"
340 ?"compare a print-out of this program against the original source for"
350 INPUT "an idea of what it can do.    TYPE RETURN TO RUN....";A
1000 REM TOF (MAP VARIABLES)
1010 VAR'MP:
1020 MAP1 WORK'AREA
1040    MAP2 LIN'COUNT,B,1,0
1050    MAP2 PAGE'COUNT,B,1,1
1060    MAP2 PAGE'LENGTH,B,1
1070    MAP2 MARGIN,B,1
1080    MAP2 SOURCE'LIN,S,90
1082    MAP2 LIN'NO,S,5
1084    MAP2 LIN'CHAR,S,80
1090    MAP2 FILE'NAME(20),S,10
1100    MAP2 PAGE'HEADING(20),S,40
1110    MAP2 MODULE'TITLE,S,40
2000 REM TOF (INPUT OPTIONS)
2010 ?TAB(-1,0);
2020 INPUT "TODAY'S DATE (IE. 2/5/77): ";DAT$
2030 INPUT "HOW MANY LINES/PAGE (USUALLY 55-65)? ";PAGE'LENGTH
2040 INPUT "SET MARGIN WHERE (USUALLY 5-10)? ";MARGIN
2050 START:     ?"WANT LIST OF MODULE TITLES?"
2060            INPUT "        (0=NO 1=YES 2=EXIT)"; TTL'LST
2070            IF TTL'LST=1 FLAG=1: GOTO INPT'FIL
2080            IF TTL'LST=2 GOTO FINISH
2090            INPUT "WANT THE WHOLE FILE (0=NO 1=YES)? ";FLAG
2100            IF FLAG=0 THEN FLAG1=1
2110            IF FLAG=1 INPUT "WANT 'TOF' PAGING (0=NO 1=YES)? ";FLAG1
2120            IF FLAG=1 GOTO INPT'FIL
2130            INPUT "HOW MANY PAGES: "; NO'PAGES
2140 PAGE'NO:   INPUT "START WHICH PAGE: "; PAGE'COUNT
2150            IF FLAG2=1 GOTO PRNT
2160 INPT'FIL:  PRINT
2170            ?"TYPE IN THE FILE'NAMES, AND PAGE HEADINGS, YOU WANT PRINTED."
2180            ?"TYPE '*' TO END THE LIST.  YOU MUST ADD '.BAS' TO THE FILE-"
2190            ?"NAME, (YOU MAY SPECIFY OTHER PPN'S THIS WAY)!!":?
2200            FOR R=1 TO 20
2210 INPT1:     ?"FILE #";R;"- ";: INPUT FILE'NAME(R)
2220            IF FILE'NAME(R) <> "*" LOOKUP FILE'NAME(R), CHK
2225            IF CHK=0 ?FILE'NAME(R);" NOT FOUND!";CHR(7): GOTO INPT1
2230            ?TAB(79);TAB(-1,3);"|"
2240            ?TAB(24);TAB(-1,3);TAB(-1,3);
2250            INPUT "PAGE HEADING: |"; PAGE'HEADING(R)
2260            IF FILE'NAME(R)="*" AND TTL'LST=1 GOTO LBL'SRCH
2270            IF FILE'NAME(R)="*" GOTO PRNT
2280            IF FLAG=0 FILE'NAME(R+1)="*": GOTO PRNT
2290            NEXT R
2300            GOTO PRNT
3000 REM TOF (PRINT ROUTINE)
3010 PRNT:      FILE'LIM=R: PAGES=0: LIN'COUNT=0
3040            FOR LOOP=1 TO FILE'LIM
3050            OPEN #1, FILE'NAME(LOOP), INPUT
3055            OPEN #99, "TRM:PRNTR", OUTPUT
3060            IF FLAG1=0 CALL NEXT'PAGE
3070            IF FLAG=0 CALL ADV'PAGE
3080 CYCLE:     INPUT LINE #1, SOURCE'LIN
3090            IF EOF(1)=1 GOTO NEXT'FILE
3110            CALL FORMAT
3140            IF FLAG1=0 GOTO SKP'TOF
3150            IF LIN'CHAR[2;7] = "REM TOF" CALL CHK'TITLE
3200 SKP'TOF:   IF LIN'COUNT=PAGE'LENGTH CALL NEXT'PAGE
3210            ?#99, TAB(MARGIN) LIN'NO; LIN'CHAR
3220            LIN'COUNT=LIN'COUNT + 1
3230            GOTO CYCLE
5000 REM TOF (TITLE SHEET SUB)
5010 LBL'SRCH:  FIL'LIM=R
5020            FOR LOOP=1 TO FIL'LIM
5030            IF FILE'NAME(LOOP)="*" GOTO FINISH
5040            OPEN #99, "TRM:PRNTR", OUTPUT
5050            OPEN #1, FILE'NAME(LOOP), INPUT
5060            GOSUB NEXT'PAGE
5070            PAGE'COUNT=1
5080 LOOP:      INPUT LINE #1, SOURCE'LIN
5090            IF EOF(1)=1 CLOSE #1:CLOSE #99: PAGE'COUNT=1: NEXT LOOP
5100            CALL FORMAT
5110            IF LIN'CHAR[2;7] = "REM TOF" CALL TITLE
5120            GOTO LOOP
5130
5140 TITLE:     MODULE'TITLE=LIN'CHAR[10,-1]
5160            ?#99,TAB(10)"PAGE -";PAGE'COUNT;TAB(21)"LINE - ";LIN'NO;
5170            PRINT #99,TAB(35) MODULE'TITLE
5180            PAGE'COUNT=PAGE'COUNT+1
5190            RETURN
7000 REM TOF (UTILITY SUBROUTINES)
7010 NEXT'PAGE: IF FLAG=0 AND PAGES=NO'PAGES CLOSE #1:CLOSE #99: GOTO FINISH
7020            ?#99, CHR(12): CLOSE #99: OPEN #99,"TRM:PRNTR", OUTPUT
7030            FOR R=1 TO 5000: NEXT
7040            X=40-(INT(LEN(PAGE'HEADING(LOOP))/2))
7050            ?#99,TAB(MARGIN)FILE'NAME(LOOP);TAB(X);PAGE'HEADING(LOOP);
7060            IF TTL'LST=1 ?#99, TAB(72) DAT$: ?#99: RETURN
7070            ?#99,TAB(72)"PAGE "; PAGE'COUNT
7080            ?#99,TAB(MARGIN)MODULE'TITLE; TAB(72)DAT$: ?#99
7090            LIN'COUNT=0
7100            PAGES=PAGES+1: PAGE'COUNT=PAGE'COUNT + 1
7110            RETURN
7120
7130 ADV'PAGE:  FOR LOOP1=1 TO PAGE'COUNT
7140 LOOP1:     INPUT LINE #1, SOURCE'LIN
7150            CALL FORMAT
7160            IF LIN'CHAR[2;7] <> "REM TOF" GOTO LOOP1
7170            NEXT LOOP1
7180            CALL CHK'TITLE
7190            RETURN
7200
7210 NEXT'FILE: CLOSE #1: CLOSE #99
7220            PAGE'COUNT=1
7230            IF FILE'NAME(LOOP+1)="*" THEN GOTO FINISH
7240            NEXT LOOP
7250            GOTO FINISH
7260
7270 CHK'TITLE: MODULE'TITLE = LIN'CHAR[10,-1]
7280            CALL NEXT'PAGE
7290            ?#99,TAB(MARGIN) LIN'NO; " REM TOF"
7300            IF FLAG=0 AND PAGES=1 RETURN
7310            INPUT LINE #1, SOURCE'LIN
7320            CALL FORMAT
7330            RETURN
7340
7350 FORMAT:    CALL SPC
7360            LIN'NO=SOURCE'LIN[1,SPC-1]
7370            LIN'CHAR=SOURCE'LIN[SPC,-1]
7380            RETURN
7390
7400 SPC:       A=INSTR(1,SOURCE'LIN," ")
7410            B=INSTR(1,SOURCE'LIN,CHR(9))
7420            IF A=0 SPC=B: RETURN
7430            IF B=0 SPC=A: RETURN
7440            IF B>A SPC=A: RETURN
7450            IF A>B SPC=B: RETURN
7460
7470 FAIL'SRCH: ?CHR(7); FILE'NAME(R);" NOT FOUND!": GOTO INPT1
65000 REM TOF (FINISH SUB)
65010 FINISH:   PAGE'COUNT=1
65020           ?TAB(10)"0=NEW PRINT PARAMETERS"
65030           ?TAB(10)"1=JUST ANOTHER PAGE"
65040           ?TAB(10)"2=END PROGRAM"
65050           ?:INPUT "FUNCTION:";FLAG2
65060           ON FLAG2+1 GOTO START, PAGE'NO
65070           END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.