home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / creator.lbr / R451.LZB / R451.LIB
Encoding:
Text File  |  1993-10-26  |  1.5 KB  |  35 lines
  1. 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
  2. 11 PD$=CHR$(ASC(PD$) AND 95)
  3. 15 PRINT"What drive is the data file on (A-P):";:LINE INPUT DR$:IF DR$<"A" OR DR$>"P" THEN 15
  4. 17 DF$=DR$+":"+DF$
  5. 18 PRINT"OK, depress any key when the data file is on that drive:";
  6. 19 A$=INKEY$:IF A$="" THEN 19
  7. 20 PRINT:PRINT"Are you going to read an index file for a sorted report (Y/N)";:INPUT SR$
  8. 21 IF INSTR("YyNn",SR$)<1 THEN 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":PRINT"example, A:MYFILE.INX     ";:LINE INPUT SR$
  11. 29 '
  12. 35 IF PD$="S" OR PD$="B" THEN PRINT 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 R