home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
DATABASE
/
CREATOR.LBR
/
R451.LZB
/
R451.LIB
Wrap
Text File
|
2000-06-30
|
2KB
|
35 lines
10 PRINT"Should this report be on the screen (S), printer (P), or both":PRINT"screen and printer (B)";:INPUT PD$:IF INSTR("SsPpBb",PD$)<1 THEN 10
11 PD$=CHR$(ASC(PD$) AND 95)
15 PRINT"What drive is the data file on (A-P):";:LINE INPUT DR$:IF DR$<"A" OR DR$>"P" THEN 15
17 DF$=DR$+":"+DF$
18 PRINT"OK, depress any key when the data file is on that drive:";
19 A$=INKEY$:IF A$="" THEN 19
20 PRINT:PRINT"Are you going to read an index file for a sorted report (Y/N)";:INPUT SR$
21 IF INSTR("YyNn",SR$)<1 THEN 20: ELSE SR$=CHR$(ASC(SR$) AND 95)
22 IF SR$="N" THEN 29
23 PRINT"Please give me the complete name of your index file. For":PRINT"example, A:MYFILE.INX ";:LINE INPUT SR$
29 '
35 IF PD$="S" OR PD$="B" THEN PRINT CLS$
36 IF SR$<>"N" THEN OPEN"I",2,SR$
45 DIM CF$(50),T#(50):GOSUB 40000:'DIMENSIONING THE MATRICES WE WILL USE
65 'FOLLOWING ARE THE COLUMN HEADINGS
19990 'PRINTING TOTALS SECTION
30000 'FIELDING THE FILE
30800 TT=0
30810 FIELD#1,(TT) AS DY$,(FF(IX)) AS F$(IX)
30820 TT=TT+FF(IX):NEXT:RETURN
30990 'BEGIN PRINTING THE COLUMN HEADINGS
31000 IF PD$<>"S" THEN LPRINT
31005 IF PD$<>"P" THEN PRINT
31010 READ T:OF%=0:IF MID$(M$,J,1)="M" THEN OF%=LEN(CF$(J))-LEN(H$(J))
31012 IF PD$<>"P" THEN PRINT TAB(T+OF%);H$(J);
31015 IF PD$<>"S" THEN LPRINT TAB(T+OF%);H$(J);
31020 NEXT:RESTORE
31030 IF PD$<>"P" THEN PRINT:PRINT
31040 IF PD$<>"S" THEN LPRINT:LPRINT
31050 RETURN
31060 'THESE ARE THE TAB SETTINGS
40000 'COLUMN PRINT FORMATS
40100 RETURN
40 IF PD$<>"S" THEN LPRINT:LPRINT
31050 R