PMSCCCRSBLANKABLKROUTINEPMBASBSCBSCDSCRLOSCRHIGHIGLOVVTSTAROFFSEHTSCTSCLDELADDCLOCOLLUBSCRSCLOBBLBLBC@@  !"#$%&'()*+, COLOR PALETTEBY JOHN W. FELTON (c) 1985, ANTIC PUBLISHING(INITIAL COLORS240,202,148,70<!!50,82,252,114,172,244,198,0FDISPLAY LISTPZZ112,112,64,69,0,0,133,0,130,0,5,133,0,130,0,5,133,0,2,0,2,66,0,0,2,2,2,2,2,66,0,0,65ZDISP. LIST INTERRUPTSdll72,173,200,2,69,79,37,78,141,10,212,141,24,208,173,7,6,69,79,37,78,141,23,208,169,50,141,0,2,169,6,141n1,2,104,64xll72,173,0,6,69,79,37,78,141,10,212,141,22,208,173,1,6,69,79,37,78,141,23,208,173,2,6,69,79,37,78,141,24MM208,173,3,6,69,79,37,78,141,25,208,169,106,141,0,2,169,6,141,1,2,104,64mm72,173,200,2,69,79,37,78,141,10,212,141,24,208,173,7,6,69,79,37,78,141,23,208,169,142,141,0,2,169,6,1411,2,104,64ll72,173,4,6,69,79,37,78,141,10,212,141,22,208,173,5,6,69,79,37,78,141,23,208,173,6,6,69,79,37,78,141,24..208,169,188,141,0,2,169,6,141,1,2,104,64ll72,173,200,2,69,79,37,78,141,10,212,141,24,208,169,224,141,9,212,173,7,6,69,79,37,78,141,23,208,104,64V/B INTERRUPT,,169,14,141,0,2,169,6,141,1,2,76,95,228**104,160,219,162,6,169,6,32,92,228,96SCROLL SUBROUTINE$$104,104,141,0,0,104,141,0,0,96IIGREY,GOLD,ORANGE,RED,PINK,VIOLET,PURPLE,BLUE,CYAN,LT BLUE,TURQUOISE00BLUE-GRN,GREEN,YLLW-GRN,ORNG-GRN,LT ORANGE]];A$,;A,9@,;@,9@,;@ ,;@,;@,TITLE PAGEAF:A@,"e +'0@@@A0@@SAeAR@,M-6-F:A`,%F:Aa,$AV%@ 9@M%@@6;-@@;(! _____________@-@@(BYJ(-@@((JOHN W. FELTONTINITIALIZE^/ #A!-APAx%"+/ h,-@@ ,((BACK IN A MOMENT)r2 #@P!-@@%".68,-2 |7 #@`!-@%"3A6%7 267@,. #67A,.267@,.$$6-AV$+F:A,&@,(6-P:'AV&@,(6-.-@A*%F:BsD%,. SET UP DISPLAY LIST +@AY56-&AV$@'6-%@"56-%@#1 #@!-@2%"-%1 = &%@3F:A`,=%@4F:Aa,f%@F:@,1%@F:@,RA`&P:'AV,$AVfAa'AVj-6-F:@,%F:@,$AV%A>6-P:'AV,N6-&$AV\%@0j%@1KA@'A@9BBAKAC@INIT SCROLL SUBROUTINE7 #A0!-@@%"367<,.>:,7 X6-P:'AV,$6-&$AV>67@<@,.>:,X67@ <@ ,.>:,X6-P:'AV,$6-&$AV>67@<@,.>:,X67@<@,.>:,&6-?:Ah,0SET UP P/M GRAPHICS:%%6-F:A4,%F:A5,$AVD%%6-F:A@,%F:AA,$AVN 6-&X$6-P:'AV,$6-&$AVb%@%@lD67A,.,67A@,.7A,D67A,.7A,v9A#@'A@9B2V@CBByP:'AV,,B2w@CAVP:'AV,3367@ <@3,.UUUUUUUUDRAW SCREEN96-F:@,!6-F:@,-@9@=@'AR@9-=(m #A@!-@%"1-@;( S-@&+!@ ,W(c-@9i(m -@@-@y-@@1@]@3%+"@,%+"@!,$@%+"@1,$A0y-@@[-@+-@S,%%&+"@*"@1,$@W [    '@'AR@%-@@! A% K-@@ K(@'ŠŠK-@@K(@' @@6.  6. *AY@F416-A 6-@'6-@1 A >UPPER WINDOW ROUTINEH T:,"A@R,T:,"" AP, A \-@@ f Ap!!"*"APz@w 6-%6-%_16-&+"@,$@%+",$@_6-&+"@,$@%+",$@67<%@ ,.6-$@!%A B2H$@@%@"67<%@ ,. APLOWER WINDOW ROUTINEW6-A'%%$@56-&+"@,$A$K"@*"@W6-AF6-%+&@,$@16-P:8,'@,F6-8,&+,$@6-%$AVGG6-%+!@* @,$+&@,$@@%+!@,$A A@O16-%@%+!@ ,$+&@,'@76-=-C(XI6-O6- T:,"A  A$8T:,"-$( . AP8 A@./6-%$@'6-%+!@',$/6-%8"*"APB@wL+!@7) @6-+6-V+!@) 6-+6-` -( j+%$@@ !6-&@@+ A@t3%$@@!%A)6-%@@3 A@~ -(X6-6-<6-%$@#6-%@$)268,-< A`%@@% A@@ APREAD JOYSTICK SUB6-R:,B6-+!@* @,&+!@* @,6-+"@)"@ )"@,&+"@)"@)"@,*@A'B7tA*$SCROLL SUB6-?:C:,<,$SET TEXT COLOR SUBY06-F:A,&P:F:A,'@,$@VAC@&+!@ ,$@Y$WRITE HUE/LUM SUB*6-P:8,'@,*6-8,&$@ L'6-@%+!@,%+!@,L6-&P:+&@,'@,$@B5-$@&@ &+!@ ,$@&@B( ,2)-$@&@$@&@2( (U)-$@&@$@&@88, @?( N8, @U( 2 (8, $<BEEP SUBFb%2@P@@9-@= _2b$ D:PALETTE.BAS