home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / ftyper.zip / PRTHELP.BAS < prev   
BASIC Source File  |  1987-08-01  |  1KB  |  37 lines
  1. 100 ' UTILITY PROGRAM TO PRINT ALL OF PC-FASTYPE's HELP SCREENS
  2. 110 DEFINT A-Z
  3. 120 DIM FL$(6)
  4. 130 FL$(0)="hm1"
  5. 140 FL$(1)="hm2"
  6. 150 FL$(2)="hm3"
  7. 160 FL$(3)="hm4"
  8. 170 FL$(4)="hm5"
  9. 180 FL$(5)="hml"
  10. 190 FL$(6)="hmn"
  11. 200 '
  12. 210 '** do six files
  13. 220 PRINT: PRINT "PC-FASTYPE 'HELP' files are now being printed..."
  14. 230 FOR I = 0 TO 6
  15. 240     FILENAM$ = FL$(I) + ".HLP"
  16. 250     OPEN "i", #1, FILENAM$
  17. 260     '** 2 pages per file
  18. 270     FOR J=1 TO 2
  19. 280         LPRINT CHR$(12)  'form feed
  20. 290         LPRINT FILENAM$;
  21. 300         ' ** 2 screens per page
  22. 310         FOR K = 1 TO 2
  23. 320             LPRINT CHR$(10); CHR$(10); CHR$(10)  CHR$(10)   ' line feed
  24. 330             ' ** 24 screen lines per page
  25. 340             FOR L=1 TO 24
  26. 350                 IF EOF(1) THEN GOTO 410
  27. 360                 LINE INPUT #1,LYNE$
  28. 370                 LPRINT LYNE$
  29. 380             NEXT L    'next line
  30. 390         NEXT K        'next screen page
  31. 400     NEXT J            'next printer page
  32. 410     CLOSE #1
  33. 420 NEXT I                'next help file
  34. 430 LPRINT CHR$(12)  ' form feed
  35. 440 PRINT ".............FINISHED.................."
  36. 450 END
  37.