picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

lib.l (1835B)

      1 # 09may11abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 ### PDF-Print ###
      5 (dm (ps> . +Ord) ()
      6    (a4 (pack "Order" (: nr)))
      7    (font (12 . "Helvetica"))
      8    (eps "@img/7fach.eps" 340 150 75)
      9    (window 380 120 120 30
     10       (font (21 . "Times-Roman") (ps ,"Order" 0)) )
     11    (brief NIL 8 "7fach GmbH, Bawaria"
     12       (ps)
     13       (with (: cus)
     14          (ps
     15             (pack
     16                (and (: sal) (pack (: sal nm) " "))
     17                (: nm2) " " (: nm) ) )
     18          (ps (: str))
     19          (ps (pack (: plz) " " (: ort))) ) )
     20    (window 360 280 240 60
     21       (let Fmt (80 12 60)
     22          (table Fmt ,"Customer" ":" (ps (: cus nr)))
     23          (table Fmt ,"Order" ":" (ps (: nr)))
     24          (table Fmt ,"Date" ":" (ps (datStr (: dat)))) ) )
     25    (down 360)
     26    (indent 60 60)
     27    (let (Page 1  Fmt (14 6 200 80 80 80))
     28       (width "0.5"
     29          (hline 0 470 -8)
     30          (font "Helvetica-Bold"
     31             (table Fmt NIL NIL
     32                (ps ,"Item")
     33                (ps ,"Price" T)
     34                (ps ,"Quantity" T)
     35                (ps ,"Total" T) ) )
     36          (hline 4 470 -8)
     37          (pages 720
     38             (hline 0 470 -8)
     39             (down 12)
     40             (font 9 (ps (text ,"Continued on page @1" (inc 'Page))))
     41             (page T)
     42             (eps "@img/7fach.eps" 340 150 75)
     43             (down 40)
     44             (font 9 (ps (text ,"Page @1" Page)))
     45             (down 80)
     46             (hline 0 470 -8) )
     47          (for (I . This) (: pos)
     48             (down 4)
     49             (table Fmt
     50                (ps I T) NIL
     51                (ps (: itm nm))
     52                (ps (money (: pr)) T)
     53                (ps (: cnt) T)
     54                (ps (money (sum> This)) T) ) )
     55          (pages)
     56          (hline 4 470 -8)
     57          (down 4)
     58          (table Fmt NIL NIL NIL NIL NIL (ps (money (sum> This)) T))
     59          (hline 4 470 -8) ) )
     60    (page) )
     61 
     62 # vi:et:ts=3:sw=3