;PICTURE.ACT        › ›;  THIS IS A GTIA GRAPHICS 9 DEMO›;WRITTEN IN ACTION! LANGUAGE.›;THE PROGRAM DRAWS A PICTURE OF›;EITHER ABE LINCOLN OR MONA LISA.›;THE SPEED IS APPROXIMATELY 6 TIMES›;FASTER THAN ATARI 8K BASIC.› ›;  THANKS TO BRUCE NELSON FOR HIS›;ARTWORK DATA AND THE ORIGINAL›;BASIC DEMO.› ›;   -----------------------------›;   ******** JOHN DEMAR *********›;   ********  10/29/83  *********›;   ******** 71066, 337 *********›;   -----------------------------›››PROC DRAWIT()› BYTE Y,Z,N  › BYTE X› BYTE ARRAY SCREEN, A› CARD ARRAY LD(48),MD(48)››LD(0)="9::;;;;<<=<============>===>>>=============>===>====>=>>=>>>@@@@"›LD(1)="9:;;;<<<<<=============>==;<<::=>>========>===>>=>>>>==>>>>>@@@@"›LD(2)=":;<<<<<<<<=======>======:754533569<=>=========>==>>>>>>>>>>>@@@@"›LD(3)=":;<<<;<;<<<=====>>==>=;5444543333337;<==>>>>=>===>>>>>>>>>>=@@@@"›LD(4)=":;;;;;;<<<<<=====>=><94545555333333337;=>?>>>>>>>>?>>>>>>>==@@@@"›LD(5)=":;;;;;<=<<=<====>>>=6444454443333333337:>>>>>????>??>>>>>>>>@@@@"›LD(6)=":;:;;;<<<<==<<==>>>8444455534333333232347:=>?>?>??>?>>>>>>>>@@@@"›LD(7)=":;:;;;<<<<===<===>944444443343335::75233359<?>?>>>>>>>>>>>>>@@@@"›LD(8)="::;;;;<<<<<<=<<==954444344434338?@@@@7233457<>>>>>>=>>>>>>>>@@@@"›LD(9)=":;;;;;;;;;;<<====5434444444345:@@@@@@@4453245=>>>=>>>>>>>>>>@@@@"›LD(10)=":;:;;;<;;;<=<<==144343334346:?@@@@@@@@>2322359>>>>>=>>>>>>>?@@@@"›LD(11)=";;;;;;;<<<<<=<=<54444334479=?@@@@@@@@@@8222355=>>>>>>>>>>>>>@@@@"›LD(12)=";;;;;;;;;<<<<<<:448444448>?@@@@@@@@@@@@>3221378==>>>>>>>>>>>@@@@"›LD(13)=";;;;;;;;;;<<<<<537744475>@@@@@@@@@@@@@@?:341275=>===>>=>>>>?@@@@"›LD(14)=";;;;;;;;;;;;<<:44:743579??@@@@@@@@@????>=531154<>=>=>=>=>>>>@@@@"›LD(15)=";;;:::;;;;;;;;936:;8548?????@?@????????=<842152<>>=======>=>@@@@"›LD(16)=":;;;:::;;:;:::83:;<<:=>>???????????????<=<52112:=>=========>@@@@"›LD(17)=":;;;;;::::::96549;<<=>>>>>>>????>>?????==<42111:===========>?@@@"›LD(18)=":;:;;;:::9:984459;==>?>>>>>>?????>>>?>>::9432115=======>===>>@@@"›LD(19)=":;:;::::::9:64449;<=>?>>>>>????=>>>>>>=989321101;=====>======@@@"›LD(20)=":;;::;:::::866438<>>>>?>>=>><9756;==>=<8664211113;========>>>@@@"›LD(21)=":;;::::::::7833479:<<=>=><:6333357<>==<743224<:212=========>>@@@"›LD(22)="::;;:;:;::;:7353446548;;=:633233377<==<53223<52342;========>>@@@"›LD(23)="::;:::;::;;;956333333349>;6432386249=><5222::53322<=<<<<<==>=@@@"›LD(24)="::;:::;:;;;;;96533344339=<;432246754;=<82237;;8563<<<=<======@@@"›LD(25)="9::;;:;;;;;;;<;73334545>=;<974569;:8:<=;43653;;;94;<<<<====>>@@@"›LD(26)="99::::::::::;;;;434566;==<<<7679:<<<<<<<54<<39==75;;;<<<<===>@@@"›LD(27)="999999::::9:9:::556675<=<<<<:8:;;<<=<<<<52<==5==23<;;<<<<<===?@@"›LD(28)="8999999::9998999574559<<<;<<<;;;<<<<<;;824;<=;<:14<;;<;<<<===??@"›LD(29)="8898999998888888589:9:<<;;;;<<;;<<<<;:8214:;<<;13<<;;;;<;<<<<??@"›LD(30)="888899999888888848:;9;<;;9;::<<;<<;;:831168;;<<16;;;;;;;;<<<<??@"›LD(31)="8888898988887888548:9:;;;;<:7:;;;:986441189;<<44:;;;;;;;;<<<<???"›LD(32)="7888888887887888724747888988:69;:87536511:1;<946:;;;;<;;;;<<<>??"›LD(33)="7787788877887878862312211227;:498655575328113488:;::;;;;;;;<<>??"›LD(34)="777787777777787888123211269:;;:89858786536113689:::::::;;;;<<>??"›LD(35)="7777777777787778884142135::::::959698:55662179:::::::::;;;;<<=>?"›LD(36)="66777777777778878871222699998868:9899:64452579:;::9::::::;;;;=>?"›LD(37)="67777777777777778861111154578983698::84433399:::::::::::::;;<<>?"›LD(38)="77776776777778877761212489887589687:983452599:::::::::::::;;;<>?"›LD(39)="666666667777778777722211122248::969::5322489::::::::::::;:;;;<>?"›LD(40)="666666667777778788611333689999:86677922117899999:::::;::;:;;;;>?"›LD(41)="666666666777777777611114578874621225321119499:9::::::::;;;;;;;>?"›LD(42)="66666666677777777761011223432432211211113;68:::::::::;::;:;;;;>?"›LD(43)="66666666777777777771111111211121111111126<43:::::::::;:::;;;;;>?"›LD(44)="66666666667777777872001110111111111111168<219::::::::::::;;;;;>?"›LD(45)="566666666677777778861010001111111111117;;:111::::::::::::;;;:;>?"›LD(46)="66666666667777777888610000111111110129;;<21116:::::::::;;;;;;;>?"›LD(47)="566666666667777777888813000111100114;;;;<211118:;:::::::;;;;;;>?"›LD(48)="56666666666777777788825731000001137;;;;<921111126::;:;;;;;;;;;>?"›››MD(0)="@@@@@3444444444554555656566565655666666666665666666655676665@@@@"›MD(1)="@@@@@5566666666666666777777776433456778877777776666666778776@@@@"›MD(2)="@@@@@7667777777777778888888533211232478898879888887788789987@@@@"›MD(3)="@@@@@778898887888888899:9932222222322379:998:999888888889998@@@@"›MD(4)="@@@@@78989898889999989::92212222223432389:9::9:999999999:998@@@@"›MD(5)="@@@@@8899999:99999999:::2122222478897525:::::9::9999999::::8@@@@"›MD(6)="@@@@@989999999:99:::::;311112248:;<<<:81::;;;:::::9:99::9::9@@@@"›MD(7)="@@@@@99:9:9::9:9:::::;911111247:;<<<<=<54::;<;;;:::::::::::9@@@@"›MD(8)="@@@@@9:::::::::;:::::;111111357:<<<<<<<718;:;;;<;:::::;;:9:9@@@@"›MD(9)="@@@@@::9;::9:::99988681111125799;<<<;;;716;:;;;;;;:;::;;89:8@@@@"›MD(10)="@@@@@99;::::::6986564511112389::;<<<<;;9128;<;<:;::99::96786@@@@"›MD(11)="@@@@@78:;:;:::4755564311111489:;<;<<<<<9928;<;<;;96798846733@@@@"›MD(12)="@@@@@778:;;::7575564221111246567758<;6780259;:<:745565656523@@@@"›MD(13)="@@@@@7789:9::5435433311112268533:64=83740238:9<4543254465632@@@@"›MD(14)="@@@@@5788999:533443331111226;<99<;6<:7:991277697354254624742@@@@"›MD(15)="@@@@@67888887333354321111125:<==<<9<;<<<11342752223343353333@@@@"›MD(16)="@@@@@667878742333444411111249;==<;:;;<<;12333742212325133233@@@@"›MD(17)="@@@@@6666777666666545111212479<<<;9;<<;:13133333213455111221@@@@"›MD(18)="@@@@@45464455333343421111224689<<867:;:712223233334542121410@@@@"›MD(19)="@@@@@33544333322344431122135788:::54<<9611223323234522223510@@@@"›MD(20)="@@@@@3455654223334442112123467:;:66887:313233333223322234411@@@@"›MD(21)="@@@@@34346544333344431121324579;:988:;8112234332222333333311@@@@"›MD(22)="@@@@@333333333333435421222345668::;;;81112244433332322222211@@@@"›MD(23)="@@@@@3444433434665443212233345568:;=;21212245333222232232011@@@@"›MD(24)="@@@@@3444545544554443222333444565666211112258643222232330111@@@@"›MD(25)="@@@@@4554455533333333212234455444442122112268775553333321011@@@@"›MD(26)="@@@@@5444454434533332212225676445693211122367777665433200011@@@@"›MD(27)="@@@@@64556555555643312122458877679;3221222568777777554211011@@@@"›MD(28)="@@@@@5546787675432222222237899989;83311222336665752334433111@@@@"›MD(29)="@@@@@45547:733322112232334::::9:::98322111211222132245432113@@@@"›MD(30)="@@@@@566559755432222242326:;:;;;:;;;962111122221152323432112@@@@"›MD(31)="@@@@@5454678::854323333535:;;;;;;;<;;;8222121323224432331112@@@@"›MD(32)="@@@@@5655687:9743223223545:;;<<<;<<<<<;321013213213654442013@@@@"›MD(33)="@@@@@5675786776422332235449;;<<<<<<=<;;932013223332565653222@@@@"›MD(34)="@@@@@7776688776434365224557;<<<=<==<==<:65201223333566872222@@@@"›MD(35)="@@@@@9:98786644445687544468;;<<========<99311024335688332111@@@@"›MD(36)="@@@@@67655454444458:;976456;;<====>=====<;602111445752132222@@@@"›MD(37)="@@@@@88533443444333558:9688;;===>>>>==>>==611111474433341432@@@@"›MD(38)="@@@@@9555354444543333455879;==>>>?>?>>>>>:621110177544443222@@@@"›MD(39)="@@@@@76665544445433333533468;>??????@>>:87752211115567666533@@@@"›MD(40)="@@@@@768873345444454434334366:>@@@><997977663221100345555553@@@@"›MD(41)="@@@@@7576534464455444444333447689889888564665311110356667553@@@@"›MD(42)="@@@@@7755433264644554454443444655678798465676211110576667431@@@@"›MD(43)="@@@@@5777433345665755455334344554569877525344211000244444430@@@@"›MD(44)="@@@@@6997434446666665654434344456536775534244421100233323330@@@@"›MD(45)="@@@@@6875544335677675754444445545545554533223311100015545440@@@@"›MD(46)="@@@@@7986644344456786564444355545465544432221221110036755651@@@@"›MD(47)="@@@@@8986544344555787664544455656465445322311221210007766553@@@@"›MD(48)="@@@@@8977644344544668764444555565455444333211122110003453333@@@@"››  DO›    GRAPHICS(0)›    PRINTE("GTIA GRAPHICS 9 DEMO")›    DO›      PRINT("0-EXIT  1-LINCOLN  2-MONA LISA >")›      N=INPUTB()›      IF N=0 THEN RETURN FI›      IF N<3 THEN EXIT FI›      PUT($FD)  PUT($FD)›      PRINTE("ENTER 0, 1 OR 2 !")›      FOR A = 1 TO 32767 DO OD›    OD››    GRAPHICS(9)›    SETCOLOR(4,2,0)››;   POKE($D40E,0)   ;OPTIONAL FOR SPEED-›;   POKE($22F,0)    ;UP W/BLANK SCREEN.››    SCREEN = PEEKC(88) + 960 + 7››    FOR Y = 0 TO 47 DO›      IF N=1 THEN›        A = LD(Y+1)›      ELSE›        A = MD(Y) ›      FI››      X = 59›      WHILE X>6 DO›        Z = A(X)›        IF Z=64 THEN›          Z = $F0›        ELSE›          Z = Z LSH 4›        FI››        IF A(X-1)=64 THEN›          Z = Z % $F›        ELSE›          Z = Z % (A(X-1) & $F)›        FI›        SCREEN^ = Z›        SCREEN(40) = Z›        SCREEN(80) = Z››        X = X - 2›        SCREEN = SCREEN + 1›      OD›      SCREEN = SCREEN + 93›    OD››;   POKE($D40E,$40) ;OPTIONAL FOR SPEED-›;   POKE($22F,$22)  ;UP W/BLANK SCREEN.››    N = 255›    WHILE N=255 DO›      N = PEEK(764)›    OD  ›    POKE(764, 255)›  OD›RETURN››