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 / MBUG047.ARC / DRAWMAN.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  640b  |  36 lines
  1. {Draws a Picture of a Man using PCG graphics
  2.  by Paul Shannon}
  3.  
  4. procedure LOADPCG;
  5.  
  6.   begin {LOADPCG}
  7.     {Character # 128}
  8.     mem[-2048] :=  58;
  9.     mem[-2047] :=  58;
  10.     mem[-2046] :=  18;
  11.     mem[-2045] := 254;
  12.     mem[-2044] := 184;
  13.     mem[-2043] := 184;
  14.     mem[-2042] := 184;
  15.     mem[-2041] :=  40;
  16.     mem[-2040] :=  40;
  17.     mem[-2039] := 238;
  18.     mem[-2038] :=   0
  19.   end; {LOADPCG}
  20.  
  21. procedure PRINTMAN;
  22.  
  23. var
  24.   MAN : CHAR;
  25.  
  26. begin {PRINTMAN}
  27.   MAN := CHR(128);
  28.   GOTOXY (40, 12);
  29.   WRITELN (MAN)
  30. end;  {PRINTMAN}
  31.  
  32. begin {Draw Man}
  33.   CLRSCR;
  34.   LOADPCG;
  35.   PRINTMAN
  36. end. {Draw Man}