
 LOOK OUT! iT'S......                          $s._
      c                        n          d    $$$$$
,s%$P`"`4$%s,,s%$P`"`4$%s,$$$$P`"`4$%s.,s%$P`"`4$$$$,s%$P`"`4$%s,,s%$P`"`4$%s,
$$$$ ;;; $$$$$$$$ ;;;o$$$$$$$$ ;;; $$$$$$$$ ;;; $$$$$$$$ ;;; $$$$$$$$ ;;; $$$$
$$$$ iii     $$$$ iii $$$$$$$$ iii $$$$$$$$ iii $$$$$$$$oiii $$$$$$$$ iii $$$$
$$$$ `' $$$$$$$$ `' $$$$$$$$ $$$ $$$$$$$$ `' $$$$$$$$ `' $$$$$$$$ `'   r
`$$b,d$$'`$$b,d$$'$$$$ $$$ $$$$`$$b,d$$'`$$b,d$$'$$$$

                         cONDOR oF sUICIDE iS pAINLESS
 
S'up...this *isn't* a release for SP, just the result of bordom and some
other factors like that...a quick bit of info you don't really care about:
ages ago (and I mean fucking ages ago) I did this basic lil' text file for
a mate who was just starting to code, and about 10 mins ago I was sorting
out my old 540Mb drive and I came across it...I thought it'd be a waste to
just delete it, and it'd make a change to help some poor lame coder out
instead of just laughing in his/her face ;)...anyways, here we go:

To create a .OBJ to include in some Pascal code, just do the following:

i] Press ALT+S to save your ANSi (in TDraw)
ii] Press J for OBJECT
iii] Press N for NORMAL
iv] Press T for Turbo Pascal 4+
v] When it asks for an identifier, hit ENTER..(it'll go with the default
   which is IMAGEDATA)
vi] Type in the path and/or filename...

Soz if that was a bit lame and pissy, but I'm assuming you don't
know already....

CoNDoR^SP.

BTW: here's an example of some code to display an ANSi that you've saved
as an OBJ file..an example OBJ is included in this ZIP. ..it's one of the
ST (or SiP) logos..I havn't checked which yet...(just copy this text to
a new file, save it and compile it..).I've tried to comment the source
as much as possible ...

{----Cut here dude!-----------Cut here dude!----------Cut here dude!--------}

Program PicExample;

uses Crt;               { for stuff like GOTOXY, CLRSCR and READKEY }

{$L pic.obj}            { Link the OBJ in the main code }
{$R-}                   { range checking off }

Procedure ImageData;External;            { declare the pic procedures as }
Procedure ImageData_Width;External;      { external }
Procedure ImageData_Depth;External;
Procedure ImageData_Length;External;

Type ScreenType = Array [0..399] of Byte;

Var Screen  : ScreenType Absolute $B800:0000;   { variables, obviously :) }
    Offset, x :  Integer;

Const
   ImageDataPtr : ^ScreenType = @ImageData;
   ImageDataWidthPtr : ^Integer = @ImageData_Width;
   ImageDataDepthPtr : ^Integer = @ImageData_Depth;
   ImageDataLengthPtr : ^Integer = @ImageData_Length;

Procedure ShowPic;       {  the actual procedure that you call to display  }
Begin                                              {  the ANSi pic  }
    Offset := 1; {pos to display block}
    For X := 0 to ImageDataDepthPtr^-1 DO
      Move ( ImageDataPtr^[1+X*ImageDataWidthPtr^*2],
           Screen[X*160+Offset],ImageDataWidthPtr^*2);
End;

begin { main prog }
     ClrScr;
     writeln;
     writeln;
     writeln('This is an example of how to INCLUDE ANSi files in your');
     writeln('Pascal code..it does away with having shit grahpics in your');
     writeln('programs...:)');
     writeln;
     write('Press [ENTER] now to display the picture...');
     repeat
     until readkey=chr(13);
     ShowPic;
     gotoxy(1,24);
     textattr:=79;
     write('How''s that? Hope it''s of some use, or something :) - CoNDoR^SP (Hit ENTER Now) ');
     repeat
     until readkey=chr(13);
     textattr:=0;         { shitty little wipe-kinda effect }
     delay(10);
     x:=80;
     gotoxy(x,24);
     write(' ');
     repeat
          delay(10);
          dec(x);
          gotoxy(x,24);
          write(' ');
     until x=1;

     textattr:=7;
end.  { of program :) }

{----Cut here dude!-----------Cut here dude!----------Cut here dude!--------}
