home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / _newprogs / querdruck_hp.amos / querdruck_hp.amosSourceCode
AMOS Source Code  |  1994-03-12  |  2KB  |  58 lines
  1. Set Buffer 200
  2. Close Workbench : Close Editor : Break Off : Curs Off 
  3. F$=Fsel$("","","") : If F$="" Then End 
  4. Set Input 10,-1
  5. Hide 
  6. MX=1
  7. Locate 10,10 : Centre "Lese Daten ein!"
  8. Open In 1,F$
  9. Input #1,TZ$
  10. While Eof(1)=0
  11.    Line Input #1,A$ : MX=MX+1
  12. Wend 
  13. Close 1
  14. DB=73 : DH=58
  15. SEITEN=MX/DH
  16. If MX mod DH>0 Then SEITEN=SEITEN+1
  17. PRODUKTE=SEITEN/4
  18. If SEITEN mod 4>0 Then PRODUKTE=PRODUKTE+1
  19. If SEITEN<3 Then DZEILEN=2*DH : Goto SKIP3
  20. DZEILEN=PRODUKTE*4*DH
  21. SKIP3:
  22. Dim ZEILE$(DZEILEN)
  23. Open Out 1,"par:"
  24. Print #1,Chr$(27);"&l1O";Chr$(0);Chr$(27);"(s15H";Chr$(0);Chr$(27);"&l24D";Chr$(0);Chr$(27);"(s1Q";Chr$(0)
  25. Close 
  26. Wait 10
  27. Open In 1,F$
  28. For X=1 To MX
  29.    Line Input #1,ZEILE$(X)
  30. Next 
  31. Close 1
  32. Cline : Centre "Es werden"+Str$(SEITEN)+" Seiten gedruckt"
  33. Open Out 1,"PRT:"
  34. S=PRODUKTE*4 : L=1 : DL=0 : Z3$=String$(" ",28)
  35. LOP:
  36. For DI=1 To PRODUKTE
  37.    If SEITEN=2 Then S=2 : Swap S,L
  38.    Print #1, Extension_22_011A(" -"+Str$(S)+" -",DB,0)+String$(" ",28)+ Extension_22_011A(" -"+Str$(L)+" -",DB,0)
  39.    Print #1,""
  40.    For X=0 To DH-1
  41.       Z1$= Extension_22_0870(ZEILE$((S-1)*DH+X+1),8) : Z2$= Extension_22_0870(ZEILE$((L-1)*DH+X+1),8)
  42.       ZEILE$((S-1)*DH+X+1)="" : ZEILE$((L-1)*DH+X+1)=""
  43.       If Z1$="" Then Z1$=String$(" ",DB) : Goto SKIP1
  44.       If Len(Z1$)<DB Then Z1$= Extension_22_011A(Z1$,DB,1) : Goto SKIP1
  45.       If Len(Z1$)>DB Then Z1$=Left$(Z1$,DB)
  46.       SKIP1:
  47.       If Z2$="" Then Z2$=String$(" ",DB) : Goto SKIP2
  48.       If Len(Z2$)<DB Then Z2$= Extension_22_011A(Z2$,DB,1) : Goto SKIP2
  49.       If Len(Z2$)>DB Then Z2$=Left$(Z2$,DB)
  50.       SKIP2:
  51.       Print #1,Z1$+Z3$+Z2$
  52.    Next 
  53.    S=S-2 : L=L+2
  54. Next 
  55. If SEITEN=2 or DL=1 Then Close 1 : End 
  56. Clear Key : Cline : Centre "Drehe jetzt bitte die Bl�tter um!"
  57. Wait Key : Cline : Centre "Drucke weiter!"
  58. DL=1 : Goto LOP