apple Lisa Pascal 3.0 Reference Manual 1984 free download

File name Lisa_Pascal_3.0_Reference_Manual_1984.pdf

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