home *** CD-ROM | disk | FTP | other *** search
/ Die ASC Mega 2 / ASC-Mega2-CD-ROM.iso / SPIELE / KAISER / KEXTRN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-18  |  381 b   |  9 lines
  1. var   xorput,auto_cls:             boolean;
  2.       farbe,feld_oben:             byte;
  3.       feld_x,c_y:                  word;
  4.       graf_satz,text_satz,palette: pointer;
  5.       spielfeld:                   array[0..79,0..39] of byte;
  6.  
  7. const palette1:                    array[0..16] of byte =
  8.          ($00,$01,$02,$26,$04,$38,$14,$07,$27,$09,$12,$3B,$24,$3D,$36,$3F,$00);
  9.