@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}}} |||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ޥ<<8V?} 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 ALLOWED COPYING---DN:4}# 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- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`@ST6 F AXLPB0NZ<( ((@@dH"(  X} +AdAUuA@'A @9A@K@@]@@7c( Y}}uAR@++(#++(#| ANTIC MONTHLY DISK OCT. 1985 |++(# Z}(++(# @ -@A $ GG;@ [}@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@D:*.* 6,6." \} 6 @0i6-%@(6.7@<@,A67@ <@ ,..i67@<@ ]},.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@B:,:7 ^}<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@,.0$ _}@(''7@<@,4FREE@- @ 2() <@F''7@<@,4FREE `}@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| a} |[ ( |  |\++(#d**(" Select HELP.BAS for b} information.xAR[@@9'-@@#C( FILE NUMBERM A0Q[ B c}P:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@ d}%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@ e}B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'- f}@@"?  LOADING ? A@@91@@5%? BK-@@"- g} CANNOT RUN 7 @A BK A0D1:MENU.DOC .TXT .TXTA0EN|DOC......TXT(... h}.TX585 6 F AXLPB0NZ<( ((@@dH"(  iwLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXTj} A(@2lB:,!@-7@<@,4XXX0(3(E-@@"X( ӠΠ\b(}k}l @@<( @@da@ B*-@@"R("ΠҠՠҠˠҠVa%D:MENUl}D:HELPLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT WELCOME TO THE ANTIC MONTHLY DISK Most of the n}programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you o}refer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscrip}ption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)q} 722-3545, Ex. 133XXX SPECIAL BONUS FOR ANTIC DISK SUBSCRIBERS This month's disk contains GUP.ASr}M, the source code to Darek Mihocka's popular GUP (Graphics Utility Package) published in the June 1985 issue of ANTIC. s}XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS extender.If you tt}ry to run a program and the response is 'cannot run Filename',then check the file extender withthe following list:XXX.u}BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER then RUN..EXE Asv}sembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the filename..ASM Assemw}bly language source code from Atari Assembler Editor. Must be assembled..M65 Same as .ASM only MAC/65..SYN x} Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXX.OBJ Machine language object file. Same as .EXy}E but not 'Load and Go'. Refer to corresponding article..ACT ACTION! source code..SYS Reserved for DOS syz}stem files..PLT Pilot language, requires Pilot cartridge..LGO Logo language, requires Logo cartridge..TX{}T Text file. Usually accessed by another program.XXXAll programs from ANTIC issues datedprior to August 1984 w|}ere reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible with the XLmachin}}es. We have worked to insurethat our programs operate as pub-lished, but we consider all our software listings to be work<}IJrSMKENINABCNTONSECMCPPLLOLOLSLVRHISIC@B @@@}@P@2 62 h2 AP B Bh@H@@ @}@  !"#}$ ASYLUMBY SPENCER CRASKE$$(c) 1985, Antic Publishing Co.(g6-@+@30@@@}M0@@g0@@2A0@@@70@@@A AP<}AF:A@,Fn%6-F:@,%AV$F:@,16-@=6-@I6-@U6-@Pa6-@n;@},P5;@P,56. Z4;@P,46. d5;@P},56. ng-@!5(@score: keys:G-@"g(@m}en: level: S:xA6-F:A,&@&A46-$AVA;@2,**6. hhhhh֢ԑ`}/6-?:C:,<BsD<,%AV/ ApS-@&@*(@ >-@%@S(@ } N-@"(@alien6-@%@K(@ASYLUMSN$/-@G"+%@%}/ -A%%@) 3A0E,W/@i/@@ {/@ }/76-@6-@ '6-@-6-7 A J6-F:A2,.6-+"@,&+"@,J6}-+"@,&+"@,%"*"6-%6- 6-6-[-@@/(@7<%@,A}-@@[(@7<%@,/-@@/(@7<%@,(%@"B:,&@(6-}"@6-@P$F:@ ,A&+@$,>6-%+$@,&@P@  6-%6}-%1'"@8I2AP@@k2y6-%@6-%@6}-%@"#"A06-6-#1,C#"@)"@)"@9"Ac)"AdC A06"@}6-%@+6-%A?-@0l2H:,$AU@@p 2}@/ @2,A3#,)6-/6-J'6-&@' A0T5"B'6}-@56-%@^!@6-@h%-@@!%(@ r-@@!"(@4-@}@!C(@&U-@@"b(@t-@@"(@|D-@@"%(@} 7-@@"D(@7%@R6-$@+!A(76-@S "6-%@#6-@1}6-@%=6-I6-S Ap A-@@/(@7<%@,A-@@}[(@7<%@,m-@@(@7<%@,-@] @'6-P:H:,$@ ,}A6-P:H:,$@ ,I1]@8A@ , $m%2@G2}[-Ai%m N-@B(@ you have achieved H}N6-@O "%(@ENTER INITIALSE@@K:O A6- A`}#6-@6. # A!! @)!@A$)@$"AUApk#"AT)"A}&)"@0067,. >6-&@R-@%@a(@ k A &67<,.>:,6-%@0|-}@8(@ HI-SCORE IS  BY:J-@@h(@7@<@,|A :0-@}@ 0(@ PRESS D6-@Nl%6-&A!$+!A ,%@9-AAS%@2}$+&A,W lT:,AX0@@@70@@Q0@@k0@}@@0@@@b6-6-'6-36-?6-K6-@W6-}@c6-@o6-@P-@@!l!(@ ! Av# @2,@7#,6-}&@6-@)6-@ F-A6@j2%@u@@2@+A&,%@u}@@ "6@A`G%2G2@*6-}6-'6-@P*$H-@@067<,.>:F:A%,,4 H-@ *-AA}"F:,%& * 1-@@-A%@:7<,,1 16-6-'6-@P1 Aaa}7,5,253,165,165,7,0,0,0,60,126,126,126,126,60,0,124,84,254,146,214,0,0,0,124,214,214,124,5688124,84,0,16,84,56,238,56,84,}16,0,0,0,0,00,16,0,0,0 D1:ASYLUM.BASMCPPLLOLOLSLVRHISIC@B @@@,YZjSCPKPLSIMULACNKBPPSTSFCFCFCFCPSKELSPPIC@@@}@ } ! BANJO PICK}ERBY R.K.LINDGREN (c) 1985, ANTIC PUBLISHING(bb9@",9@<@,9@<@,;@,;@}0,;@9,9@c,2 A <PICK ROUTINEFY6-8<,6-8<,)6-&@@$5@Y@}@AAP, 6-"6-?:<<<<<<<<,, A Z, 6-"6-?:<<<<<<<<,, A d, 6-"6-}?:<<<<<<<<,, A n" 6-"6-?:<<<<<<<<,x)6-%@!@)6-@#6-%@}!#6-@-@ F:,@ApSTART KEY, CHECK KEYBOARD 6-F:Ad}, "@p!@c6- @p 6-8,NEW CHORD\!6-6-)6-$@76-&@}I-@R(7<,\ ANEW PICK PATTERN@ 6-6-6.-@'6( @ A} @pCHECK OPTION & SELECT5F:,"@+6-P:'@,%@5 Ap*F:,"@ 6-%@}* Ap"\F:,"@&-@B2F R\ A@, Ap6INI}TIALIZATION@> +AR@>( (Tuning, please wait)J9A@'A@9A @}T'-@@'@@^,-@@"((7@,, hA(#(PRESS TO SPEED UPA}(PRESS TO SLOW DOWNr$$(PRESS Ԡ TO START & STOP|READ SOUND POKE ROUTINE+-@@"'67},.>:,+ READ SOUND PARAMETERS(-@@""$68,-( *-@@c&68,-* }READ CHORDS/ 6. 67@9,. +67@,./"L-@"68,-2-@@6"D68<,-8},H L"56-$@&@167<%B:,&@,.5 B68@G,-@-68@c,-@B68@#,-@}READ PICK PATTERNSN"-@"#68,-67-@@;"F68<,-J N DISPLAY CHORD} NAMES>@@(>(! Ӻ ˠӺ'A@'A@(((( } g(7@<@,;( g( 7@<@,7@<@!,}&Q$( Q( 7@<@,7@"<@0,0T(5( 7@"<@$,7@1<}@9,TDON'T FORGET THIS SEMI-COLON:36-Ag6-Ad'6-Ab36-AaD'6-@6-@'6-A}N+6-$@6-&@+6-@XT 6-C:,6-$6-06-<6-H6-AUT6-}B2yb7-@7(ĺ 7<, κ l--6-F:A`,%AV$F:Aa,%AVv$$WAIT FOR STA}RT KEY OFF THEN ONF:,@A@F:,@AP-@@% @%6-@}6-@% @p " `" ` `""Banjo |"}Picker|"" ` `SOUND POKE ROUTINE@@104,133,203,162,0,104,104},157,0,210,232,228,203,208,246,96 SOUND FREQ. VALUES!!243,230,217,204,193,182,173 ;;162,153,144,136,128,121,114,1}08,102,96,91,85,81,76,72*CHORD DATA413>31,18,13,10,6,20,FH30,17,13,8,5,20,CR26,18,12,8,3,20,G7\}24,17,13,10,5,20,Amf46,15,12,8,3,20,Gp42,15,13,10,3,20,D7z40,17,12,8,5,20,Em62,19,15,10,7,20,D58,1}7,14,10,5,20,A756,19,15,12,7,22,Bm22,17,14,10,5,22,A18,17,15,12,5,22,E716,19,14,10,7,22,F#mPICK} PATTERNS1151,3,2,5,1,4,2,5,153,3,2,1,5,1,2,3,148,3,1,5,3,1,3,4,150,3,2,1,5,3,1,5,111,3,1},5,3,1,5,3,113,2,1,2,1,5,2,1,58,1,2,3,1,5,2,1,510,1,2,5,1,2,5,2,1$1,1,2,1,5,1,2,1,5.5,3,5,3,1,5,3},1,580,2,3,2,1,2,3,2,1 D:BANJO.BAS3,2,1,ACA0FCPSKELSPPIC@@@? lm SFLPITCPHASETICSECWAIOFOLDJBJIVOSCOUNINHALRETAIEXHALLTIM@ }@@@B @  P @@@@@@ } BREATHE$$BY LEN DORFMAN AND JERRY WHITE (c) 1985, ANTIC PUBLISHING  Ap AONE SECOND SUBR }OUTINE(##2@@2LA @'-@@!4(@LWHITE COMMAND DISPLAY<^%2 }3-@EA@@Y^APPROX 1 SEC COUNTDOWN> @p NOT LAST SEC@&6 }-F:A@,&!@@dB0A @d0FADE COMMAND COLORD   $F<F:A@,@p<COUNTDOWN } INCOMPLETE SO LOOP HEREP @hDO IT AGAIN_RESET DISPLAYd/6-@6-@/%@@f%%RE }SET COLORS AND TURN ON SCREENioAA`'AAV9A A`KA@(]AAo }AY@4lJOYSTICK UPDATEn:6-R:,((T:,A:TRIGGER PRESSEDs'"@A'NOTHI }NG TO DOxH"@6-#6-%@/"@%;6-@HSTICK DOWNF"@6-#6-&@/"@ };6-@"FSTICK UP;!@*@A;STICK NOT LEFT OR RIGHT 6.  CLEAR WORK STRING)" }@ A%)STICK RIGHT" A%"JS=11 STICK LEFTSCREEN UPDATE AND NOISE,>%@%@ }>OLD LINE SMALL, NEW LINE BIG^AUDIO FEEDBACK & DELAY3'2$@@@36-@ SA@ }12@S2F:A@,A AERROR NOISE }\ -@6?P<2A@X2@@Q@\ 6-@0 AVALI }DITY CHECK & UPDATE&&7@<@,4 ONA0(67@<@,. ON( A"@A0 }6-%@ A"@`A06-%@ A"@`A06-%@ A  }"@`A0 6-%@ A"b&&7@<@,4OFFA0c(67@<@,.OFF( A }e"@A0f6-&@ Ah(A0i6-&@ Ak(A0l6-&@ } An(A0o6-&@ A" A AUPDATE SCREEN STRING S$O67@s<@t },.#6.=:,,6-B:,E67@u&<@t,.O AO67A3<A4,.#6.=:,,6-B:,E67A5&<A4 },.O AO67A<A,.#6.=:,,6-B:,E67A&<A,.O AO67AS<AT,.#6.= }:,,6-B:,E67AU&<AT,.O ASETUP FOR BREATH CYCLE )%@)MAKE LARGE LINE SMALL!F6- })7@<@,4ON56-@FSET SOUND FLAG"ZAAd'AAd9AAdKA }ZRESET COLORS#BREATH CYCLE LOOP$--@$6.=:&%@,-6-B:,%UPDATE COUNT DISPLAY&H }-@@&(@ :-@&@H(@)PHASE$=COMMAND*06.inhale6-&6- }0 @@406.retain6-&6-@0 @@>06.exhale6-&6-@0 @@z 6-@ }3 A A3RESET SCREEN & START OVERINITIALIZATIONXF +@AY*(@F(@ } >%6-F:A`,%F:Aa,$AV>DL=ADR OF DISPLAY LIST #6-@#OFFSET TO DL LINE>%@ }@+%@&@>LARGE TEXT LINES@P;AT,6. )67AT,. 867@,.PSCREEN OPTION DI }SPLAYJ8;@,6. 8CURRENT PHASE OR COMMANDT-;@,6. -BLANK WORK STRING$$67@<@ },. ON0$67@f<@t,. 106-@0$67A&<A4,. 106-@0$67A }<A,. 006-0$67AF<AT,. 106-@"DISPLAY/SOUND SUBROUTINE(#12 }+&@,'@@@C-@Q(@s26-$ }D1:BREATHE.BAS OFF JBJIVOSCOUNINHALRETAIEXHALLTIM@ 100!.4)#02%3%.43finescrolling/n9our!tari"9$}9/52.!-% ppppppppF0ppppWpBK0ppppFs0pppppA0/001"/ #1*  0 \"0#L0 $}0-1 L_ * #1 00L_000`0lling/n9our!tari"9$A0 ; FINE SCROLLING, LISTING 110 ; BY MARK ANDREWS20 ; ANTIC PUBLISHING30 ;40 *= $300045 JMP INIT50 ;60 SD(}MCTL = $022F70 ;80 SDLSTL = $023090 SDLSTH = $02310100 ;0110 COLOR0 = $02C4 ;OS COLOR REGISTER0120 COLOR1 = $02C50(}130 COLOR2 = $02C60140 COLOR3 = $02C70150 COLOR4 = $02C80160 HSCROL = $D4040162 VVBLKI = $0222 ;OS INTERRUPT VECTOR0164(} SYSVBV = $E45F ;INTERRUPT ENABLE VECTOR0166 SETVBI = $E45C ;SET VERTICAL BLANK INTERRUPT VECTOR0168 XITVBL = $E462 ;EXI(}T VBI VECTOR0170 TCKPTR = $20000180 FSCPTR = TCKPTR+10190 .OPT OBJ0200 ;0210 ; DISPLAY LIST DATA0220 ;0230 START0(}240 LINE1 .SBYTE " ANTIC PRESENTS "0250 LINE2 .SBYTE " "0260 .SBYTE " fine scrolling (} "0270 LINE3 .SBYTE " On Your"0280 .SBYTE " Atari "0290 LINE4 .SBYTE " BY (YOUR NAME) (} "0300 ;0310 ; DISPLAY LIST0320 ;0330 HLST NOP ;('HELLO' LIST)0340 .BYTE $70,$70,$700350 .BYTE $70,$70,$(}70,$70,$700360 .BYTE $460370 .WORD LINE10380 .BYTE $70,$70,$70,$70,$570390 SCROLN NOP ;(THIS IS THE LINE(} WE'LL SCROLL)0400 .WORD $00 ; A BLANK TO BE FILLED IN LATER0410 .BYTE $70,$420420 .WORD LINE30430 .BYT(}E $70,$70,$70,$70,$460440 .WORD LINE40450 .BYTE $70,$70,$70,$70,$700460 .BYTE $410470 .WORD HLST0480 ;0(}490 ; RUN PROGRAM0500 ;0510 INIT NOP ;PREPARE TO RUN PROGRAM0520 LDA COLOR3 ; SET COLOR REGISTER0530 STA (}COLOR10540 LDA COLOR40550 STA COLOR20560 ;0570 LDA #0 ; TELL ANTIC WHERE DISPLAY LIST IS0580 STA SD(}MCTL0590 LDA #HLST&2550600 STA SDLSTL0610 LDA #HLST/2560620 STA SDLSTH0630 LDA #$220640 STA SDM(}CTL0645 JSR TCKSET ; INITIAIZE TICKER ADDRESS0650 ;0660 ; FINE-SCROLLING ROUTINE0680 LDA #42 ; # OF CHARACTE(}RS IN SCROLL LINE0690 STA TCKPTR0700 LDA #80710 STA FSCPTR ; NUMBER OF COLOR CLOCKS TO FINE-SCROLL0720 ;073)}0 ; ENABLE INTERRUPT0740 ;0750 LDY #TCKINT&2550760 LDX #TCKINT/2560770 LDA #60780 JSR SETVBI0790 ;0800)} ; TICKER INTERRUPT0810 ;0820 TCKINT0830 LDA #SCROLL&2550840 STA VVBLKI0850 LDA #SCROLL/2560860 STA VVB)}LKI+10870 ;0880 INFIN0890 JMP INFIN ; INFINITE LOOP0900 ;0910 SCROLL0920 LDX FSCPTR ;8 TO START0925 DEY)} 0930 DEX 0940 STX HSCROL0950 BNE CONT0960 LDX #80970 CONT NOP ; (CONTINUE)0980 STX FSCPTR0)}990 CPX #71000 BEQ COARSE1010 JMP SYSVBV1020 COARSE1030 LDY TCKPTR ; NUMBER OF CHARACTERS TO SCROLL1040)} DEY 1050 BNE SCORSE ; LOOP BACK TILL ENTIRE LINE IS SCROLLED1060 LDY #421070 JSR TCKSET ; RESET TICKER )}LINE1080 SCORSE NOP ; DO COARSE SCROLL1090 STY TCKPTR1100 INC SCROLN ; LOW BYTE OF ADDRESS1110 BNE RETU)}RN1120 INC SCROLN+1 ; HIGH BYTE OF ADDRESS1130 RETURN1140 JMP SYSVBV1150 ;1160 TCKSET1170 LDA #LINE2&25511)}80 STA SCROLN1190 LDA #LINE2/2561200 STA SCROLN+11210 ENDIT1220 RTS 1280 *= $02E01290 .WORD IN) }IT FINE SCROLLING, LISTING 110 ; BY MARK ANDREWS20 ; ANTIC PUBLISHING30 ;40 *= $300045 JMP INIT50 ;60 SD(8mLBI GRAPH 3-D LOADERBY PAUL CHABOT (c) 1985, ANTIC PUBLISHI- }NG(% A6-A6%6-A2-A6AP<"  F% D:GRAPH3D.BASP&&PRINT TEXT IN GR.8,- } LOAD AT 1536Z//104,201,4,240,9,170,240,5,104,104,202,208d44251,96,104,133,215,104,133,214,104,104,168,104n44133,217- },104,133,216,104,104,240,236,133,212,24x33165,214,101,88,133,214,165,89,101,215,133,21533152,240,15,165,214,105,64,133-},214,165,215,105111,133,215,136,208,241,132,221,160,0,132,220//177,216,160,0,170,16,1,136,132,213,138,41,,96,208,-}4,169,64,16,14,201,32,208,4,169,,0,16,6,201,64,208,2,169,32,133,218,138++41,31,5,218,133,218,169,0,162,3,6,218224-}2,202,208,250,109,244,2,133,219,164,221,17744218,69,213,164,220,145,214,200,132,220,196,21211208,182,24,165,214,105,4-}0,133,214,144,2,23011215,230,221,169,8,197,221,208,159,96,207,96BYTE I/O, LOAD AT 1704**169,64,133,212,169,3,13-}3,213,104,104&&104,10,10,10,10,170,216,24,105,9--168,104,145,212,136,104,145,212,136,136--136,104,145,212,136,104-},145,212,136,136104,104,145,212,76,86,228"C +@AAv1AAvCAR@,-@-}@6(@ R P 3 @-@@J(@ paul chabotT/( (,( (c) 1985, Antic Pu-}blishing/$D:GR3DLOAD.BAS2<@ GRAPH 3-D LOADERBY PAUL CHABOT (c) 1985, ANTIC PUBLISHI,2**QFQFQFSAAASAAASAAAECCDBANDBANPXPYPZCSSGEEEXEBLIZZBAFII1}SABMLBRAMODDL1DL1SA1SA1MODDL2DL2SA2SA2D1} 1} !"#$@%@&@'1}()*+,-./012345671}89:;<=>?@ABCDEF1}GHIJ GRAPH 3-D, LISTING 2BY PAUL CHABOT (c) 1985, ANTIC PUBLISHING#+F:A61},A+%D:GR3DLOAD.BAS( A d##**** THE FUNCTION ***********x6-$&$'@$##**** FIND SX,S1}Y ************* 6-&6-&6-&6-$%$%$6-$%$%$6-$%$%$# 6-& @#61}-@6-+$,'+%, 6-$%6-&$ 6-!A6-A 6-1 }!A6-A$##**** COMPUTE POINTS ********* A-@!@( COMPUTING 1!}POINTS 6-+&,'6-+&,' 6-&6-A2!-6-%!6-&#-6-%# A1"}$68<,-68<,-$68<,-)6-%@!AU)6-A  AA21#}$,##**** GRAPH IT ***************.#"@ A# A0! +@$ A`!@216- A1$}%6-@16-@6"@6-8"@6-:"@6-@<"@6-@1%}>'"@6-@'6-@IPERP. TO X-AXISJ-L-6-8<,N#6-8<,61&}-8<,# APP",R /  SPERP. TO Y-AXIST-V-6-8<,X1'}#6-8<,6-8<,# APZ",\ /  ^ A$##**** FIX MATRIX *************1(} A-@!@( fixing matrix '6-+%,'@'6-+%,'@ A 6-6-61)}- 6-&6-&6-&6-M:$%$%$, 6-'6-'6-'6-$%$1"6-'6-1*}@1 A0="6-'6-36-@= A0. 6-6-$6-6'. A01+} 6-66-66-'6-$&$6-$&$6-$&$6-M:$%$%$, 6-'6-'6-'61,}-M:$%$%$, 6-'6-'6-'$##**** INPUT=[RETURN] ********* F:Ad,"AUAF:A1-}d,@$AdAU'$##**** MAG CHANGE *************((( MAG= 1.} INPUT  A A $##**** OPTION FLAG ************ )6-%@!@)6- 1/}-@@($&##**** EYE CHANGE *************((堠(*( EX,EY,EZ,$(7@(,10}INPUT $ A.  A00 A$X##**** INTERVAL CHANGE ********Z( (\(11} AX,BX,AY,BY^$(7@(,INPUT $ A`  A@b6-@$l##**** PARTITION SIZE ******12}***n((p( NX,NY = ,r( INPUT  At!  @!6-@v !13}6-x @6-@z !6-|6-@$##**** CENTER CHANGE **********( 14}(( CX,CY = ,( INPUT  A  $##**** FUNCTION CHANGE ********(15}(((Z= A6.6.Z=67@,. A 6-@$##**** CREATE LINE 120 *******16}*% A(120 (%(CONT*-@@'AB@*&AB@$##**** RECOVER LA17}ST FUNCTION **( 򠠿(%%( Y/N(** current will die **&6-F:Ad18},&"AUAX$AdAU!@C$$ 6.6.6. A 6-@$ ##**** VALUE E19}RROR TRAP *******" A-@!@$(*******''&'AdAU'-@@(**(1:}"٠ݠ - to recover * F:Ad,"AUA,$H##**** I/O TRAP ***************J A-1;}@!@L$@$(******N AR##**** DISK DIRECTORY *********T1 A@@@!1<}1-@!@V(-@@$(7@",( X-@!@Z3@3@@1=}D:*.G3D\+-@@+-@^'@'B:,"@Ap`((7@<@, ! 1>}$(( f$@ -@!@$(h@@$p##**** GET FILENAME ***********r##( 1?}7@,t#( INPUT filename # Av6.D:67@,.x67B:,%@,..G3D$z##**** 2ND CH1@}ANCE *************{$ A!$( ϠԠ Y/N|( filespecs ~&6-F:Ad,&"AUA$Ad1A}AU!"@C$$ ' $##**** SAVE TO DISK ***********"( S A V E(" A! A A`1B}! A@2 @@2A@&&6-?:<@<Av<<@,(@(@1C}*(@(@*(@(@(@(@(@(@(@1D}(@(@ @ A@ A AP$##**** LOAD FROM DISK *****1E}****!( L O A D(! A! A A`! A@& 6.&@@&&6-?:<@1F}<Av<<@,@@*@@*@@@1G}@@@@@@@ A! A  A1H}0! A@ A 6-@$##**** PRINT IT ***************( PRINT IT ($!( 1I} 7@,$(%%( 1-LEFT 2-RIGHT&6-F:Ad,&"AUA dAdAU A@1J}@1*@0$.@.@@P:INITIALIZE%%(@>:@',>:@d,1K}FILENAME"@0(@))(@>:@, 7@,SET LINE FEED//(@>:@'1L},>:@Q,>:@,6-%A$@@-@96-%%-@A%6-&@@61M}7<,.>:F:,, PRINT GRAPHICS STRING"@0(@<<(@>:@',>:@u,>:A,>:1N}, @$L""**** FORCED READ ***********N-@@(P-@@$V-@1O}@XAB@ZAB@$`**** FILL M$b A(MAG:d A6.$1P}j**** FILL E$l An(EYE:,,p A6.$t**** FILL I$v Ax##([,1Q}]*[,]z A6.$~**** FILL Z$) A-@@)A  A6.7@1R},$""**** LABEL SCREEN **********&&6-?:<@2<@,,($蠳Ġ ^^^^^^^^^^^^^^^^^@%%( Paul Chabot 1985B,,($ݠȠԠ ٠1c}D([O] Option 0 F([F] Function H([M] Magnification J([E] Eye Position L([C] Cent1d}er Screen N([I] Intervals P([N] Partition sizeR([R] Recover last T(ɠϠ V(1e}[L] Load [S] SaveX([P] Print [D] Dir.Z(OoOoOoOoOoOoOoOo\,,($ݠ堯f A1f}P$z**** MINI-MENU| A!( ~ ( $**** CLEAN-UP-@@( #-@1g}@!#-@ ( -@@$""**** INITIALIZE ************36-@$6-A6'6-A1q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU biHELP BASbmDOC TXTb)~ASYLUM BASb#BANJO BASb#BREATHE BASbFINESCRLEXEbFINESCRLM65b GR3DLOADBASbWGRAPH3D BASb)vLEMONADEBASbSINEWAVEBASbGUP ASM36-APM6-6@6-@)6-6@56-@A6-@M6-@?6-@6-@'6-1r}@36-A`?6-A9<,9<,9<,11;@x,;@,;@,;@ ,&&;@x,;1s}@x,;@,;A,;@8,+ 6. 67@8,. +67@,.6. D:SAMPLE.G3D! A1t} A! A!! A  A0! A@/ AP6-@%6-/ A 6. $ D:GRAP1u}H3D.BAS**QFQFQFSAAASAAASAAAECCDBANDBANPXPYPZCSSGEEEXEBLIZZBAFII0GHZBIXPAXHSSOCRCRMBAIXMMNNCCXNST@5w} 5x} !"#5y}$%&'(LEMONADE BY BOB POLARO ANTIC PUBLISHINGM#@@5z}K:C@@S:M @@@-@@ =2@@$:-@5{}%(@7-@:$(11;@,;@ ,9@,;@ ,2 +@<(6. 5|} ( AF|0@?2@A@@S-@@ W y2@5}}|$Po #@-@@?(@S-@@W"h @ l 5~}o$Z99signs,made,sold,price,income,expenses,profit,assetsd6-P:$%,$nT6-@0$68@,-@06-?5}<6-AH6-?PT6-@x @ lemonade6-%@5-@@#-1 5}@5 ?-@*68@,-?(@ 6-8@, A&&(@ 5}Ӡ$ 46-6. A`4!@A % #A-@!"% ))teamsters st5}rike,4,lemon shortage,6;;prices down,-4,supply increase,-4,i n f l a t i o n,2# 6-% @#6-@6-5}$?i-@0(@ ԯӽA6.=:'A,PB:, @i67@<@,.0o!(@5}7@<@,-6-@B68@,-W68@,-^0o(@  A`6-:5}"@.(@ :6-?PZ"@,(@ 86-Z2@A5}@`A":"@.(@ :6-@,-@5(@ ϮƠ5} --A6-@M6-@Y6-@e6-@o A@~(@ 2@"@A5}6!@A@4 6-$ A6-*6-8@,4 AJAPT A A^@5}68@,- A`("@6-+%@,$?h-@ B(@ Ӡ$A - 5}f6-@%B:=:$A,,&@r6-@ ~6-@6-@ A@mA`r!@ A`|U5}6-8@,&8@,$'6-$1 A76-=6-G AUA A A`68@,-5}-@@1(@ů --=6-@I6-@U6-@a6-@ k A@z(@ A5}68@,-6-e @0((@ ?()-46-@@6-@L6-@V Ape5}4A0>6-(7@<@,4N46-@> A$$7@<@,0YA0+ @0 5}A`+!@A"@*(@ >-@@@X0@@b @p5}f {68@,- @0 A@u"@ @0:(@ S(@ 5}!!k68@,-8@,u A@ 8@,!@A:06-+@&8@,,'@$?$%: A 5}..6-+@#@$'8@,#@,,,6-$+%$+@&J:68@,$,$,,3 A`368@,-P:$+5}?%$?,,"6-8@, A"6-&6-8@, A0A:68@,-8@,5}DU.68@,-8@,$8@,$?U68@,-8@,$%8@,$NI&68@,-8@,&8@,I65}8@,-8@,%8@,X @b:-@@ 6-8,,"@:6-'Al Ap v5}8@,A00 @0&(@ !!0 A08 @0.(@ PRESS start BUTTON8 Ap5} A`G 6.=:,6-$!@. A: G6-6@S-@%@-(@ 5} C-@%%@P(@S$D @0- @ 7 A0A @0D$+ 6.#$5}@"P:$@,+6.0 "P:,6..00# 6.=:, 67B:,%@,.#$G%2@@)@@95}-@A= G @ 56- Ap6.) AP26-A:,5$6-@$(%6-P:H:,$@5},%@($B6-6.82@AAAB @  F:B2y,"@%**"@ 5}*F:Ad,"AUA  -%)@*G -%(@>:,0F:Ad,"AU8-%G(@ 45}F:B2y,"@%> F:Ad,"AUAHC -%)@*AdAU@"AU)"A&C$R5}N6-%@(67B:,%@,.>:,9 @>:,?"K6-@ N$\ AD1:LEMONADE.BAS@4q\]6XREYRELOOSINEAMPLITUDCOSINEAMPLITUDSINEPERIOCOSINEPERIOSIZXPOINSINECOSINEKEYPRES9} SINE WAVESBY PATRICK BASS (c) 19}985, ANTIC PUBLISHINGd##@@K:n6-A6-Ax-@+@9}%@A0@70@A@$$6-+H:@ ,$@p,%@$$6-+H:@ 9},$@p,%@$$6-+H:@ ,$@p,%@$$6-+H:@ ,$@p,%@$$6-+H:@ ,$@,%@9}-6-+G:',$,%+'@,6-+E:',$,%+'@, ,/&F:Ad,AU9}6- )@>:,4X6-@ D1:SINEWAVE.BASSINECOSINEKEYPRES8V10 ; G.U.P.20 ;30 ; (THE SOURCE CODE40 ; FOR THE POPULAR50 ; GRAPHICS UTILITY60 ; PUBLISHED IN THE70 ; JUNE 1985 I=}SSUE OF ANTIC.)80 ;90 ; BY DAREK MIHOCKA0100 ; (c) 1985, ANTIC PUBLISHING0110 ;0120 ;0130 ;0140 START = $40000150 =} *= START0160 JSR INIT0170 .WORD RANDOM0180 .WORD SQUARE0190 .WORD DRAWTO0200 .WORD LINE0210 =} .WORD CIRCLE0220 .WORD COLOR0230 .WORD GRAPHICS0240 .WORD C1280250 .WORD CIRF0260 .WORD TEXTPLOT02=}70 .WORD ONEPLOT0280 .WORD COLORN0290 .WORD SETCOLOR0300 ;FUTURE EXPANSION0310 .WORD END0320 .WORD E=}ND0330 TITLE .SBYTE " GRAPHICS UTILITY PACKAGE. DAREK MIHOCKA"0340 ;ZERO PAGE VARIABLES0350 XLOC = 2030360 YLOC = 2040=}370 COL = 2050380 OFFSET = 2060390 ONEORMANY = 2070400 XLOCOFFSET = 2080410 HBYTES = 2090420 ;THE FOLLOWING ARE TEMPOR=}ARY0430 ;VARIABLES STORED IN FR00440 REG1 = 2120450 REG2 = 2140460 REG3 = 2160470 SLOPE = 2180480 MASK = 2200490 X=}MAX = 2210500 YMAX = 2220510 XTEMP = 2230520 YTEMP = 2240530 IDEAL = 2250540 RAD = 2270550 ORAD = 2280560 RADS = =} 2290570 XC = 2300580 YC = 2310590 YTEMP2 = 2320600 STRHI = 2330610 STRLO = 2340620 STRLEN = 2350630 LCOUNT = 23=}60640 ;THE SUPERFAST PLOT0650 PLOT LDA XLOC0660 AND #$07 ;0-70670 ORA OFFSET ;8n0680 TAX ;=MASK =}OFFSET0690 LDA YLOC0700 AND #30710 TAY 0720 LDA MASKTABLE,X0730 AND ONEORMANY ;0 MAKES MANY0740 =} STA MASK0750 EOR #2550760 AND COLOR,Y0770 STA COL0780 ;ENTER HERE FOR MORE SPEED0790 MINIPLOT LDX YLOC0800=} CPX #1920810 BCS PLOTFIN0820 LDA XLOC0830 YDIV0840 LDY #20850 BEQ MEM870860 LSR A0870 DEY=} 0880 BEQ MEM870890 LSR A0900 DEY 0910 BEQ MEM870920 LSR A0930 MEM87 TAY 0940 MEM880950 LDA S=}CR.TABLE,X0960 STA REG20970 LDA SCR.TABLE+$C0,X0980 MEM890990 STA REG2+11000 LDA (REG2),Y1010 AND M=}ASK1020 ORA COL1030 STA (REG2),Y ;THE PLOT1040 PLOTFIN RTS 1050 XINT .WORD 01060 COLOR .WORD $FFFF,$FFFF1070 MU=}L .WORD 01080 ;MASK FOR PLOT1090 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,$F=}C1100 .BYTE $7F,$BF,$DF,$EF,$F7,$FB,$FD,$FE1110 HLINMACH1120 LDA XMAX ;NO ENTRY FROM BASIC1130 CMP XLOC =} ;MAKE SURE1140 BEQ FINI.2 ;XLOC}800 STA OFFSET5810 LDA #$EA5820 STA CIRCLESTRETCH.15830 STA CIRCLESTRETCH.2 ;NOP'S5840 LDA TABRATIO,X>}5850 BEQ NOSTRETCH5860 CMP #2555870 BEQ GR85880 CMP #25890 BEQ STRETCH25900 STRETCH1 LDA #$4A5910 >} STA CIRCLESTRETCH.15920 JMP NOSTRETCH5930 STRETCH2 LDA #$4A5940 STA CIRCLESTRETCH.25950 JMP STRETCH15960>} GR8 LDA #$0A5970 JMP STRETCH1+25980 NOSTRETCH5990 LDA BYTAB,X6000 STA BYTES6010 LDA TABHLIN,X6020 >}STA MASKFORHLIN6030 LDA DTAB,X6040 STA YDIV+1 ; OF ROT'S6050 STA NUMDIV6060 LDA HBTAB,X6070 STA HB>}YTES ;OF PIXELS/BYTE6080 TXA 6090 CMP #126100 BPL OK126110 LDA GRMODE6120 JSR GRAPHICSMACH ;EXIT T>}O OS6130 LDA GRMODE6140 AND #$0F6150 CMP #96160 BMI CALC6170 LDA #46180 STA 703 ;SUPPRESS G>}R.06190 BNE CALC6200 OK12 LDA GRMODE6210 AND #$306220 STA TEMP6230 LDA GRMODE6240 AND #3 ;SUB >}126250 TAX 6260 PHA ;SAVE X6270 LDA GTAB,X6280 ORA TEMP6290 JSR GRAPHICSMACH ;DO GR.6300 > } PLA ;GET X6310 TAX 6320 LDA ATAB,X6330 STA ANTICMOD+16340 LDX GRMODE6350 LDY #2026360 ANT> }ICLOOP LDA (REG2),Y6370 AND #$BF ;LDA FROM DL6380 CMP ANTICMOD ;NEW MODE?6390 BNE NEXTANTIC6400 LDA (R> }EG2),Y6410 AND #$F06420 ORA ANTICMOD+1 ;CHANGE MODE6430 STA (REG2),Y6440 NEXTANTIC DEY 6450 BNE ANTICLOO> }P6460 CALC6470 LDX #86480 CALC.COL6490 LDA SETCOLOR,X6500 STA 704,X6510 DEX 6520 BPL CALC.COL6530> } LDA 886540 CLC 6550 ADC XLOCOFFSET6560 STA IDEAL6570 STA SCR.TABLE6580 LDA 896590 STA IDEA>}L+16600 STA SCR.TABLE+$C06610 LDY #16620 CALCLOOP CLC 6630 LDA IDEAL6640 ADC BYTES6650 STA IDEAL66>}60 STA SCR.TABLE,Y6670 LDA IDEAL+16680 ADC #06690 STA IDEAL+16700 STA SCR.TABLE+$C0,Y6710 INY 6>}720 CPY #1926730 BNE CALCLOOP6740 RTS 6750 ;IMITATE GR.12-15 WITH 0 OR 86760 GTAB .BYTE 0,0,8,86770 ANTICMOD>} .WORD 06780 ATAB .BYTE 4,5,12,146790 GRMODE .WORD 06800 BYTAB .BYTE 40,20,20,10,10,20,20,40,40,40,40,40,40,40,20,406810 >};BYTES PER SCREEN6820 TABHLIN .BYTE 255,255,255,$FC,$F8,$FC,$F8,$FC,$F8,$FE,$FE,$FE,255,255,$F8,$FC6830 BYTES .WORD 06840 >}C1286850 TDLO = 544 ;TIMER 56860 PLA 6870 PLA 6880 STA TDLO+1 ;TIME DELAY HI6890 PLA 6900 STA>} TDLO ;TIME DELAY LO6910 PLA 6920 PLA 6930 TAX ;COLOR REGISTER6940 LDA #2556950 STA 5586>}960 CLOOP6970 LDA 542836980 CLC 6990 ADC 207000 ASL A7010 STA 542827020 STA 53266,X7030 LD>}A 5587040 BNE CLOOP7050 RTS 7060 GRAPHICSMACH PHA 7070 LDX #$607080 LDA #255&CCLOSE7090 STA ICCOM,X>}7100 JSR CIO7110 LDX #$607120 LDA #255&COPEN7130 STA ICCOM,X7140 LDA #SCREENNAME&2557150 STA IC>}BADR,X7160 LDA #SCREENNAME/2567170 STA ICBADR+1,X7180 PLA 7190 STA ICAUX2,X7200 AND #$F07210 EO>}R #$1C7220 STA ICAUX1,X7230 JSR CIO7240 LDA 5607250 STA REG27260 LDA 5617270 STA REG2+17280 >} LDY #77290 LDA (REG2),Y7300 STA ANTICMOD7310 RTS 7320 CIO = $E4567330 ICCOM = $03427340 ICBADR = $0344>}7350 ICAUX1 = $034A7360 ICAUX2 = $034B7370 COPEN = 37380 CCLOSE = 127390 SCREENNAME .BYTE "S:"7400 CIRWORD7410 ;THE CIR>}CLE DATA. HERE GOES:7420 .BYTE 153,153,153,153,153,153,153,153,153,153,153,152,152,152,152,152,152,152,151,1517430 >}.BYTE 151,151,151,150,150,150,150,150,149,149,149,148,148,148,147,147,147,146,146,1467440 .BYTE 145,145,144,144,144,143,>}143,142,142,141,141,140,140,139,138,138,137,137,136,1357450 .BYTE 135,134,134,133,132,131,131,130,129,128,128,127,126,12>}5,124,123,123,122,121,1207460 .BYTE 119,118,117,116,115,114,113,111,110,109,108,107,105,104,103,102,100,99,97,967470 > } .BYTE 94,93,91,90,88,86,84,82,81,79,76,74,72,70,67,65,62,60,57,537480 .BYTE 50,46,43,38,33,27,19,07490 TEXTPLOT7500 >!} PLA 7510 PLA 7520 PLA 7530 STA XLOC7540 PLA 7550 PLA 7560 STA YLOC7570 PLA 7580 S>"}TA STRHI7590 PLA 7600 STA STRLO7610 PLA 7620 PLA 7630 STA STRLEN7640 DEC STRLEN7650 LDY #0>#}7660 TEXT.17670 LDA STRLO7680 STA REG27690 LDA STRHI7700 STA REG2+17710 LDA (REG2),Y7720 STY Y>$}TEMP7730 PHA ; STORE LETTER7740 AND #$607750 LSR A7760 LSR A7770 LSR A7780 LSR A7790 >%} LSR A7800 TAY ;CONVERSION7810 LDA CONV,Y7820 STA XTEMP7830 PLA 7840 AND #$9F7850 ORA>&} XTEMP ;DONE!7860 STA SLOPE7870 LDA #07880 STA SLOPE+17890 CLC 7900 ROL SLOPE7910 ROL SLOPE+1>'}7920 ROL SLOPE7930 ROL SLOPE+17940 ROL SLOPE7950 ROL SLOPE+17960 LDA SLOPE7970 STA REG27980 >(} LDA SLOPE+17990 CLC 8000 ADC #57344/2568010 STA REG2+1 ;REG2=CHS+8*ASC8020 LDY #78030 TEXT.2 STY YTEM>)}P28040 TYA 8050 CLC 8060 ADC YLOC8070 TAX 8080 LDA XLOC8090 LSR A8100 LSR A8110 CLC >*}8120 MEM88.18130 ADC SCR.TABLE,X8140 STA REG18150 LDA SCR.TABLE+$C0,X8160 ADC #08170 MEM89.18180 ST>+}A REG1+1 ;REG1=SCR.BYTE8190 LDA XLOC8200 AND #$038210 TAX 8220 CLC 8230 LDY YTEMP28240 LDA (RE>,}G2),Y8250 STA REG38260 LDA #08270 STA REG3+18280 TEXT.38290 ROR REG38300 ROR REG3+18310 DEX 8>-}320 BPL TEXT.38330 LDY #08340 LDA TEXT.CLEAR8350 AND (REG1),Y8360 EOR REG38370 STA (REG1),Y8380>.} INY 8390 LDA TEXT.CLEAR8400 AND (REG1),Y8410 EOR REG3+18420 STA (REG1),Y8430 LDY YTEMP28440 >/} DEY 8450 BPL TEXT.28460 INC XLOC8470 INC XLOC8480 INC XLOC8490 INC XLOC8500 LDA XLOC8510 >0} CMP #1528520 BCC TEXT.58530 SEC 8540 SBC #1528550 STA XLOC8560 LDA YLOC8570 CLC 8580 ADC >1}#88590 STA YLOC8600 CMP #1848610 BCC TEXT.58620 TEXT.58630 LDY YTEMP8640 CPY STRLEN8650 BEQ TE>2}XT.48660 INY 8670 JMP TEXT.18680 TEXT.48690 RTS 8700 TEXT.CLEAR .WORD 2558710 CONV .BYTE $40,$00,$20,$6087>3}20 G128 .WORD 08730 DTAB .BYTE 0,0,0,2,3,2,3,2,3,1,1,1,0,0,3,28740 ;LOG2 OF HBTAB8750 HBTAB .BYTE 1,1,1,4,8,4,8,4,8,2,2,2,>4}1,1,8,48760 ;PIXELS PER BYTE8770 TEMP .WORD 08780 ONEPLOT8790 PLA ;BASIC ENTRY - PLOT8800 PLA 8810 >5}PLA 8820 STA XLOC8830 PLA 8840 PLA 8850 STA YLOC8860 JMP PLOT8870 COLORN8880 PLA ;A=US>6}R(SET,A1,A2,A3,A4)8890 LDX #48900 LDY #08910 COLOR.28920 PLA 8930 PLA 8940 STA COLOR,Y8950 INY>7} 8960 DEX 8970 BNE COLOR.28980 RTS 8990 RANDOM9000 PLA 9010 LDX #39020 RND.LOOP9030 LDA 53770>8}9040 STA COLOR,X9050 DEX 9060 BPL RND.LOOP9070 RTS 9080 INIT9090 LDA 889100 STA REG19110 >9}LDA 899120 STA REG1+19130 LDY #399140 INITLOOP9150 LDA TITLE,Y9160 STA (REG1),Y9170 DEY 9180 B>:}PL INITLOOP9190 LDA #2559200 STA ONEORMANY9210 LDA #$249220 STA 7109230 RTS 9240 SETCOLOR9250 >;}*= *+99260 SCR.TABLE9270 *= *+3849280 ENDY9210 LDA #$249220 STA 7109230 RTS 9240 SETCOLOR9250 <3s in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! =} -ANTIC EDich we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY!