home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BATWORKS.ZIP / MENUPRNT.PTB < prev    next >
Encoding:
Text File  |  1990-05-22  |  772 b   |  23 lines
  1. i="-tt -faaaaa -x1 -h -m -tiny- -wide-"
  2. :loop
  3. drop (b,c,d,e)
  4. dialogbox("Miscellaneous Printing","menuprnt.dlg")
  5. if b+c+d+e+f>@false then goto SomethingSelected
  6. Display(3,"Nothing Selected","Select at least one checkbox, or Cancel")
  7. goto loop
  8. :SomethingSelected
  9. if b then run ("EnvLJ.pif","")
  10. if c then run ("Reset.pif","")
  11. if d then run ("Eject.pif","")
  12. if e then run ("Spooler.pif","")
  13. if f==@false then exit
  14. if a<>"NOFILESELECTED" then goto continue
  15. Display(5,"File Selection Required","You cannot print a file unless you select it")
  16. goto loop
  17. :continue
  18. file=strcat(dirget(),"\",a)
  19. if h==1 then run ("cprint.pif","cp %file%")
  20. if h==2 then run ("laserlst.pif",file)
  21. if h==3 then run ("4up.pif",file)
  22. if h==4 then run ("4print.pif","%file% %i%")
  23. exit