øùá%(7(ÚÃC²C³C´CµC¶C2°C4°PIÃZAÐCONÓÂÉCX¨SDMCTÌCROÐTXT¤TEXTÐSÍVPOÓHÔCOLÒÊCHAÒCHARFLAÇCHARPOÓCHARSEÔSCLOÃDUMMÙPROG¤IÏERÒFILE¤OUTFLAÇIOCÂBUÆOUTFILE¤ANOTHEÒANS¤MOVEFLAÇOFFSEÔMOVEN¤MOVEP¤HOFÆVCOR¤ËCØLØBYTÅITEM¤EDGE¤LIÍHBORD¤INFILE¤BLANËVOFÆRSFLAÇSCREEÎDÌCOLREÇ @€€ €!"#$€%&€'()€*€+,€-./01€2€34€5€6789:;<$$: ****************************›$$: * PICUTE by W. W. Hough *›'$$: * for ANTIC Magazine 8/83 *›1$$: ****************************›d6€-6-@#6‚-%+6ƒ-‚%36„-‚%‚;6…-%„C6†-%…K6‡-„$…S6ˆ-‡%‡_6‰-A k6Š-Aw6‹-B2y Am: Typo announcement (ZAP)›n\A@h12€A6@@?Œ-@`C ŒM2€€€€YA€\$w: Display picture (PIC)›x/ -‚„A%Ž8, /AŽ8,‚?A`@!Aa†3@‡@?AYŒ € $•: Character transfer›–'‘4A@ % 6’-“%ˆ$”A`•%Aa–ª—-B:‘,´!6˜-@:‘7—<—,,˜"@2! —¾) 6™-˜!A'#6˜-˜&A()6™-€È'˜ @26˜-˜%@d' A Ò'˜!@1*˜ @–'6˜-˜&@2Ü=6š-›%@$˜!6œ-’%‚$+—&,-Ab™=6-?:C:ž,<š<œ,æ —6‘.ï : Select path from picture›ðG‹@+2€A!@@9-A= G2€€€€úF:‹,"ƒA@" F:‹,"†6Ÿ-@" A`F:‹,"…A AP!: I/O Routines and traps›"6' +€AY Š,A @6 A,_ Ÿ"„ (4(#No such picture on disk--DIRECTORY:7(A A€D(U( Press OPTION_ A@6\5 "Ab)F:A•,"Ab)F:A•,"A98(L(NO ROOM ON DISKO(R(\ AP@(6¡.D:WWXXYYZZ.PIC6¢-ƒ( AJQ(.(#An error was encountered on output.Q(I wrote your picture in a fileT$(called 'WWXXYYZZ.PIC'.!($(^, A€6¢-€6 -€(,( Press STARTh F:‹,"† ‰r A`|#†€D:*.*# A† ‘(‘ A6‘.$š AŸ€¡¤Y £%‚Ÿ%ƒ £%…P:¤'AV,7£%„¤&AV$F:£%…,E£%@„Y£%@ @0®56-?:A6,!6 -F:A,5 "AbA¸¢"ƒA0  $ÌB+€(>:A%,&A @8A@dB A`Ö" -„“%Avy%Ž8," àM(0(%Enter name of the OUTPUT picture file76¡.;¡D6¥.D:M6¥7ƒ,.¡ê ¡4 Š A€ô) 6¡.¥6¤-“AY€% A) ‰ý: Pick your change›þe 6¦-ƒ +€A @"(%(9(Do you want to:<(Y( Add >:A,ext\(e( .(>:A, ove Picture!(.( Add n (>:A”, orders (crop)#(E( Change >:A•,olorsH(K(n(Type T, M, B, or C (or RETURN)§§4T A ‰& §4 ‰0§4BA: §4M A ‰D §4C A` ‰N Š A@W: Internal move›X) 6¨-ƒ(>:A%,(# A)6¨-€b5 © €56-?:C:ª,<“&Av€&©<“&Av€<B0`%©,l5 ©!€56-?:C:«,<“%BS`&©<“%BS`<B0@&©,u: Vertical correction›v ¬"€ $€ ¬ €6¬-ˆ%¬Š6-?:C:­,<¬<“%P:©'ˆ,$ˆ,$“: Change colors›”l(>:A%,(<($Which of the four colors do you wantl(to change? Enter 1-4 or >:A“,LL ž%§§4A6—-6®-„% A¨§21*§34 Š Ap² 6—-A:§,6®-—¼0 -—®(0(Enter new color (COLOR )ÆH A&( Color (0-15) *¯:¯ €)¯!@> ŠH AÐH A &( Luminance (0-14) *°:° €)°!@> ŠH A Ú6Ž8,-@$¯%° ä —® $î0(0(%Do you want to change another color ?ø§§4YA` §4N$  Š A`: Crop picture›I(>:A%,(I(Enter color of border (1-4 or >:A,IXED) 9§§4M(9("Enter byte for mixed color (1-254)*7 A§4M±)± )±!AT- Š7 A4§4MAP>§21)§34 Š AH6±-+A:§,&@,$@…RW(W(Do you want to crop >:A,OP, >:A”,OTTOM, >:A,EFT\**( SIDE, or >:A, IGHT SIDE fO§§4T%6².scan lines down/6³.top;6´-A’E A O A PpL §4B6². scan lines up,6³.bottom86´-A’B A L A `zB §4L6².spaces(6³. left side.6´-ˆ8 A B A p„C §4R6².spaces)6³. right side/6´-ˆ9 A C A €Ž Š Ap˜4(!( How many ² from ³4((0 to ´) ¢) A 0 €)!´ Š) A 0¬  ‰ $¶!6-?:C:µ,<±<“<ˆ$,! A À-#6-?:C:µ,<±<“%Av€&ˆ$<ˆ$,- A Ê5-““%Av@ˆ'6-?:C:µ,<±<<,+ 5 A Ô1-“%ˆ&“%Av€&ˆ-6-?:C:µ,<±<<,1 Þ 6-€ A@ç : Input display characters›è^(>:A%,(^(FENTER TEXT (maximum of 20 characters, and use initial spaces to offsetò<(text from left margin):"(<( <<<20--CHARACTERS>>>ü/‘A”€%A@d,‘4/$j(.(#Do you want (1) REGULAR HEIGHT (alaS( Graphics 1) or (2) DOUBLE HEIGHTj((ala Graphics 2) .(or higher up to 5.(times regular ?> AP"( Enter 1 to 5 &•0• )•!…4 Š> AP$i(-("Enter vertical position (from top)i(!where you want top of text (0 to A’&@$•).9 Ap”+” €)”!A’&@$•/ Š9 Ap80(0(%What color do you want for your text?B9 A( Enter 1-4 !–+– )–!„/ Š9 AL 6–-–&$U: Initialization›V'F:A,"€'AF:A,`KK‘;‡,¶;@,¥;@,¡;@,§;,Ž9„,²;@,³;@,j26›-A$$AV6·-‚2AF:A,t; 6‘.6¬-€6¸-€6•-€"6©-€(6–-€/6¥.56¢-€;6¦-€~S+€A @&(>:A%,)(M( PICUTE by W. W. HOUGHP(S(ˆU,($A Utility for Creating and ModifyingU($High Resolution MICROPAINTER Screens’-( (-(After your picture is displayedœM)(!and a tone sounds, the program isM(waiting for your input. Press:¦k(,(! START to save modified pictureL( SELECT to change pictureh( OPTION to start overk(°j(,(!If you would like to see the diskT(#directory now, press SELECT. To goj(on, press START.º; ·"‚( To make a blank;(picture, press OPTION.Ä# F:‹,"†(>:A%,# A`Î- F:‹,"…(>:A%,# A€- A`Ø F:‹,"ƒ*·"‚6·- Aâ A ìPA@d((E(%Enter name of the INPUT picture file L6¡.P¡ö* 6¶.D:6¶7ƒ,.¡¡4 Š* A`ÿ: Input move increments›J(>:A%,((6(Do you want to move ¡ :§J§4YA §4NA€ Š A€.(.(#Enter horizontal offset (-20 to 20)(+ A ¬¬ €&‡)¬!‡! Š+ A 2.(.(#Enter vertical offset (-192 to 192)<6 A@¸(¸ 6A’)¸!A’, Š6 A@F ¬ €6¸-¸%P 6©-¬%ˆ$¸Y: Exit if not first init.›Z ¨"ƒ)¦"ƒ$d¹"ƒA0n6-F:AY,6£-AHx9 +@$F:A,"€9AF:@‰,&@‚C6º-F:A,@‰º76“-º$AV%F:@ˆ,CAY€‹: Access to OS I/O›Œ--€@"Œ#A6%Œ' -6¹-ƒ–++104,162,16,32,86,228,152,141,193,2,96›Ÿ: Positive internal moves› 4«;@V,-@V""Œ06«7<,.>:Œ,4 ªii104,104,133,204,104,133,203,104,133,206,104,133,205,104,133,208,104,133,207,164,207,136,192,255,240›´ee7,177,203,145,205,24,144,244,166,208,240,18,160,255,198,204,198,206,177,203,145,205,136,192,255›¾208,247,202,208,238,96›Ç: Negative internal moves›È4ª;@T,-@T""Œ06ª7<,.>:Œ,4 Òff104,104,133,204,104,133,203,104,133,206,104,133,205,104,133,208,104,133,207,166,208,240,16,160,0›Ügg177,203,145,205,200,208,249,230,204,230,206,202,208,242,160,255,200,196,207,240,7,177,203,145,205›æ24,144,244,96›ï: Horizontal borders›ð4µ;@G,-@G""Œ06µ7<,.>:Œ,4 úff104,104,104,133,203,104,133,205,104,133,204,104,133,207,104,133,206,165,203,166,207,240,12,160,0›ZZ145,204,136,208,251,230,205,202,208,246,164,206,136,192,255,240,4,145,204,208,247,96› "": Transfer & write character›4ž;A‰,-A‰""Œ06ž7<,.>:Œ,4 ``104,104,133,205,104,133,204,104,133,207,104,133,206,169,0,141,230,6,160,4,173,226,6,208,14›"WW24,13,225,6,136,240,4,10,10,144,246,141,231,6,173,224,6,141,233,6,160,4,169,0,153›,XX233,6,136,208,250,162,0,172,230,6,177,204,141,232,6,160,0,30,234,6,30,234,6,30,236›6SS6,30,236,6,24,14,232,6,144,11,173,225,6,29,236,6,157,236,6,176,8,169,3,29,234›@YY6,157,234,6,200,192,4,208,214,232,224,2,208,207,173,226,6,208,50,160,0,173,231,6,57›J[[234,6,145,206,200,192,2,208,243,24,144,16,206,233,6,208,159,238,230,6,169,8,205,230,6›Tbb208,143,96,165,206,105,40,133,206,144,232,165,207,105,0,133,207,144,224,160,0,177,206,57,234›^556,25,236,6,145,206,200,192,2,208,241,24,144,220›g: Vertical correction›h4­;@U,-@U""Œ06­7<,.>:Œ,4 ree104,104,104,133,204,104,133,208,133,206,104,133,207,162,193,165,207,24,105,40,133,205,144,2,230›|dd206,160,0,177,205,145,207,200,196,204,208,247,202,240,14,165,207,24,105,40,133,207,144,222,230›†208,24,144,217,96›M%6»-F:A`,%AV$F:Aa,3»%ƒ@x;»%…ºM-»%†»%AšF:,"@@¤;F:,"@y@x3%‚F:%‚,&@;6-%‚®C %6-?:C:ª,<»<AP<A,7AP@CAQ†¸/6-?:C:µ,<€<»<A,/Aº&@3Á: If blank, get colors›ÂB ·"6·-€6—-6®-„+€1A @4(> AB ‰Ë"": Get input file,read colors›Ì5 6·-€6¤-“%©6¼-¤%Av€%6¡.¶+6Ÿ-„5 AÖ -„6Ž8,-F:¼%&, à -€ƒ¼%€ ê A0 ‰€ D1:PICUTE.