home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 09 / hpgl / hpgltest.bas < prev    next >
Encoding:
BASIC Source File  |  1989-03-24  |  716 b   |  26 lines
  1. ' Testpgm. für HPGL.INC
  2. ' (c) 1989 DMV-Verlag
  3.  
  4. $INCLUDE "HPGL.INC"
  5. ' plotterspezifische Werte im ASCII-File PLOTTER.DATR anpassen !
  6.  
  7. CALL OpenGraphik ( "LPT1:")  ' oder z.B. :  "C:Test.Dat"
  8.  
  9. CALL P.SetColor (%Black)
  10. call p.settextslant (1)
  11. CALL P.Line (10,10, 80, 10)
  12. CALL P.LineTo (80, 80)
  13. CALL P.LineRel (-70, 0)
  14. CALL P.Line (10, 80, 10, 10)
  15. CALL P.SetTextStyle (1, %P.HorizDir, 0.5)
  16. CALL P.SetColor (%Green)
  17. CALL P.SetTextSlant (1)  ' 45 Grad
  18. CALL P.OutTextXY (30, 60, "TOOLBOX")
  19. CALL P.SetColor (%Cyan)
  20. CALL P.OutTextXY (18, 40, "Plotter + Basic")
  21. CALL P.SetColor (%Black)
  22. CALL P.SetTextStyle (1, %P.HorizDir, 0.2)
  23. CALL P.OutTextXY (50, 12, "(C) 1989 DMV-Verlag")
  24. CALL CLoseGraphik
  25. END
  26.