OPLObjectFile** LOC::M:\OPL\DRAW102.OPL Draw.PIC \PIC\ GEXIT% GWID% GSWID% GFILE$ GNFILE$ GUMODE% GTMODE% GSTYLE% GDELTA% GFONTID% GUPATF% GUPATM% GCLPID% GCLPON% GHIGH% GICWID% GICG% GICGID% GBITNUM% GCURSOR% REGISTER HANDACT CURSOR HILITE GETEV SAVEAS RESIZE ELLIPSE SHIFT INSERT MERGE PATTERN OPTION ROTATE REVERT ABOUT STYLE STATUS CLIPMNU$ ICONMAG GRIDOVER CIRCLE MOVECUR% DELETE POINT +%A 'Chocolate Island Software' programO \PIC\CLPBOARD.PIC File+ New fileON+ Open fileOO+ Save asOA+ Merge inOJ+ ExitOX Edit+ InsertOI+ CopyOC+ SaveOS+ RevertOU+ ModeOM+ StyleOY Tools I+ TextOT+ LineOL+ BoxOB+ CircleO++ EllipseOE+ IconOK Tools II+ Fill boxOF+ Fill circleO-+ Fill ellipseOG Alter+ RotateOR+ FlipOW+ ShiftOH+ DimensionOD Special+ OptionsOQ+ PatternOP+ Status infoOZ+ Update iconO/+ AboutOV+ ClipboardO* O @`[ HANDACT GNFILE$ GEXIT% STATUPR GSWID% GHIGH% GHIGH% SCRINIT GWID% + Init:WARNING:Creating new bitmap+ Old one still open!W8 GDELTA% GCURSOR% GICWID% GWID% GRIDOVER GUMODE% GICWID% GWID% REGISTER GWID% GFILE$ GDELTA% BusyO Saved STATUP GFILE$ GNFILE$ GSWID% Save as FileO GFILE$ New file - unable to revert Revert to saved NoON+ YesOY W7On@[ GETNAME OKNAME SCRINIT GNFILE$ GEXIT% GBITNUM% GFILE$ GWID% GSWID% GICWID% GICGID% OpenO File does not exist ContinueO ERROR:Main window is closed+ Should never be!!!W8 O$h@[. Bitmap number ( K+ ) too bigK OEh@[& Bitmap number should be zero Open: got error in Open:()W8 GNFILE$ \PIC\ .PICK Bad name, renaming GETNAME RESIZE GWID% GFILE$ GNFILE$ GSWID% GICWID% GICGID% GDELTA% Create new O New:WARNING:window is zero+ it should be openW8 STATUP GDELTA% GSWID% New file Resize size in pixelsO WidthO HeightO Resize the image? (Parts of the picO will be lost)O NoON+ YesOY Oy@`[ GNFILE$ fileK GFILE$ HandAct:ERROR:Action not known CURSOR LINETO GETEV MOVECUR% GUMODE% GDELTA% GUMODE% CURSOR BOXTO GETEV MOVECUR% GUPATM% GUMODE% GDELTA% GUMODE% GUPATF% GCLPON% GCLPID% GUMODE% GUPATF% GCLPON% GCLPID% CURSOR SHOWTEXT GETEV MOVECUR% GTMODE% GDELTA% TextO GTMODE% CIRCLETO GUMODE% {YM}W {YM}W {YM}W CURSOR BOXTO GETEV MOVECUR% ELLITO GUPATM% GUMODE% GDELTA% Circle CURSOR BOXTO GETEV MOVECUR% ELLITO GUPATM% GUMODE% GDELTA% Ellipse GETEV MOVECUR% GHIGH% GWID% GDELTA% Shift GHIGH% GWID% GDELTA% Around axis+ Horizontal,Vertical GHIGH% GWID% GDELTA% Highlight not found +#Highlight width too big, max is 480W8 Rotate Clockwise,Anti-clock Help: Draw( Use O to move around the fileK The O K+# and Control keys increase movementK Shift-O highlights graphics:K +%Use Delete or `Copy' to cut pixels to +*the clipboard, and `Insert' to paste back. STATUP GSWID% GWID% STATUPR GSWID% GDELTA% GFILE$ GFONTID% GSTYLE% GWID% Status ModifiedO7 + UnchangedO7 Size: GSWID% GFONTID% GWID% CURSOR GETEV MOVECUR% GWID% GUPATM% GDELTA% \PIC\*.PIC Merge file FileO + Abandoned CURSOR GETEV MOVECUR% GCLPON% GCLPID% GWID% GUPATM% GDELTA% Clipboard disabled Clipboard empty GHIGH% GCLPON% GCLPID% GWID% Highlight not found Copied GHIGH% GCLPON% GCLPID% GWID% GDELTA% Highlight not found GUPATF% Fill pattern + Fill with+ Solid,Clipboard,Grey VIEWCLP CLEARCLP LOADCLP$ SAVECLP$ GCLPON% GCLPID% Clipboard enabled + Clipboard+ ViewOV+ ClearOC+ OpenOO+ Save asOA+ DisableOD OD@[3 Clipboard now disabled GETEV GCLPON% GCLPID% GWID% Clipboard disabled Clipboard empty + CLipboard GCLPON% GCLPID% GCLPON% GCLPID% GWID% Clipboard disabled Load clipboard FileO REGISTER GCLPON% GCLPID% GWID% Clipboard disabled Clipboard empty Save clipboard FileO W7[/ BusyO Saved ICONGRID GRIDOVER ICONMAG GICWID% GICGID% Drawable is too small+ should be 24 x 24W8 Bitmap should really be 24x24! BusyO OLOLO GICWID% GWID% No icon window GICGID% GICG% GWID% OLOLO GICWID% GICGID% GWID% OLOLO GUMODE% GUPATM% GTMODE% Graphics mode+ Set,Clear,Invert + Fill mode+ Set,Clear,Invert,Replace + Text mode+ Set,Clear,Invert,Replace GSTYLE% GFONTID% Style Bold+ Yes,No Under+ Yes,No Yes,No Double+ Yes,No Mono+ Yes,No Italic+ Yes,No Name+ Normal,Bold,Digit,Tiny :\APP\SH3.APPKW :\APP\SH3.APPKW) SH3.APP not found on A,B,C or M ICONGRID GBITNUM% GICG% GCURSOR% GICGID% Options + Icon grid+ Lines,Dots,None Bitmap numberO Cursor+"Small,Medium,Large,Dot,Lines,Cross Draw - a graphics editor( +%A 'Chocolate Island Software' programO Rick Andrews 1992, 1993KO Version + 1.02K+ - Dated 4 April 93KO This program is shareware.O +!If you keep it, you must registerO +"by sending 5 registration fee to:O Rick Andrews, 164 Castle Hill,( Reading, England RG1 7RP( Share and enjoy!O ABOUT This program is shareware!( +!If you keep it, you must register( +#by sending 5 registration fee to :( Rick Andrews, 164 Castle Hill,( Reading, England RG1 7RP( Share and enjoy!( Delay GETEV MOVECUR% HILITE INITy SCRINIT CURSOR8 POINT SAVEF SAVEAS REVERTK OKNAME4 RESIZE GETNAMEQ HANDACT LINETO BOXTOr BOXTOk TEXTd SHOWTEXTS ELLITO CIRCLETO CIRCLE ELLIPSE SHIFTS% FLIPF( ROTATEF* STATUSS. STATUP STATUPR MERGE\0 INSERTq1 COPY~2 DELETE PATTERN CLIPMNU$ VIEWCLPe6 CLEARCLP LOADCLP$57 SAVECLP$ ICONMAG ICONGRID GRIDOVER MODE>< STYLE*= OPTION ABOUT REGISTERVB