home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 16c / sounds.zip / DISKPGM1.BAS < prev    next >
BASIC Source File  |  1982-07-18  |  3KB  |  73 lines
  1. 5 ' *DISKPGM1.BAS     PROGRAM TO PRINT WHAT IS ON THE DISK AND GIVE IT A TITLE
  2. 10 CLS
  3. 20 PRINT "(C) Copyright, Richard Schinnell,Rockville, MD. 20853 (301) 949-8848
  4. 30 PRINT "THIS PROGRAM WILL CHECK AN ASCII FILE ON DISK FOR LINES/BYTES AND
  5. 40 PRINT"(PROGRAM REQUIRES BASICA) AND THE TIME IT WILL TAKE TO DOWNLOAD IT.
  6. 50 PRINT"PLACE YOUR PRINTER ON LINE AND PUT IT TO THE TOP OF A PAGE PLEASE.
  7. 60 PRINT:LOCATE 10,1,1:COLOR 28,0:
  8. 70 LOCATE 10,1,1:COLOR 28,0:PRINT" WHAT NAME DO YOU WANT TO PRINT ON THE PRINTER AS THE"
  9. 80 PRINT" NAME OF THE DISK ? ":LOCATE 15,15:COLOR 7,0:INPUT X$:IF LEN(X$)>50 THEN PRINT" LENGTH IS GREATER THAN 50 PLEASE RE INPUT DISK NAME >>>>> ":GOTO 70
  10. 90 TITLE$=X$
  11. 100 COLOR 28,0:PRINT" WHICH DISK DRIVE DO YOU WANT TO CHECK> A OR B :":COLOR 7,0
  12. 110 RICH$=INKEY$:IF LEN(RICH$)<>1 THEN 110
  13. 120 IF LEFT$(RICH$,1)="A" OR LEFT$(RICH$,1) ="B" THEN DRIV$=LEFT$(RICH$,1)+":" ELSE 100
  14. 130 ON ERROR GOTO 660
  15. 140 LPRINT"  FILE SORTING AND PRINTING PROGRAM BY RICH SCHINNELL":LPRINT
  16. 150 FALSE=0:TRUE=NOT FALSE:DEFINT A-Z:L=0:CLS:CODE=43:DIM F$(75)
  17. 160 FILES DRIV$+"*.*"
  18. 170 CLINE1 = CSRLIN
  19. 180 D=0
  20. 190 LOCATE 1,1,1
  21. 200 FOR I = 1 TO CLINE1
  22. 210 FOR B = 1 TO 66 STEP 13
  23. 220 D=D+1
  24. 230 FOR N = 0 TO 11
  25. 240 T = SCREEN(I,(B+N)):F$(D)=F$(D)+CHR$(T)
  26. 250 NEXT N
  27. 260 IF LEFT$(F$(D),1)=" " THEN D=D-1 :GOTO 300
  28. 270 F$(D)= DRIV$+F$(D)
  29. 280 NEXT B
  30. 290 NEXT I
  31. 300 LOCATE 15,1:COLOR 26,0:PRINT "ALPHABETIZING THE FILE NAMES ":COLOR 7,0
  32. 310 ' THIS ALPHABETIZES THE ARRAY
  33. 320 FOR X=1 TO D-1:FOR Y=X+1 TO D:IF F$(Y)<F$(X) THEN SWAP F$(X),F$(Y)
  34. 330 NEXT Y:NEXT X
  35. 340 CLS:LOCATE 12,25:COLOR 28,0:PRINT " WORKING FILES ":COLOR 7,0:LPRINT "This program prints the files on disk and then"
  36. 350 LPRINT"prints the lines/bytes/minutes/seconds to transfer"
  37. 360 LPRINT"the files at 300 baud. The words PROBABLY NOT IN "
  38. 370 LPRINT"ASCII  is an indication of control characters in your file.
  39. 380 LPRINT:LPRINT" (C) COPYRIGHT,1982, RICHARD SCHINNELL,ROCKVILLE,MD"
  40. 390 LPRINT
  41. 400 LPRINT" TITLE>>> ";TITLE$
  42. 410 LPRINT
  43. 420 LPRINT" AS OF ";TIME$;" ON ";DATE$
  44. 430 LPRINT       " FILESPEC           LINES   BYTES  MIN SEC "
  45. 440 LPRINT       "------------------   ----   -----   -- --   COMMENTS!!!!!"
  46. 450 FOR P = 1 TO D
  47. 460 CNT=0:L#=0:M=0:S=0:COMENT$=""
  48. 470 OPEN F$(P) FOR INPUT AS #1
  49. 475 CLS:LOCATE 12,25:COLOR 28,0:PRINT " WORKING FILE ";F$(P):COLOR 7,0
  50. 480 IF EOF(1) THEN 500
  51. 490 LINE INPUT #1,A$:L#=L#+LEN(A$):CNT=CNT+1:GOTO 480
  52. 500 CLOSE:OPEN F$(P) FOR INPUT AS #1
  53. 510 IF EOF(1) THEN 530
  54. 520 LINE INPUT #1,A$:A$=LEFT$(A$,80)
  55. 530 CLOSE
  56. 540 FOR I=1 TO LEN(A$):IF ASC(MID$(A$,I,1))<17 OR ASC(MID$(A$,I,1))>126 THEN F$(P)="**"+MID$(F$(P),3,12):NEXT I
  57. 550 IF LEFT$(F$(P),2)= "**" THEN CNT=0:L#=0:M=0:S=0:COMENT$="PROBABLY NOT IN ASCII":F$(P) = DRIV$+MID$(F$(P),3,12):GOTO 580
  58. 560 T=INT(L#/22.5):M=INT(T/60):S=T-M*60
  59. 570 IF S<1 THEN S=1
  60. 580 F$(P) = "  "+MID$(F$(P),3,12)
  61. 590 LPRINT USING "\             \     ####    #####  ##  ##  \                   \";F$(P);CNT;L#;M;S;COMENT$
  62. 595 TOT#=TOT#+L#
  63. 600 NEXT P
  64. 610 LPRINT:LPRINT
  65. 620 LPRINT P-1;" FILES DISK TITLE>> ";TITLE$:LPRINT " TOTAL OF ";TOT#;" ASCII BYTES "
  66. 630 LPRINT:LPRINT
  67. 640 CLS:PRINT "YOU ARE BACK IN BASIC NOW "
  68. 650 END
  69. 660 PRINT "ERROR ";ERR;" HAS OCCURED IN LINE # ";ERL
  70. 670 IF ERR>23 AND ERR<27 THEN PRINT " PLACE YOUR PRINTER ON LINE PLEASE:
  71. 680 END
  72. "ERROR ";ERR;" HAS OCCURED IN LINE # ";ERL
  73. 670 IF ERR>23 AND ERR<27 THEN PRINT " PLACE YOUR PRIN