DataMuseum.dk

top - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »STORSKR.PAS«

└─⟦692ac107c⟧ Bits:30005923 PolyPascal-80 V3.10 arbejdsdiskette 1
    └─ ⟦this⟧ »STORSKR.PAS« 

TextFile

var
  arg : string(.255.);
  rom : array(.0..511,0..7.) of byte;
  fil : file;
  t,i,j : integer;
  
procedure skriv(c : byte);
var
  str : string(.8.);
  i : integer;
begin
  str := '';
  for i := 0 to 7 do
        if c shr i and 1 = 0 then str := ' '+str else str := '*'+str;
  writeln(str);
end;

procedure putch(i : integer);
  begin
    for j := 0 to 7 do skriv(rom(.i,j.));
    writeln;
  end;

procedure putch1(i : integer);
var j,k,l : integer;
    str : string(.60.);
begin
 for j := 7 downto 0 do
 begin
   str := '';
   for k := 0 to 7 do
     if rom(.i,k.) shr j and 1 = 0 then
        str := '   '+str else str := '***'+str;
   writeln(str);
   for l := 0 to 300 do begin end;
 end;
end;

begin
  arg := 'Goddag Ole - hvordan har du det så idag?';
  assign(fil,'chr.set');
  reset(fil);
  blockread(fil,rom,32);
  for t := 1 to len(arg) do putch1(ord(arg(.t.))+256);
(*  for i := 0 to 511 do putch1(i); *)
end.
«eof»