Lisa_Pascal_3.0_Reference_Manual_1984.pdf part of apple Lisa Pascal 3.0 Reference Manual 1984 Lisa_Pascal_3.0_Reference_Manual_1984.pdf, apple lisa workshop_3.0 Lisa_Pascal_3.0_Reference_Manual

Text preview for : Lisa_Pascal_3.0_Reference_Manual_1984.pdf part of apple Lisa Pascal 3.0 Reference Manual 1984 apple lisa workshop_3.0 Lisa_Pascal_3.0_Reference_Manual_1984.pdf

Back to : Lisa_Pascal_3.0_Reference | Home

Lisa.Language

BEGIN {main program}
{----- Initialization - Generic to all applications using QuickDraw -----}
QDInit(@lheapBuf, @lheapBuf[8192]. @lheapError);

OpenPort(@lmy Port) ;
PaintRect(thePort' .portRect);
lniticons; {moved to here from below stuffhex}
InitScales; {moved to here from below stuffhex}

DrawStuff;
REPEAT UNTIL KeyBdEvent(FALSE,FALSE,event) AND
(event.ascii <> CHR(l));

PaintRect(thePort' .portRect);
SetRect(srcRect,O,O,720,360); PROCf[)IJ:If Or awFi gure(vi ewAng. rOllAng. pi tChAng :
BEGIH
myPicture := OpenPicture(srcRect); vi ewAng1t(vi ewAng);
Drawstuff; I denti ty;
Roll (rollAng) ;
pi tCh( pi tChAng);
Er aseRect( port1