@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  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}}} HE |||DDOS DOSDOS SYS }}}L**}CDOS SYS} 0`BDELV !B }`LV   !L IL]   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} .,.WWWWT1T2T3T4T5T6T7T8T9T10TANRNAPPAPAPQ1DMKIRD1D2D3CPRNNYAAIIICC,}BRSZCFYIPQDPPP1PPINNOQ@%@7@U@u&((&(P&(x&(&( -}( ( ( @( h(@(<@@<A(Ai`.} @: @@ ?!"#($(% (&D('4((@/})(*?+(,A-(./01l(2@3456@7@8A%0}$9:\(;<<=>?A@Ai`A8(BCDE(F`#(G1}H@36-@%6-@7'6-@U36-@u*;@@,;@@,*;@@,*;@@,;@@2},*;@@,*;@@,;@@,*;@@,*;@@,;@@,*;@`, *;@,;@`3},*;@, *;@@,;@@,*;@@, *;@@,;@@,*;@@, *;@@,;@@4},*;@`,*;@@,;@@,*;@@,*;@@,;@@,*;@@,2 Bdi 5} A`m (}n" A( PRINCIPAL"w Ax( INTEREST RATE A)!( NUMBER O6}F PAYMENTS! 6.=:, APM#6.***** PRINCIPAL $ 767B:,%@,.M67B:,%@,.  6.=:,7} APN#6.***** INTEREST RATE 767B:,%@,.N67B:,%@,.%  6.=:, APM#6.*****8} NO. OF PAYMENTS 767B:,%@,.M67B:,%@,. 6-'A6-'@006-$+'+@&+@%9},#+6,,,%>6-+P:A$,,'A 6.=:, AP6.M#6.***** PAYMENT AMOUNT $ 767B:,%@:},.M67B:,%@,. 46-$&%>&6-P:$A,46-'A 6.=:, APM#6.***** TOTAL INT;}EREST $ 767B:,%@,.M67B:,%@,.   A"  Aa3(0(%SHALL I PREPARE AN AMORTIZATION T<}ABLE3(&&( Y = 'YES'- TO SCREEN"''( P = 'YES'- TO PRINTER,( N = 'NO'@J#6-=}@4P#6-@T0Y*0PAh A } A`( BY INPUTTING THE : (((( >} ̠ ( Ԡ--(% ҠƠӠ+(+( THE VA?}LUE AT SOMETIME IN THE !!( FUTURE CAN BE COMPUTED A9)(%( INITIAL AMOUNT INVESTED)% AI&@}( INTEREST RATE9 Ai:'#( NUMBER OF YEARS INVESTED'> At?.*(" NUMBER OF COMPOUNDINGS A}PER YEAR.@KA@*@*@*@*@*@K AuA6-@'D 6-$I 6-'B}6-'AN (}S-@@` 6.=:, AP6.bL"6.**** PRESENT VALUE $ 667B:,%@C},.L67B:,%@,. j 6.=:, APlM"6.**** INTEREST RATE 667B:,%@,.M67B:,%@,.% D}vO"6.**** NUMBER OF YEARS 967B:,%@,.=:,O67B:,%@,. O"6.**** PERIODS/YEAR 967B:,%@E},.=:,O67B:,%@,. 6-$+@%,#"6-P:$A,"6-'A 6.=:, APL"6.***F}* FUTURE VALUE $ 667B:,%@,.L67B:,%@,.  A"  Aa/( (/(! SHALL I PREPARE A GROWG}TH TABLE)()( Y = 'YES'- TO SCREEN''( P = 'YES'- TO PRINTER( N = 'NO'#H}6-@4P#6-@0Y*0PA A),(( STARTING MONTH & YEAR (MM/YY),B:,I}@ A076-A:7@<@,,76-A:7@<@,,# @)!@# A0 Aa)) J}!DATE INTEREST NEW BALANCE5"@53!DATE INTEREST NEW BALANCEGOSUB 8900 6.=:, APK} 6-B:, A6-@ AP8"@83/  OPENING BALANCE $ ,,(/ L} OPENING BALANCE $ 6-GOSUB 8950 -@!6-%@" " A%0 6-$6M}-$A"6-P:,06-'A* 6.=:, AP6.4 6-%> 6.=:, AP6.? AP^ 6-B:,N}a 6-B:,b% 6.6-@  AP%6.d% 6.6-@ AP%6.f /g"@3O}/k#"@)@"# Al**(" ӠΠϠŠmn6-p u AP}z 6-&6-%>6-A6-$A6-P:,(6-'A16.=:,; APA6. A0 AQ}((( MONTH OF FIRST PAYMENT (MM/YY)6-@B:,@A Aa A46-A:7@R}67@$&@,.H SHARES68,-R COST68 },-\#  CURRENT PRICE#68,-f DIVIDEND68,-p68,-8,$8,z68,-8,$8,68,-A }$8,'8,68,-8,$8,)68,-)8,"A @##68,-A$+8,&8,,'8, A. }@.@@P: A.@.@@E: A7@ }7@@ D:STOCK.DAT;; @) #SHR SYMBOL COST/SH TOTAL COST PRICE/SH 88 @'CURR V }ALUE %CHG DIV/SH INCOME YIELD"A6-?:C:,:, $ D1:STOCK.OGVAGIN sOFFPARBOD } *** MONEY MATTERS ***** BY WARWICK }WAKEMAN ** ANTIC MAGAZINE ** FEBUARY, 1984 ***********************/+@%@/0@}@@ ,-@@,(@ FINANCIAL /-@@/(@ CALCULATION%-@ @}%(@+-@@+(@WARWICK!&-@@u?# &(0 +'0@@}@*(-(0(#++ #THIS PROGRAM WILL COMPUTE FINANCIAL()) ! CALCULATIONS FOR INVESTMENT AND-( } BORROWING2( ((CHOOSE:(7--(% . WHAT WILL MY INVESTMENT BE WORTH?<$$( . VALUE OF REGULAR SAVINGSA%%( }. ANNUITY OR PENSION INCOMEF))(! . HOW MUCH DO I OWE ON MY LOAN?K--(% . GROWTH OF INTEREST BEARING INVESTP--(% . }DEVALUATION OF THE $ BY INFLATIONU++(# . FURTHER DETAIL ON 1. THROUGH 7.Z @P_??AAA}AA AA d- +'0@@@*(-(i((( ŠȠƠΠn(s}(((ORIGINAL INVESTMENT $x A}(((INTEREST RATE % A%(((COMPOU}NDING PERIODS PER YEAR # A5(((TOTAL YEARS # AE6-'$?6}-$+@%,#+$,((Š = $""(P:$A%?`,$?( ԠĠ  ( } A0 A,- +'0@@@*(-(1''(ŠŠƠҠ6(;''(AMOUN}T EACH DEPOSIT $@ AE''(INTEREST RATE %J A%O''(DEPOSITS PER YEAR } #T A5Y''(NUMBER OF YEARS TO SAVE #^ AEc6-'$?h''6-$++@%},#+$,&@,'m(r(Š = w""(P:$A%?`,$?|( ԠĠ  ( }A0 A- +'0@@@*(-(++(#ԠѧĠҠ٠Ҡ((((AMO}UNT OF PLANNED WITHDRAWALS $ A (((EXPECTED INTEREST RATE % A%(((PLANNED WITHDR}AWALS PER YEAR # A5!(((NUMBER OF YEARS TO MATURITY #& AE+6-$?0556-$'$+}@&@'++@%',#+$,,,5(:%%(͠Ԡѧ = ?""(P:A$%?`,$?D//(} $ Ӡ  I(N A0S A- +'0@@@*(-(%%( } ŠǠΠ((((REGULAR PAYMENT $ A(((ORIGINAL AMOUNT BORROWED } $ A%(((NUMBER OF PAYMENTS PER YEAR # A5(((ANNUAL INTEREST RATE % A}E(((TOTAL NUMBER OF PAYMENTS MADE # AU6-'A 6-'CC6-$+@%,#&$++@}%,#&+@%,,'&+@$, ((Š = ""(P:$A%?`,$?(  } (% A0* A- +'0@@@*(-(( ȠƠ((}!!(INITIAL AMOUNT $ A !!(INTEREST RATE % A 0-@-$+}@%'A,#(( = #(( = $-%@(##(FOR ADDITIONAL YEARS, H}IT 1""(TO CONTINUE PROGRAM, HIT 2 A "@A E"@ A0 A L- +}'0@@@*(-(Q(V++(# $ ΠԠŠƠ[(`&&(ORIGINAL VALUE } $e A j&&(INFLATION RATE %o A0t&&(YEARS #y A@}~(::6-P:A$$+@&'A,#%?`,$?( = ( ԠĠ  } ( (##(FOR ADDITIONAL YEARS, HIT 1""(TO CONTINUE PROGRAM, HIT 2 Au"@A"}@ A0 A  ( (,,(#ENTER NUMBER OF ADDITIONAL YEARS -  A66(-ENTER INFLATION R}ATE FOR ADDITIONAL YEARS - % A ::6-P:A$$+@&'A,#%?`,$? -% ( (}##(Π $ = ( ԠĠ  ( Au- +'0@@@*(}-(hb(Z THIS PART OF THE PROGRAM WILL GIVE FURTHER DETAILS ON THE VARIOUS CALCULATIONSe(h((CHOOSE:-}-(% 1. WHAT WILL MY INVESTMENT BE WORTH?$$( 2. VALUE OF REGULAR SAVINGS%%( 3. ANNUITY OR PENSION INCOME))(! 4.} HOW MUCH DO I OWE ON MY LOAN?--(% 5. GROWTH OF INTEREST BEARING INVEST--(% 6. DEVALUATION OF THE $ BY INFLATION}( 7. BACK TO MAIN MENU A ??A!A!@A!pA"A"5A"`@041 +@}10@@@9/(,(! ŠȠƠΠ/(>qq(h This function will compute the worth of a}n investment at a specified futuretime. The original investmenCMM(Et can be asavings account, a term deposit, bondsor a r}etirement fund.Hh(h(\ It may also be used to estimate the future value of an antique or a piece of real estate. M__(}W Just enter what you estimate the appreciation rate is in place of the Ԡ.R A1W A\7 +}@10@@@4(7(a-(-(" ŠŠƠҠfgg(^This function will compute }the future value of regular equal amounts deposited in an interest kdd(\bearing investment such as a savings account, in}surance policy or retirement savings plan.p A1u Az7 +@10@@@4(7(}/(/($ ͠٠Ԡoo(fThis function will compute the amount required to provide regular incom}e over a specified period ofkk(b time such as pension payments. It can also be used to determine the amount requir}ed to provide??(7 living expenses while attending college or university. A1 A7 +@}10@@@4(7(*(*( ŠǠΠmm(dThis function will compute the balanceowin}g on a loan after a specified number of payments such as a!!( bank loan or a mortgage. A1 A7 +}@10@@@4(7(#(#( ȠŠƠpp(hThis function will show how money } grows year by year when placed in an interest bearing investment. A1 A 7 +@10@}@@4(7(/(/($ $ ΠԠŠƠoo(fThis function will compute the effect on inf}lation on the doller. It can also be used to calculate oo(gdepreciationon a piece of equipment. Just enter the depr}eciation rate in place of the ΠŮ A1 A ( ((CHOOSE: ''(1. CONTINUE WITH THIS FUN}CTION? ((( 2. FURTHER DATA ON CALCULATIONS? (3. BACK TO MAIN MENU?  A0 "@$ "@}A  "@@0 ((CHOOSE:! (1. TO USE THIS FUNCTION& ''(2. FURTHER DATA ON CALCULATIONS+ (}3. BACK TO MAIN MENU0  A0@5 "@$: "@A ? "@@0 D:MONEYMATz*6-P:,f6-&%?6-P:,g) 6-&&!6-%)6-&hA6-+'A,#6-+'A,36-+'A},A6-'Aj 6.=:,6.=:,6.=:,t-@@~ 6. " 4END#""6-%@}A:,"6.0.00% 6.6-@ AP%6.% 6.6-@ AP%6.% 6.6-@ A}P%6. /"@3/ AP#@ )"@# A@)) ! }ӠΠϠŠ6-  A. 6-6-$A 6-P:,.6-'A> 6-&}6-%>'6-$A06-P:,>6-'A26-< A0 } A` (}++(# FUTURE VALU}E WITH ANNUAL INCREMENT A -()( BEGINNING PRINCIPAL BALANCE- A A'( AVERAGE ANNUAL INTER}EST RATE+7!AA A  A $'#( NUMBER OF YEARS INVESTED' A T.*(" NUMBER OF COMPO}-.tMAFBSHIFCTRMODLINLWPLHE@@} _***** FAS}T FINGERS *****`* BY CRAIG CHAMBERLAIN *a* ANTIC MAGAZINE *b* FEBUARY, 1984 *c**************}**********dT(>:A%,1(FAST FINGERS BOOT FILE MAKERQ(by Craig Chamberlain 8/1/83T(np&9A,9@p,;}@,:-A>"G68,-K _-@@pc"l68,-p xW;I:,&AP,'6-@36-}@d?6-A(K6-W6-9&(PLEASE ENTER INPUT DEVICE SPEC*94AK(>:A%,(READ}Y$ AA@@K A`,)@(>:,6E"@'!67,.>:@(,/6-%@;6}-@(E AP;4!@'* @2*6-8%@(,4 AP@4!A$* A(*6-8&@`,4 APE}4!AT* A`*6-8&@,4 APJ*!AR 6-8&A,* APT56-!A')6-&}A(56-@Y7 6-@&)67,.>:@9,76-%@^%"6-A`% APc$ @'}6-%8,$ APh%"@26-@3% APm, @@"6-%8&@,, APr*"@@ 6-%}8@6,* APw*"@A 6-%8@',* AP|* @H 6-8&@,* AP* @X 6-}8&@!,* AP* @e 6-8&@,* AP, @"6-%8&@d,, AP* @ 6}-8&@A,* AP%"A#6-A0% AP%"A$6-@y% AP;"6-@}-67,.>:@`,;6-%@6-8&@,'67,.>:,6-%@' A F:A,A6A}G67,.>:AU, @2ADA@dG(M(TOTAL:  KEYSTROKES+!AM(WARNING:} TOO BIG FOR PAGE SIXL((CASSETTE OR DISK )6-@:,L @g)!@h)4AA6-@$+"@g,}'6-B3+76-AA A s6-@:@@ D:AUTORUN.SYSG@R@s7}@<@,0 A +(APPEND4!(NO+ A `(6-@%+7@<@,4Y,`7@<@},0Y*7@<@,0NA,(LOAD ADDRESS () ( A0,96-A6+(PATCH ADDRESS (}) 5 A@9Z6-@'( SPEED 1-9 () 1 AP5Z @)!@ )P:,A@&N6-@}-@+6-$@/ N68@`,-'@&@0(6-%6-%@W& A,6-6 AD6-%A}N A\6-%@Vf At6-%@)~ A6-%@2: A6-%@V% A36-%@}= AK6-%@U Ao68@I,-P:'AV,68@Q,-&AV$P:'AV,XM 6-&&6-&AV$P:}'AV,76-P:'AV,A AMA0bh(@ D:AUTORUN.SYS;*@AUN*@AU}[*@h*@lW6-%A%5*@&AV$P:'AV,M*@P:'AV,W APvr#@}@A(C:6*@X*@P:+%AP,'A(,e*@r*@7*@%@U}&AV$P:+%@U,'AV,Y*@P:+%@U,'AV,m-@@q"~*@ E-}A'*@8,+ 9(@EAi*@A&)*@@<*@A'O*@}@\*@i*@@ B)(ERROR F:A,# B&)D"%68,-&AV}$P:'AV,A68%@,-P:'AV,D$ nn165,16,41,63,133,16,141,14,210,162,55,189,57,6,157,57,6,202,16,247,142,2}52,2,232,142,255,2,189,113,6,157!mm113,6,232,208,6,238,29,6,238,32,6,201,255,208,237,169,7,162,6,160,57,32,92,228,24,96,16}5,20,41,1,208,46"kk174,252,2,232,208,40,174,113,6,238,70,6,208,3,238,71,6,142,252,2,232,208,23,169,64,141,190,2,165,16,9#}GG192,133,16,141,14,210,169,7,162,228,160,98,32,92,228,76,98,228,96*jj63,21,18,58,42,56,61,57,13,1,5,0,37,35,8,10,47,40,}62,45,11,16,46,22,43,23,50,31,30,26,24,29,27,51,53+kk48,7,6,32,14,34,38,66,2,54,15,55,102,117,96,70,98,71,78,162,142,143,1}34,135,12,116,119,172,108,118,52,44,158,180,1834 12,15,28,31,37,40,70,73,78>169,60,141,2,211 D:FASTFING}RECLERLMCLEATOTAMENMSTRPOLARRAYWORKDINDEVRECLASTINLECHOICEBLANKPAPELINEARRAFIRSTAREAE}XCHPNUMTABLECHOICVOLUM } }* TELEPHONE DIRECTORY ** BY JERRY WHITE ** ANTIC MAGAZINE ** FEB}UARY, 1984 *d-6-@46-@#6-&- B0Ԡś-  ((SORTING6-) }@- F6-P:'@,% -&'(.2-6:6-$F6-+%,$$7&<,/7&<,'$ A$$6.}7&<,$67&<,.7&<,.67&<,. 8 !A@B   Ġś#  (}( READ DATA:# B`@6-! 6-%!(RECORD # + 6-$&67<%,.(!(+  }A P  Šś  5  ((+(I HAVE NO DATA TO WRITE5 BP (( WRITE DATA: B` } @  -(RECORD #  6-$&6.7<%, ((   BP }Ҡś  (( ALTER DATA:1( ('(I HAVE NO DATA TO ALTER1 BP*(&(ENTER LAST N }AME FOR SEARCH* 6-B:,(A@P(( SEARCHING -6-$&(.47<%&,AA(  } ( (( NOT FOUND( BP( ((7<%,6(2(&IS THIS THE RECORD TO BE ALTERED (Y/N)6"4NAA}," 4Y67<%,." A`P6 AAԠś5  ((+(I HAVE NO DATA TO PR}INT5 BP(( PRINT DATA:6-)()(TYPE S FOR SCREEN DISPLAY ONLY-)( TYPE P TO USE SCREEN AND PRINTER-}4SAQ 4P6- AQ APPU  (#67@%<@%,. <67@)<@),.-U6}7@3<@3,.- - 6-$&6.7<%, 67<@$,.7<@$,++67@&<@(,.7@%<}@',++67@0<@2,.7@(<@0,(++67@4<@7,.7@1<@4,2( 3< P BP}pzҠנś 6-%6-$&B !6-&(8(NO ADDITIONAL RECORDS AVAILABLE}B BP((ENTER NEW DATA:(( LAST NAME: 6-B:,(A`P67<%&,.(( FIRST NAME}: 6-B:,(A`` 67%@<%%@,.(( AREA CODE: 6-B:,(A`p 67%}@$<%%@#,.(( EXCHANGE: 6-B:,(A` 67%@'<%%@&,.((NUMBER:} 6-B:,(A` 67%@0<%%@),.   XbԠϠÛlv  ((BASIC(}IS''͠Λ$'.'AA;@,;@,;@,;@,;@,;,8'**;,;},;@,;,;@8,B'"6-P:I:,',&@";$,L'2 6. 67$,. '67@,.26.7<,V'36-B@}6-B 0'-A36-Bp* +!@!@@9 +1(-(!TYPE C FOR CASSETTE OR D FOR DISK1}+ 4C6.C: B  +* 4D 6.D:TELEPHON.DAT* B *+ B ..ՠś..5 }0@@50@@@/@/1AR(1(ANTIC TELEPHONE DIRECTORY/@ }&/ ( (RECORDS IN MEMORY=0/(RECORDS AVAILABLE=&:/@D/((M E N UN/@X/(((1}) ENTER NEW DATAb/(((2) READ IN DATAl/(( (3) SAVE DATAv/(((4) ALTER DATA/(( (5) SORT DATA/}(((6) PRINT DATA/(((7) EXIT TO BASIC/> B!-@@",(>:AV,26->AR/FAd }AU'-@@"+ B(ENTER YOUR CHOICEF/$ 6-A:,$ )!@B!/I BIA`0A 0!}A00A@0A0AP0Ap022îӛ267+0@)0@@70"}@6$:/((PRESS START FOR MENU+B2y/ : F:B2y,@BP: >?(/($PRESS START WHEN#} I/O DEVICE IS READY;B2y? > F:B2y,@B`>   $hB(-@6$2@( rB$$} N'F:A,"A6' BP*NP(F(ERROR F:A, AT LINE F:A,%AV$F:A,P BP%} D:TELEPHONRECLERLMCLEATOTAMENMSTRPOLARRAYWORKDINDEVRECLASTINLECHOICEBLANKPAPELINEARRAFIRSTAREAE 996 REM ANTIC MAGAZINE FEBRUARY 1983997 REM CHARACTER SET EXAMPLE #1998 REM BY CHRIS CHABRIS999 REM REQUIRES 16K1000 REM !'}*** CHARACTER SET EXAMPLE #11010 GRAPHICS 2:POKE 752,1:POKE 82,1:POKE 83,38:PRINT CHR$(125):REM - SET UP GRAPHICS MODE1020 !(}DIM LINE$(20),QU$(38),ANS1$(38),ANS2$(38),AN$(1),EX$(38),TAN$(10)1030 POSITION 6,2:PRINT #6;"ELECTRIC":POSITION 6,4:? #6;"ci!)}rcuits"1040 PRINT " Character Set Sample Program":PRINT " by Chris Chabris"1050 GOSUB 1570:REM - REDEFINE CHA!*}RACTERS SUBROUTINE1060 POKE 756,CH/256:REM - ACTIVATE NEW CHARACTER SET1070 REM - NOW PRINT OUT THE CIRCUIT ON THE SCREEN F!+}ROM DATA STATEMENTS1080 RESTORE 19201090 FOR LOOP=0 TO 91100 READ P,LINE$1110 POSITION P,LOOP:PRINT #6;LINE$;1120 NEXT L!,}OOP1130 REM - PRINT INITIAL MESSAGE1140 PRINT CHR$(125)1150 PRINT " Press ":PRINT " when you are ready!-} to begin."1160 POKE 53279,01170 IF PEEK(53279)<>6 THEN 11701180 REM - NOW WE'RE READY TO BEGIN THE QUESTIONS1190 RESTORE!.} 20201200 FOR LOOP=1 TO 51210 PRINT CHR$(125);1220 READ QU$,ANS1$,ANS2$,AN$,EX$,TAN$1230 PRINT QU$:PRINT ANS1$:PRINT ANS2!/}$1240 FOR LOOP2=1 TO 50:SOUND 0,100,10,8:NEXT LOOP2:SOUND 0,0,0,01250 OPEN #1,4,0,"K:"1260 POKE 702,64:REM - KEYBOARD TO A!0}LL CAPITALS1270 GET #1,AN1280 CLOSE #11290 IF AN=ASC(AN$) THEN 1400:REM - CORRECT ANSWER1300 FOR LOOP2=1 TO 100:SOUND 0,2!1}50,10,8:NEXT LOOP2:SOUND 0,0,0,01310 PRINT CHR$(125);1320 PRINT QU$1330 PRINT "The correct answer is ";TAN$;".":PRINT EX$!2}1340 PRINT "Press to go on.";1350 OPEN #1,4,0,"K:"1360 GET #1,AN1370 IF AN<>155 THEN 13601380 CLOSE #11390 GOTO 1!3}500:REM - NEXT QUESTION1400 REM - CORRECT ANSWER1410 FOR LOOP2=1 TO 75:SOUND 0,150,10,8:NEXT LOOP2:SOUND 0,0,0,01420 PRINT!4} CHR$(125)1430 PRINT " You are correct."1440 PRINT " Press to go on."1450 OPEN #1,4,0,"K:"1460 GE!5}T #1,AN1470 IF AN<>155 THEN 14601480 CLOSE #11490 RIGHT=RIGHT+11500 REM - NEXT QUESTION1510 NEXT LOOP1520 PRINT CHR$(12!6}5)1530 PRINT " You have completed this short quiz"1540 PRINT " with a score of ";(RIGHT/5)*100;" per cent."1550 GOTO !7}1550:REM - USER MUST PRESS BREAK OR SYSTEM RESET TO EXIT1560 END 1570 REM ** REDEFINE CHARACTER SET1580 REM - FIRST, RESER!8}VE MEMORY1590 CH=PEEK(106)-8:CH=CH*256:REM - STARTING ADDRESS OF NEW CHARACTER SET AREA1600 REM - NOW RELOCATE THE OLD SET!9}1610 FOR LOOP=0 TO 10231620 BYTE=PEEK(57344+LOOP)1630 POKE CH+LOOP,BYTE1640 NEXT LOOP1650 REM - NOW WE'RE READY TO POKE I!:}N THE NEW CHARACTER DEFINITIONS1660 RESTORE 17301670 READ NUM:IF NUM=-1 THEN RETURN :REM - IF DONE, GO BACK1680 NUM=NUM*8:!;}REM - OFFSET INTO NEW CHARACTER SET MEMORY1690 FOR LOOP=0 TO 7:READ BYTE:POKE CH+NUM+LOOP,BYTE1700 NEXT LOOP1710 GOTO 1670!<}:REM - READY FOR ANOTHER CHARACTER1720 REM - CHARACTER REDEFINITIONS1730 DATA 1,24,24,24,255,255,0,0,01740 DATA 2,24,24,24!=},31,31,0,0,01750 DATA 3,24,24,24,248,248,24,24,241760 DATA 4,24,12,6,3,3,6,12,241770 DATA 5,64,192,64,64,224,0,0,01780 DA!>}TA 6,0,24,60,36,36,165,231,01790 DATA 7,24,24,24,248,248,0,0,01800 DATA 10,255,0,60,0,255,0,60,01810 DATA 26,0,0,0,255,255!?},24,24,241820 DATA 27,24,24,24,31,31,24,24,241830 DATA 28,224,32,96,32,224,0,0,01840 DATA 32,224,32,224,128,224,0,0,01850!@} DATA 59,126,129,189,165,189,165,129,1261860 DATA 60,0,0,0,255,255,0,0,01870 DATA 61,24,24,24,24,24,24,24,241880 DATA 62,0!A},0,0,248,248,24,24,241890 DATA 63,0,0,0,31,31,24,24,241900 DATA -11910 REM - DATA FOR SCREEN1920 DATA 2,1930 DATA 1,!B}_\\[\\:\\\:\\\^1940 DATA 1,] ] ] ]1950 DATA 1,* $ $ $1960 DATA 1,* $ $ $қ1970 DATA 1,* $ $ !C} $ 1980 DATA 1,] ] ] ]1990 DATA 1,"\\\\\!\\\!\\\'2000 DATA 1,ҠĠҠ2010 DATA 2, 2020 REM!D} - QUESTIONS FOLLOW2030 DATA 1. What does the symbol & represent?2040 DATA (a) coulombs (b) webers2050 DATA (c) ohms!E} (d) newtons2060 DATA C,Ohms measure resistance.,2070 DATA 2. The resistors are connected in ...2080 DATA (a!F}) series (b) parallel2090 DATA (c) sequence (d) inversion2100 DATA B,They are each in separate branches.,!G}2110 DATA 3. What is the equivalent resistance?2120 DATA (a) 0.13 & (b) 8.0 &2130 DATA (c) 58 & (d) !H}72 &2140 DATA B,Eq. Resistance=Voltage/Current (24/3),2150 DATA 4. The power supplied is ...2160 DATA (a) 220 w !I} (b) 190 watts2170 DATA (c) 24 w (d) 72 w2180 DATA D,Power in a ciruit=Voltage X Current.,2190 DATA 5. Th!J}e current in resistor 1 is ...2200 DATA (a) 0.83 a (b) 1.5 a2210 DATA (c) 3.0 a (d) 1.2 a2220 DATA D,Curr!K}ent=Voltage/Resistance (24/20),997 REM CHARACTER SET EXAMPLE #1998 REM BY CHRIS CHABRIS999 REM REQUIRES 16K1000 REM %{slcharasm1{btLISTING TWO-----------; Character set movement subroutine; Stored in MOVE$; Call from Atari BASIC with:%M}; JUNK=USR(ADR(MOVE$),CH,57344)ROM EQU $00D4 ; Address of ROM character set - should be $E000RAM EQU $%N}00D6 ; New location of character set from variable "CH"INIT PLA ; Discard number of parameters from BASIC%O} PLA STA RAM+1 PLA STA RAM ; Store the address of the RAM set from the stack %P} PLA STA ROM+1 PLA STA ROM ; Do the same for the ROM set LDX #04 ; 4 pa%Q}ges of memory to doLOOP1 LDY #00 ; Zero the counter of bytes doneLOOP2 LDA (ROM),Y ; Get byte from ROM set%R} STA (RAM),Y ; And store it in the RAM set area INY BNE LOOP2 ; If not done with one page, d%S}o the next byte INC RAM+1 INC ROM+1 ; Add one page DEX ; Reduce counter of page%T}s left to do BNE LOOP1 ; If not zero, go back and do the next page RTS ; All done, so go ba%U}ck to BASIC{etSTING TWO-----------; Character set movement subroutine; Stored in MOVE$; Call from Atari BASIC with:${slcharasm2{btLISTING THREE-------------; Display List Interrupt service routine; Changes Character Base Pointer before)W} text window is displayedWSYNC EQU $D40A ; Wait for horizontal synchronization registerCHBASE EQU $D409 ; C)X}haracter Base Pointer register PHA ; Save accumulator for return to normal processing LDA #$)Y}E0 ; Hibyte of ROM character set starting address STA WSYNC ; Wait for proper synchroniztion STA )Z} CHBASE ; Now put the new character base into ANTIC PLA ; Restore accumulator RTI ; )[}All done, so go back to noraml execution{et Display List Interrupt service routine; Changes Character Base Pointer before(.996 REM ANTIC MAGAZINE FEBRUARY 1983997 REM CHARACTER SET EXAMPLE #2998 REM BY CHRIS CHABRIS999 REM REQUIRES 16K1000 REM -]}*** CHARACTER SET EXAMPLE #21010 GRAPHICS 0:POKE 752,1:PRINT CHR$(125):SETCOLOR 2,0,01020 DIM DRAW$(13),UNDRAW$(13)1030 GO-^}SUB 1260:REM - MODIFY DISPLAY LIST SUBROUTINE1040 GOSUB 1310:REM - MODIFY CHARACTER SET SUBROUTINE1050 REM - DRAW THE SCREE-_}N WITH OUR SHAPES1060 LET DRAW$="":LET UNDRAW$="    "1070 POSITION 2,22:PRINT "-`}";:REM - LAUNCH PAD1080 POKE 756,CH/2561090 POSITION 20,18:? DRAW$1100 FOR LOOP=9 TO 0 STEP -11110 POSITION-a} 20,23:? LOOP;1120 FOR LOOP2=1 TO 200:NEXT LOOP21130 NEXT LOOP1140 POSITION 15,23:PRINT "BLAST OFF!";1150 FOR LOOP=1 TO -b}300:NEXT LOOP1160 POSITION 12,23:PRINT "SHE'S LIFTING OFF";1170 FOR LOOP=17 TO 0 STEP -11180 POSITION 20,LOOP+1:? UNDRAW$;-c}1190 POSITION 20,LOOP:? DRAW$1200 FOR LOOP2=1 TO 2*LOOP:NEXT LOOP21210 NEXT LOOP1220 POSITION 10,23:PRINT "MISSION ACCOMP-d}LISHED!";1230 POSITION 20,0:? UNDRAW$1240 GOTO 1240:REM - USER MUST PRESS BREAK OR SYSTEM RESET TO EXIT1250 STOP 1260 REM-e} - MODIFY THE DISPLAY LIST1270 DL=PEEK(560)+256*PEEK(561)1280 POKE DL+3,68:REM - ANTIC MODE 41290 FOR LOOP=6 TO 27:POKE DL-f}+LOOP,4:NEXT LOOP:REM - CHANGE ALL SCREEN LINES1300 RETURN 1310 REM - DOWNLOAD AND MODIFY THE CHARACTER SET1320 CH=PEEK(10-g}6)-8:CH=CH*2561330 DIM MOVE$(32):RESTORE 1350:FOR LOOP=1 TO 32:READ BYTE:MOVE$(LOOP)=CHR$(BYTE):NEXT LOOP1340 JUNK=USR(ADR(-q}B'DOS SYSB]+A BUCARD BASB5cSTOCK BASB=MONEYMATBASTYPO LSTB$FASTFINGBASB%TELEPHONBASB&&CHARSET1BASB LCHARSET2SYNBVCHARSET3SYNB\CHARSET4BASBjvGANTLET BASB=GLOOPXXXBASBGLOOPRUNBASBDRAWFILLASMB .CINDER1 BASB:ODDMAN4 LSTB_MENU BpAUTORUN SYSBrDOC TXTBHELP BASBYMONITOR LSTBSTOCK2 ASMSTOCK DATTELEPHONDATRECORD DATMOVE$),CH,57344)1350 DATA 104,104,133,215,104,1331360 DATA 214,104,133,213,104,1331370 DATA 212,162,4,160,0,1771380 DATA -r}212,145,214,200,208,2491390 DATA 230,213,230,215,202,2081400 DATA 240,961410 RESTORE 14801420 READ NUM:IF NUM=-1 THEN RET-s}URN 1430 NUM=NUM*81440 FOR LOOP=0 TO 7:READ BYTE:POKE CH+NUM+LOOP,BYTE1450 NEXT LOOP1460 GOTO 14201470 REM - CHARACTER R-t}EDEFINITIONS1480 DATA 64,2,10,42,42,170,170,0,01490 DATA 65,128,160,168,168,170,170,0,01500 DATA 66,190,255,255,255,255,25-u}5,20,851510 DATA 67,190,190,190,190,190,190,190,1901520 DATA 68,0,0,0,20,20,40,170,1901530 DATA -1 REQUIRES 16K1000 REM ,fOPe4v4DLRUXYOPRERLDSEPLSMXYWMOLOUUPKHBCSEMIH1w} 1x} !"1y}#$%&'(** THE GANTLET **** BY STEVE GROLL ** ANTIC MAGAZINE **1z} FEBUARY, 1984 ******************* +@-@@8(@ ŠJ-@@Z(@1{}BYl-@@(@ 2-@A (;@,2 B2]@ '@1|}9@E6-Q6-]6-dO +@@! B+@=,@9@ 1}}O,@9@m-@A86-+@7$H:@,,%@Y6-+@$H:@,,%@c@i,1~}m c%6-P:@ $H:@,,%@G6-P:@$H:@,,%@Q@W,c6-@- B1}# B- A,_ +@@10@@; BG6-@S6-@ _6-6o 1}@,@@1/@8@C,@@U/@8@o0@@@@W,@@1}'/@@9,@'@K/@'@W6-JK @, B)"@56-@3A6-1}@ K AO/"@*"%6-@/ AT;"@*"@%6-@ 16-@; Ah1}w"@*"@'6-%@36-@= BI6-_"@)"@'m6-%@w A0m/+1}"@@)"@9,*"@*";6-@8G6-@Q@c,@@u/@@/@@1}/@9@6-@o"@!/@9@3/@!@=O/@ @a/@@1}m6-w@},6-@|;"@(*"@%6-@16-@ ; A;"@(*"@1}%6-@16-@; A;"@8*"@%6-@416-@; A;"@8*"@%61}-@316-@ ; A!!"*"@A"@A A0 B A01} B A +@'0@@ @A0@M6-@W@i,@8@1}{,@8@,@6@,@6@6-5 @ B#6-@5,@@  1}@, BQ"@*"@ +,@9@=/@9@G BQ A/6-1}@% B/ Aa +@@10@@K0@U Ba6-@1}E @, BE!* @ *"@9A/ B6-@%6-@ / A _ +@1}@#6-@/6-;6-G6-@9S6-_6-C-@,#/16-1}%@?6-%@C  @,@ 1/@9@ C,@U/@9@g,@1}y/@@,@ @/@ ,@@'/@"@9,@@K/@"1}@],@@o/@"@,@@/@"@+ @6-@%6-@ +,1}Q#"@*"@*"@-@?,@@Q,@ @="@@+,@ =,1}@="@@+,@9@ =,@9@="@@+,@=,@ 1}= B"@#@),3 B= A@$"A ."@9A081}"A1B"@A3o +@@10@K0@@@e0@1}o B,@'/@8@1C,@9@ U,@9@_@q,1}@@}6-@8@,6-1 @,@ @1,@)@C B/"@1})+"@* @,9 BC A"@9A_%+")"@,*"@36-%@=@1}C,O6-@U,_ A 3%+"@)"@,*"@36-%@"@A  G"@1}*"@+,@@=,@ @G A  @,6-@* B A 0 ="@1}*"@+,@@=/@ @ O +@@! B+=,@ O,@1} @,@1/@9@;@U0@@@g,@ @y,@)@1},@@ '6-@6-'6- @, B="*"@*"@I6-@1}S@_,@ q,@}6-@ A0 i#"@*"@*"@/6-@A,@1} S,@_6-i A0 /"@*"@%6-@/ A0 %"6-@% A01} !!"*"A C"@@,+6-@96-%@C A0 C"@@1},+6-@96-%@C A0 %"@*"@%6- /6-@6-@% B/ A1}00  B A00 +@@10@K0@@@U B_@q1},@@/@@& o,@@'/@#@9/@#@K,@ @]/@3@1}o,@0@0 /@0@',@1@9/@6@K,@6@]/@6@ o,@41}@/@4@,@&@/@&@: ],@"@'/@"@9/@@K,@%1}@]/@%@D ,@@'/@@9,@@K/@ @],@@o/1}@@ ,@@/@@/@@N ,@@'/@@9/@@1}K,@@]/@@o,@@/@@X ,@@',@@9,@@1}K/@@]/@@o,@@ /@@,@@/@@b 1},@@1,@ @;@M,@@Y6-@c@i,u6-@6-@6-1}d g"@)0@@56-I-@AM g0@@g B#"1}@*"@-3,?6-@4K6-@U@[,e Bq6-@}6-6-@ =61}-%@)6-3 B= A "@A A1r +@@10@1}@@K0@e0@@@o B{6-@6- 36-@6-1}'6-@36-@ -@ G%6-P:@8$H:@,,%@G6-P:@$H:@,,%@ 11} A3 / @, B+6-%@/  %"6-@% A4 + @,1} B+6-%@ E#"**"@/6-@;6-E A3* ="@ B'6-1}&@36-= A3E4 k"@@+,@=,@I6-@U6-@ a6-@1}k A3> A3PW W @,");,@M,@W A4`Z C6-P:@81}$H:@,,76-P:@$H:@,,C6-\ 1f A4p - @'0@1}-,z -@@+-@@E0@I ]-@@w01}{  B  m B6-%@'"@56-&@I-@@c0@m B1} m"@@,3-@@ 7 A@G,[-@@_ c m A4 W"@1}@%6-@16-@ 7,A BM6-W A4` )"@,) A4 "1}A5 A4` +@@10@@K0@@e0@@@1}o B{6-@6-6-@86- g @'0@-,7@C6-@1}O6-@[6-g6- ;,@ @'/@ @;"@A5@ ',@)@'/@)1}@ G"@*"@#5,@@G/@ @ @6- @1}6- 7 B6-@7"@*"A7 }#"@*"@ *"@-9,@1}E/@S6-%@]@i6-s A5} A5@ }#"@*"@)*"@-9,@1}E/@S6-%@_6-i@s A6} A5@ W#"@* @*"-7 A5A1}@M6-@W A5  Q#"@*!@'*"'1 A6;@G6-@Q A50#6-@ 1} B# A5P,@@ '/@@ 36-@=@C,M BP$P,@(@ '/1}@0@ 1@=6-@C,M BP$t +@@10@@K0@@@1}e0@@ @0@ B6-@6-6-@~],@@1}'/@@9/@@K/@@]/@@],@%@'/@1@9/@1@1}K/@%@]/@%@_ @,@@1,@@;@M,@(@_,@(1}@"@A8G , B#"@/6-@=6-%@G A7K#"@*"@1}*"@/6-@A,@1@K A73"@6-@)6-%@3 A7K#"@*"@1}*"@/6-@A,@@K A7!!"@*"A@/6-@6-@% B1}/ A7P B A7P1,@@'/@ @1 A7U +@@10@@@1}K0@@e0@o B{6-@6-@6-@6-@6-@ 1}s @,@@1/@@C,@0@U/@0@_@e,s/%@a1} , B#"@16-&@;@A,K BW6-@a A@ E#"@*"@*"@1}/6-@;6-@E AEE#"@0*"@*"@/6-@;6-@E AF!!"@*"1}A; B6-@ %6-@16-@; A@ WA"@)"@)"@)"@)"@ )1}"@M6-W AH6- AGC-"@)"@)"@)"@96-C AH1}6- AG\@ 6-@aK ,/%@'"36-@A6-&@K AG1}f)6-&@")6-@p B A@ K ,/%@'"36-@A6-%@1}K AH%6-%@ B% A@ (#DD6-++F:@,$AV%F:@,,$AV%F:@ ,,'@`2#%61}-P:'@`,%6-P:'@`,'q +@-@@@(@congratulations youR-@@q(@1}made it! it took'v-@@'(@you:9-@@W(@ i-@@1}v(@$'X-@@,(@&$@`>-@@X(@P:&$@`,.'.-@@.(1}@ PRESS START8' F:B2y,@B@B' @P8J`,'/@99/@9@K1}/@]/`$Jm -@@6@D2@$@@@H j2@1}m$Kb-@@92@A@@= _2@b$dKe 1}-A@ 6@<2@@@@ b2@e$Kb-@@92@1}@ @@= _2@b$,Lb-@@92@@%@@1}= _2@b$ N` B(3(WHICH DIRECTION SHOULD I MOVE7:(\(HOW MANY STEPS SHOULD1} I TAKE`HNC-@!,C2@RN 4U6-&@\N 4D6-%@1}fN 4R6-%@nN 4L6-&@zN 1N$N0-"@9)"@)")"1}0$0u ,/2@@C-@@e2i }-@1}@  :u"@$Du B D:GANTLETWMOLOUUPKHBCSEMIH0?:;CQhAXXYYWDIFDDPFLCCCTSHIDYHD@@5} 5} GALACTIC GLOOPBY GUY AITCHI5}SONANTIC MAGAZINE ΠήӠԠ:&;@ ,9@0,9@0,0#A : A 5}68@,-@-68@,-@B68@,-@W68@,-@l68@,-@68@,-@5}68@,-@68@,-@68@,-@68@,-@6-@6-@6-@5} Q +@-@@9(@ INITIALIZINGM-@AQ  y AF:A,&@*+@K65}-+F:A,%@,$AVgAV'AV%@yAA .-A(A*%F:BsD%,.  5}]-@@'"36-+%@d,$@G-@K"U%%Y ]  n-6-F:A`,%F:Aa,$AV5}%@'9@K-@@"n(@ SCORE=0 SHIPS=5B #A!-@"%"1-@5}>(@B 'AA'A @ViAY@b'B2w@9BBy@@KAA5}RW6-BdiAwA$_AvA$#A3-A6AV7"=A U-A`AsY"5}_ f 6-?:A`,(AvA<-@@"P%%AT fB2HA$0_BB5}'AH9AI@KBB@dU#A0_ Ad2# @)!@)!@/6-5}2$eAA@%-,%@A-@]2@@a 2@5}$d-6-F:A`,%F:Aa,$AV%@(9@M-A(A`%F:BsD%,d U 6-%5}"@#6-Aa/6-@2=-@Q68,-8,%@U '"@6-Ab'6-Ac'"@5}6-Ad'6-Ae3"@6-Af'6-Ag36-3-@6-8,#6-8,31%@5})""6-A)#A0I%2@I2@'@@@[ ,5},%@)@27,&@C"@M@2[,&@"@% AP#!@* 5}@# A00@@&8,!@0 Asi @* @) @*!@* @)!@5}* @)!@*!@* @s Az$6-+F:Aw,'@,&@E6-+F:Av,'@,&@d5}T:,"*"p6-@z Aj6-%?P%%A9%AB"P:,V%A5}A)j%AA):6-F:B2R,!@( AP:B2x# 68,-68,- # A5} @%,!,%@C2A@W-@@[ e@2k,y,%@25}<6-%+@$,%@/-@ @"<(@,%@668,-P:@$5}H:,,%@E68,-@N6-8,W6-8,e6-%@}!@%+$@,6- A' A5}\-8,8,(@ 2-8,8,%@A(@P68,-@\6-@W(68,-P:@$H:5},,%@16-8,?6-&@PK W6-)-@ @"&(@ )$T @2,8,8,-5},8,8,%@96-@ H8, @ T6-@8,!@6-@-@ (@,-5}@=(@I-@ Z(@|2A@-@@ { -@5}$(@ 0-@A(@M-@ ^(@ {-@6?%s2A6}# E2Q6-@2_6-%@s"@A $X"$Y$66}-!AAR$$Y6-%@6-%@A2@M!@Y6-@e06}@@)@w3#AI-@$@O"X68,-a68,-e G-@@!@26}-,@9/@= G#A0-@@4-A@E6@P2@@T 6}X z2}' Al6-?:A`,$BB6B2H@#AT-6}@X"h%%@3l  -@6?%<2@A0@@ RAv@4dAw6}A$vBB@d2@86-%@#-@@#8(@@&"6}@A "B2HA$#A0"$ ii , , , 6} , !ii , , , , 6 } "ii , , , , #ii 6 } , , ,    ,$..    ,6 },-@327 Y2A@v-@!66 }@@%,/@ A%2A@B-@!66 }@L@2X,d/@h |-@A 6-?:B,0,0,0,0,0,0,0,0,0TT1,8,16,48,126}0,252,188,204,120,2,0,0,16,16,48,120,220,188,3,220,120,0,0,0,0,0,0gg4,0,0,0,0,32,16,48,120,5,204,188,252,120,0,0,0,0,6,0,6}0,0,0,0,0,16,16,7,48,120,220,188,220,120,0,0gg8,255,0,0,0,0,0,0,0,9,128,64,32,16,8,4,2,1,10,1,2,4,8,16,32,64,128,11,192,16}92,192,192,192,192,192VV192,12,3,3,3,3,3,3,3,3,13,0,1,7,31,63,125,123,246,14,60,255,231,219,141,14,15,15gg15,0,128,226}4,248,252,190,94,111,16,236,236,247,123,125,191,159,135,17,15,15,12,195,255,60,195,255[[18,183,55,239,222,62,253,251,231,6}19,129,64,64,32,24,6,1,0,20,255,60,3,15,15,15,207,40mm21,159,126,254,252,248,224,128,0,23,255,254,254,252,252,248,249,2416},24,255,255,255,127,127,191,63,31,25ee129,102,90,60,60,90,102,129,26,243,224,224,199,207,239,255,255,33,159,15,15,199,2316},239,255,255GG173,120,2,41,1,208,3,32,43,6,173,120,2,41,2,208,3,32,67,6,173,120HH2,41,4,208,3,32,91,6,173,120,2,41,8,6}208,3,32,106,6,76,98,228,160,8GG174,240,6,202,224,33,144,13,142,240,6,189,0,44,157,255,43,232,136FF16,246,96,160,8,176}4,240,6,232,224,218,176,245,142,240,6,189,5,44GG157,6,44,202,136,16,246,96,174,241,6,202,224,48,144,223,142,241,6GG146}2,0,208,96,174,241,6,232,224,201,176,208,142,241,6,142,0,208,9655162,255,169,0,157,0,44,202,224,0,208,248,104,96 1296},90,60,255,0,255,126,24L__3,1,6,2,9,3,12,4,15,5,4,6,7,5,10,4,13,3,16,2,3,3,6,4,9,5,12,6,15,7,4,8,7,7,10,8,13,5,16,4M4436},5,6,6,9,7,12,8,15,9,4,10,7,9,10,10,13,7,16,6 +@-@@1(@C-@@6}a(@s-@@(@ F:Ad,AU$%-@@6} % A  __193,126,96,193,126,96,193,193,193,126,96,193,126,96,193,193,182,121,91,182,121,91,182,182 !!193,126,96}6,193,126,96,193,0D1:GLOOPXXX.BASFLCCCTSHIDYHD@@4*11RUN THIS PROGRAM TO ALTER LOMEM FOR 'GLOOP' v +-@@@(POKE 743,114:POKE 744,46:N:}EWC(F(v(RUN >:@4,D:GLOOPXXX.BAS>:@4,*-@'AB@*&D1:GLOOPRUN.BAS6:N8z02 ;GRAPHICS, DRAWTO AND FILL04 ;PAGE #'S FROM 1982 TECH. REF. NOTES06 ;PROGRAM BY JT.08 ;ASSEMBLE AND TYPE "BUG"; "G0602"> }10 ;12 ;SET UP PLAYFIELD COLOR REGISTERS14 ;pg. 6216 COLPF0 = $2C418 COLPF1 = $2C520 COLPF2 = $2C6 ;TEXT WINDOW22 COLP>!}F3 = $2C724 COLPF4 = $2C8 ;BACKGROUND26 ;SOME COLORS YOU CAN USE pg. 19028 GOLD = $1830 REDOR = $3432 BLUE = $7834 GREE>"}N = $C436 ;38 ;CURSOR REGISTERS pg. 61,212-22540 ROWCRS = $5442 COLCRS = $5544 NEWROW = $6046 NEWCOL = $6148 CRSINH = >#}$02F050 OLDROW = $5A52 OLDCOL = $5B54 FILDAT = $2FD ;FOR FILL COLOR56 ATACHR = $2FB ;FOR DRAW COLOR58 *=$0600 ;STARTING>$} ADRESS60 DEV .BYTE "S:" :SCREEN62 LDX #$60 ;IOCB #664 LDA #$3 ;OPEN66 STA $342,X ;ICCOM COMMAND CODE68 LDA #DEV&$00>%}FF ;MASK OFF HI BYTE70 STA $344,X ;ICBAL BUFFER ADR. LO BYTE72 LDA #DEV/256 ;HI BYTE74 STA $345,X ;ICBAH76 LDA #$0C ;>&}READ/WRITE. SPLIT SCREEN78 STA $34A,X ;ICAX180 LDA #3 ;GR. 382 STA $34B,X ;ICAX284 JSR $E456 ;LET CIOV HANDLER DO IT>'}86 LDA #REDOR ;RED-ORANGE FOR PF188 STA COLPF190 LDA #292 ;IN GR.3 DATA VALUE FOR PF1 = 294 ;SEE TECH. NOTES APPENDIX >(}H, 60-62, 188-18996 STA ATACHR98 LDA #0 ;PLOT AND0100 STA OLDCOL0102 LDA #120104 STA OLDROW0106 STA COLCRS ;DRAWT>)}O POSITIONS0108 STA ROWCRS0110 LDX #$60 ;IOCB #60112 LDA #$11 ;DRAW COMMAND pg. 60,2180114 STA $342,X ;ICCOM0116 JS>*}R $E456 ;CIOV0118 LDA #0 ;DRAW NEW POSITIONS0120 STA ROWCRS0122 JSR $E4560124 LDA #00126 STA COLCRS0128 JSR $E456>+}0130 LDA #120132 STA ROWCRS0134 JSR $E4560136 LDA #00138 STA ROWCRS0140 LDA #1 ;PF0 COLOR DATA0142 STA FILDAT ;>,}FILL WITH PF0 COLOR0144 LDX #$600146 LDA #$12 ;FILL CODE0148 STA $342,X0150 JSR $E4560152 STOP JMP STOP ;HOLD ON SCR>-}EEN0154 ;NOW MAKE YOUR OWN PLAYFIELDS#'S FROM 1982 TECH. REF. NOTES06 ;PROGRAM BY JT.08 ;ASSEMBLE AND TYPE "BUG"; "G0602"<'  :DDL*** OS DEMO 1 ***** BY FRED PINHO *B/}* ANTIC MAGAZINE ** FEBUARY, 1984 ******************* d +@6-4(NORMAL SCREEN(NO DLI).R(CAB0}N YOU SEE THE LETTERS?dҠҮҠҮ1 @,@ 1/@ @1 @,@1/B1}@@(1 @,@)1/@)@2AR@ A<'0@@'B2} AA'0@@' AF'0@@@' AP'0@@@' AB3}Z'0@@@' Ad'0@@@' An'0@@@' Ax'0@B4}@ @' A+"@!BB@d+ @66ŠƠ̠ũϠӠB5}ɛ;(>:A%,%(SETTING UP DLI!16-@; A%%6-F:A`,%AV$F:Aa,96-%@$9ҠB6}Š̫ҠҮŠ̫AA6AҠҮŠɬĠҠҮŠɬ7 #A!-@B7}%"3A6%7 @@72,169,202,141,10,212,141,23,208,169,148,141,24,208,104,649A'A@B8}9BBA55ӠĠӠƠɠś!!ŠϠӠɛ@( DONE!,(B9}CAN YOU SEE THE LETTERS?6 A@ @ ,-@A $D:PINHO1** BY FRED PINHO *@^5 REM Ӡ̠͠ԠΠΠήԠӠԠƠҭԠӠĠΧΠ֮ՠ®10 REM ***F;}*************************20 REM * *30 REM * ODD MAN OUT *40 REM * BY F<} *50 REM * JOHN AND MARY HARRISON *60 REM * *70 REM * FOR *80 REM *F=} ANTIC MAGAZINE *90 REM * *95 REM ****************************160 DIM FACE$(48)600 FORF>} I=1 TO 48:READ X:FACE$(I,I)=CHR$(X):NEXT I700 TRAP 720:OPEN #4,9,0,"D:RECORD.DAT":GOTO 760720 REM TRAP ROUTINE IF RECORD.DF?}AT DOES NOT EXIST740 CLOSE #4:OPEN #4,8,0,"D:RECORD.DAT"760 TRAP 40000780 REM INPUT CHILD'S NAME800 GRAPHICS 0:OPEN #5,4,F@}0,"E:"820 POSITION 2,5:? "Hello. What is your name? ";:INPUT #5;NAME$840 POSITION 2,7:? "Plug your joystick into port numbFA}er 1 and press the fire button to begin."860 IF STRIG(0)<>0 THEN 8601070 FOR DEL=1 TO 25:NEXT DEL1360 RAM$(209,256)=FACE$(FB}1,48)2860 POSITION INT(LE)*4+3+(CHOICE=7),8:? #6;"\"2880 POSITION 9,1:? #6;":;"2900 IF INT(LE)<>ODD THEN 30002920 POSITIOFC}N 9,2:? #6;"<="2940 FOR K=121 TO 0 STEP -5:SOUND 0,K,12,8:SOUND 1,K+5,12,8:NEXT K:SOUND 0,0,0,0:SOUND 1,0,0,02960 FOR DEL=1FD} TO 75:NEXT DEL2980 POSITION 9,1:? #6;" ":POSITION 9,2:? #6;" ":? "}":RETURN 3000 POSITION 9,2:? #6;">?"3020 FOR K=1 TO FE}30:SOUND 0,60,12,7:SOUND 0,60,12,8:NEXT K:SOUND 0,0,0,03040 IF FLAG=0 THEN WRONG=WRONG+1:FLAG=13060 POSITION 9,1:? #6;" ":FF}POSITION 9,2:? #6;" "3080 POSITION INT(LE)*4+3+(CHOICE=7),8:? #6;"[":? "}":GOTO 25403100 REM REWARD ROUTINE3120 POKE AF,0FG}3140 GRAPHICS 21:FOR I=0 TO 2:SETCOLOR I,4,6:NEXT I:SETCOLOR 4,7,0:C=13160 DISP$="YEAH":PYO=22:GOSUB 37603180 DISP$=NAME$:FH}PYO=31:GOSUB 37603200 IF WRONG=0 THEN 32403220 DISP$=" RIGHT":DISP$(1,1)=STR$(10-WRONG):GOTO 32603240 DISP$="PERFECT"326FI}0 PYO=40:GOSUB 37603280 REM ROUTINE FOR ATLEAST 8 RIGHT3300 IF WRONG>2 THEN 40603320 COLOR 1:PLOT 40,0:DRAWTO 40,10:PLOT 3FJ}5,5:DRAWTO 45,53340 COLOR 2:PLOT 42,3:DRAWTO 38,7:PLOT 38,3:DRAWTO 42,73360 REM ROUTINE FOR ATLEAST 9 RIGHT3380 IF WRONG>1FK} THEN 40603400 COLOR 1:PLOT 10,12:DRAWTO 20,12:PLOT 15,7:DRAWTO 15,173420 COLOR 2:PLOT 17,9:DRAWTO 13,15:PLOT 13,9:DRAWTO 1FL}7,153440 COLOR 1:PLOT 60,12:DRAWTO 70,12:PLOT 65,7:DRAWTO 65,173460 COLOR 2:PLOT 67,9:DRAWTO 63,15:PLOT 63,9:DRAWTO 67,153FM}480 REM ROUTINE FOR 10 RIGHT3500 IF WRONG>0 THEN 40603520 SETCOLOR 2,3,4:COLOR 33540 FOR LP=1 TO 15:X=INT(80*RND(0)):Y=INTFN}(20*RND(0))3560 GOSUB 3940:PLOT X,Y:NEXT LP3580 REM SOUND EFFECTS FOR PERFECT SCORE3600 LO=503620 FOR I=1 TO 20:FOR J=0 TFO}O 133640 SETCOLOR 0,J,83660 SETCOLOR 1,J+1,83680 SETCOLOR 2,J+2,83700 SOUND 0,LO,10,14:LO=LO-1:IF LO<35 THEN LO=503720 NFP}EXT J:NEXT I:SOUND 0,0,0,03740 GOTO 40603760 PXO=(80-LEN(DISP$)*10)/2:PX=PXO:C=1:COLOR C3780 FOR I=1 TO LEN(DISP$):PY=PYOFQ}3800 CHAR=ASC(DISP$(I,I))-32:PTR=CHAR*8+13820 FOR J=PTR TO PTR+7:BITM=ASC(ROM$(J,J)):DIV=1283840 FOR K=1 TO 83860 IF BITM/FR}DIV>=1 THEN PLOT PX,PY:BITM=BITM-DIV3880 DIV=DIV/2:PX=PX+1:NEXT K:PX=PXO:PY=PY+13900 C=3-C3920 COLOR C:NEXT J:PXO=PXO+10:PFS}Y=14:COLOR 1:NEXT I:RETURN 3940 REM EXPLOSION SOUND3960 SOUND 2,75,8,15:V1=15:V2=15:V3=15:ICR=0.0793980 SOUND 0,20,8,V1:SOFT}UND 1,40,8,V2:SOUND 2,70,8,V34000 V1=V1*ICR:V2=V2*(ICR+0.05):V3=V3*(ICR+0.08)4020 IF V3>1 THEN 39804040 SOUND 0,0,0,0:SOUNFU}D 1,0,0,0:SOUND 2,0,0,0:RETURN 4060 REM CONDUCT RECORD KEEPING AND LOOK FOR JOYSTICK INPUT TO CONTINUE4080 ? #4;NAME$:? #4;FV}CHOICE:? #4;10-WRONG4100 IF STRIG(0)<>0 THEN 41004120 GOTO 8804140 GRAPHICS 0:CLOSE #4:END 4160 REM 4500 DATA 0,7,24,32,FW}76,76,64,644520 DATA 0,224,24,4,50,50,2,24540 DATA 64,72,68,67,32,24,7,04560 DATA 2,10,18,226,4,24,224,04580 DATA 64,67,6FX}8,70,32,24,7,04600 DATA 2,194,34,18,4,24,224,0DATA 64,72,68,67,32,24,7,04560 DATA 2,10,18,226,4,24,224,04580 DATA 64,67,6D05 REM Ӡ͠ӠԠԠϠΠӠήԧӠԠƠҭԠӠĠΧΠ֮®10 REM ***ZZ}**************************20 REM * *30 REM * ODD MAN OUT MONITOR *40 REM * Z[} *50 REM * BY *60 REM * *70 REM * JOHN AND MARY HARRISON *8Z\}0 REM * *90 REM * FOR *100 REM * *110 REM * Z]} ANTIC MAGAZINE *120 REM * *130 REM *****************************140 DIM NAME$(20),Z$(5)1Z^}50 OPEN #5,4,0,"E:"160 TRAP 320170 OPEN #2,4,0,"D:RECORD.DAT"180 TRAP 40000190 GRAPHICS 0:POKE 752,1:REM POKE 16,112:POKEZ}l  AXLPB0NZ<( ((@$@d "( J`} +AdAU0@@70@@Q0@@c@@Ja}u@@7{(}AR@++(#++(#| ANTIC MONTHLY DISK FEB. 198Jb}4 |++(#++(# @ -@AJc} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@Jd}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.Je}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--Jf}@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@Jg},.0$@(''7@<@,4FREE@- @ 2() <@F''7@Jh}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z+Ji}+(#| |[ ( |  |\++(#d-(-("Jj} Select HELP.BAS for information.xAR[@@9'-@@"C( SELECTIONM Jk}A0Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@Jl}<+&@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.Jm}0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?Jn}AR@'-@@"?  LOADING ? A@@91@@5%? BJo}K-@@"-  CANNOT RUN 7 @A BK A0D1:MENU."( HYEiͩkΩ͙kCop j`j {j`Hi͝Νh`Nq}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`L WELCOME TO THE ANTIC MONTHLY DISK Most of the Rs}programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you Rt}refer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscriRu}ption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)Rv} 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exRw}tender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followiRx}ng list:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER theRy}n RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the filenaRz}me..ASM Assembly language source code from Atari Assembler Editor. Must be assembled..M65 Same as .ASM onR{}ly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXX.OBJ Machine language object file. R|} Same as .EXE but not 'Load and Go'. Refer to corresponding article..ACT ACTION! source code..SYS ResR}}erved for DOS system files..PLT Pilot language, requires Pilot cartridge..LGO Logo language, requires Logo R~} cartridge..TXT Text file. Usually accessed by another program.XXXAll programs from ANTIC issues datedprior R}to August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wiR}th the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lisR}tings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! R} -ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK Most of the P"iwLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXTV} A(@2lB:,!@-7@<@,4XXX0(3(E-@@"X( ӠΠ\b(}V}l @@<( @@da@ B*-@@"R("ΠҠՠҠˠҠVa%D:MENUV}D:HELPLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXTT 53774,112200 POSITION 11,1:? "ĠΠԠ"210 POSITION 2,3:? "":POSITION 20,3:? " ":? 220 TRAP 3Z}50230 CTR=0240 INPUT #2;NAME$:INPUT #2;LEVEL:INPUT #2;SCORE250 X=20-LEN(NAME$)260 ? NAME$;:POKE 201,X:? ,LEVEL;:POKE 201,Z}9:? ,SCORE270 CTR=CTR+1280 IF CTR<15 THEN 240290 ? "Press RETURN to contiue.";300 INPUT #5;Z$310 ? "}":GOTO 200320 REM Z}FILE DOES NOT EXIST TRAP330 IF PEEK(195)<>170 THEN ? "ERROR - ";PEEK(195);" IN LINE 170":CLOSE #2:END 340 ? "FILE RECORD.DAZ}T DOES NOT EXIST. UNABLE TO PROVIDE REPORT.":CLOSE #2:END 350 REM OUT OF DATA TRAP360 POKE 84,20:POKE 201,10:POKE 752,037Z}0 IF PEEK(195)<>136 THEN ? "ERROR - ";PEEK(195);" IN LINE ";PEEK(186)+256*PEEK(187)380 CLOSE #2390 ? "Press RETURN to contiZ}nue"400 INPUT #5;Z$:? "}"410 ? "Do you want to delete the stored information? ";:INPUT #5;Z$420 IF Z$(1,1)="Y" THEN OZ}PEN #2,8,0,"D:RECORD.DAT":CLOSE #2430 END t to delete the stored information? ";:INPUT #5;Z$420 IF Z$(1,1)="Y" THEN OX,UNDINGS PER YEAR. KA@*@*@*@*@*@K A U  6-6-@' } A e)%( AMOUNT OF YEARLY INCREMENT)\ 6-$z (} 6.=:, AP6.N$6.***** BEGINNING B}ALANCE $867B:,%@,.N67B:,%@,.  6.=:, AP6.N$6.***** NUMBER OF YEARS 867B:,%}@,.N67B:,%@,.  6.=:, AP6.O$6.***** ANNUAL INT. RATE 867B:,%@,.O67B:,}%@,.%  6.=:, AP6.N$6.***** ANNUAL INCREMENT $867B:,%@,.N67B:,%@,.  } A"P2-@@! A2-B:,@7 4 A")'67B:,%@,.* ' A  }1000 *=$6001010 ;1020 SAVMSC = $581030 FR0 = $D41040 FRE = $DA1050 FR2 = $E^}01060 FR1 = $E61070 CIX = $F21080 INBUFF = $F31090 ;1100 ; X=USR(1536,ADR(A$),N,L)1110 ;112^}0 ; A$ - ENTRIES TO BE SORTED1130 ; N - NUMBER OF ENTRIES1140 ; L - LENGTH OF ENTRIES1150 ; X - ADDRESS OF POINTER TABL^}E1160 ;1170 PLA1180 PLA1190 STA INBUFF+11200 PLA1210 STA INBUFF1220 ^} PLA1230 PLA1240 STA CIX1250 PLA1260 PLA1270 STA FR0+41280 ^} STA FR0+31290 DEC FR0+31300 LDX SAVMSC+11310 DEX1320 STX FR0+11330 ^} DEX1340 STX FR1+11350 DEX1360 STX FR2+11370 LDY #01380 STY F^}R01390 STY FR11400 STY FR21410 STY FR0+21420 PASS0 TYA1430 STA (FR0),Y^}1440 INY1450 BNE PASS01460 ;1470 PASS1 CLC1480 PASS2 ROR FR0+21490 LDY #01500 ^} TYA1510 SET1 PHA1520 BIT FR0+21530 BPL NADD1540 ;1550 CLC1560 ADC ^} (FR2),Y1570 NADD TAX1580 PLA1590 STA (FR2),Y1600 TXA1610 INY1620 BNE ^} SET11630 ;1640 LDX #01650 ORDR TXA1660 TAY1670 LDA (FR0),Y1680 PHA1690 ^} STA FR0+51700 LDA #01710 STA FRE+11720 LDY #$071730 SHFT ASL A1740^} ROL FRE+11750 ASL FR0+51760 BCC NEXB1770 ;1780 CLC1790 ADC FR0+^}41800 BCC NEXB1810 ;1820 INC FRE+11830 NEXB DEY1840 BPL SHFT1850 ;1860 ^}CLC1870 ADC INBUFF1880 STA FRE1890 LDA FRE+11900 ADC INBUFF+11910 ^} STA FRE+11920 LDY FR0+31930 LDA (FRE),Y1940 TAY1950 LDA (FR2),Y1960 ^} PHA1970 CLC1980 ADC #11990 STA (FR2),Y2000 PLA2010 TAY2020 ^} PLA2030 STA (FR1),Y2040 INX2050 CPX CIX2060 BCC ORDR2070 ;2080 BI^}T FR0+22090 BPL PASS22100 ;2110 LDA FR0+12120 LDX FR1+12130 STX FR0+^}12140 STA FR1+12150 DEC FR0+32160 BPL PASS12170 RTS2180 ;2190 .END\} $6-'A6-' 6--@-@  6-$%6-   6-%   6-} (6-$A6-P:,(6-'A$ 6.=:,) 6.. O$6.***** FUTURE VALUE $867B:,%@,.O67B:,%}@,. / 6.3  A"  Aa8 /( (/(! SHALL I PREPARE A GROWTH TABLE= &&( Y = 'YES'- TO S}CREEN> ''( P = 'YES'- TO PRINTER? ( N = 'NO'@ B #6-@4P#6-@G 0Y*}0PAK A#yL ,(( STARTING MONTH & YEAR (MM/YY),O B:,@ A0Q 76-A:7@<@,},76-A:7@<@,,T # @)!@# A0V Aat -- % DATE INCREMENT INTEREST NEW BALu 9}"@93% DATE INCREMENT INTEREST NEW BAL A  6-6- P6-$A6-P:,(6-'A16.}=:,=6-@G APP6-B:, )()(/ BEGINNING BALANCE $ 5"@353/ BEGINNING BALANCE} $ 6- -@ -@ 6-%@  "6-  6- 8 6-$!6-$}A%?*6-P:,86-'A -@@' AP @6-%%%>#6-$A,6-P:,:6-}'A@6- ; "*"#6-&%>+6-%;6-%%> 6-+P:A$,,'A ( 6.=:,6-@ }" AP(6. 6-+P:A$,,'A ( 6.=:,6-@" AP(6. 6-+P:A$,,'A ( 6}.=:,6-@" AP(6. (/ "@3/ #@!)"@# A%p (((} ӠΠϠŠ  6-    T Ap }u//(&**************************}************z//(&*****TO PRINTER OR SCREEN (P OR S)****//(&************************************** ( #6-}@4P#6-@$ }G-@@C(&**************************************G ^"@}6-@/-@@Z3&**************************************^ -@@ A }4 AaP "@3 G-@@C(&**************************************G ^}"@6-@/-@@Z3&**************************************^ $@WWAA A0}A@APA`ApAAAJ 6. $T 6. $^ 6. $h 6. $r 6. $| 6.} $ 6. $ 6. $ 6. $ 6. $ ??AAAAAAA 6. $} 6. $ 6. $ 6. $ 6. $ 6. $ 6. $ 6. $ 6. $ 6. $`"a"&-@}@5"( & b" ( c""@3j"--(%DATE INTEREST PRINCIPAL BALANCEk"9"@93%DATE } INTEREST PRINCIPAL BALANCEt"$"ggAAAAAAAAAA}A A!" 6.JAN$" 6.FEB$" 6.MAR$" 6.APR$" 6.MAY$" 6.JUN$" 6.JUL}$" 6.AUG$" 6.SEP$" 6.OCT$" 6.NOV$" 6.DEC$" 6-%"!@6-%@"}'!@6-&@' AR" A#$&%6.7@