;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  › CARD x› CARD POINTER 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@@@@"›                                    › n=1› WHILE n>0 DO›   Graphics(0)›   PrintE("GTIA Graphics 9 DEMO")›   Print(" 1-LINCOLN  2-MONA LISA >")›   n=InputI()›   IF n<1 OR n>2 THEN PrintE("`Enter 1 or 2 !")›     FOR x=1 to 32767 DO OD›     drawit()›   FI›   Graphics(9)›   SetColor(4,2,0)›;  Poke($D40E,0)   ;Optional for speed-›;  Poke($22F,0)    ;up w/blank screen.›   FOR y=24 TO 162 STEP 3 DO›     IF n=1 THEN a=ld((y-21)/3)›       ELSE a=md((y-24)/3) ›     FI›     a=a+64 ›     FOR x=10 TO 70 DO ›       a=a-1›       z=a^ ›       IF z=64 THEN z=63 FI›       color = z›       Plot(x,y):Plot(x,y+1)›       Plot(x,y+2)›     OD›   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›;-----------------------------››