--- /dev/null
+;;; 「五」を表す16 x 16のpbm画像を出力する
+;;; 呼び出し方:
+;;; casl2 call_pbm.casl ../pbm16.casl
+MAIN START
+ LAD GR1,GRAPH
+ CALL PBM16
+ RET
+GRAPH DC #FFFC ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+ DC #FFFC ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+ DC #FFFC ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+ DC #0700 ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
+ DC #0700 ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
+ DC #0700 ; 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0
+ DC #FFFC ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+ DC #FFFC ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+ DC #FFFC ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+ DC #071C ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
+ DC #071C ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
+ DC #071C ; 0 0 0 0 0 1 1 1 0 0 0 1 1 1 0 0
+ DC #FFFF ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+ DC #FFFF ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+ DC #FFFF ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+ DC #0000 ; 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+ END