_`HuABCDXSTICKYSTICKNAMEMOVEDLICCWORCVACUNDEINVWAICUNDERCHAXYREBRIGHCO@@ @ 11** ANALOG COMPUTING ** FEB 84 ** PAGE 49 **H +@((@ GRAPHICS 10/7H(@please stand by...AR@ A ӠҠ Ǡ̠Š Ю̠ ?1;AV,;AV,;AV,;AV,?THE BUFFERS119@,9@,;@,;@,STICK DIRECTIONS? #@ !-@@%".68,-2";68,-? GG0,0,0,0,0,0,0,0,1,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0IITHE FILL SUBROUTINE. LIMITS SET AT 80 PIXELS ACROSS, 80 DOWN.WE USE PAGE 6/ #@&!-A6A%"+/ ##104,104,104,133,209,173,254,6##133,212,173,255,6,133,213,169 0,133,231,160,1,165,85,145$$203,133,233,133,214,165,84,145$$205,133,234,133,215,132,232,32!!184,6,133,230,197,209,208,1 !!96,32,221,6,177,203,133,214!%%177,205,133,215,230,214,165,214"201,80,176,8,32,184,6,208# 3,32,164,6,198,214,198,214$""165,214,201,255,240,8,32,184%6,208,3,32,164,6,230,214&""230,215,165,215,201,80,176,8'32,184,6,208,3,32,164,6(%%198,215,198,215,165,215,201,255)240,8,32,184,6,208,3,32* 164,6,198,232,240,4,200,76+!!52,6,164,231,240,95,132,232,%%177,212,145,205,177,207,145,203-!!136,208,245,160,1,169,0,133.231,76,52,6,32,221,6,230/$$231,240,75,164,231,165,214,1450$$207,165,215,145,212,164,235,96132,200,6,169,7,157,66,32""32,86,228,164,235,197,230,963$$132,235,165,214,133,85,165,2154 133,84,162,96,169,0,157,7253,157,73,3,96,32,200,66 169,11,157,66,3,165,209,327##86,228,164,235,96,165,234,1338!!84,165,233,133,85,96,32,23796,104,104,96,0,0,0,0:;66SET UP BUFFER ADDRESSES FOR ML ROUTINE ACCESS<=B6-P:C:,'AV,*6-C:,&$AV6ABA>B6-P:C:,'AV,*6-C:,&$AV6ABA?B6-P:C:,'AV,*6-C:,&$AV6ABA@B6-P:C:,'AV,*6-C:,&$AV6ABAABӠРC;@2,D9@,%68,-:68@,-@O68@,-@d68@,-@ y68@,-@68@,-@68@,-@E +@AR@FG"A#A("GTIA GR.10H+@@+FOOL SCREEN HANDLERIJACOLOR 0KA@COLOR 2LA@8COLOR 3MAACOLOR 9N A AH COLOR 10O AA COLOR 11PAARCOLOR 8QR4 #@!-@1%"0C:,%4 S33F:A`,%AV$F:Aa,%@AAT?AP:C:,'AV,?AC:,&F:A,$AVU"BBA"ENABLE DLIVS"( THIS IS GRAPHICS 10/7;( P. BUDGELL 1983O-@APS W##@@K:XŠˠ٠YZ.6-F:@,&A(. @[@B7t\@@72,169,0,141,10,212,141,27,208,141,26,208,169,144,69,79,37]8878,141,24,208,169,10,69,79,37,78,141,23,208,104,64^_7 #@!-@@%"367<,.>:,7 `104,162,16,76,86,228aO6-@@6-@@(8@,76-8@,C6-@O6-b AINTRODUCTIONc(6-F:Ad, AU( Ad! Ap A! @eH 1,06-+",$8@,D-@@H n% ,!-@@% x  ,"T:,"",$56-R:,6-%8,)"@56-@y"6@6-&6-%8,"@&6-@y"6@6- @1$")@"AdAU""@:D, A" A""@:F, A " A""@:C, A0" A;"@:X, >:A%,1 @>:A%,; A""@:L, A@" A""@:S, AP" A""@:R, A`" A11(>:A%,ӠҠՠ--(% D=DRAWTO MODE F=FILL C=COLORCHANGE--(% X=NEW SCREEN L=LOAD S=SAVE SCREEN--($ R=COLOR REG. SPACE=REGULAR MODE$**(" REGULAR DRAW MODE - PRESS TRIGGER( Ҡ  ( (TO ERASE USE COLOR 0 ) .6-F:@,&A(. A0@B7t$77(>:A%,$Ϡ: PRESS TRIGGER TO DEFINEG-(%NEW STARTPOINT; PRESS AGAIN TO DRAWTOG(PRESS ANY KEY TO EXITJ A"T:,"4B2y:6-@6-J A!6-F:Ad, AU!$ Ap AK T:,"ALN Ap"T:,"&,,2/DB2yN AV$6-F:Ad, AU!'$$W A A T:,"A?$- ,-$6-?:A6<,*6--$ )6-%@"@)6- & 8,6-8,&( Ҡ =  $0&(>:A%,ĠԠſ0 A@p((( GIVE NAME SUCH AS D1:XX.Y OR C:1( FILE NAME '4C:)4C1 AA @@tAP@*ARF:@,?ASF:@,QAVA(cAW@tSET UP IOCB #16-?:C:,,6-@$)@2A%6 -@ BBA* B-$[( ԠΠ8@@A)C:B A@@[SHORT IRG FOR CASSETTE4*(>:A%,ŠϠԠſ?4 APp$$( GIVE NAME eg. D1:XX.Y or C:0( FILE NAME &4C:)4C0 AQ @@tAP@*ARF:@,?ASF:@,QAVA(cAW@tSET UP IOCB #156-?:C:,,5MULTIPLE OF 128 BYTES MUST BE MOVEDJ-@/*@F:A%,3 JCOLOR REGISTERS LAST-@ BBA* B-$//(&ԠΠҠǠŠŠ AQ 3INITIALIZE APp /#@@A(C:/SHORT IRG AP@p6,(>:A%,GIVE REGISTER # TO CHANGE6 A`z%%(BETWEEN 704 AND 712 INCLUSIVE( REGISTER !! A)!AA`%!( GIVE BRIGHTNESS 0 - 15 %!! )!@A`@!( GIVE COLOR 0 - 15 !!! )!@A``$@% B$ D:GR107.BAS