Z[""JOYARDDIJOXXXPMSTARHELPDLSELDLHELPSCSELSCADRSETUPL2NCORECONSOCBASDMACTGRACTHPOSPPMBASSIZEPBEGIKGTINMIELOALTSC1BUFFRCOLFQFILELINEUNDERCURSOCURSORFLACURSORCOUNSELCOLOFLASHCOUNINCREMENSTFILLFLADELASWITCXTESTENDIRECTIORCOBUFSCREEMODEREMSMAXSECOLNSELECTIOCOLSACOLUSEHLSHSLBASDLIS@  !"#@$%&'()*+,-./0123456789:;<=>?@ABCDEFG *** MODE 10 PAINTER *** *** PROGRAM ****** DESIGNED BY ****** PAUL S SWANSON *****("} MODE 10 PAINTER PROGRAM$$( FOR ATARI COMPUTERSZ(*( PROGRAM BY PAUL S SWANSON-(0(Z(%Ӡݠ٠ҠРΠI(&( Ҡ8-@@"I( Initializing+++ INITIALIZING +++(!!--- JOYSTICK READ TABLE ---2##9@<@,;@,<B-@@+-@/":68<,-> B FGG0,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,0P--- POSITION STRINGS ---Z---ON 1K BOUNDARY ---dY;@,6-C:,:6-P:'A$%@,$A$K;&&@,Y6-'AVn--- DISPLAY LISTS ---x;@d,;@d,--- SCREEN AREAS ---;AV,;AV,--- INITIALIZE DL'S ---6.ppppppppBA6.ppppppppOA6-AP$ 6-C:, $67B:,%@,.$ 6-C:, $67B:,%@,. --- INITIALIZE SCREENS ---+ 6.67AV,.+67@,.6.-@AU@P-@@.67B:,%@,.>:,2 6 P67@9<@@,.#67AV,. #67@A,.""--- PUT SCREEN ADDRESSES ---""--- INTO DISPLAY LISTS ---' 6-C:, '67@<@,."' 6-C:, '67@<@,., --- INITIALIZE PLAYER2 ---6;A(,@+ 6.67A(,.+67@,.J--- HELP SCREEN TEXT ---TCC67@<@@,.(РΠ^CC67@A<@,.(νРscreenҽillrighthCC67@<A ,.(Խolorelection̽illleftrCC67A!<A`,.(Խhangeenolorýancelfill|CC67Aa<A,.(ncrementĽoadave@-@B:, 6-@:7,,06-+!@',@6-&$A(kY6-+&@2,$+!@1* @,%+%@d,$+ @2,%$+!@,%$A(g67<,.>:,k ##--- SET-UP MODE 10 SCREEN --- +@--- USE RANDOM COLORS ---#6-@%#-AA 6-%@% A--- DEFINE CONSTANTS ---6-B2y6-A6-AY6-B2w6-B2I6-BBy6-B2W6-A&6-Ad06-A#:6-BBX!!--- INSTALL DLI ROUTINE ---b #Ap6-A6l1" AV'6-%@1 A v'A'A@--- ALTERNATE SCREENS ---;AV,;A,+ 6.67AV,.+67@,.C-@A@@@?67<%@#,.7<%@#,C --- OTHER DIMS ---<<9@ ,;@,;@@,;@,;@,&&--- INITIALIZE COUNTERS, ETC.---6-@96-@6-6-6-6-@6-6-@*** ****** MAIN PROGRAM ****** ***""--- READ JOYSTICK/CONSOL ---46-R:, 6-%@4 @A`"A@6-@&72@`@3-@@7 %%216-@&6-%%!@16- ,6-$**@)T:,"A. 6-F:, @A@0F:,AUA02 8@wV T:," ` ,j!!--- MOVE CURSOR ROUTINE ---t-6-%8<,$-6-%8<@,$~96-&P:'@,$@96-&P:'A,$A 1>6-6-@:")T:,"@> --- FILL ROUTINE --- 6- ' 6-%$#!@y) '  1"  , A --- $$--- KEYBOARD INTERPRET ROUTINE --- 4 6-F:,AU$"@@06-@4  "6-6@  !!"@1)"@0A "@6-  @X  B . ++( DISK TRANSFERS.( (<1> SAVE PICTURE ON DISK ""(<2> LOAD PICTURE FROM DISK (%(<3> RETURN TO CURRENT PICTURE(( $$(PRESS NUMBER OF SELECTION-- F@.@@K:;)@F@& /6-&@H/ @)!@A10  $A%A1 p%(} SAVE PICTURE ON DISK((46-@FA&P BS(f(SAVING PICTUREp B +-@'(@8,+  =-@A`@9(@7<%@y,=  *@ A&@* A0P X(( } LOADING PICTURE FROM DISK+(76-@A BD(X(LOADING PICTURE 1-@$@-68,-1  C-@A`@,@?67<%@y,.C  @ A0PH 0 +@!-@,%8,0 R 7-A`AV36-?:C:,<%<%,7 \  1   ---""--- FUNCTION KEY INTERPRETER ---7-@@ 6-F:,$ . AP 76-F:,''AAABACD6-B:,2A`@:7&@,,DAa@:7,,F:,@AA::R:,"@*F:,"AU*F:,"@AA  AP0 " , T:,"@AA 6 AA@h8 6-B:,&A`@:7&@,,8Aa@:7,,r- 6-C:, AP-67@<@,.|+6-A`6-@% AP@+6-R 6-C:, AP-67@<@,.>6-F:%@,R%@@1A6-A` '6-@1 AP@%@$@6-1@d6-A`0'6-@1 AP@!%@!6-$@% % AA@8 6-B:,&A`@:7&@,,8Aa@:7,,- 6-C:, AP-67@<@,.%6-A`6-@% AP@- 6-C:, AP-67@<@,. 6- AA@~& +++--- SUBROUTINES --- +++!!--- CONV'T A TO ADDRESS ---!!--- IN A$ ---&$6-P:'AV,$6-&$AV! 6.>:,67@,.>:,!$$6-F:Aa,!6-F:A`,$$AaA`$ # "."67@P<@V,.*I.6-@X:-@B:,:6-+@:7,,&@2,$@%BsD2-@.67%<%,.>:F:%,,2 6-%@ -A@B'@-M6--A?A@M6-%@$@%@r96-R:,9"@*T:,"@AQ  ?T:,"$<67@u,.7@t,?$!!6-%+"@,&+"@,(6-&P:',$($@%@r(_%2A5@@9-@@P= _22 AQ p COLRz CHGE HUE LUMXLL72,169,14,141,19,208,169,0,141,10,212,141,27,208,141,26,208,104,64,256@6-@2& 'L,($ENTER FILE NAME - MAX. 8 CHARCATERS.I( (NO EXTENTIONS PLEASE.)L(' ( $'B:, @B.' B8'4 6.D:67@,.467B:,%@,..PIXB'@$*_ (} (((2( - NOT A VALID NAMEF-@AJ U@_ A0P N4#6.hhhhhРȱΑ`467A,.*NT%6-F:A`,%AV$F:Aa,K6-F:%@,%AV$F:%@,T6-C:,4N7-AAV36-?:C:,<%<%,7 >N)-@%68,-F:%,) HN$D:GR10PNTR.BAS