[Back to ANSI SWAG index] [Back to Main SWAG index] [Original]

    {Þ Oh, about the thedraw screens, here's
    Þ a bit of code in which you can load up a File saved as O)bject, P)ascal.
    Þ Oh this is saved as Uncrunched not Crunched.
    Þ
    Þ {$L,TESTFile.OBJ}  {This is the File you saved in thedraw as a Object}
                        {It is linked directly into the code at Compile time}

     Procedure ImageData; external;   {The imagedata Procedure you can}
                                      {define the name of this Procedure}
                                      {when you save the File in TheDraw}
     begin
         Move (Pointer(@ImageData)^,ptr($B800,0)^,5000);
         Readln;
     end.

    {By using the Move instruction, the placement of the image
    is restricted to full screens or essentially 80 Character lines.
    }

[Back to ANSI SWAG index] [Back to Main SWAG index] [Original]