home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / creator.zip / CREATOR.LBR / r451.lib < prev    next >
Text File  |  2011-02-05  |  2KB  |  35 lines
  1. 10 PRINT"Should this report be on the screen (S), printer (P), or both (B) screen and":PRINT"printer: ";:INPUT PD$:IF INSTR("SsPpBb",PD$)<1 THEN 10
  2. 11 PD$=CHR$(ASC(PD$) AND 95)
  3. 15 PRINT"What drive is the data file on (A - D): ";:LINE INPUT DR$:IF DR$<"A" OR DR$>"D" THEN BEEP:GOTO 15
  4. 17 DF$=DR$+":"+DF$
  5. 18 PRINT"OK, Depress any key when the data file is on that drive: ";
  6. 19 A$=INPUT$(1)
  7. 20 PRINT:PRINT"Are you going to read an index file for a sorted report (Y/N)";:INPUT SR$
  8. 21 IF INSTR("YNyn",SR$)<1 THEN BEEP:GOTO 20:ELSE SR$=CHR$(ASC(SR$) AND 95)
  9. 22 IF SR$="N" THEN 29
  10. 23 PRINT"Please give me the complete name of your index file. For example, A:MYFILE.INX":LINE INPUT SR$
  11. 29 '
  12. 35 IF PD$="S" OR PD$="B" THEN CLS
  13. 36 IF SR$<>"N" THEN OPEN"I",2,SR$
  14. 45 DIM CF$(50),T#(50):GOSUB 40000:'DIMENSIONING THE MATRICES WE WILL USE
  15. 65 'FOLLOWING ARE THE COLUMN HEADINGS
  16. 19990 'PRINTING TOTALS SECTION
  17. 30000 'FIELDING THE FILE
  18. 30800 TT=0
  19. 30810 FIELD #1, (TT) AS DY$, (FF(IX)) AS F$(IX)
  20. 30820 TT=TT+FF(IX):NEXT:RETURN
  21. 30990 'BEGIN PRINTING THE COLUMN HEADINGS
  22. 31000 IF PD$<>"S" THEN LPRINT
  23. 31005 IF PD$<>"P" THEN PRINT
  24. 31010 READ T:OF%=0:IF MID$(M$,J,1)="M" THEN OF%=LEN(CF$(J))-LEN(H$(J))
  25. 31012 IF PD$<>"P" THEN PRINT TAB(T+OF%);H$(J);
  26. 31015 IF PD$<>"S" THEN LPRINT TAB(T+OF%);H$(J);
  27. 31020 NEXT:RESTORE
  28. 31030 IF PD$<>"P" THEN PRINT:PRINT
  29. 31040 IF PD$<>"S" THEN LPRINT:LPRINT
  30. 31050 RETURN
  31. 31060 'THESE ARE THE TAB SETTINGS
  32. 40000 'COLUMN PRINT FORMATS
  33. 40100 RETURN
  34. 40 IF PD$<>"S" THEN LPRINT:LPRINT
  35. 31050 RETURN