home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk056 / prthelp.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-01-21  |  992 b   |  36 lines
  1. 10  ' Utility program for FAS-TYPE to print all HELP screens
  2. 20  DEFINT A-Z
  3. 30  DIM FL$(6)
  4. 40  FL$(0)="hm1"
  5. 50  FL$(1)="hm2"
  6. 60  FL$(2)="hm3"
  7. 70  FL$(3)="hm4"
  8. 80  FL$(4)="hm5"
  9. 90  FL$(5)="hml"
  10. 100  FL$(6)="hmn"
  11. 110  '
  12. 120  '** do six files
  13. 130  FOR I = 0 TO 6
  14. 140      FILENAM$ = "b:" + FL$(I) + ".typ"
  15. 150      OPEN "i", #1, FILENAM$
  16. 160      '** 2 pages per file
  17. 170      FOR J=1 TO 2
  18. 180          LPRINT CHR$(12)  'form feed
  19. 190          LPRINT FILENAM$;
  20. 200          ' ** 2 screens per page
  21. 210          FOR K = 1 TO 2
  22. 220              LPRINT CHR$(10); CHR$(10); CHR$(10)  CHR$(10)   ' line feed
  23. 230              ' ** 24 screen lines per page
  24. 240              FOR L=1 TO 24
  25. 250                  IF EOF(1) THEN GOTO 305
  26. 260                  LINE INPUT #1,LYNE$
  27. 270                  LPRINT LYNE$
  28. 280              NEXT L    'next line
  29. 290          NEXT K        'next screen page
  30. 300      NEXT J            'next printer page
  31. 305      CLOSE #1
  32. 310  NEXT I                'next help file
  33. 320  LPRINT CHR$(12)  ' form feed
  34. 330  PRINT ".............FINISHED.................."
  35. 340  END
  36.