Category : Printer Utilities
Archive   : DOCPRINT.ZIP
Filename : PICTURE.PAS

 
Output of file : PICTURE.PAS contained in archive : DOCPRINT.ZIP
UNIT Picture;

{ DocPrint Title Screen Joseph Lloyd 4/20/90 }

INTERFACE

USES Crt, Things;

CONST ImageData : array [1..1760] of Char = (
'Õ' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'¸' ,#31 ,'³' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'³' ,#31 ,'³' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'³' ,#31 ,'³' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'³' ,#31 ,'³' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
'³' ,#31 ,'³' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,
'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'Ü' ,#31 ,'Ü' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'³' ,#31 ,'³' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'³' ,#31 ,
'³' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'V' ,#31 ,'e' ,#31 ,'r' ,#31 ,
's' ,#31 ,'i' ,#31 ,'o' ,#31 ,'n' ,#31 ,' ' ,#31 ,'1' ,#31 ,'.' ,#31 ,
'0' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,'³' ,#31 ,'³' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'B' ,#31 ,'y' ,#31 ,':' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,'³' ,#31 ,'³' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'J' ,#31 ,'o' ,#31 ,'s' ,#31 ,'e' ,#31 ,'p' ,#31 ,'h' ,#31 ,
' ' ,#31 ,'C' ,#31 ,'.' ,#31 ,' ' ,#31 ,'L' ,#31 ,'l' ,#31 ,'o' ,#31 ,
'y' ,#31 ,'d' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,' ' ,#31 ,
' ' ,#31 ,'³' ,#31 ,'Ô' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,
'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'Í' ,#31 ,'¾' ,#31 );

PROCEDURE EchoPicture;

IMPLEMENTATION

PROCEDURE EchoPicture;

VAR I : Integer;

BEGIN
ClrScr;
I := 0;
Music ( 1, 1000, 2000 );
WHILE I < 1760 DO
Begin
I := I + 1;
TextAttr := Ord(ImageData[I+1]);
Write ( ImageData[I] );
I := I + 1;
END;
END;

BEGIN
END.

  3 Responses to “Category : Printer Utilities
Archive   : DOCPRINT.ZIP
Filename : PICTURE.PAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/