:^P^QQTRUFALSGRCADGCCADGXOADGYOADGRMADCRTCONSOLASTLINPAUSUPPEEXTRACINIERHDLDSPYMENLSTCMNCOPENTRTTDSPYTTWAICMDINTPFILSVETTPCINTRTVTTLSTTDLTTPAINSTICKFISCREENIASFREQNAMEETGRCGMRBULKIOSUFMAXPTPGMPTPTSZTMRYCLRMVSCNUPTOUPPERSLEPRXLATYLATNLINEAUTLNLHOLEGCITBITLMARMASPHUBHUNCONROTVASLIMIAREDIFILXYXYNPTXYPCCPMBASBRUSHNRAMTOERLINERNULNXYYYIIINOBRKINOBKRLDOBGHELFSCREE@@A6A7A8A9 AU B2y BU5 A AAA B`A0BpA@APA`ApBAABBB B0B@ BP! "A#$ %(A& A'A (})*@ +,yA-UA.A/M0;;1II2O3@8g4@5B`Q6@ 7A8@9@h:APA;A?@ABC@D@E@F@GH@ I@J@ K@PLAFMNOPQBg`RBi`STUVAWXYZ@@[AY\@]@^@_@y`@abcBd@e@fB `ghijk@lm@n@o@p77qrBsntAuvw6-6-@ 6-6-6-A66-A7#6-A8(6-A926-AU76-B2y<6-BU5A6-AF6-AK6-AM6-AP6-A U6-B`Z6-A0_6-Bpi6-A@n6-APs6-A`x6-Ap}6-B6-A6-A6-B6-B6-B 6-B06-B@6-BP6-B11;AV,;@,9@$,;@,;@@,;@U,AA6.7hhh$%)56)$%`)l5&9@ ,&"T" MAXIMUM COLUMNS1-@B@S-A5%@:7<,,1 6-?:C:,<,#9@ ,#"G" MAXIMUM ROWS;@(,&&6.hhhrhuhthyhx0 V`;@,26-@ 2MAXIMUM NUMBER OF POINTS TO PLOT22;A,;A,9<@,9,9,;@Y,EE6.;hhhhhhh`8Υi̥i8;@s,SS6.Ihhhhhhhץ ש̘`ױ̠8Υi̥i8;@1,))6.hhhhha0 {8 ̘`   1-@@@-A5%@:7<,,1   Ap, }A1  6Y( (Y(K==> .S or .M or .L ( size of Print ) ( Clears Screen );.(.(#==> .PAUSE 1 (.1-5)( Pauses Text )@0(0(%==> .VSCROLL ( Scrolls text Upward )EQ(Q(F==> NEW ( Start Over ) LIST ( To Edit Your Title )J.(.(#==> START ( Go Back To Main Menu )O*(*(==> .(Color) ( Color Of Text )T/(/($==> .B (Color) ( Background Color )YK(K(@==> .LT 4 (0-4) or .DK 0 (0-4) ( Intensities )^ (( For More  c (}hP(P(E==> .B DK 4 (0-4) or .B LT 3 (0-4) ( Background Intensities )m"("(==> .GOTO 10 ( Loop )r-(-("==> .PICT (Name) ( Loads Screen )wT(T(I==> .SONG c1 (c1-c4)( Musical Notes ) ( Octave (3) ) R1( REST )|%(%(==> .BLANK ( Skip Line );(;(0 etrieve DEMO and LIST in Edit ModeN(N(CŠ START-will always bring you to the MAIN MENU (( For More   (}""( /(/($==> P ( Print Text )( = OUT ).(.(#==> S+Number+ ( Square+size ).(.(#==> C+Number+ ( Circle+size )'('(==> D ( Delete Definitions )((==> F ( Fill )((((==> R ( Repeat or Draw Rays )/(/($==> FIRE BUTTON ( Negitive Results )((==> L ( Draw Line )((==> Q ( Quit Paint ) ( (==> E ( Exit Screen )(( For More (}.*(!Would you like a Print Out.(4Y)4y(P:AAU $$PAUSE FOR P SECONDS SUBROUTINE'@@'@ BB6-+F:@,$BU6%F:@,$AV%F:@ ,,'@Y'C@ ! $ A X,,SUBROUTINE TO CONVERT A$ TO UPPER CASEb B:,"'' l7<,4<'' v6-?:C:,F:,@A!R-@\ "f 68,-68,-p z 5,3 2,3 2,1 5,3 10,6 10,6 20,12 20,12 40,249@,9@,-@"68,-"68,-  0,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,0$ A. -@#8 "68,-B  L $V ''144,128,243,217,193,182,162,72,64` 121,108,96,91,81,35,31j 60,53,47,45,40,15,21,29 DISPLAY MENU SUBROUTINE +  "  "  ,, $SELECT ONE OF THE FOLLOWING OPTIONS:   ## E - ENTER OR CHANGE A TITLE   "" S - SAVE THE CURRENT TITLE   %% D - DISPLAY THE CURRENT TITLE  ! ** "B - BLANK SCREEN/RETURN TO DISPLAY#  & "" R - RETRIEVE A SAVED TITLE0  : -- %L - LIST THE SAVED TITLES AND SCREENSD  N ** "X - DELETE A SAVED TITLE OR SCREENl  v $$ P - PAINT/LOAD/EDIT A SCREEN    H - HELP   +# WHICH OPTION DO YOU SELECT'+   4E $  4S $  4D $  4R $  4L $  4X $ T 4BA/AR@5(}=6.DJ@T A2   4P $  4H $ # OPTION  IS ILLEGAL#   ENTER TITLE SUBROUTINE 6- NUMBER OF TEXT LINES""@@E:DUMMY+   ##      B:,!6- AA0 6.67<,.>:AU,=#67@<@,.>:AU,=67@<@,.>:, 6-6- +(  ENTER NEW TITLE. END WITH +  AA@"0- %CURRENT TITLE READY TO LIST OR CHANGE0 , 6-6 6-6-%@@''6-AV$@:7<,,%@:7%<%,,J  T*@B:,"*('@*$^ B:,"6- AA@h 6- ABpr7)@:7<,, @H)@:7<,,!@W- 7 AA@|-@B:,3)@:7<,, @H)@:7<,,!@W3 ABP  !B:,6-B:,6-A:7@<,,B:, %AB2%7%,4.BLANK)7%,4.blank267%,. 6-B:,&M "'6-@:7%@<%@,,=67,.7%%@,C"M AA@  )! AD 6.@%@%!A- TITLE TOO LONG96-@= @$67%@%,.7,$67<,.>:P:'AV,,$6-%/'67<,.>:&AV$@:7&<&,,,/6-%67<,.>:,6-%67<%,.7%,6-%& AA@0 6-:++6-%@:7%@<%@,,%@D''6-AV$@:7<,,%@:7%<%,,N ACDISPLAY TITLE SUBROUTINEHB:," }5(*SORRY* NO TITLEA6-@E H$66-@6-!6-@'6--6-66-8,+%@ 6-$$6-++8,'@,&+'@,,!B:,&@AQF:,"@$ 6.  6-8,$$6-++'@,&+B:,'@,,7<,4.  AP` N  (  ERROR, LINE  TOO LONG46-@8 D+%@N AP`; P:,'+&P:,,$@/6-&5 ;6- 6-%(..6-?:C:,%@A 0&C$H!4.B GRAY6-! As0M!4.B GOLD6-! As0R)4 .B ORANGE6-@) As0W&4.B RED6-@& As0\'4.B PINK6-@' As0a)4 .B PURPLE6-@) As0f'4.B NAVY6-@' As0k'4.B BLUE6-@' As0p)4 .B LTBLUE6-@ ) As0u'4.B AQUA6-@' As0z%4.B GB6-@% As0(4.B GREEN6-@( As0%4.B YG6-@% As0%4.B OG6-@% As0)4 .B LTORNG6-@) As0((7@<@,0.B LTAs@%%6-@%@$A:7@,,!@6-@0@$""7<@,0.B DKAsp%%6-@&@$A:7@,,  6-0@$ 6- F:,"@$0.VSCROLLAtU%6-8,$@%6-8,$@%%6-F:A`,%AV$F:Aa,))6-F:%@,%AV$F:%@,6-$+&,!B:,&@$ 6-6. 7<,4.6-$$$6-++'@,&+B:,'@,,; P:,'+&P:,,$@/6-&5 ;6-6-8,&-@<@&<6-?:C:,%@A:,n# T:,"@s#>>6-?:C:,%@A:, A# 6-A:,# T:,"@#68<,-68<@,-#68<,-68<@,-#+68@<,-+68@<@,-#+68@<,-+68@<@,-#% % 68<,-%%68<,-%#7 % 68<@,-%768@<@,-%#1 &!68@<,-&168@<,-&#7 &!68<@,-&768@<@,-&#%%,8@<,8@<@,#+-@'/8<,8<@,+ #6-@# A#@:Q,*@:q,A # ' $@:C,*@:c,Ap $DRAW CIRCLE $ 6.6-@$+)@+"*B:,!A@$67B:,%,.>:, A0$. 6-A:,"@$6-. A$ -6"$ T:,"@'$6-M:$&$,,$ 6-1$ % 6-%6$  6-;$ 6-@$ % 6-%E$  6-J$ ,O$6-T$ &!6-&Y$(,c$ 6-% 6-%h$ 6-% 6-%m$  6-r$  6-w$ ,|$%6-&!%6-&$  6-$(,$ $ A$@:E,*@:e,Aw$"A$' B3$@:D,*@:d,A$%68<,-68<@,-%6-$ A$@:L,*@:l,A $68<,-68<@,-$"A$,8&<,8&<@,$ /$ 6-%$ A$@:F,*@:f,A5$"@6- $%"@6-% A$ A$@:R,*@:r,A$#6-8<,&#6-8<@,&$ -&$%8<,&!68<,-% Ae$%8<,& 68<,-% Ae$68<,-8<,&$18<@,&!'68<@,-1 A$18<@,& '68<@,-1 A%!!68<@,-8<@,&%  % T:,"@%,8<,8<@,% -&%/8<,8<@,!% &% A+%AdAU0%$%FILL CIRCLE% 6-% -6% T:,"@%6-M:$&$,% 6-% % 6-%%  6-% 6-% % 6-%%  6-% ,%6-% &!6-&%(,%  /% 6-% 6-%% 6-% 6-%%  6-%  6-% ,%%6-&!%6-&%  6-&(,&  / & & A'RETRIEVE TITLE SUBROUTINE' '+   $'!!  .'   8',$ ENTER THE NAME OF THE TITLE(, B'B:,!@B@L' 6.V' 6.D:`'67B:,%,.j'67B:,%,..TTLt'%@%@@~'@'67<,. '&&6-?:C:,<@%@+B:,@BH+X7@<@,4TTL&6-%< 7@<@,U@$P:'@,"X R+ B`\+,@,@@D1:*.*f+    LIST OF SCREENS p+ 6-z+@+B:,@Bp+X7@<@,4SCN&6-%< 7@<@,U@$P:'@,"X + B0+++6-P:++A&A:,,'@,%?P,+%  %  DISKETTE IS % FULL+ +$.DELETE TITLE MODE.+   ..  .DELETE MODE.7  /  DELETE A TITLE OR A SCREEN (T/S)37 /0S*0T /!6..SCN4T!6..TTL/0 ( ENTER THE NAME TO BE DELETED,0 &/B:,!@B `0/ 6.D::/67B:,%,.D/67B:,%,.N/*@3@*DELETE FILEX/   b/ l/$2PAINTING MODE SUBROUTINE2+   20  0PAINTING MODE2   ENTER SCREEN NAME2' (8 CHARACTERS MAXIMUM)#' 2B:,!@ 3 6.D:367B:,%,.367B:,%,..SCN"3   NEW SCREEN,31)  OR RETRIEVE AND OLD SCREEN (N/O)-1 63' 4N6-@6-' B2@3' 4O6-@6-' B1@J3 B0T31 ) WANT TO EDIT THE SCREEN (Y/N)-1 ^34NB8ph3 6-6-@r35 ' WANT TO CHANGE COLORS (Y/N)+/ 56-|3 4Y6- B33 B83  SELECT LOW (L) 3  MEDIUM (M) 3  OR HIGH (H)3- %  RESOLUTION (L/M/H))- 3! 4L6-@! B23! 4M6-@! B23! 4H6-@! B23 3SELECT COLOR3+   33!  3COLOR SELECTION4# AR#SUPRESS CURSOR4&&  4 BRUSH 1&4)) ! FOR BRUSH NO.04   :4&&  D4 BRUSH 2N4)) ! TO CHOOSE HUEX4   b4%%  l4 BRUSH 3v4** " FOR BRIGHTNESS4   4%%  4,, $BACKGROUND TO BEGIN PAINTING4-- % THEN SAVE PAINTING40@6-A4F6-F:A,&@&BBy46-AV$FSET P/M ADDRESS4;!6-?:C:,<B2H<@<,;SET HORIZONTAL POSITION4?!6-?:C:,<B2W<@<,?SET PLAYER SIZE TO STANDARD4B2V4##6-?:C:,<%A<A<,4EAY@F'B2w@EENABLE P/M WITH 2-LINE RES.4?'6-?:C:,<A<@<@,?INITIAL PLAYER COLORS4 "6-@ B65@ 5@53AA'A3A 5@*5B16-?:C:,<%A%@@<@<AU,BBUILD PLAYER 145B16-?:C:,<%A@%@`<@<AU,BBUILD PLAYER 2>5B16-?:C:,<%Ah%@<@<AU,BBUILD PLAYER 3H5B16-?:C:,<%A%A<@<AU,BBUILD PLAYER 4R5 6-\56-P:'@,f56-&$@p5,R:,"@ 6-&@& ,6-z5>R:,"@&6-%@2!@>6-@5F:,@B7`5B2V%5 6-%!@6-56-F:A%,5$6-P:'@,$6-&@$5B2V%5,F:,"@6-%&!@,6-5A%%@$5F:,"@ B856-? 5 B65B2wTURN OFF P/M5''6-?:C:,<B2a<@<,5+%@6AF:A,6.-@*A%F:A%,. 6 6-@$6 .6 86$$"@*F:,@B8B6$6((DRAW FIGURE ACCORDING TO JOY STICK6:@(@@K::AdAU6'"@6-@9'6-@#6'"@6-@y'6-@G6'"@6-AY'6-@616-P:'@,%6-P:'@,16-6 T:,6-? 6 %,7" T:,"@,"% 7 6-R:,7&6-%8,&6-%+ ,&+!,7&6-%8,&6-%+ ,&+!,(7 ,27,F:,"@6-%&!@,6-<7 F:,"@@ $F7F:Ad,AU P7(@w(TURN OFF ATTRACTZ7 B@`:SCREEN SAVE SUBROUTINE:@e:@@:@BPP:LL @,F:A,,F:A ,,F:A,,F:A,:@BP:$@$+%@:3AA 'A3A:G-@.A%F:A%,2 GAF:A,:%%6-F:A`,%F:Aa,$AV:))6-F:%@,%AV$F:%@,;6-F:A,$AV;6-?:C:,<%@<<&,;@$; 6- $>ERROR HANDLER SUBROUTINE> > 6. >%%6-AV$F:A,%F:A,>6-F:A,>."A8.6.TURN ON THE LINE PRINTER>&"Ab&6.DISKETTE IS FULL>*"A( *BREAK HIT DURING I/O>-"Ac-6.UNRECOVERABLE I/O ERROR>B"Ap<6.&NEEDED FILE NOT FOUND ON THIS DISKETTEB6->)"AA)6.CURSOR OUT OF RANGE?5"@6.1$5INVALID STRING CHARACTER?"A)@$ ?""@ "RETURN ERROR*?  *** 4?% 4 % ERNUM  ERLINE >? H? R? hBLIST COMMAND INTERPRETERrBB:, @Bs|B BB:, @BrpB 6-6-6-B!!7<@,0LISTBrPBB:, @BpB"7@<@,4P"6-BB-@B:,B@:7<,,@H*@:7<,,@WBqB  BqPB6-A:7,,B*-B:,*@:7<,,"@DBq@B B 6- BqPB6-A:7%,,B 6-C''6-AV$@:7<,,%@:7%<%,,C ")!$C!!6-@:7%@<%@,,&C 6.7%@<%@%,0C 4 6..BLANK:C *(  DC *3 NC6-%%@XC Bq`bC#7<@,0AUTO# BslC&6-A:7@,,&@#6-&$vC 7<@,0RENBsPC 6-6-@C*'AV$@:7<,,%@:7%<%,,"*$C$67<,.>:P:'AV,,$6-%C/'67<,.>:&AV$@:7&<&,,,/6-%C6-%@:7<,,%C6-%@C BrC&&7@<@,0NEWBsC 6.@C ' C.+ ** ERROR - COMMAND  IS ILLEGAL.$C&6-A:7@,,&@#6-&$PFPOLYGON FILL SUBROUTINEZF -&dF 6-%nF !&6-xF&8<,"8<,68,-& BpF6668,-+8<@,&8<@,,'+8<,&8<,,F##68,-8<@,&8,$8<,F F 6-66-F -&F% 8<@,%6-8<@,F+!8<@,%6-8<@,+6-F F 6-6-&F  6-&F 6-%F !&6-F B@G(8,")8,"6-8<,( BG6-+&8,,'8,G(8,")8,"6-8<,( B "G6-+&8,,'8,,G T:,"@6G ,/@G 6-%JG 8<@,BTG8<@,"$^G 6-6-%hG !&6-rG 8<@,B|G8<@,"$G 6-& 6-&G B N""OBJECT FILE INPUT SUBROUTINE*N@@4N)@)@>N)@)@HN6-AV$%RN)@)@\N6-AV$%fN! 6-&%;,!67<,.ApN6-?:C:,<@