@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}D |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED199 FREE SECTORS COPYING---D2:SURV4}F27.SND# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 165ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D41uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D41uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh` WELCOME TO THE ANTIC MONTHLY DISK Most of the X}programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you Y}refer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscri Z}ption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800) [} 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS ex \}tender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followi ]}ng list:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER the ^}n RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the filena _}me..ASM Assembly language source code from Atari Assembler Editor. Must be assembled..M65 Same as .ASM on `}ly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXX.OBJ Machine language object file. a} Same as .EXE but not 'Load and Go'. Refer to corresponding article..ACT ACTION! source code..SYS Res b}erved for DOS system files..DMO A sample BASIC demonstration program. LOAD, then RUN..LGO Logo language, requ c}ires Logo cartridge..TXT Text file. Usually accessed by another program.XXXAll programs from ANTIC issu d}es datedprior to August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most ar e}e compatible with the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our f} software listings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, an g}d ENJOY! -ANTIC EDich we encourage you, thereader, to personalize and enhance.Good luck, an 1iwLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXTi} A(@2lB:,!@-7@<@,4XXX0(3(E-@@"X( ӠΠ\b(}j}l @@<( @@da@ B*-@@"R("ΠҠՠҠˠҠVa%D:MENUk}D:HELPLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT@STf t AXLPB0NZ<( ((@@d"( m} +AdAU0@@70@@Q0@@c@@n}u@@7{(}AR@++(#(++(#| ANTIC MONTHLY DISK JUNE 198o}5 |2++(#<( |Side B|F++(#P p} AZ-@A $dGG;@@,;@ ,;@@,;A,;@,;@@,n"D1:MENU"q}x&&@@D:*.*6,6." 6 Ai6-%@(6.7@<@r},A67@ <@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.s}G67@<@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@t}<@,]67@<@,.0$@''7@<@,4FREEA A@() u}@''7@<@,4FREEA A@(7@<@,)| A'!-@6v}+'@,%@' |"++(#| |, ( |  |6++(#w}@**(" Select HELP.BAS for information.JART[@@9'-@@#C(x} FILE NUMBERM A@Q[ B^P:,A@h0"@&6.7@<@,0 ArLB6.y}7+&@,$@%@<+&@,$@%@,L B|37@<@,4 36.7@<@,!z}7@<@,4DOS!.0 6.-@B:,07<,4 A 67B:,%@,.7<,   6.! 6.{}D1:!67B:,%@,.?AR@'-@@"?  LOADING ? A`@@91@|}@5%? BK-@@"-  CANNOT RUN 7 @A BK A@D:MENUROUNDUP .BA}}S01 FREE SECTORS1|ROUNDUP..BAS(001 @@d"( 50]^ FNTEMPARCASLANUMHNUMLAADHADLIL}  GUP.BASBY DAREK MIHOCKA (c) 1985, ANTIC PUBLISHING(&}&;@ ,;@ ,;@,2)(}Output filename)6-<TT7@<@,4D*+7@<@,4}:)7@<@,4:,@F267@<@,.D:,67@,.26.P APZ'( ('(Working...plea}se stand byd## "6-;,#6-@n 6."x.-@B:,@.ARAUL6-&@#}-@@L((Countdown...T-P:'@,) =!67<,.>:A:7<%@,,,/6-%@3 = A$6}-P:'AV,$6-&$AV @@- 6-C:,6-P:'AV,-6-&$AV[6-AH#}%@@1%@?%@M%@[%@ *6-?:C:hhhLV,<@,*@ +}( Ġ 1909cc2552550000641040710760680710550710390651120651400650300671420640590680720690240680420700280}71cc040071096071233072233072000000000039050033048040041035051000053052041044041052057000000034057cc000036033050037043}000045041040047035043033000000000165203041007005206170165204041003168189148cc06403720713322007325505714206413320516620422}4192176034165203160002240009074136240005074136240cc0010741681891050711332141890410721332151772140372200052051452140960000}00255255255255000000000$cc000000000000000000000015240015240015240015240063207243252063207243252127191223239247251253254.}cc1652211972032400411760061662031342211332031652210450380651332231652030450380651972232400691978cc20324002310120913322403}2073064230203165203197221240050197223240046197224208237169000133207032Bcc0730641652030241012091332030760150652302142080022}30215165205145214165203024101209133203197223Lcc208235169255133207032073064165203197221240005230203076023065096000104104104}141110065104104133Vcc204104104133221104104133222173110065197221144007166221142110065133221165204197222144006166222`cc13}4204133222173110065133203032194064230204165204197222208240173110065133203032194064096000000jcc0000001041412080652382080652}38208065173212065072169000072173210065072169000072173208065072104tcc074240219201001208003076073064141208065206208065104104}133203104104133204133226076182065173210~cc06513320317321206513320413322610414121106610413322114121006510410413322214121206}5032214065206cc208065208219096000000000000000000165222197204208003076180064165221197203208003076253066176018cc1662031}34221133203165204164222133222132204132226165221056229203141203066072165204133226169000cc141248070141211066104016006141248}070078203066238203066165222056229204176009072169001141211066cc10407325502410500114120706616900003221406607214120706617320}5066133219169000141207066104024105cc0000322140661732050661332181691281332251692301411830661411680661732480702400050241022}19102218cc165219141213066201001208005165218141213066173211066240020165218073255133218165219073255133219cc169198141183}066141168066173213066240042032073064024165225101218133225165226101219133226165204cc19722624002023020416520419722624001219}7222240008032073064230204076170066032073064165203197221cc2400052302030761490660960000000000000000000000000000000001600080}56237203066008046205066014207cc066042040144006237203066076240066109203066136208233176004109203066024046205066096165204197}222cc144006164222133222132204032073064165204197222240011230204032073064165204197222208245096104104cc10413323010410413}3231104133225133226104133227240236141203066169128141207066169000032214066072cc1690001412070661732050661332191040322140661}73205066133218169255133236165225024101218133225165 cc226101219133226170036226048181230236165231056229236133204189170069141}146064169000141207066162cc008078146064144003024101227106110207066202208241234234133229173024068240037165230024101229133}cc221165230056229229133203032194064165231024101236133204165230056229229133203032194064076086067(cc1652362080311652311332}041652300241012291332030320730641652300562292291332030320730641652291332cc228076086067165231024101236133204032245067165231}056229236133204032245067076215067165230056229<cc22813320316523005622922913322103218006416523002410122813322116523002410122}9133203032180064096Fcc001000000000000000016024016024016024008008008000000024016255000001255255255255255255001001001Pcc2}55255001000104104104141036069041015170189027068133206169234141141067141142067189043068240029Zcc201255240020201002240008169}074141141067076115068169074141142067076094068169010076096068189038dcc06914107006918905406914103806518925007014110806414102}6068189010071133209138201012016022173036ncc0690321080691730360690410152010090480651690041411910022080581730360690410481410}26071173036069xcc041003170072189026069013026071032108069104170189032069141031069174036069160202177214041191205cc030069}208009177214041240013031069145214136208235162008189096071157192002202016247165088024101cc20813322514110507116508913322614}1041072160001024165225109070069133225153105071165226105000133cc2261530410722001921922082310960000000080080000000040050120}14000000040020020010010020020040040cc040040040040040020040255255255252248252248252248254254254255255248252000000104104141}033002104cc141032002104104170169255141046002173011212024101020010141010212157018208173046002208238096072cc16209616901}2157066003032086228162096169003157066003169168157068003169069157069003104157075003cc0412400730281570740030320862281730480}02133214173049002133215160007177214141030069096083058153cc153153153153153153153153153153152152152152152152152151151151151}151150150150150150149149149148cc14814814714714714614614614514514414414414314314214214114114014013913813813713713613513513}4134cc133132131131130129128128127126125124123123122121120119118117116115114113111110109108107105104cc1031021000990970}96094093091090088086084082081079076074072070067065062060057053050046043038033cc027019000104104104133203104104133204104133}233104133234104104133235198235160000165234133214165cc23313321517721413222407204109607407407407407416818524407013322310404}1159005223133218169000133cc219024038218038219038218038219038218038219165218133214165219024105224133215160007132232152024}cc101204170165203074074024125105071133212189041072105000133213165203041003170024164232177214133cc216169000133217102216}102217202016249160000173242070049212069216145212200173242070049212069217"cc14521216423213601618323020323020323020323020316}5203201152144016056233152133203165204024105008,cc1332042011841440001642241962352400042000760650700962550000640000320960000}000000000000020030026cc003002003001001001000000003002001001001004008004008004008002002002001001008004000000104104104@cc}133203104104133204076073064104162004160000104104153142064200202208247096104162003173010210157Jcc14206420201624709616508813}3212165089133213160039185033064145212136016248169255133207169036141T<<1980020960000000000000362061502550002240022250020000}64 D1:GUP.BASE0wSTARVBBOLINCIRCLC12CIRTEXGRAPHICCOLODRAWTPLOTUSECOTYPRANDOHOROFFSESETCOLOKBc}BfyBgBqBw6Bt2BybBw6 Btg @Q Be& @1 BgRB@9A}A Bw6@BB1ABr ##GRAPHICS UTILITY PACKAGE DEMO}BY DAREK MIHOCKA (c) 1985, ANTIC PUBLISHING(6-Bc*F:,"@v@P,TA@fT(:} } G.U.P. Machine Language routines are not in memory!.f(c(X This demo cannot RUN without theseroutines. See article} for additional information.f2))6-F:%@,%AV$F:%@,<))6-F:%@,%AV$F:%@,F))-F:%}@,%AV$F:%@,P))6-F:%@ ,%AV$F:%@,Z))6-F:%@,%AV$F:%@,d))-F:%@},%AV$F:%@,n))-F:%@,%AV$F:%@,x))6-F:%@,%AV$F:%@,))6-F:%@},%AV$F:%@ ,))6-F:%@!,%AV$F:%@",))-F:%@#,%AV$F:%@$,))-F:%@%},%AV$F:%@&,))-F:%@',%AV$F:%@(,6-ABEGIN MAIN PROGRAM A }@&6-?:<@,&ARAU..(&}The same routine in GR.15 with G.U.P.U,($using multiple parameters f}or speed.U6-?:<@<@<@<@,I-@y@-6-'@;6-AY&I6-AY&} 6-?:<<<<<<<<<<, ARAU--(%}Twice the pixels in half the time...",,($How about some mu}lti-color displays?,S,6-?:<Ad<@)<A4<Ae,6 A`S-@y6@66-?:<<<<AY}&,@,,6-?:<AY&<AY&<AY&<,J T A^&6-?:<@,&ARAUh**("}And now, }the Super Fast CIRCLE...rFF(>30 CIRCLES DRAWN IN 4.8 SECONDS (6 CIRCLES PER SECOND!)|-@@0 6-}?:,((6-?:<@`%<@`%<@`,  A6-?:<@,.ARAU.(More fast circl}es... -@@6@>6-F:@ ,#6-?:<<<<,>6-?:<@y<@y<,O,6-?:<<}<<,O6-?:<@y<@y<&@,  A&6-?:<@,&ARAU,,($} And }now, some more LINE drawing...-@p A`@@6-?:<<<%@y<<%@y<%@y<<%@y}<<,&:,6-?:<<<<,:6-%@0@@6-?:<<<%@y<<%@y<%@y<<%@y<<},: D ANP6-?:<@,&ARAUP(%}Of course, circles can be left emptyX A`b}l-@P@v,,6-?:<Ap<Ap<Ap<Ap,&&6-?:<%@E<@y<@`,,,6}-?:<<<<,&&6-?:<%@F<@y<@`, 0 A6-?:<@,0ARA}U (} THE BOX...6-@p%6-@$66-?:<<<<,($6-?:<<<AY&<AY&},(  A +@ARAU--(%}How about mixed text and graphics???)-@%%}AU) -@@P]]6-?:CC6-?:<@(<@2<952.+&!hhhhhhhhh֥ױքH)`JJJ }JJFh)߅ک&&&&&&ۥڅ֥iנe̪JJ}iGԽ)Hiե)օةffF1EؑȭF1EّԤ }˥ɘ8阅˥iɸLAF`@ `hhhhhLI@hhh@`h ҝ@`XԥYՠ }'!@Ԉϩ$`$Ζ@GHH'2!0()#354),)49"9$!2%+-)(/#+!)Ϊ)@%υI9@ͦ"ˠ JJ "10 ; G.U.P.20 ; BY DAREK MIHOCKA30 ; (c) 1985, ANTIC PUBLISHING40 START = $400050 *= START60 JSR INIT$}70 .WORD RANDOM80 .WORD SQUARE90 .WORD DRAWTO0100 .WORD LINE0110 .WORD CIRCLE0120 .WORD CO$}LOR0130 .WORD GRAPHICS0140 .WORD C1280150 .WORD CIRF0160 .WORD TEXTPLOT0170 .WORD ONEPLOT0180 .$}WORD COLORN0190 .WORD SETCOLOR0200 ;FUTURE EXPANSION0210 .WORD END0220 .WORD END0230 TITLE .SBYTE " GRAPHICS$} UTILITY PACKAGE. DAREK MIHOCKA"0240 ;ZERO PAGE VARIABLES0250 XLOC = 2030260 YLOC = 2040270 COL = 2050280 OFFSET = 2$}060290 ONEORMANY = 2070300 XLOCOFFSET = 2080310 HBYTES = 2090320 ;THE FOLLOWING ARE TEMPORARY0330 ;VARIABLES STORED IN F$}R00340 REG1 = 2120350 REG2 = 2140360 REG3 = 2160370 SLOPE = 2180380 MASK = 2200390 XMAX = 2210400 YMAX = 222041$}0 XTEMP = 2230420 YTEMP = 2240430 IDEAL = 2250440 RAD = 2270450 ORAD = 2280460 RADS = 2290470 XC = 2300480 YC $}= 2310490 YTEMP2 = 2320500 STRHI = 2330510 STRLO = 2340520 STRLEN = 2350530 LCOUNT = 2360540 ;THE SUPERFAST PLOT0550$} PLOT LDA XLOC0560 AND #$07 ;0-70570 ORA OFFSET ;8n0580 TAX ;=MASK OFFSET0590 LDA YLOC0600 $} AND #30610 TAY 0620 LDA MASKTABLE,X0630 AND ONEORMANY ;0 MAKES MANY0640 STA MASK0650 EOR #255066$}0 AND COLOR,Y0670 STA COL0680 ;ENTER HERE FOR MORE SPEED0690 MINIPLOT LDX YLOC0700 CPX #1920710 BCS PLOT$}FIN0720 LDA XLOC0730 YDIV0740 LDY #20750 BEQ MEM870760 LSR A0770 DEY 0780 BEQ MEM870790 L$}SR A0800 DEY 0810 BEQ MEM870820 LSR A0830 MEM87 TAY 0840 MEM880850 LDA SCR.TABLE,X0860 STA REG208$}70 LDA SCR.TABLE+$C0,X0880 MEM890890 STA REG2+10900 LDA (REG2),Y0910 AND MASK0920 ORA COL0930 S%}TA (REG2),Y ;THE PLOT0940 PLOTFIN RTS 0950 XINT .WORD 00960 COLOR .WORD $FFFF,$FFFF0970 MUL .WORD 00980 ;MASK FOR PLOT0%}990 MASKTABLE .BYTE 0,0,0,0,0,0,0,0,15,240,15,240,15,240,15,240,$3F,$CF,$F3,$FC,$3F,$CF,$F3,$FC1000 .BYTE $7F,$BF,$DF,$E%}F,$F7,$FB,$FD,$FE1010 HLINMACH1020 LDA XMAX ;NO ENTRY FROM BASIC1030 CMP XLOC ;MAKE SURE1040 BEQ FINI.2%} ;XLOC}UNT5000 STA YLOC5010 LDA XC5020 SEC 5030 SBC RADS5040 STA XLOC5050 JSR HLIN2 ;LOWER LINE5060%?} JMP YLOOP5070 RING5080 LDA LCOUNT5090 BNE RING25100 LDA YC5110 STA YLOC5120 LDA XC5130 CL%@}C 5140 ADC RADS5150 STA XLOC5160 JSR PLOT5170 LDA XC5180 SEC 5190 SBC RADS5200 STA XLOC52%A}10 JSR PLOT5220 RING4 LDA RADS5230 STA ORAD5240 JMP YLOOP5250 RING25260 LDA YC5270 CLC 5280 AD%B}C LCOUNT5290 STA YLOC5300 JSR RING35310 LDA YC5320 SEC 5330 SBC LCOUNT5340 STA YLOC5350 JS%C}R RING35360 JMP RING45370 RING3 LDA XC5380 SEC ;DOES THE LEFT5390 SBC ORAD ;SIDE OF5400 STA X%D}LOC ;THE RING5410 LDA XC5420 SEC 5430 SBC RADS5440 STA XMAX5450 JSR HLINMACH5460 LDA XC5470%E} CLC ;DOES THE RIGHT5480 ADC ORAD ;SIDE OF5490 STA XMAX ;THE RING5500 LDA XC5510 CLC 5%F}520 ADC RADS5530 STA XLOC5540 JSR HLINMACH ;DRAWIT5550 RTS 5560 CIRF .WORD 15570 NUMDIV .BYTE 05580 ;DA%G}TA FOR OFFSET TO BIT MASK5590 TABOFFSET .BYTE 0,0,0,16,24,16,24,16,24,8,8,8,0,0,24,165600 ;DATA FOR CIRCLE RATIO5610 TABRA%H}TIO .BYTE 255,0,1,255,255,255,255,255,255,1,1,1,255,255,1,05620 GRAPHICS5630 PLA ;BASIC GR. (0-63)5640 PLA%I} 5650 PLA 5660 STA GRMODE5670 AND #$0F5680 TAX 5690 LDA TABOFFSET,X5700 STA OFFSET5710 LDA%J} #$EA5720 STA CIRCLESTRETCH.15730 STA CIRCLESTRETCH.2 ;NOP'S5740 LDA TABRATIO,X5750 BEQ NOSTRETCH5760 %K} CMP #2555770 BEQ GR85780 CMP #25790 BEQ STRETCH25800 STRETCH1 LDA #$4A5810 STA CIRCLESTRETCH.15820 %L} JMP NOSTRETCH5830 STRETCH2 LDA #$4A5840 STA CIRCLESTRETCH.25850 JMP STRETCH15860 GR8 LDA #$0A5870 JMP STRE%M}TCH1+25880 NOSTRETCH5890 LDA BYTAB,X5900 STA BYTES5910 LDA TABHLIN,X5920 STA MASKFORHLIN5930 LDA DT%N}AB,X5940 STA YDIV+1 ; OF ROT'S5950 STA NUMDIV5960 LDA HBTAB,X5970 STA HBYTES ;OF PIXELS/BYTE5980 %O} TXA 5990 CMP #126000 BPL OK126010 LDA GRMODE6020 JSR GRAPHICSMACH ;EXIT TO OS6030 LDA GRMODE6040 %P} AND #$0F6050 CMP #96060 BMI CALC6070 LDA #46080 STA 703 ;SUPPRESS GR.06090 BNE CALC6100 OK12%Q} LDA GRMODE6110 AND #$306120 STA TEMP6130 LDA GRMODE6140 AND #3 ;SUB 126150 TAX 6160 PHA %R} ;SAVE X6170 LDA GTAB,X6180 ORA TEMP6190 JSR GRAPHICSMACH ;DO GR.6200 PLA ;GET X6210 T%S}AX 6220 LDA ATAB,X6230 STA ANTICMOD+16240 LDX GRMODE6250 LDY #2026260 ANTICLOOP LDA (REG2),Y6270 AN%T}D #$BF ;LDA FROM DL6280 CMP ANTICMOD ;NEW MODE?6290 BNE NEXTANTIC6300 LDA (REG2),Y6310 AND #$F06320 %U} ORA ANTICMOD+1 ;CHANGE MODE6330 STA (REG2),Y6340 NEXTANTIC DEY 6350 BNE ANTICLOOP6360 CALC6370 LDX #8638%V}0 CALC.COL6390 LDA SETCOLOR,X6400 STA 704,X6410 DEX 6420 BPL CALC.COL6430 LDA 886440 CLC 6450 %W} ADC XLOCOFFSET6460 STA IDEAL6470 STA SCR.TABLE6480 LDA 896490 STA IDEAL+16500 STA SCR.TABLE+$C0%X}6510 LDY #16520 CALCLOOP CLC 6530 LDA IDEAL6540 ADC BYTES6550 STA IDEAL6560 STA SCR.TABLE,Y6570 %Y} LDA IDEAL+16580 ADC #06590 STA IDEAL+16600 STA SCR.TABLE+$C0,Y6610 INY 6620 CPY #1926630 BNE C%Z}ALCLOOP6640 RTS 6650 ;IMITATE GR.12-15 WITH 0 OR 86660 GTAB .BYTE 0,0,8,86670 ANTICMOD .WORD 06680 ATAB .BYTE 4,5,12%[},146690 GRMODE .WORD 06700 BYTAB .BYTE 40,20,20,10,10,20,20,40,40,40,40,40,40,40,20,406710 ;BYTES PER SCREEN6720 TABHLIN %\}.BYTE 255,255,255,$FC,$F8,$FC,$F8,$FC,$F8,$FE,$FE,$FE,255,255,$F8,$FC6730 BYTES .WORD 06740 C1286750 TDLO = 544 ;TIME%]}R 56760 PLA 6770 PLA 6780 STA TDLO+1 ;TIME DELAY HI6790 PLA 6800 STA TDLO ;TIME DELAY LO6810 %^} PLA 6820 PLA 6830 TAX ;COLOR REGISTER6840 LDA #2556850 STA 5586860 CLOOP6870 LDA 5428368%_}80 CLC 6890 ADC 206900 ASL A6910 STA 542826920 STA 53266,X6930 LDA 5586940 BNE CLOOP6950 %`} RTS 6960 GRAPHICSMACH PHA 6970 LDX #$606980 LDA #255&CCLOSE6990 STA ICCOM,X7000 JSR CIO7010 LDX %a}#$607020 LDA #255&COPEN7030 STA ICCOM,X7040 LDA #SCREENNAME&2557050 STA ICBADR,X7060 LDA #SCREENNAME%b}/2567070 STA ICBADR+1,X7080 PLA 7090 STA ICAUX2,X7100 AND #$F07110 EOR #$1C7120 STA ICAUX1,X71%c}30 JSR CIO7140 LDA 5607150 STA REG27160 LDA 5617170 STA REG2+17180 LDY #77190 LDA (REG2),Y%d}7200 STA ANTICMOD7210 RTS 7220 CIO = $E4567230 ICCOM = $03427240 ICBADR = $03447250 ICAUX1 = $034A7260 ICAUX2%e} = $034B7270 COPEN = 37280 CCLOSE = 127290 SCREENNAME .BYTE "S:"7300 CIRWORD7310 ;THE CIRCLE DATA. HERE GOES:7320 .%f}BYTE 153,153,153,153,153,153,153,153,153,153,153,152,152,152,152,152,152,152,151,1517330 .BYTE 151,151,151,150,150,150,1%g}50,150,149,149,149,148,148,148,147,147,147,146,146,1467340 .BYTE 145,145,144,144,144,143,143,142,142,141,141,140,140,139%q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWDOC TXTbhHELP BASblMENU b:~GUP BASb)GUP DMObGUP EXEbGUP ASMb LAURA b}MUSIC BASb7PALETTE BASb0NPALETTE ASMbQ~ROUNDUP BAS,138,138,137,137,136,1357350 .BYTE 135,134,134,133,132,131,131,130,129,128,128,127,126,125,124,123,123,122,121,1207360 %r} .BYTE 119,118,117,116,115,114,113,111,110,109,108,107,105,104,103,102,100,99,97,967370 .BYTE 94,93,91,90,88,86,84,82%s},81,79,76,74,72,70,67,65,62,60,57,537380 .BYTE 50,46,43,38,33,27,19,07390 TEXTPLOT7400 PLA 7410 PLA 7420 %t} PLA 7430 STA XLOC7440 PLA 7450 PLA 7460 STA YLOC7470 PLA 7480 STA STRHI7490 PLA 7500 %u} STA STRLO7510 PLA 7520 PLA 7530 STA STRLEN7540 DEC STRLEN7550 LDY #07560 TEXT.17570 LDA STRLO%v}7580 STA REG27590 LDA STRHI7600 STA REG2+17610 LDA (REG2),Y7620 STY YTEMP7630 PHA ; STO%w}RE LETTER7640 AND #$607650 LSR A7660 LSR A7670 LSR A7680 LSR A7690 LSR A7700 TAY ;%x}CONVERSION7710 LDA CONV,Y7720 STA XTEMP7730 PLA 7740 AND #$9F7750 ORA XTEMP ;DONE!7760 STA SL%y}OPE7770 LDA #07780 STA SLOPE+17790 CLC 7800 ROL SLOPE7810 ROL SLOPE+17820 ROL SLOPE7830 RO%z}L SLOPE+17840 ROL SLOPE7850 ROL SLOPE+17860 LDA SLOPE7870 STA REG27880 LDA SLOPE+17890 CLC 790%{}0 ADC #57344/2567910 STA REG2+1 ;REG2=CHS+8*ASC7920 LDY #77930 TEXT.2 STY YTEMP27940 TYA 7950 CLC %|}7960 ADC YLOC7970 TAX 7980 LDA XLOC7990 LSR A8000 LSR A8010 CLC 8020 MEM88.18030 ADC SCR.T%}}ABLE,X8040 STA REG18050 LDA SCR.TABLE+$C0,X8060 ADC #08070 MEM89.18080 STA REG1+1 ;REG1=SCR.BYTE8090 %~} LDA XLOC8100 AND #$038110 TAX 8120 CLC 8130 LDY YTEMP28140 LDA (REG2),Y8150 STA REG38160 %} LDA #08170 STA REG3+18180 TEXT.38190 ROR REG38200 ROR REG3+18210 DEX 8220 BPL TEXT.38230 LDY%} #08240 LDA TEXT.CLEAR8250 AND (REG1),Y8260 EOR REG38270 STA (REG1),Y8280 INY 8290 LDA TEXT.CLE%}AR8300 AND (REG1),Y8310 EOR REG3+18320 STA (REG1),Y8330 LDY YTEMP28340 DEY 8350 BPL TEXT.28360%} INC XLOC8370 INC XLOC8380 INC XLOC8390 INC XLOC8400 LDA XLOC8410 CMP #1528420 BCC TEXT.58%}430 SEC 8440 SBC #1528450 STA XLOC8460 LDA YLOC8470 CLC 8480 ADC #88490 STA YLOC8500 C%}MP #1848510 BCC TEXT.58520 TEXT.58530 LDY YTEMP8540 CPY STRLEN8550 BEQ TEXT.48560 INY 8570 JMP%} TEXT.18580 TEXT.48590 RTS 8600 TEXT.CLEAR .WORD 2558610 CONV .BYTE $40,$00,$20,$608620 G128 .WORD 08630 DTAB .BYTE%} 0,0,0,2,3,2,3,2,3,1,1,1,0,0,3,28640 ;LOG2 OF HBTAB8650 HBTAB .BYTE 1,1,1,4,8,4,8,4,8,2,2,2,1,1,8,48660 ;PIXELS PER BYTE8%}670 TEMP .WORD 08680 ONEPLOT8690 PLA ;BASIC ENTRY - PLOT8700 PLA 8710 PLA 8720 STA XLOC8730 %} PLA 8740 PLA 8750 STA YLOC8760 JMP PLOT8770 COLORN8780 PLA ;A=USR(SET,A1,A2,A3,A4)8790 LDX%} #48800 LDY #08810 COLOR.28820 PLA 8830 PLA 8840 STA COLOR,Y8850 INY 8860 DEX 8870 BNE CO%}LOR.28880 RTS 8890 RANDOM8900 PLA 8910 LDX #38920 RND.LOOP8930 LDA 537708940 STA COLOR,X8950 %}DEX 8960 BPL RND.LOOP8970 RTS 8980 INIT8990 LDA 889000 STA REG19010 LDA 899020 STA REG1+19030%} LDY #399040 INITLOOP9050 LDA TITLE,Y9060 STA (REG1),Y9070 DEY 9080 BPL INITLOOP9090 LDA #2559%}100 STA ONEORMANY9110 LDA #$249120 STA 7109130 RTS 9140 SETCOLOR9150 *= *+99160 SCR.TABLE9170 %} *= *+3849180 ENDY DAREK MIHOCKA30 ; (c) 1985, ANTIC PUBLISHING40 START = $400050 *= START60 JSR INIT$1223yQ@@yfD@DUQUHHl`[HHrLHL`[`ћlQyff)}ۛ[ff[f[̛lQQ̛lfQD̛22yf̛LyfHlHl5/<5)}yQ@@yfD@DUQUHHl`[HHrLHL`[`ћlQyffۛ[)}lfUHl[:A9,*6-@66.wholeB6-L A -}i"@#67<,.>:AT,16-%@C-@@"_(@chord off i AP"@A-}#"@E Ap# AP#"@c A# Ap#" A# A K"@W-}6.>:A9,*6-@56.halfA6-K Ap"@@A @N"@G6.>:AH,*6-@-}86.quarterD6-N Aph"@S6-@*6.>:A$,76.eighthC6-@O6-^6.>:AH-},h A k"@'6-@*6.>:A$,:6. sixteenthF6-R6-@a6.>:AH,k A l-}"@&6-@*6.>:A$,;6. thirty secG6-S6-@b6.>:AH,l A %"@46--}@% A #"@ Ap# AP%"@b6-@% A  "@T6-@/-@-}@Q2@@@e-@@i 2 9-@@"-}/(@ song cleared9 A  A *1-@A '6-1 A! 4%"@!6-@-}% A >%"@6-@% A H/"@ A%6-/ A! R#"@ AP# -}A \%"@56-@% A fQ-%@&@,(@ B-%@&@Q(@ -}p%(-%@%(@ z A AP#@ A# APf-&@ (@-} .-&@=(@ AW-%@&@f(@ N-%@&@,(@ 1(?-%-}@N(@  A AP"@6. #"@6.#6-@ "@6.-}/6-@"@% A/ AP!@A3 @%-@@/ A3 -} AP2-@6@$ A( 2 AP6-+"@,$@%+"@,$@%+"@,$@-}%+"@,$@%+"@,$@%%+"@ ,$@(%+"@,$@4%+"@,$@@6-%+"@,-}$@C%+"@,$@I%+"@,$@U%+"@,$@a%+"@,$@d%+"@,$@p%+"@,$@v-}"@6-&@"@6-%@$"@6-.3)2@@@-}3 A8//2A:7<%@,,@@Bj-@@P =2I6-}-AMj67%@<%@,..L6-A $+"@,%@`$+"@,%@0$+"@,%@$+"@-},%@$+"@,%@$+"@,V6-$@P`C6-A:7<%@,,+6-%A(7"AVC6--}ASj67,.>:,67<,.>:,tK67,.>:,%6-16-?6.quarterK6-@~;67<,.>-}:,"@;67<,.>:@:7<,,%A(,-"@-67<,.>:@:7<,,%A,MAKE NEW NOTE:6-%@-}#-@24>:AH,:6.4>:A9,6.o= 6.6.6.`'"36-@= A-} / A B#6./6-Q6-6-#6-%@/!@;6-@G6-@Q -}A!0"@6-@G6.>:A0,!6.>:A0,06.>:A$,84G6.>:AH, 4o6.>:A-}9,/6-6-% A/ APd-@@"3(@ enter chord E-@@#d(-}@then press returnw-@@92@@@M-@@Q s2-}w  [6. /@@K:AAM6-@[6-&@&6-F:A-}d,&"AUA6)@"AdAU6"AUAp("@A267<,.>:,<'-}>:,4667<,.'6-@F'>:,4767<,.'6-@P6.7<,Z& 4+6.>:@,&6-@-}d& 4-6.>:@,&6-@n& 4#6.>:@,&6-@xS 4*@*-&@@ =(@-} I6-S A0774a)4b)4c)4d)4e)4f)4gAP+4m)4j,*A`+-})),*A` A6-@N-@ (@(6-66-%@D6-%@N A-}C@ A@d,6-C6.7@<@,ww6-A$+4c,%A$+4d,%A$+4e,%@-}$+4f,%@$+4g,%@$+4a,%@y$+4b,1"@6-@'6-@!1 AZ6-@6-}-@!'6-@@7@<@,4#N6-&@Z6-@67@<@,4b*6-%@66-@-}6-6-@'6-6-@07<,4+6-@$(7<,4d6-@ (6--}@(7<,4-6-@(6-@"E7<,4m-7%@<%@,4 96-@ E6-@!,F7<-},4m.7%@<%@,4aj:6-@F6-@36E7<,4m-7%@<%@,496-@ E6-@0-}@E7<,4m-7%@<%@,496-@ E6-@'JE67<,.>:AU,E67%@<%@,.>:A-}:7<%@,,,Tg567%@<%@,.>:A:7&<&%@,,,g67%@<%@,.>:A:7&<&%@,,,^-}6-6-)6-%@;-@@"Z(@ l-@@#(@ -} h--@@""(@*4*-$r72@:7&@<&@,,@@k2@@:7-}&@<&@,,@@2@@:7&@<&@,,@@|-@@  =2-}_2@2@$w-@@92-}@@@M-@@Q s2w [-@@ /(@ c-}hange tempoA-@@"[(@ n-@@"b(@>:AC,>:A6,>:A9,>:A-}G,>:A),>:AB,n6-?%6-R:,n"@!-@@"n(@>:A0,>:A%,-}>:AC,>:AD,>:A),>:AB,6-6?% A"@A T:,"A`-} A 6-%-@@A2@@@U-@@Y {2-} d-@@ 0(@ B-@@"a(@  d$_6-&-}@%-@@G2@@@[-@@_ R%2) -};-@@"R(@ cancelledU-&@!(@ /-&@?(@ E-U(@ -} $-&@$(@ $-%@$(@ &! 6- @!6-@0 @A-}P:d'@:7&@<&@,,"AU56-&@G-@@"d(@chord cancelledDJ-@A-} --@@"J(@ N APX917<,44)7<,46)7<,48)7<,4396.\b-} A lP +@B2w1AY@4P(@ ENTER SONG NAMEvc"@@K-}+6.D:76-@B(@M(@c(@ '@A'B7tA*)@"-}AU'@*$"A&3-+F:@,&@,+F:@,,C(@ g-+F:@,&@,+F:@,,-}u6-&@ A0>:,2A)>:,3ZA0@67,.>:,((@>:%A(,66-%@@ A0aB-}:,"@2@@C:F-@A(S*@W a A @@-}t(@%(@&@;-@&@D6.7,Q(@U k-@&@t6.7,e(@-} *-@&@36.7,@(@D O@[6-e A! 6- A @aB:,"-}@2@@C:F-@A(S)@W a A P* @@* A P-}@ A! L6-@6.! A,@6 AB6-L A!  INITIALIZE SCREE-}N]];@,;@,;@,;A,;A,;A,;@,;@, L&;A,;@,;-}@,46.quarterL;@,;@,*mm6.c0280290310330350370400420450470500530570600640680720760810850910961021.}081141211281361441531621731824;%67A,.193204217230243255/ A";6-@>36-B7`6-B7b'6-B7d.}36-B7fHM 6.6.6.'6-@56.quarterA6-@M6-@R|B2w+@90.}PAVP:'AV,b-@|(@ the musician\'@A'B7tA.}f-@@""(@4AY@FFB2w@XB2T@`jB2UA|B2`.}A#@pG-%@# 7-AACA G zo-B2VB2Y#@.}' 9B2H@`KB2I@]B2PA$oB2QAV6-$ AO +@.}6-BxVO6-P:++F:A,&@,$AV,'A$,$A$CC6-P:+++F:A,&@,$AV,'A$&@,.},$A$'@A'B7tAq-@@#-@=(@ A L(@.}W(@q(@ rev.1.0:;@v,$-@@v("667<,.>:,: 55104,104,133,193,104,133,1. }92,104,133,197,104,133??196,169,226,133,195,169,0,133,194,160,0,162,0,177,194,14588192,200,192,0,208,247,232,224,5,24. }0,10,230,193,230;;195,160,0,169,0,240,232,162,0,160,0,169,0,145,196,200BB192,0,208,249,232,224,5,240,8,160,0,230,197,. }169,0,240,236,96Z6-?:C:,<<,'6-BsD%Av?-%Av%AHF:,V6-%@Z  J6-BsD%A. }/-%A%A8F:,F6-%@J  ^6-BsD%@$/-%A(%A58F:,F6-%@. }J ^6-BsD%A J-%@%A$F:,26-%@6 J6-BsD%A$ 6-%AV%Ac.}$F:,26-%@6 . O-%@%@"%) A-%@d%@qE"KO 8 )-%@H.}%@U"%) B  6-6-'AVL ;+-%A%@I%A%@7A@; V k3-%A%@I.}%A@&@A@?AUW-%@%@cg k ` k3-%A@%@I%Ah&@A.}@?AUW-%@%@cg k j k3-%Ah%@I%A&@A@?.}AUW-%@%@cg k t k3-%A%@I%A$&@A@?AUW-%@.}%@cg k ~ C@P:'AV,76-&+P:'AV,$AV,C@ 3BBy!AY.}@F3B2w@ B7`$ 48,24,28,48,24,28,48,24 48,62,4,8,8,16,16,32 0,36,44,52,36,4.}4,52,4 &6-F:Ad,&"AUA$ QAdAU!@C3-@@"N(@ Q$.} -@@   6-?:B, D:MUSIC.BASCHRBASPMBASCHADESCNTFLAMOVEFLAXPOSHARPFLANTTYPRFLA,APMSCCCRSBLANKABLKROUTINEPMBASBSCBSCDSCRLOSCRHIGHIGLOVVTSTAROFFSEHTSCTSCLDELADD2}CLOCOLLUBSCRSCLOBBLBLBC@@ 2} 2} !"#$%&'()*2}+, COLOR PALETTEBY JOHN W. FELTON (c) 1985, ANTIC PUBLISHING(INITIAL COLORS240,202}2,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,662},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,12}41,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,2}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,202 }0,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,2!}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,2"}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,642#}V/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 SUBROUTINE2$}$$104,104,141,0,0,104,141,0,0,96IIGREY,GOLD,ORANGE,RED,PINK,VIOLET,PURPLE,BLUE,CYAN,LT BLUE,TURQUOISE00BLUE-GRN,G2%}REEN,YLLW-GRN,ORNG-GRN,LT ORANGE]];A$,;A,9@,;@,9@,;@ ,;@,;@,2&}TITLE PAGEAF:A@,"e +'0@@@A0@@SAe2'}AR@,M-6-F:A`,%F:Aa,$AV%@ 9@M%@@6;-@@;(!2(} _____________@-@@(BYJ(-@@((JOHN W. FELTONTINITIALIZE^/ #A2)}!-APAx%"+/ h,-@@ ,((BACK IN A MOMENT)r2 #@P!-@@%".68,-22*} |7 #@`!-@%"3A6%7 267@,. #67A,.267@,.$$6-AV$+F2+}:A,&@,(6-P:'AV&@,(6-.-@A*%F:BsD%,. SET UP DISPLAY 2,}LIST +@AY56-&AV$@'6-%@"56-%@#1 #@!-@2%"2-}-%1 = &%@3F:A`,=%@4F:Aa,f%@F:@,1%@F:@,R2.}A`&P:'AV,$AVfAa'AVj-6-F:@,%F:@,$AV%A>6-P:'AV,N6-&$AV2/}\%@0j%@1KA@'A@9BBAKAC@INIT SCROLL S20}UBROUTINE7 #A0!-@@%"367<,.>:,7 X6-P:'AV,$6-&$AV>67@<@,.>:21},X67@ <@ ,.>:,X6-P:'AV,$6-&$AV>67@<@,.>:,X67@<@,.>:,&6-?:22}Ah,0SET UP P/M GRAPHICS:%%6-F:A4,%F:A5,$AVD%%6-F:A@,%F:AA,$AVN 6-&X$623}-P:'AV,$6-&$AVb%@%@lD67A,.,67A@,.7A,D67A,.7A24},v9A#@'A@9B2V@CBByP:'AV,,B2w@CAVP:'AV25},3367@ <@3,.UUUUUUUUDRAW SCREEN96-F:@,!6-F:@,-@9@26}=@'AR@9-=(m #A@!-@%"1-@;( S-27}@&+!@ ,W(c-@9i(m -@@-@y-@@1@]28}@3%+"@,%+"@!,$@%+"@1,$A0y-@@[-@+-29}@S,%%&+"@*"@1,$@W [    '@'AR@%-@@2:}! A% K-@@ K(@'ŠŠK-@@K(@2;}' @@6.  6. *AY@F2<}416-A 6-@'6-@1 A >UPPER WINDOW ROUTINEH T:,"A@R,T:2=},"" AP, A \-@@ f Ap!!"*"APz@w2>} 6-%6-%_16-&+"@,$@%+",$@_6-&+"@,$@%+",$@67<%2?}@ ,.6-$@!%A B2H$@@%@"67<%@ ,. APLOWER WINDOW ROUTI2@}NEW6-A'%%$@56-&+"@,$A$K"@*"@W6-AF6-%+&@,$@16-P:2A}8,'@,F6-8,&+,$@6-%$AVGG6-%+!@* @,$+&@,$@@%+!@,$A2B} A@O16-%@%+!@ ,$+&@,'@76-=-C(XI6-O6- T:,"A 2C} A$8T:,"-$( . AP8 A@./6-%$@'6-%+!@',$/6-%8"*2D}"APB@wL+!@7) @6-+6-V+!@) 6-+6-` -2E}( j+%$@@ !6-&@@+ A@t3%$@@!%A)6-%@@3 A@~ -(X6-62F}-<6-%$@#6-%@$)268,-< A`%@@% A@@2G} APREAD JOYSTICK SUB6-R:,B6-+!@* @,&+!@* @,6-+"@)"@ 2H})"@,&+"@)"@)"@,*@A'B7tA*$SCROLL SUB6-?:C:,<,$2I}SET TEXT COLOR SUBY06-F:A,&P:F:A,'@,$@VAC@&+!@ ,$@Y$WRITE 2J}HUE/LUM SUB*6-P:8,'@,*6-8,&$@ L'6-@%+!@,%+!@,L6-&P:+&@,'@,$@2K}B5-$@&@ &+!@ ,$@&@B( ,2)-$@&@$@&@2( (U)2L}-$@&@$@&@88, @?( N8, @U( 2 (8, $<BEEP SUBFb%2@P2M}@@9-@= _2b$ D:PALETTE.BASTSCTSCLDELADD0f10 ; COLOR PALETTE INTERRUPTS20 ; JOHN W. FELTON30 ; (c) 1985, ANTIC PUBLISHING40 ;50 DRKMSK = $4E ; ATTRACT M6O}ODE REDUCED LUMINANCE MASK60 COLRSH = $4F ; ATTRACT MODE COLOR SHIFT MASK70 WSYNC = $D40A ; WAIT FOR HORIZONTAL SY6P}NCHRONIZATION REGISTER80 COLPF0 = $D016 ; COLOR REGISTER FOR PLAYFIELD ZERO90 COLPF1 = $D017 ; COLOR REGISTER FOR PLA6Q}YFIELD ONE0100 COLPF2 = $D018 ; COLOR REGISTER FOR PLAYFIELD TWO0110 COLPF3 = $D019 ; COLOR REGISTER FOR PLAYFIELD THREE6R}0120 COLOR4 = $02C8 ; BACKGROUND COLOR REGISTER SHADOW0130 VDSLST = $0200 ; DISPLAY LIST INTERRUPT VECTOR0140 SYSVBV = $E6S}45F ; STAGE ONE VERTICAL BLANK ENTRY0150 SETVBV = $E45C ; SET VERTICAL BLANK VECTOR ROUTINE0160 CHBASE = $D409 ; CHARACT6T}ER BASE ADDRESS0170 .ORG $0600 ; POSITION ON PAGE SIX0180 COLR0 .DS 1 ; DEFINE STORAGE FOR DISPLAY COLORS0190 COL6U}R1 .DS 10200 COLR2 .DS 10210 COLR3 .DS 10220 COLR4 .DS 10230 COLR5 .DS 10240 COLR6 .DS 10250 COLR7 .DS 10260 .DS 46V} ; EXTRA STORAGE0270 ;0280 ; INTERRUPT #10290 ;0300 INT1 PHA ; PUSH ACCUMULATOR ON STACK0310 LDA COLOR46W} ; LOAD BACKGROUND COLOR0320 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0330 AND DRKMSK0340 STA WSYNC ; W6X}AIT FOR HORIZONTAL BLANK0350 STA COLPF2 ; STORE IN GR.0 BACKGROUND COLOR REGISTER0360 LDA COLR7 ; LOAD DISPLAY C6Y}OLOR SEVEN0370 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0380 AND DRKMSK0390 STA COLPF1 ; STORE IN GR.0 LU6Z}MINANCE COLOR REGISTER0400 LDA # 6[}INT2 ; DISPLAY LIST INTERRUPT0430 STA VDSLST+1 ; VECTOR0440 PLA ; POP ACCUMULATOR OFF OF STACK0450 RTI6\} ; RETURN FROM INTERRUPT0460 ;0470 ; INTERRUPT #20480 ;0490 INT2 PHA ; PUSH ACCUMULATOR ON STACK0500 6]}LDA COLR0 ; LOAD DISPLAY COLOR ZERO0510 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0520 AND DRKMSK0530 STA6^} WSYNC ; WAIT FOR HORIZONTAL BLANK0540 STA COLPF0 ; STORE IN COLOR REGISTER ZERO0550 LDA COLR1 ; LOAD DISPLAY 6_}COLOR ONE0560 EOR COLRSH ; PERFORM ATTRACT OPERATIONS0570 AND DRKMSK0580 STA COLPF1 ; STORE IN COLOR REGISTE6`}R ONE0590 LDA COLR2 ; LOAD DISPLAY COLOR TWO0600 EOR COLRSH ; PERFORM ATTRACT OPERATIONS0610 AND DRKMSK0626a}0 STA COLPF2 ; STORE IN COLOR REGISTER TWO0630 LDA COLR3 ; LOAD DISPLAY COLOR 30640 EOR COLRSH ; PERFORM AT6b}TRACT MODE OPERATIONS0650 AND DRKMSK0660 STA COLPF3 ; STORE IN COLOR REGISTER THREE0670 LDA # INT3 ; DISPLAY LIST INTERRUPT0700 STA VDSLST+1 ; VEC6d}TOR0710 PLA ; POP ACCUMULATOR OFF OF STACK0720 RTI ; RETURN FROM INTERRUPT0730 ;0740 ; INTERRUPT 6e}#30750 ;0760 INT3 PHA ; PUSH ACCUMULATOR ON STACK0770 LDA COLOR4 ; LOAD BACKGROUND COLOR0780 EOR COLRSH 6f}; PERFORM ATTRACT MODE OPERATIONS0790 AND DRKMSK0800 STA WSYNC ; WAIT FOR HORIZONTAL BLANK0810 STA COLPF2 ;6g} STORE IN GR.0 BACKGROUND COLOR REGISTER0820 LDA COLR7 ; LOAD DISPLAY COLOR SEVEN0830 EOR COLRSH ; PERFORM ATTRA6h}CT MODE OPERATIONS0840 AND DRKMSK0850 STA COLPF1 ; STORE IN GR.0 LUMINANCE COLOR REGISTER0860 LDA # INT4 ; DISPLAY LIST INTERRUPT0890 STA VDSL6j}ST+1 ; VECTOR0900 PLA ; POP ACCUMULATOR OFF OF STACK0910 RTI ; RETURN FROM INTERRUPT0920 ;0930 ; 6k}INTERRUPT #40940 ;0950 INT4 PHA ; PUSH ACCUMULATOR ON STACK0960 LDA COLR4 ; LOAD DISPLAY COLOR FOUR0970 6l}EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0980 AND DRKMSK0990 STA WSYNC ; WAIT FOR HORIZONTAL BLANK1000 S6m}TA COLPF0 ; STORE IN COLOR REGISTER ZERO1010 LDA COLR5 ; LOAD DISPLAY COLOR FIVE1020 EOR COLRSH ; PERFORM ATTRA6n}CT OPERATIONS1030 AND DRKMSK1040 STA COLPF1 ; STORE IN COLOR REGISTER ONE1050 LDA COLR6 ; LOAD DISPLAY COLO6o}R SIX1060 EOR COLRSH ; PERFORM ATTRACT OPERATIONS1070 AND DRKMSK1080 STA COLPF2 ; STORE IN COLOR REGISTER TW6p}O1090 LDA # INT5 ; DISPLAY LIST INTER6q}RUPT1120 STA VDSLST+1 ; VECTOR1130 PLA ; POP ACCUMULATOR OFF OF STACK1140 RTI ; RETURN FROM IN6r}TERRUPT1150 ;1160 ; INTERRUPT #51170 ;1180 INT5 PHA ; PUSH ACCUMULATOR ON STACK1190 LDA COLOR4 ; LOAD BACKGR6s}OUND COLOR1200 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS1210 AND DRKMSK1220 STA WSYNC ; WAIT FOR HORIZON6t}TAL BLANK1230 STA COLPF2 ; STORE IN GR.0 BACKGROUND COLOR REGISTER1240 LDA #$E0 ; LOAD MSB OF ADDRESS OF CHARAC6u}TER SET IN ROM1250 STA CHBASE ; STORE IN CHARACTER SET BASE POINTER1260 LDA COLR7 ; LOAD DISPLAY COLOR SEVEN1276v}0 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS1280 AND DRKMSK1290 STA COLPF1 ; STORE IN GR.0 LUMINANCE COLOR 6w}REGISTER1300 PLA ; POP ACCUMULATOR OFF OF STACK1310 RTI ; RETURN FROM INTERRUPT1320 ;1330 ; VERTI6x}CAL BLANK INTERRUPT1340 ;1350 VBI LDA # INT1 ; DISPLAY LIST INTERRUPT1380 STA VDSLST+1 ; VECTOR1390 JMP SYSVBV ; JUMP TO OS VERTICAL BLANK ROUTINE146z}00 ;1410 ; SET VECTOR TO VERTICAL BLANK INTERRUPT1420 ;1430 PLA ; DISCARD NUMBER OF PARAMETERS PASSED IN BASIC6{} CALL1440 LDY # VBI ; LOAD X WITH MSB OF INTERRUPT ADDRESS6|}1460 LDA #6 ; LOAD ACCUMULATOR WITH SIX FOR IMMEDIATE VBI1470 JSR SETVBV ; CALL OS ROUTINE TO SET VECTOR14806}} RTS ; RETURN FROM SUBROUTINEN W. FELTON30 ; (c) 1985, ANTIC PUBLISHING40 ;50 DRKMSK = $4E ; ATTRACT M4*b(x(NCOWIFUEPMBASXDIYDIXPOYPOPMPMPMMOVCPOSCOROXVAPMMOVEPRPLCHNEWCHBASRRCHADPCPMHV:}FUELUSESCORHISCORCRASDONPXPM :} :} @!@"#$%&'():}*+ HELICOPTER ROUNDUPBY WALTER BULAWA (c) 1985, ANTIC PUBLISHING(# AP#GAME INITIALIZAT:}ION2$ A`$LEVEL INITIALIZATION<6-R:,F7%Aa&$A&)6-&?76-%@P;@:}A'B7tA; A@Z%%2@@@d%6-8&@,%6-8&@,n#:}6-%@$#6-%@$x @@6-@@!A6-A @6-@!A:}6-AG%2G2@"@6-"6@6:}-((6-?:<<<%<<<@&,$$6-?:<@<<<<<@,6-%@S"@6-':}A23A0?A1S6-?:A6PLACE COWSH @R:}-@\G%6-P:@$H:,,%@G6-P:@$H:,,%@f! 1@2! A`pK C::},%+&@,$@EC:,%+&@,$@%@K,z PLACE HELICOPTER!6-Av6-A!6:}-$$6-?:<<<<<<@,'B2IA'B2PACLEAR CENTER OF CORRAL= @2!-:}@ @-,@9/@= ',@@'/@@$TITLE PAGE DISPLAY*A:}F:A@,*B2y@KB2H'B2I9B2PKB2Q/+@%@:}/0@@@T-@@-(@ HELICOPTER?-@@T(@ROUNDUPg @,:}1/@C/@@U/@g/.-@@ .(@ :}Ӡ #A$6""6@(-@A, 6 AP.=F:B2y,"@:2@:}=$8A2@@@3-@@7 A A`BPLEAE WAIT DISPLAYL+@%@V):}-@@)(@PLEASE`'-@@'(@WAITj--@@-(@ 30 SECONDSt:}-@A ~$LEVEL INITIALIZATIONKB2H'B2I9B2PKB2Q:}/+@%@/0@@@6-6-@Qg @,1/@:}C/@@U/@g/T-@@-(@ HELICOPTER?-@@T(:}@ROUNDUP3-@@3(@Ԡ3-@@3(@ .-:}@@.(@ +-%A%Aa'A&+ B2y@>F:B2y,"@:}&6-%@2!@0>6-@&-@@&(@  -@@  F:B2y,@:}A`6-(U A A#@1AY@F=6-I6-U6-2'B2V:}@'B2Y@<$FINITIALIZATIONP A  AZ6-6-@dGG;A,;@:},;@,;@,;@`,;@,n;@,x9@,9@,' 6-C:,6-C:,6-C:,'6:}-C:, 6-C:,O #A@!-@@%"668&@,-:"K68&@,-O 771,1,1,-1,1,0,0,0,-1,1,-:}1,-1,-1,0,0,0,0,1,0,-1,0,0'+@%@'AY//6-P:+F:A,&@,'@,$@6-+&@:},$AV6-$AV{67@,.>:@1,367@,.>:A2,K67@,.>:A,c67@,.>:A:}',{67@,.>:@,{67@,.>:AH,367@,.>:@3,K67@,.>:A,c67@,.>:AT:},{67@,.>:A,67@,.>:@,367@,.>:@,K67@,.>:@4,c67@,.>:A:},{67@,.>:@,67@,.>:@,367@,.>:Ab,367@,.>:@,{67@,.>::},367@,.>:,K67@,.>:A),c67@,.>:,{67@,.>:,ERASE P/M AND CHR MEM:}ORY!6-F:@,!6-F:@,6-F:A,&A&@C@F:A,&@U@[(:}}g@s@A"AY,P/M MOVE ROUTINE65 #A!-@A%"167,:}.>:,5 @ff216,104,104,104,133,213,104,24,105,2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208Jff104,104,:}133,209,104,104,24,101,209,133,207,166,213,240,16,165,205,24,105,128,133,205,165,206,105Taa0,133,206,202,208,240,160,0,162:},0,196,209,144,19,196,207,176,15,132,212,138,168,177,203,164^``212,145,205,232,169,0,240,4,169,0,145,205,200,192,128,208,2:}24,166,213,165,208,157,0,208,96hCHAR MOVE ROUTINEr #A`6-|""6@A)A6%:}6-%@) A`6.KVQW#XYZ.-A*%F:BsD%,.  #A@-@@:}%%6-%+@:7<,,&@2,$@+-@"#%' + TREE TRUNK -K24,24,24,24,24,24,24,2:}4TREE LEAVES-V64,49,87,221,84,58,120,28LANDING PAD-Q%%255,255,255,255,255,255,255,255REFUEL ZONE-:}W!!231,231,231,0,0,231,231,231FENCE - #&255,68,68,68,255,68,68,680LEFT COW - X:64,192,255,63,63,17,1:}7,17DCENTER COW - YN36,24,24,60,60,60,36,36XRIGHT COW - Zb!!2,3,255,252,252,136,136,136l,BByP:'A:}V,,B2w@vKA@'A@9AAKAAR+-%A@%A:}'+ S-%A%A3'A)+ ?%A4AUS%AAU$COW MOVE ROUT:}INE%%104,104,133,204,104,133,203,169 0,133,208,165,232,208,1,96$$198,232,165,232,10,168,177,203$$133,219,200:},177,203,133,220,32##145,6,165,230,133,207,165,219 10,10,10,24,105,48,133,206!!32,193,6,138,133,233,24,101"":}219,133,221,32,145,6,165,231""133,207,165,220,10,10,24,105 16,133,206,32,193,6,138,24 ""101,220,133,222,170,32,16:}5,6""164,221,177,205,201,0,240,10 !!165,220,166,219,32,230,6,76* 11,6,169,57,24,101,233,1454""205,166,220,32,16:}5,6,164,219>""169,0,145,205,165,232,10,168H%%165,221,145,203,165,222,200,145R 203,166,221,32,230,6,76,11\ 6,173:},10,210,201,235,176,3f 162,0,96,201,245,176,3,162p 1,96,162,255,96,165,88,133z""205,165,89,133,206,138,208,1"":}96,165,205,216,24,105,20,133##205,144,2,230,206,202,208,241!!96,173,10,210,41,31,133,205##165,207,24,197,206,176,:}13,165##206,56,229,207,24,197,205,1762,162,1,96,229,206,24,197!!205,176,2,162,255,96,24,2018,176,1,96,201:},17,144,196,138,24,201,7,176,1,96 201,13,144,1,96,230,208,96-1D2:ROUNDUP.BASPMHV8v