root/as/app/pbm/five_pbm.casl

   1 ;;; 「五」を表す16 x 16のpbm画像を出力する
   2 ;;; 呼び出し方:
   3 ;;;   casl2 five_pbm.casl $CASL2LIB/pbm16.casl $CASL2LIB/outb_w.casl $CASL2LIB/divl.casl $CASL2LIB/rev.casl >five.pbm
   4 MAIN    START
   5         LAD     GR1,GRAPH
   6         CALL    PBM16
   7         RET
   8 GRAPH   DC      #FFFC
   9         DC      #FFFC
  10         DC      #FFFC
  11         DC      #0700
  12         DC      #0700
  13         DC      #0700
  14         DC      #FFFC
  15         DC      #FFFC
  16         DC      #FFFC
  17         DC      #071C
  18         DC      #071C
  19         DC      #071C
  20         DC      #FFFF
  21         DC      #FFFF
  22         DC      #FFFF
  23         DC      #0000
  24         END