home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug077.arc / PX.CON < prev    next >
Text File  |  1979-12-31  |  2KB  |  34 lines
  1. Const
  2.      tl        = #128;
  3.      tm        = #129;
  4.      tr        = #130;
  5.      lm        = #131;
  6.      rm        = #132;
  7.      bl        = #133;
  8.      bm        = #134;
  9.      br        = #135;
  10.      mr        = #136;
  11.      mm        = #137;
  12.      ml        = #138;
  13.      fence     = #139;
  14.      PCGData : Array[ 0 .. 11 , 0.. 15] of byte =
  15.                 ( ( $FF,$C0,$A0,$9F,$9F,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
  16.                   ( $FF,$00,$00,$FF,$FF,$00,$00,$00,$00,$00,$00,$0,$0,$0,$0,$0 ),
  17.                   ( $F0,$08,$04,$FE,$FE,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
  18.                   ( $9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
  19.                   ( $9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
  20.                   ( $9E,$9E,$9E,$9E,$9E,$9E,$9E,$5E,$3F,$1F,$00,$0,$0,$0,$0,$0 ),
  21.                   ( $00,$00,$00,$00,$00,$00,$FF,$00,$FF,$FF,$00,$0,$0,$0,$0,$0 ),
  22.                   ( $9E,$9E,$9E,$9E,$9E,$9E,$5E,$3E,$FE,$FC,$00,$0,$0,$0,$0,$0 ),
  23.                   ( $9E,$9E,$9E,$5E,$3E,$FE,$FE,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
  24.                   ( $00,$00,$FF,$00,$00,$FF,$FF,$00,$00,$00,$00,$0,$0,$0,$0,$0 ),
  25.                   ( $9E,$9E,$9E,$9E,$9E,$9F,$9F,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
  26.                   ( $24,$24,$24,$24,$24,$24,$24,$24,$24,$24,$24,$0,$0,$0,$0,$0 ) );
  27. Var  PCGRam : Array[ 0..127 , 0..15 ] of Byte absolute $F800;
  28. Procedure SetUpPCGs;
  29. Begin
  30.      Move( PCGData , PCGRam , 192 );
  31. End;
  32.  
  33.  : Array[ 0..127 , 0..15 ] of Byte absolute $F800;
  34. P