home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG077.ARC
/
PX.CON
< prev
next >
Wrap
Text File
|
1979-12-31
|
2KB
|
34 lines
Const
tl = #128;
tm = #129;
tr = #130;
lm = #131;
rm = #132;
bl = #133;
bm = #134;
br = #135;
mr = #136;
mm = #137;
ml = #138;
fence = #139;
PCGData : Array[ 0 .. 11 , 0.. 15] of byte =
( ( $FF,$C0,$A0,$9F,$9F,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
( $FF,$00,$00,$FF,$FF,$00,$00,$00,$00,$00,$00,$0,$0,$0,$0,$0 ),
( $F0,$08,$04,$FE,$FE,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
( $9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
( $9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
( $9E,$9E,$9E,$9E,$9E,$9E,$9E,$5E,$3F,$1F,$00,$0,$0,$0,$0,$0 ),
( $00,$00,$00,$00,$00,$00,$FF,$00,$FF,$FF,$00,$0,$0,$0,$0,$0 ),
( $9E,$9E,$9E,$9E,$9E,$9E,$5E,$3E,$FE,$FC,$00,$0,$0,$0,$0,$0 ),
( $9E,$9E,$9E,$5E,$3E,$FE,$FE,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
( $00,$00,$FF,$00,$00,$FF,$FF,$00,$00,$00,$00,$0,$0,$0,$0,$0 ),
( $9E,$9E,$9E,$9E,$9E,$9F,$9F,$9E,$9E,$9E,$9E,$0,$0,$0,$0,$0 ),
( $24,$24,$24,$24,$24,$24,$24,$24,$24,$24,$24,$0,$0,$0,$0,$0 ) );
Var PCGRam : Array[ 0..127 , 0..15 ] of Byte absolute $F800;
Procedure SetUpPCGs;
Begin
Move( PCGData , PCGRam , 192 );
End;
: Array[ 0..127 , 0..15 ] of Byte absolute $F800;
P