Home Explore Help
Register Sign In
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Branch: master
Branches Tags
GeMIS_WEB
/
GUI
/
v8
/
putstreamf_epson_pos.i

putstreamf_epson_pos.i 305 B
Permalink History Raw

123456789101112 
  1. 

  2.     VZeile = CHR(27) + '!' + CHR(40)
    3. 

  3.            + FILL(" ", VRand) + VZeile
    4. 

  4.            + CHR(27) + '!' + CHR(08)
    5. 

  5.            + CHR(10).
    6. 

  6.     PUT STREAM Out_Stream CONTROL  VZeile.
    7. 

  7. 

  8.     IF {1} > 1 THEN PUT STREAM Out_Stream CONTROL CHR(27) + 'd' + CHR({1} - 1).
    9. 

  9. 

  10.     VLine  = VLine + {1}.
    11. 

  11.     VZeile = "".
    12. 

  12.