+++ /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