Lisa Pascal 3.0 System Software

Lisa.Systems Software BEGIN {main program} {----- Initialization - Generic to all applications using QuickDraw -----} QDInit(@heapBuf, @heapBuf[8192], @heapError); OpenPort(@myPort); PaintRect(thePort' .portRect); InitIcons; {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); PROCEDl.Rf Dr awfi gure(vi twAng, rOllRng, pi tChAng : SetRect(srcRect,O,O, 720,360); myPicture := OpenPicture (srcRect); BEGIt!vi ewAngl e(vi eWAng); Identi ty; DrawStuff; Roll (rollRng) ; Pi tc~ ( pi tchAng); Er aseRect( port1' . portRect) ; fr aMeRect( portl' . portRect) ; PI otGri d; Lisa Pascal 3.0 Systems Software Copyright This manual and the software described in it are copyrighted with all rights reserved. Under the copyright laws.. this manual or the software may not be copied.. in whole or in part.. without the written consent of Apple.. except in the normal use of t.he software or to make a backup copy. The same proprietary and copyright notices must be affixed to any permitted copies as were affixed to t.he originaL This exception does not allow copies to be made for others.. whether or not sold.. but all the material purchased (with all backup copies) may be SOld.. given, or loaned to another person. Under the law.. copying includes translating into another language or format. You may use the software on any computer owned by you, but extra copies cannot be made for this purpose. For some products.. a multiuse license may be purchased to allow the software to be used on more than one computer ol,lmed by the purchaser.. including a shared-disk system. (Contact your authorized Apple dealer for information on multiuse licenses.) Licensing Requirements far Software Developers Apple has a low-cost licensing program, which permits developers of software for the Lisa to incorporate Apple-developed libraries and object codes into their products. Both in-house and external distribution require a license. Before distributing any products that incorporate Apple software, please contact Software Licensing at the address below for both licensing and technical information. @1983" 1984 Apple Computer.. Inc. 20525 Mariani (fve. Cupertino, CA 95014 (408) 996-1010 Apple.. Lisa.. ProFile" MacWorks, and the Apple logo are trademarks of Apple Computer, Inc. Macintosh is a trademark licensed to Apple Computer.. Inc. Priam is a registered t.rademark of Priam, Inc. So~/ is a registered trademark of Sony Corporation. Centronics is a registered trademark of Centronics Dat.a Computer Corporation. VT52 and VT100 Me trademarks of Digital Equipment Corporation. Simultaneously published in the U.S.A. and Canada Reorder Apple Product 1620-6149-8. Limited Warranty on Media and Manuals If you discove.r physical defects in the media on which this software is distributed, or in the manuals distributed with the software, Apple will replace the m…