@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}}}  |||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} CE: vC y@y@`A# *` :105L; 0L>! * 0` * : ;` 1 *` 1 *` Disk Drive Sp,}eed:XXX RPM~~~Drive # X PRESS:C > check drive speedL > list error sectorsP > print error sectorsW > write al-}l zeroesto error sectorsM > return to main menui0k ^ 1 :ɛL 800 퍍L5 RETRY ERROR 3 TIME(S)؆莟.}R'S  `=D;EHI 1 1! @ :ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU!L; .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # O 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 ALLOWED007 FREE SECTORS COPYING---D1:FORT4}UNE.RUN# 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}/$/CHu ξL/L DRIVE TO WRITE DOS & DUP TO?WRITING NEW DOS & DUPTYPE "Y" TO WRITE DOS/DUP:DISK 2.?}D2: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?DIA}SK 1 IS WRITE-PROTECTED !!TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `CԭC ؠȱC)CȩC`߅C ذ ٥ԍCՍC`800  `0  0`C}i7``ߍDCEHIB 10H``TRʠĩ`D` +CDCC /,D} 8 l0浥CޥC` b,`8` g+  CRC S0NCC S09CE}ե ݩԩ (۰ ٰ ؠ)`i iAC :L., :0 C :`i F}iAC`CC X*C>> ` 0>>  D, q; ,`COPY SECTORS`RLS ; , ,>  , ,G}ۢ>  ,?  , ,`= `=L :ɛ`hL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A.= ` <0 0 .@L# .BJ 1  DEHIB V L1 = g <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 = ` <0,0Lf- B VJ},A#P= ` <0 0L#L ߢ) 1* 1 ~0YjC8C}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `INVALID DESTINATIL}ON:DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1H$IHIDELSAVE-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- 10˛ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4CT} $;CC $;C $;CC 8C Z: *DCC ,=  , lɀL +U}CCC.LE4 k:泭C0iiCLg3CL<3 Z: *DCC ,=  , /,C0 8V} l0N S0G :CC# k:浭C0iiCЪL<3 ,٢=  * q;L8 D, q; $; ,WC W} L 4C>  :A>810CC ,/> 1C1>  :Z>810CC ,C> 1CCC , 1= 1 :YhX}hL `=CCЍCCCCCCCCC ; ; ; , 4L3 ,\> 1 * 鈹CɛሢCɛ )CC0Y}CC ~* 5CCCC Co> 1 * Cɛ ~* 5ܭCCCC C˭CCLE5CCLE5`C`Z}`C`~, , E5C 4L3? , E5CC 4C $;D浭CC 8CCCBC[} lɀYC :L6 : lC񠀈Ѱиi iACCC k:LX6CCCCC q\};L8= ; , ,p  , ,  ,1@  :ɛL 15))C q+L 7= , ,V@  ,u@  :ɛL H 7 ]}7Lj7 7Lj7D 8 7L7 7L7բ@ `ߢC ` ,@  * ECɛ>0$C *00C0C *0" CCL^}7`C X*`8` ,@  *0\X TCɛM ~*HC)JJJJ *6CȽC) *(CC0CC_}C`8`=8W=Wy 8W=PyL5 ON ,C` ; *nDEǍHI 1C L!9 :C `}q+L8L 9 q;L8P 9 q;L8W +L8ML 15))C g+L8 ,C&D?E BHCCC /,C\a}XCC X*C-?0  -?C0L8:8鉍C mC mCE?1?C V0*CCC LW9C? b}`CL09PC B VB DAEJNK V0 09 ,ʢ? PC D,P B V`CC mC mC?1?L9c}CC`i`i`i`i`i`P Bd} VBDAEJ VBHIL1HI B} V@`HS S ShH )Lc;Lj;h` 0)¢e})  q; ,` M;hL$; b,hL$; ,>  , ,L,=L1 :HOh:` ; 0L>!}DISK UTILITIES (c)1983 Atari Vf}er 2.6f MODIFIED FOR ATARI 800 USEA. DISK DIRECTORY K. BINARY SAVEB. RUN CARTRIDGE L. BINARY LOADC. COPY FILE g}M. RUN AT ADDRESSD. DELETE FILE N. CREATE MEM.SAVE. RENAME FILE O. DUPLICATE FILEF. LOCK FILE P. COPY SECTORSGh}. UNLOCK FILE Q. CHECK SECTORSH. WRITE DOS/DUP R. RADIX CONVERTI. FORMAT DISK S. DRIVE SPEEDJ. DUPLICATE DISK T. WRi}ITE VERIFY:ON 9!&x#!7&p))'&5./)L''-66C76u8COPY DISK Insert source disk and Λ Insert DESTINATION j}disk and Λ IT'S DONE !'Y' to execute or for menuSource drive # ?DESTINATION drive # ?Source drive is # 1Desk}tination drive is # 2Enter first sectorEnter last sectorCHECK DRIVE # 1 >>>>ERROR # 144<<<0(-("Select o}ne of the following (1-5):0(@QQ(I (1) Problem type 3X=15 (2) Problem type 3X+8=20BRR(J (3) P}roblem type: 2(x+4)=12 (4) Problem type: (X-3)+4(X-7)=-10D))(! (5) A medley of all above typesF @PK2}( ( (.( What is your choice2P6. ABCJKUWXYZZ6-"""""""d6-n6-@ }!!!@) @@% @6-@% A36-36-+P:H:,$@,%@,}6-@ 6-APA (}-@@=(Do you want to time yourselfA! 4Y6-@! AP}6- A@ (}-@@<(How many seconds per answer@- (}-AA A@}A`, A6..(7<, = $ 7<, = J A@T&"6AV6-& A^}"APh A`r A@|&"6AV6-& A"A A A77(}7<,O:, = $% 7<, =  A@&"6AV6-& A "AP A`} A@&"6AV6-& A "A A A0>>((7<,O:,}) = $+%, 7<, = : A@D&"6AV6-& A@N"APX A`b A@}l&"6AV6-& A@v"A A ANN((7<,O:,)O:,(}7<,O:,) = +%,$%$%$( 7<, =  A@&"6AV6-& A`"}AP A` A@&"6AV6-& A`"A  A 6-P:$H:,%}@,*6-P:$H:,%@,46-P:$H:,%@,>6-P:$H:,%@,H6-P:$H:,%@},R%%6-P:@$H:,%@,\67<,.f 6.+p 6.+z 6.+ H:,!?PA 0} 6-6 6.- H:,!?PA ` 6-6 6.-"A H:,!?PA }6-6 6.- H:,!?PA  6-6( A 6-%@$$:6-@:(&}箠堠.$8] 6- (](L箠󠠠}B6-%@L A@M%"@6-% A0Q"@AR%%6-P:@$H:,}%@,V''AA A@A``55+%,"'@)+%&?P,"'@A`j%%%"&@*"}At%"A ~$"@AP$$(6-@( }AP''(䠱6-@( AP6-%@6-"@}Ap%%6-P:@$H:,%@,''AA A@A`6-%@ 6-$6-}$("@A%%6-P:@$H:,%@,''AA A@A`}((2(<(F"%%*"ApP AZTT(L}٠Ī_-@A3 d An%%( %% "A`} 6- A %%(("A 6- A &&(}-@A3 "A` 6- A 4(4(%}"A P6-P:'@`,6-&$@`"AT(T(} 󠠠-@A3  A P/(/(} 󠠠-@A3  A P0"$136-"'6-}36-29@'@9@ 5N AEN6-F:@,$AV$AV%F:@},$AV%F:@ ,6$6-%P:'@`,$A7# 6-%"#6-@Y 6-%6-$b}1(1(&١򮠠c6-6AVl 6-%6-v6-%@ A@$}6-%@"A  @A TT(LէŠǠϠϠϠԡŠƠŠ}ŠϠҮ-@A3 6-@$6.!@A @ 6.$}N (}-@@?(ĠՠŠҠ̠CK4YN% D:ALGEDRILdYZ*abKENUZAMSGMSG1MSG2MSG3MSG4MSG5MSG6OUTSTANYOURBABANKBAPERAMOUNOUTSTANDINDIYOUBAPC }OUNPROUNDAREYARDROUNPACTBAPMAPDUMNIIQQAMRATPPYEARAETEMFFFADAMTJWJYPPDDDDJMOHAM }JTAMKKKKKJVOJAFEMAMAJUJUAUSEOCNODEPAHOURTIMTOTARTTTTTTSSSAARYYIMIN }A7G@A@6@0 Ap  (F#i }##### }!@"#$%&'()*+,-./0 }123456789:;<=>?@ }AAB ACg AD EFGHIJKLMNO }PQRSTUVWXYZ[\]^_ }`abcdefghijklmno }pqrstuvwxy;@0,;@@,;@5, };@5,;@5,;@5,;@5,;@5,;@,9@,9@,9@,27-@@#7(PU }SH Ԡ TO CONTINUE < F:B2y,"@@`d- (}+-0@n  ՠ }x( ( 1AMORITIZATION TABLE%%( 2MONTHLY MORTGAGE PAYMENT""( 3DEPRECIATION SCHEDULE( 4SA }VINGS AND LOANS( 5FIND THE AVERAGE##( 6SQUARE FEET & SQ. YDS.!!( 7PAYCHECK CALCULATION&&( 8 }INTEREST ON AN INVESTMENT**( 9WHAT IF MORTGAGE COMPARISONS(10PROPERTY EXPENSES(11MONTHLY BAR GRA }PH""(12DECIMAL / HAXADECIMAL(13 U.S. / METRIC(14CHECKBOOK BALANCE(15HELP (16RET }URN TO DISK MENU*(*(CHOOSE ANY NUMBER THRU "$((YOUR CHOICE = $(}^!! @)!@A }hAA A0A@APA`ApAABBB B0B@B }PB`$$(ΠŠҮ̮Ӡ+('(START MONTH OF LOAN (1-12)=+-&@ } ((LOAN AMOUNT ()= )(%(ANNUAL INTEREST RATE ()=))(%(MONTHLY LOAN PAYMENT ()=)@ }$!6-@!AR@)( (}((ȠǠΠ.6-$'A8 6-&B 6-&L$$6 }-P:$A%?P,'AV 6-%`$$6-P:$A%?P,'Aj 6-%t$$6-P:$A%?P,'A~ }A0 3(6-%@6-%@"@A`A0 Ap - }+'@,&P:'@,6-$@&@**3P:'@, YEARS  MONTHS **(P:'@,  } "( ("(INT. FOR YEAR END="( ("3INT. FOR YEAR END= ( (PRINCIPAL YEAR END= ( 3PRINCI }PAL YEAR END=!( (!( PUSH Ԡ  F:B2y,"@A06-6-'6-*(-( }0(A( Ae2AR(}<B5(-٠ԠϠ̠̠ԠŠ.8(B A }(AMOUNT OF LOAN ($)AAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES)(%(WHAT IS INTEREST }RATE (%))$( (TERM OF LOAN ()$6-$'A''6-+@%'A,#+@$,6-'+@ }&@', $$6-P:$A%?P,'A!(!(MONTHLY PAYMENT OF $ ( ( @P (ASSET VALUE () } (ASSET LIFE (YEARS) (6- -@ 6-% AAHERBERT D. PECKHAM "PROGRAMMING BASIC" T }.I. SOFTWARE SERIES 6- -@ 6-+%@&,' 6-$ 6-&& $$6-P:$A%?P,'A }0 $$6-P:$A%?P,'AX ((Ҡ b ( îӠl ( ŠӠv   @P) ( }})( ӠĠӠ..COMPUTE MAGAZINE--BASICALLY USEFUL BASIC1(1(&1 BALANCE OF A LOAN AFTER N PAY }MENTS/,($2 MONTHLY PAYMENT TO AMORTIZE LOAN/(/,($3 # OF PAYMENTS TO AMORTIZE A LOAN/(.+(#4 ANNUAL % RATE }USING AN INTERVAL.(-*("5 MONTHLY PAYMENT & INT. ON LOAN-('$(6 ANNUAL INVESTMENT GROWTH'($!(7 PERIODIC }SAVINGS PLAN$((%(8 FUTURE PRICE VS INFLATION((##(9 RETURN TO THE MAIN MENU"(( YOUR CHOICE="(} }OOAAABACADAEAFAGAHA($(ENTER YOUR CURRENT BALANCE.(-( })(ENTER THE NUMBER OF PAYMENTS.-+('(ENTER YOUR MONTHLY PAYMENT.+"7(3('ENTER YOUR ANNUAL INTEREST RATE I }N (%).7,6-'A6 6-@-@J6-$+@%,&T Y6-$&+&,Z$$6-P:$A%?P },'A[$$6-P:$A%?P,'A^.(.(BALANCE AFTER  PAYMENTS IS $c'('( YOU PAID $ IN I }NTEREST.g AIh%!(ENTER THE # OF PAYMENTS.%r.(*(ENTER THE BALANCE OF THE LOAN..|7(3('ENTER YOUR } ANNUAL INTEREST RATE IN (%).76-'A006-$$+@'+@&+@%,#+6,,,$$6-P:$A%?P },'A ( (YOUR PAYMENTS ARE $ 6-$&$$6-P:$A%?P,'A&(&( YOU PAY $ IN INTER }EST. AI'#(ENTER THE CURRENT BALANCE.'+('(ENTER YOUR MONTHLY PAYMENT.+7(3('ENTER YOUR ANNU }AL INTEREST RATE IN (%).76-'A((6-6+K:@&'$,,'K:%@,$$6-P:$A%?P,'A }+(+( YOU HAVE  PAYMENTS TO MAKE.. 6-$&.6-P:$A%?P,'A+(+(YOU WILL PAY $ IN INTER }EST.& AI0,((WHAT IS THE BALANCE OF THE LOAN,:+('(ENTER YOUR MONTHLY PAYMENT.+D(($(ENTER THE }# OF PAYMENTS.(N6-@P'AX6-]-@@ b6-+%,'@g 6-$l$$6-$+@ }&+@%,#+6,,q 6-v  6-{  6-$&6-A$$$6-P:$A%?P,'A }*(*(YOUR ANNUAL (%) RATE IS %.((YOUR INTEREST IS $ AI#(HOW MUCH WAS YOUR LOAN# }:(6(*HOW MANY MONTHLY PAYMENTS MUST YOU MAKE:0(,( WHAT IS YOU INTEREST RATE IN (%)06-'A }6-'@ 6-$$6-+%,'$$6-P:$A%?P,'A$$6-P:$A%?P,'A$($(YO }UR PAYMENTS WILL BE $4(4('YOUR INTEREST ON THE ENTIRE LOAN IS $L(L(AIF YOU WANT TO KNOW THE ANNUAL PERCENTA }GE RATE, EXECUTE PROGRAM 4 AI:6(-HOW MUCH MONEY DO YOU INTEND TO DEPOSIT:9(5()WHAT IS THE ANNUA }L INTEREST RATE IN (%)9 6-'A6(2(&HOW MANY COMPOUNDING PERIODS EACH YEAR6 A(=(1HOW MANY YEARS } DO YOU INTEND TO INVEST THIS MONEYA*6-$+@%',#+$,4$$6-P:$A%?P,'A>I(I(AT THE EN }D OF  YEARS YOU WILL HAVE  DOLLARS SAVED.H AI\JF(=HOW MUCH MONEY DO YOU INTEND TO DEPOSIT EACH }PAY PERIODJf5(1(%HOW MUCH IS THE INTEREST RATE IN (%) 5p>(:(.HOW MANY PAYMENT PERIODS DO YOU INTEND TO SAVE }>z6-'A116-$++@%,#+%@,&+@%,,'$$6-P:$A%?P,'AO(O(AT THE }END OF  PAY PERIODS YOU WILL HAVE  IN YOUR ANNUITY. AI.*(!WHAT IS THE CURRENT PRICE OF ITEM.# }((WHAT YEAR IS IT NOW#C(?(3FOR WHAT YEAR DO YOU WISH TO KNOW THE PRICE OF ITEMC 6-&<(8(,WHAT I }S THE PROJECTED INFLATION RATE IN (%)<6-'A6-$+@%,#Q(Q(THE PRICE OF THE ITEM! IN  } WILL BE $P:$A%?P,'A AI~1(1(&PRESS Ԡ TO GOTO ӠӠ F:B2y,"@ }AI A@(HOW MANY NUMBERSAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES*(*( }ENTER THE NUMBERS ONE AT A TIME6--@ 6-%  6-'(( THE AVERAGE I }S  @PpSQ YARDS & SQ. FEETuAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIESz(נ٠ }ӠS(S(HFOR EACH ROOM, TYPE IN LENGTH AND WIDTH IN FEET SEPERATED BY A COMMA#( (#(͠ }Ӡ(--@   -%$ 6-'@ $$6-P:$A%?P,'A }(( ѠԠҠ( ѠӠ( ( @PX""PAY CALCULATION BY R.L.LEWISb? +'0@ }36-?6-l$$( PAYCHECK CALCULATIONvH( (D(5DO YOU WISH TO ADD UP THE HOURS PER } YOUR PAY PERIODH4NAq%("(ENTER WHEN FINISHED%(( HOURS WORKED= -%" }Aq  Ap`+('(HOW MANY HOURS DID YOU WORK+, (}((WHAT IS YOUR PAY PER HOUR,, -$ },6-P:$A%?P,'A ( (YOUR GROSS PAY IS $ @P@PPBASIC COMPUTER PROGRAMS FOR THE HOME...CH }ARLES D. STERNBERG...HAYDEN BOOKSJ\6-@ +30@X(ENTER THE AMOUNT TO BE INVESTED\ }T'(#(ENTER THE INTEREST RATE'Y<(8(,ENTER THE NUMBER OF YEARS TO PROJECT GROWTH<^O(K(?ENTER THE NUMBE }R OF TIMES PER YEAR THEAMOUNT WILL BE COMPOUNDEDOhA`r@(6(+COMPOUNDING MUST BE AT LEAST ONCE EACH } YEAR@ A0|(6.Y"@AD@(7SHALL I PRINT AFTER EACH COMPOUNDING PERIOD (٠ҠΠ)DP }+'0@P($""( INITIAL INVESTMENT $''( ANNU }AL INTEREST RATE %''( COMPOUNDED  X PER YEAR,,($#(#( BE }GIN INTEREST))(!YR. AMOUNT AMOUNT TOTAL++(#--- --------- --------- ---------6-$?'6- }B-@-@"((6-46-B-@H 6-$&6-P:+%>P,$A,46-'A<6-% }B6-H6-4YA   A0  6-6- 5-@(-@#(/-@(5(%! )6- }%@"@#)6-@ & 6-%0   ( # @P(#FFBASIC COMPUTER PROGRAMS FOR THE HOME. BY STERNBE }RG..HAYDEN BOOKS<#K +'0@36-@?6-@K6-@F#( ԽP#( }ԠŽɠZ#( ӽ٠d#2(.("ENTER THE ITEM TO VARY ɠҠ٠2n#٠ƠŠӠx#0AA } #J(D(8ENTER THE BEGINNING AMOUNT, ENDING AMOUNT TO CONSIDERJ#:(6(*ENTER THE INTERVAL BETWEEN PRINTS I. }E.1000:# A#0IA`#H(B(6ENTER THE LOWEST, HIGHEST INTEREST RATE TO CONSIDERH#C(?( }3ENTER THE INTERVAL BETWEEN PRINTS I.E., .25 FOR 1/4C# A#0YA#I(C(7ENTER THE LOWEST, HIGHEST } NUMBER OF YEARS TO CONSIDERI#9(5()ENTER THE INTERVAL BETWEEN PRINTS I.E., 59# ٠ƠԠ }ӛ#?(%(ENTER THE MORTGAGE AMOUNT)/6-?4IAP#;(#(ENTER THE INTEREST RATE';@A0 }$6-$A$ 6-$4YA`"$5(+(ENTER THE YEARS OF THE MORTGAGE/56-,$ (}ǠР }6$ -@$(%(FOR A MORTGAGE OF  YEARS((J$ -T$-*(USING THE INTEREST RATE OF  %-(^$((( MORTGA }GE MONTHLY PI TOTALh$**(" AMOUNT PAYMENT INTERESTr$..(&-------- ---------- ------------|$ - }$ΠĠԠ$_6-+'A,'@E6-'++@%,#+$@,&@,%M6-$_6-$$@& }$E$6-P:$A%?P,'AE6-P:$A%?P,'A$? ( !-@F:@,&(;-@)F:@ },?($ $..(&$   @P'HHàҠӠҠŠŠ }٠îǭΠӛ'!!Ϊ$'i +'0@E( ENTER PROPERT }Y NAMEi(( just press return when done ))'6->P6. .'4 @P8'I B@(/(ENTER THE MORT }GAGE AMOUNT;6-?I BB'O BP(-(ENTER THE INTEREST RATE1; BO@BpL'6- }$AV'6-+'A,'@`'C B(5(ENTER THE YEARS OF THE MORTGAGE9C Bj'y B(<(&E }NTER THE ANNUAL TAXES ON THE PROPERTYH6-LZ6-'@o6-P:+%,$A,y Bt'\6-'A(L(2E }NTER THE ANNUAL INSURANCE COST FOR THE PROPERTYX6-\y'46-'@&6-P:+%,$A,46-'A~'a  }B(G(1ENTER THE ANNUAL MAINTENANCE AND REPAIR COSTS6-Wa B'46-'@&6-P:+%,$A },46-'A'` B (F(0ENTER ANY OTHER MONTHLY COSTS THAT APPLYR6-V` B'a B0 }(A(+ENTER AVERAGE MONTHLY UTILITY COSTSM6-QW(}a B'Ϊ'l-6-'+ }+@%,#+$@,&@,%56-$J6-P:+%,$A,X6-'Ab6-%%l6-%%'I.(& }I(INTEREST RATE %'((( MORTGAGE MORTGAGE YEARS '1(1(& }'%(%( Ϋ  '%(%(  '%(%(  '.. }(&----------------- ------------------'!!( SUBTOTAL  SUBTOTAL '&(&(̠٠Ӻ$%'1(1(& }( @P*!!MONGRAPH REV. 2 JERRY WHITE+FOR COMPUTE TUTORIAL + B+g } +@'0@@@A0@@@M6-@g0@@ +96-@6- }/6. MONTHLY GRAPH9 Bp*+a,@@ +/AX@ =/AX@uO/@@ua/@@ }4+ B>+K%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,$AVH+b-B:,86-BsD%++@:7 }<,,&@2,$@,N6-%$@ %%&b-@R+#%$@ F:%,  #$\+#-@8,! !}#6-8,f+ p+6-'@ez+6-@&6-@u&+8,',268,-P:,6 +*B 6-P:'A,* B "}+*A 6-P:'A,* B+*A 6-P:'@,* B+ 6-P:,+16-'@6-P: #}&,16-P:&+$@,,+-6-P:&+$@,,-6-P:&+$@,,+3 6.=:,6-@&B:,)6-@3 Bp+!! $} @)!@B`+3 6.=:,6-@&B:,)6-@$3 Bp+3 6.=:,6-@&B:,)6-@83 B %}p+3 6.=:,6-@&B:,)6-@R3 Bp+3 6.=:,6-@&B:,)6-@f3 Bp+3@ &}'@@@3AR,2(2('ˠ J F M A M J J A S O N D,//('Š A E A P A U U U E C '} O E,//('٠ N B R R Y N L G P T V C$,-@6-&.,,@%+$@,8,8,/@%%+$ (}@,8,B,!!/@%%+$@,@uL,!!/@%+$@,@uV,-@%+$@,8,`,=Ae@ )}=@@S:j,A -@6@928,@= A t,'@@ *}'@@9~,))( ϠՠӠԠ, F:B2y,"@B, A,m +'0 +}@A0@@[0@mAR@,(( MONTHLY GRAPH ,. ,}(+( TYPE AMOUNTS FOR EACH MONTH: .(,+(( DO NOT USE NEGATIVE AMOUNTS +(,5 BP(JAN=+68@, -}-5 B,5 B`(FEB=+68@,-5 B,5 Bp(MAR=+68@,-5 B,5  .}B(APR=+68@,-5 B,5 B(MAY=+68@,-5 B,5 B(JUN= /}+68@,-5 B,5 B(JUL=+68@,-5 B-5 B (AUG=+68@,-5 0} B -5 B0(SEP=+68@ ,-5 B-5 B@(OCT=+68@,-5 B-5 BP 1}(NOV=+68@,-5 B(-5 B`(DEC=+68@,-5 B2-$.--(%̠Ϡ 2}̠ĠŠ.HHATARI BASIC REF. MAN. PG H-18 AS MODIFIED BY E. JACKSON & R. LEWIS.$($(1DEC to HEX conver 3}sion.!!(2HEX to DEC conversion.((CHOOSE 1 OR 2 /!! @)!@B 0 /"@B% 4}/c +AR@"(%(I( ̠Ϡ̠M(c( < 0 / 65535 >/'-@@#  5}à = '&/)-@#@) ؠ = 0000+/1( (1(#GOTO MENU: ENTER ANY NEGATIVE VALUE0/!! )!BU5 6}A:/*6-@*START THE SHELL SORT RTND/ 6-6-P:'@,N/6-&$@X/' @67<,.=: 7},' B!@b/ 67<,.>:&@%@:A,,l/'6-&@' B!v/&-@0%@& 7<@,/% 8}-@A % B P0b +AR@"(%(I( ̠Ϡ̠M(b( < 0000 / F 9}FFF >0'-@@# ؠ = '0"-@#@" à = 01( (1(#GOTO MENU: ENTER ANY NEGATIVE VAL :}UE04-A06-1-@B:,16.7<,20A1-7<,/9#6-$@%A:,-  ;}B&$12AB%.13FB%81%%6-$@%@:,&@:A,%@B1 L1-@(%@ V1%-@ <}A % B%2DD***SELECTED MEASUREMENT CONVERSIONS FROM ATARI BASIC REF. MAN.2## DO YOU WANT CONVERSION =}S FOR2+(+( () à TO ծӮ STANDARD 2*(*(() ծӮĠ TO à2(( TYPE 1 OR 22 >}B0pB23 B0388***USER SELECTS DESIRED METRIC TO U.S. CONVERSIONS3.*(!WANT LIST OF CONVERSIONS (Y OR N) ?}."34NB1,3-(-("SELECT CONVERSIONS FROM THIS LIST:63!!((1) CENTIMETERS TO INCHES@3((2) METERS TO F @}EETJ3((3) KILOMETERS TO MILEST3((4) KILOGRAMS TO POUNDS^3((5) GRAMS TO OUNCESh3((6) LITERS TO QUARTSr3)) A}(!(7) DEGREES CELSIUS TO FAHRENHEITw3((8) RETURN TO MENU|32(.("ENTER NUMBER OF CONVERSION DESIRED23"@ B}A3??B3PB3B40B4pB5B5PB53$388*** USER SELECTS DESIRED U.S. TO METRI C C}ONVERSIONS3.*(!WANT LIST OF CONVERSIONS (Y OR N).34NB3 3-(-("SELECT CONVERSIONS FROM THIS LIST:3!! D}((1) INCHES TO CENTIMETERS3((2) FEET TO METERS3((3) MILES TO KILOMETERS3((4) POUNDS TO KILOGRAMS3(( E}5) OUNCES TO GRAMS3((6) QUARTS TO LITERS3))(!(7) DEGREES FAHRENHEIT TO CELSIUS4((8) RETURN TO MENU42(.("E F}NTER NUMBER OF CONVERSION DESIRED2 4"@A4??B60B6pB7B7PB7B80B8p G}4$&4***CM TO INCHES04!(HOW MANY CENTIMETERS!:4,,( CENTIMETERS =$?9 INCHESD4 ( $N4***METE H}RS TO FEETX4(HOW MANY METERSb4%%( METERS =$@( FEETl4 ( $v4***KM TO MILES4 (HOW MANY KILO I}METERS 4**( KILOMETERS =$?b MILES4 ( $4***KG TO POUNDS4(HOW MANY KILOGRAMS4**( J}KILOGRAMS =$@  POUNDS4 ( $4***GRAMS TO OUNCES4(HOW MANY GRAMS4&&( GRAMS =$?P OU K}NCES4 ( $4***LITERS TO QUARTS4(HOW MANY LITERS5''( LITERS =$@g QUARTS 5 ( $5***DE L}GREES C TO DEGREES F 5%!(HOW MANY DEGREES CELSIUS%*5LL( DEGREES CELSIUS =@ $'@%@2 DEGREES FA M}HRENHEIT45 ( $>5***INCHES TO CMH5(HOW MANY INCHESR5,,( INCHES =$@T CENTIMETERS\5 ( $f5 N}***FEET TO METERSp5( HOW MANY FEETz5%%( FEET =$?0H METERS5 ( $5***MILES TO KM5(HOW MANY O} MILES5**( MILES =$@` KILOMETERS5 ( $5***POUNDS TO KG5(HOW MANY POUNDS5**( POU P}NDS =$?E KILOGRAMS5 ( $5***OUNCES TO GRAMS5(HOW MANY OUNCES5&&( OUNCES =$@(5 GRA Q}MS5 ( $6***QUARTS TO LITERS6(HOW MANY QUARTS6''( QUARTS =$?` LITERS$6 ( $.6***DEGR R}EES F TO DEGREES C86($(HOW MANY DEGREES FAHRENHEIT(B6NN( DEGREES FAHRENHEIT =@'@ $+&@2, DEGR S}EES CELSIUSL6 ( $6##ATARI BASIC REF. MAN. PG. H-166-65 +(2( ˠҠ5( T}6RR(JYou may make corrections at any time by entering a negative dollar value.6**6. OLD CHECK OUTSTANDING6 U}**6. OLD DEPOSIT NOT CREDITED6**6. OLD CHECK JUST CLEARED6**6. OLD DEPOSIT JUST CREDITED V}7**6. NEW CHECK (OR SERVICE CHARGE) 7**6. NEW DEPOSIT (OR INTEREST)7] BA(Y(CEnter the beginning ba W}lance as shown in your checkbook. ]7] BA(Y(CEnter beginning balance from bankstateme X}nt. ](7 B27 BA`<71@(1(PRINTER IS NOT OPERATIONAL.F7!!(PLEASE CHECK CONNECTIONS Y}.P76-Z7S(O(CWould you like a permanent record on the printer. Sd7B:,"BAp Z}n7$$7@<@,4NBB`x7$$7@<@,0YBAp7 BA@73TEST PRINTER76-@7% [}%3YOUR BEGINNING BALANCE IS $72/3%BANK STATEMENT BEGINNING BALANCE IS $2371 BB`(1(Choose one of the fol \}lowing:7((1) 7((2) 7((3) 7((4) 7((5) 7((6) 7((7) DONE8(8%% ]}@)!@BB`8 B"8??BD0BDpBEBEPBFBGBH,86&6.NEW CHECKBOOK ^}BALANCE IS ,6-6 BI 686&6.NEW BANK BALANCE IS ,6-6 BI @86&6.OUTSTANDING CHECKS-DEPOSITS=,6 _}-6 BI J8  3T8 BB`^8$$OLD CHECK -- STILL OUTSTANDINGh8 6. BIPr8 6-%|8$8''OLD DEPOSIT `} -- STILL NOT CREDITED8 6. BIP8 6-&8$8OLD CHECK -- JUST CLEARED8 6. BIP8 6-&8$ a}8""OLD DEPOSIT -- JUST CREDITED8 6. BIP8 6-%8$933NEW CHECK (OR SERVICE CHARGE) -- JUST CLEARED9 b} 6. BIP9 6-&&92(.("IS NEW CHECK STILL OUTSTANDING 209B:,"BF0:9$$7@<@ c},0NBFD9 6-&N93CHECK HAS CLEARED.X9$]9$$7@<@,0YBF0b9 6-%g9''3CHECK d}IS STILL OUTSTANDING.j9$l9//NEW DEPOSIT (OR INTEREST) --JUST CREDITEDv9 6. BIP9 6-%92(.("HAS YOUR N e}EW DEPOSIT BEEN CREDITED29B:,"BG09$$7@<@,0YBG`9 6-%9%%3DEPOSIT HAS f}BEEN CREDITED.9$9$$7@<@,0NBG09 6-&9**3DEPOSIT HAS NOT BEEN CREDITED.9$9 DONE g}9j(j(_BANK'S BALANCE MINUS (OUTSTANDING CHECKS-DEPOSITS) SHOULD NOW EQUAL YOUR CHECKBOOK BALANCE.96-&+&,9 q}B'DOS SYSBL+DUP SYSB6wALGEDRILBASBBUSINESSBASB }DISPLAY BASDOCREAD BASB@GRAPHICSBASBHELPER BASB&sMATHWARSBASBSTOPWTCHBASB&WEATHER BASB MAX FNTBHP9E(A(IS $, THE ENDING BALANCE ON YOUR BANK STATEMENT E9B:,"BH59]7@ r}<@,4Y(S(/CONGRATULATIONS: YOUR CHECKBOOK BALANCES!] @P9 BH`:Y!(2(YOUR CH s}ECKBOOK TOTAL IS $O( OVER YOUR BANK'S TOTAL.Y BH`:E('(YOUR CHECKBOOK TOTAL IS $6E( UNDER YOUR BANK'S TOT t}AL. :.(.(#WOULD YOU LIKE TO MAKE CORRECTIONS?:S(S(HREMEMBER, YOU CAN ENTER A NEGATIVE DOLLAR VALUE TO MAKE A CORR u}ECTION. :"((ENTER ٠ OR Π "*:B:,"@P4:7@<@,4Y$9: @P>:MSG PRIN v}TING ROUTINEH:(( $R:"@3 $\:$f:MSG PRINT & INPUT ROUTINEp:9 BI`(.(Enter the am w}ount for the 2(5(9z: B:"@3 $:$:+@%@:&& @ x}:&&(@ GOD GRANT ME :&&(@ THE SERENITY :&&(@ TO ACCEPT :&&( y}@ THE THINGS :&&(@ I CANNOT CHANGE,:&&(@ COURAGE TO :&&(@ z}CHANGE THE THINGS:&&(@ I CAN, AND THE :&&(@ WISDOM TO KNOW ;&&(@ THE DIFFER {}ENCE. ;&& @ ;-@A $; A>>ROUTINE TO CALL MENU.> |}>##( >(LOADING DISK MENU !!>%D:MENU D2:BUSINE.BAS cklS_MAXRAMODEMODEFLAGLMLMMODELINESTOTAMODELINEANSWERFILENAMEFILECHBASMODESLINELINENOOPERAT@~}@@@A@@pAA@    #  ARB 3@}@@gA @<<9A,9A,;@,;@ ,;@ ,6. D:MAX.FNT B } +'0@A0@@S-@@e  DISPLAY LISTSw-@@ }BY DEAN WITTMANNAV. . #GRAPHICS MODE OP-SYSTEM MODE RAM ** " (-} - " 0 2 9922** " 1 6 674<** " 2 7 424}F** " 3 8 434P** " 4 9 694Z** " 5 10 117}4d** " 6 11 2174n** " 7 13 4190x** " 8 15 81}12: 6 *WHICH GRAPHICS MODE IS YOUR MAX-RAM MODE:!! )!@A0HD ;}HOW MANY GRAPHICS MODE}S ARE GOING TO BE ON THE SCREENHY -@; WHAT IS YOUR # GRAPHICS MODE?H68,-K U A5}Y ("8@,6-( A Aq%8@,6-@f A6-@p A6}-@q A6-@r A6-@s A6-@t A6-@u A6}-@w A6-@y A0 ! YOUR NEW LMS BYTE = $ 06-@] -@Y +HOW MANY }MODE LINES OF GRAPHICS MODE 8, DO YOU WANT]6- 68,-  , , !GRAPHICS MODE # O}F MODE LINES)) !  -@2.  8, 8,2 }&&  R$  TOTAL  2-@< A0@ R  SCAN LINES}"AA"X!A?  YOU HAVE &A TOO MANY SCAN LINES!N  TRY AGAIN!X A'J1  YOU HAVE A}& SCAN LINES TO ADD!@  TRY AGAIN!J A,3 / #IS THIS THE WAY YOU WANT IT(Y OR N)364N)4NO%}@0Y*0YESAJ' # FILENAME (USE C: OR D:)'T @@^ @1000 GRAPH}ICS h;"1 @=:,>:AU,; Ar'' @=:%@,>:AU,|CC @&1010 }DISLIST=PEEK(560)+PEEK(561)*256+4>:AU,"A66 @1020 POKE DISLIST-1,=:,>:AU,})6-@6-A0)-@##68@,-8@,&@-@8,$ 8,"6-%@$ A} A`Z> @=:, POKE DISLIST+=:,,=:,>:AU,L6-%@Z6-%@   W; }@=:, POKE DISLIST+=:,,65>:AU,I6-%@W6-%@^B @=:, POKE DISLIST+=:, ,}PEEK(560)>:AU,P6-%@^6-%@BB @=:, POKE DISLIST+=:, ,PEEK(561)>:AU,2@}2 YOUR DISPLAY LIST IS NOW SAVED!&>  HALELUYA! :  DO YOU WANT ANOTHER DISPLAY LIST>04Y)4YES%}: +  8,%A0 6-%@$8,$ 6-%@$8,$ 6-%@$8,$ 6-%@}$8,$ 6-%@$8,$ 6-%@$8,$ 6-%@$8,$ 6-%@$8,$ 6-%@}$8,$ N8, )8,!@> SORRY CHARLIE, (0-8 ONLY)!A'D'N AP $p A`%8,q6-@}$r6-@$s6-@$t6-@$u6-@ $v6-@$w6-@$x6-@}$y6-@$}/6-P:+F:AB,&@,'@,$@L@@6-?:C:hRhUhTh}YhX V`,<$AV<A$, }@AV$ D:DIJ+8AFNROCENTELERLEO@@AV } A6 A 򠠠70@@@70@}@@AR A;@d,;@ ,(6-AV2##@@K}:<6-A6-F$$ } P##  򠠠Z dTRAP 170n}&&@@D:*.*x@B:, @A &&7@<@,0DOCA  7@}<@, A @/ / $Enter one of the program names above55 -or position cursor over one a}nd press RETURN. 6.D:   +67@,.+67B:,%@,..DOCTRAP 490 @@} }"@Ap@ 6-B:,-@&@"67<%@,4REM(6-%@}66-&@, 1 !67,. 6-67<,4.A@@" A`J##-@+@@&},'@T  ^ h 7<,rF:, @A`|-@@#,, #Πà})@"AUAP"@'Ap A((7%@<%@,4PA> }7%@<%@,4C>6-A:7%@<%@,, A`@' }-@@' Š}:-@@#: Π嬠à)@$"@'@! }$"AU@}` A6-F:A,%%6-AV$F:A,%F:A,A6A A"A }Ap%"A`6-@% A ERROR  AT LINE $% D:MENU.DAT D:DOCp VSSFS@iB6A%A&A$@A`''** } * /6-/@@K: q +AAH1@C-}q((ɠ󠠠 (堠 SS(K If you have faithfully read the ATARI ma}nual, you already know how to useSS(K If you have faithfully read the ATARI manual, you already know how to useVV(NB}ASIC graphic commands. Unfortunately, the dictionary of commands provided doTT(Lnot let you utilize ATARI graphics to }their fullest potential. There is noTT(Lcommand to allow you to redesign a character, no command to let you mix#SS}(Kgraphics modes, nothing that let's you print characters in hi-res graphics(PP(Hmodes, no way to access Players and } missiles without complicated and-VV(Nroundabout subroutines. Our goal in thislesson is to let you know ways you can2_6(}.utilize more of the capability of your ATARI._($ First of all, you should never use7`V(NSETCOLOR command. You can 'P}OKE' colors onto the screen utilizing less memory.` B<WW(OReading the manual informs you there are5 color registers} (0-4). Locations 708,AWW(O709,710,711,and 712 correspond to these registers. As you can see, the color ofFTT(La GR.0 s}creen is blue when first turn onyour ATARi. Translated to a SETCOLORK[;(3command, the same color can be achieved as follow}s:>([( SETCOLOR 2,,PV(V(K This loads color register 2 with color9, and luminance 4...blue. LocationUVV}(N710 is the shadow register for color register 2. To get the same blue colorZqM(Eon your screen you would POKE 710,14}8. Here's how we arrived at 148:P(q( * 16 + = 148_G(=(2where 9 is the color number and 4 is thelumin}ance.G BdTT(L You can use the same idea to get any color onto your screen, using any ofiw(the 5 color regist}ers.!(w(P You can also change the character set very easily by knowing and understandingnUU(Ma few locations in memor}y. The first is 57344 (decimal). This is the start ofsTT(Lthe character table in ROM. The table takes up 1K of RAM (1024} bytes), abdxYY(Pends at 58367. Another location we need to know is 106. value in this byte let's}WW(Ous know where th}e top of memory is.The last location we need is 756. The valueWW(Oin here tells us where the character table starts. }Let's take a look at what<(( is in these locations right now:2 A< Bd A(d(O If you multiply t}he value found in location 106 by 256, you'll end up withVV(Nthe location of the top of memory. If you multiply the }value in location 756UU(Mby 256, you have 57344...which as we said is the location of the beginningt(of the char}acter table."(t(M Before we can go any further, we have to understand how the character tableVV(Nis set up. We know t}here are 256 ATASCII characters. However, there areRR(Jonly 128 different characters. The rest are the same charac}ters printed inVV(Ninverse. Since we that the character table is 1024 bytes long, and 1024/128a.(&is equal to 8, w}e can deduce that your8 B;(a(!ATARI uses 8 bytes to define eachUU(MATASCII character. It's not hard to chan}ge the character set with what weUU(Mnow know...the only problem is that the character set is in ROM, and we can'tWW(}Ochange the contents. What we have to do is move the character table from ROM toPP(HRAM, change the pointer in location 7}56 to point to the new start of theYY(Pcharacter set, and lower the top of RAM below the table so we don't accidentally}RR(Jwrite over it. To change a character, all we have to do is change any ofRR(Jthe 8 byte combinations that corresp}ond to a character you want to change.WW(OThere are some other things to keep in mind when changing characters, so let's}'(look at an example...' BTT(L Take a look at the following figures. Notice that they occupy an 8X8 grid,}K;(3which is the size of all ATASCII characters:>(H AK(WW(O Somehow we have to translate these two pote}ntial characters into 8 numbers for_U(Meach character. Well, everyone should know that each bytes contains 8 bits._ B}f A(f(P The easiest way to understand bytes andbits is to know that 1 bit can either beVV(Na 1 (ON) o}r a 0 (OFF). One byte can be any number between 0 and 255. Each bitYY(Pin a byte has it's own value range. Bit 'A' = 128} if it's on, and 0 if it's off.[Q(IBit 'B' = 64 on and 0 off. Look at the list to the right of the figures.[ B} A,$(!( ABCDEFGH ABCDEFGH$(-))(! 1 A = 128.))(! 2 B =} 64/))(! 3 C = 320yy(q 4 D = 16 5 E = }8 6 F = 41TQ(I 7 G = 2 8 H = 1T$}*('( ABCDEFGH ABCDEFGH*(//(' 1 = 126 = 126 //(' 2 = 255 } = 255 //(' 3 = 153 = 189 zz(r 4 = 219 = 153 5 = 255 } = 255 6 = 195 = 219ZW(O 7 = 219 = 195 8 = 126 } = 126 Z$f A(f(P Above are results of the calculations we made for each byte. The first byte of}\8(0the left character was figured as follows:;(\( 7 6 5 4 3 2 1 0J!( $(}J(! 64+32+16+ 8+ 4 = 126Q(G(?A@@A&BCD@}EF@'G@HI&J@K@ L@M@N@BOPQ@R rS@TA}YUIVAEWAVX@YZ@[ \2((]^,dd_@%`ga ((b MMc@}d@e&&fZDlg@hi@#j@kzzlm&noB2 AP -}( $S 6-B:,6.67,.(67,.0* @6-@P&'O67<%&,.S  67<,.6-?:6.7<%&,N6-@P&' N 6-%%6.%6-F:A,&+6-}/>6.7<%&,N6-@P&' E 6-%6.7<,6-B:,+67,.=:,46-B:,B6-?: - (-%(-;(P:'+%%+%",,$,% >$; 2A}p$H:,%@0*-%. 82;$2 6--'+&$,(F:,/)2$   $B 6.67,.}67,.!6-'6-+ 16-76-?6-&B$nn6.d  ! #$%&'()*+,-./0123456789:;<=>?@AB}CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd,67<,.>:,6.7<,"6-&,6.  6-B:,6-$" 6.P=6-# 6-}&$A67,.=:,67B:,%,.+6-?:6-A$&S16.'ESCԺQABCS˺AnyKey7S}67@),. -Key堠'$(K:$* +$ 6-F:,$"@3A#,"@C-& )}"'' @b& %.U )!@*AU*A&C6-&@2$+!@,UA@d/$1} 6.6.  @Q2% - 6-6.%6._3.  (6.$6-F:&,.6-+!,4< 6-}B:,$"AU@`<")!A$@V5L6*+ @')!@1%+(,,)!@G* @XD67%,.>:,L(>:,}62"@7)"@u%6-%+-2(7 @R89A&)"@R+")"@v36-&9-9(}:!6.7<&+!,,"!6.; @R<!@b"6.0= 6-A:,>" @@6-"$}F %%G. -%&( %6-+6-.$H -%( $V&6-A6-&6-#6.&$W}$ 6-6-A!6-!6.$$X& 6-6-AA6-%#6.&$Y" 6-6-%6-%6."$Z%%(}ٯ[$ 6-&%!&$$\*'6-%+",%$+", 6-* A d2' A"A }(6-.6-2 nA 6-6.'6-?::@:7,,%,56-%9 Y67@%<}A,.7<%,]O !'67A"<AY,.7<%,/!%O67Ab<A,.7%<%,bH 6-%6.7A,<6}7@B%<@y,.7<%&,H6-@gQ67,.7A,#6-%%E67A"%<AY,.7<%&,Q6-Aa}lQ67,.7A!,#6-%%E67A%<A9,.7<%&,Q6-AAqS 6-%67,.7A,%6-%16-A}7=6-I6-AS A5v67AA<A@,. 6.+67%,.M67@,.7AA%@$,\67Aa},.t67A,.7A,6.>:@e%,{'!6-?:6-0 "AU &6-0 AK!AS@-@A}5(>:,A@K AB0"A'(>:, 6-F:,0 AB&+",A"A&AG#6-)7(}>:AT,A AB--!A$)+!@&* @0,ABZ (>:,'"@0)"A&/6-&=!AB}C6-IP(Z AB 6-% AB&+!,46.Choose or ? =>!467<%,.,or -(}= * @e)!@g&+(,AP4(>:%,=6.>:,[ 6-6-A 76-4)+4*0,)+4*0,D(A0}J6.[67<@q,.]#67@E<@d,.7@X,+6-%5 @=-G APK O ]"A & }"6-&6.7<,& A 67,.7%,3 6-& @%!6-+(*(,3"%)A(@0 A }3A`6-%%6-@:7,,%367<,.>:,@ "6-B:,% 67,.>:,&6-46-!@$@AE @!}6. AP! + @%16-; APE A@6-?:!6-?: 8J -(  %%$(*"*6-66-Aa<6)}.@ J @B1  6-6- #6-A!' 1 AL) 6-!)%+",ApA@V%6-$+ *},6-&%6-`:6.>:%%,67,.# AP'067,.: APj67,. APt67,. A+}P~- AP D "67<%&,."6-%&*6-%06-: @6D A0 6-&%!A,}=6-&&+&%,%!&%(-6-&36-= A%P& A067<%&,.& A%PF6-B:,"67,-}.7%+ ,,("96.7<&+!,,?"F6.26-&+@E,6-&%6-&*(. 2 / 6-& A06-.}% @6/ A%P#6-C:7,,#6-?:C:,<<%<,7 6-%%67<,.&67%,.7,.6-&46-7$!67B:,%,./}6-B:,%!$!!6-$+",%+",%+",%+",Q A6-+"@,%$+"@e,%$+"@f,%$+"@g,E Q0}A0)"@)%+ ,AA%+"),A%PAR %96.)Question1}G6-?:F%"KA&@! =6-?::@:7,,%,G O A"%%$+",$+(,+"96-$AVE6-A&O A!;} ) 6-C:,"6-() A!* 6-406-?:<<%$+",<<,!06-F:A,>(%*<}+*+(,,"( A"H1 "%167Ay<A,.7@R,R6.6.7,\E 67,.6-B:=},%067,.䡡6"E67%<%,.f9 &%(  !"'6--"36-96-p]6.7<,67>}&,. P=' @516-%&A%A@G"M6-S6-] A z 6-6-  A @ 6.?}ԠĠ+67%,.1"@67%<%,.PF:A,6-F:A,+"Ap?67%<%,.F6.P A"@@}:!*%*%$6.Error #067,.=:,: A"@46. Wrong Type"*46.File Too Large; &%(A}(! % 1A; A J A#`6-F:,'D:*.*06-6&66-A67<,.J67,.  (B}  E6-?:67@R<@i,.7,D"V67<%,.7%, eA /A@&%@H$+",OAA&A`$I}+",U"e67<%,.7,  6- 6-B:, '6-%&$+"@E,# )!'   6- 6-@:7,, 1 6- J}&+))"@E,#6-1"A0 I 6.67<%,.7, ?67A"%<AY,.7<%,I A% c67A"K}<AY,.7,;67Ab<A,.7<%,C!%c67A<A9,.7%<%, ] 6-%-67A"%<AY,.7<%L}&,1;6-%%]67AB%<Ay,.7<%&,( 36-%%367Ab%<A,.7<%&,2 56-?::@e%, F:,"A%P % 3%(CHECK PRINTER - PRESS KEY) 3 A0 7F:%,"3(NOR}RMAL font? -or٠ 7  J "%%A$$6.@67Ay<A,.7%,J A!0 6. AS} + &6-?:C:hLw,,+ħ -$ $$iiˠҠT}îŮ󺠛%##󠱭&RR󠲭U}嬠砧ӧ'oo󠶭䠢ĠȢ¤V}(報宛)堲Т*󠲵+ 堲W},>>󠳰Τ-!!󠴰Ԡ٢.X}Ԣ/&&󠷰0((󠸶ůԠ3 󠹰Y}8 報ՠB 堵ڠG堸󠠛L""報ŠZ}ӪV!!報ԠŠ[##報Ԡ`""堲ůĠb 堲[}ůĠe""堲j""堲נt""堳Ԡ~""\}堳̠Ԡ場Ԡ""場Ԣ堛""堵Π]}77"OO1,2,3,4,5,6,7,8,9,10,27,34,38,39,40,128,255,559,752,764,20,42,8^}5,100,4500`@@,6-F:A,&:A&N@E:T`Am6-F:%,%AV_}$F:%,%%3%@q=%%O@@daB7t@dmAPP;A,;,;,;,;`}A,;A,;,;,;,;%,;,ee;,;A a,;A a,;A a,;A a,;,;,;A,;,a};,;,;@,<;A",;@w,;A,;A,;A,D6. S67A `,.\67,.m67A ab},.s6.y6.6.dd6.ZhhhhhԄԱ  eԅԩeՅ՘eeȱ`c}mm6.chhhhhhhإ8Ԫըؘٰ!ԑԑ`eՅեeׅפ ԑV$67,.d}׈ԑ`V6.+hhh hhBhEhDhIhH VHԽI`cc67%,.ThhhhhhhhhhhX˥Ye}m˥m̠˪͑ˊZZ67,.Me͐ͅm˥m`hhhˠ)` i@ ( f}`L6-$AV&A#6-%%16-%AL6-?:C:,B D:HELPER\EF.<SNOTANSAIISCORLIFLIVEVPITCICVVVSWAIADPAUS@A@A!"t}@@ @ @ @@??"u}dD?'7 7?uV)@Akk**Š **Š"v} **, Ҡ$12yrJULY 1983 **************** MATH WARS ** BY A.A.ACKS *"w}(*IN THE PUBLIC*2* DOMAIN 4/83 *<***************FINTRO. / MUSICP+@%@'-@@9("x}@K-@@](@warso-@ @(@BY-@@(@ "y}Zd-@@"92@@G-@K O dP=PITCH,D=DURATIONdFF121,240,81,480,9"z}1,120,96,120,108,120,60,240,81,480,91,120,96,120n88108,120,60,240,81,480,91,120,96,120,91,120,108,720s<%2"{}2;@,<+x:&(DO YOU WANT INSTRUCTION (Y/N)*:0YA](1(& ADD THE NUMBERS "|}AND TYPE IN THE TOTALZ($THEN PRESS . IF YOUR ANSWER IS](X*("CORRECT A MISSILE WILL FIRE AT THE-(X(&NUMBERS AN"}}D THEY WILL EXPLODE. IF YOURZ.(&ANSWER IS WRONG NOTHING WILL HAPPEN.IFW($THE NUMBERS HIT THE GROUND THEY WILLZ(Y.("~}&EXPLODE AND YOU WILL LOSE A LIFE.AFTERY(&AN EXPLOSION THE SCORE WILL BE UPDATED.@.@@"}K:`( ('( SKILL LEVEL (1 TO 10)+PP:,) @)!@A`S=SKILL LEVELSET UP VARIABLES"}+@%@#6-$@/6-;6-@G6-S6-_6-@I1 AND I2 = KEYBOARD INPUT. Y=S"}CREEN ROWb6-P:$H:,,36-@%P:$H:,,?6-@bGENERATE TWO NUMBERS FOR PROBLEMMAIN LOOP"}y-+(@score =-@S(@lives g-@yI=SCREEN COLUMN -"}(@+%2@@@@G2@@@@U-@%Y {2"}2@c"!-@@@(@ = J A"}cERASE ANSWER AT BOTTOM_-@@3(@ = _PRINT KEYBOARD ANSWER AT BOTTOM OF SCREEN""}LOOK AT KEYBOARD, F:Ad,"AUA66-)@@"AUA`E!! @H)!@W"}AJ'"6-&@H' AT!@A^'6-&@H%+$@,' Ah%A"}r MISSILE|"-@%@6@0-%@?(@K6-@q2@u&@$@"}2@@x&@$@$?p:-%@ (@ $ 06-: AP6-"}\ -(@  .6-%@B"@AP\ERASE PROBLEM THEN STEP4 -@6@"}4AP86-%@%@A@8END OF MAIN LOOP!!EXPLOSIONS IN INVERSE VIDIOg!@#"}-&@@ 6(@ܡJ-&@@](@g AW"@-@ .(@"}ܡ:-@M(@W A44EXPLOSION SOUND FROM OCT/NOV '82 PAGE 11^-&@$(@"}ܡ*-=(@K-%@^(@44EXPLOSION SOUND FROM OCT/NOV '82 PAGE 11U"}%2@@u@@16-?=6-@I6-@U6-@2@ @;2@@"}@@W2@@p@_6-$q6-$+%?,6-$+%?,!@A}%2"}G2@i2@} @APERASE EXPLOS"}IONu@#-&@@ 8(@ L-&@@a(@ u"@A`z"}-@@0(@+=%D-AH Z-@@p(@ z A`&^-"}&@$(@ *-=(@ K-%@^(@ 0"@6-&@)6-@"}5"G-@@^(@ Šr-Av  A:36-%@&6-@3!"}AA? A D7 +((#( AGAIN(Y/N)'74YAN@(}%D:MENUXk +"}-@@4(CONGRATULATIONS!P(YOU PASSED LEVEL .S(k(WANT TO GO FURTHERb54Y6-%@"})!@56-@l4YAv AD2:MATHWARS.BAS P7JIMINMISE@>"""""?3333AACOPYRIGHT 1981 HOUSTON ATARI COMPUTER ENTH&}IUSIASTSde +@lj(@ Press any key:(@R(@ РATARIj&}(@ РmAdAUn F:Ad,"AUAx0@'@ 0Time 0}&}: +@-@@:(@ AdAU F:Ad,"AUA@9%6-AV$&}F:@,%F:@ ,9Jiffy is 1/60 Sec6-'A6 6-P:,6-+&+$A6,,'@` +@j(@&} TIME = $(@7(@ I-@@\(@ j(@'-@@'(@&}_-@@.(@ HIT ANY KEYM(@TO TIME SOMETHING_(@AdAU&} F:Ad,"AUA% D:STOPWTCH$9M&;INSTKTENDENCPRESSURWIN;@,6-@n+*}@%@(($(9( >(T( Y(n( -@A*} ;+@%@(($()(;( <($(ҮΠ®8-@A< *}: +(((:(Do you want instructions (Y/N)((7@<@,4YA n (} ((2(What is *}the pressure tendency?5(8(F( 1) n(# (up >0.05 inches in past 12 hours)>(( 2) >(% (<0.05 inch chang*}e in past 12 hours)G((3) ǠG(& (0.05-0.2 inch drop in past 12 hours)(F((4) ǠF($ *}(down >0.2 inches in past 12 hours)2+((Indicate by number' @P+<&P:, @F''A*}A A0A@PF($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F @Barometer Rising AP*}AAALQGApApAp Ap Ap Ap ApApQ AuQGAp*}Ap Ap@ApPAp Ap ApApQ AuQGApAp ApAp Ap Ap *}Ap Ap`Q AuBarometer Steady APA!A"A!4 Aqp AuQGA*}qpAqpAqpAqpAqpAqpAp Ap Q Au Barometer Falling Slowly AP A1*}A2A3 QGAq AqAqAqAqAqAq Aq Q Au QGArAq*}AqArArAr ApPAq Q Au QGArArArAr`Aq`ApPAsAs*}Q Au AuBarometer Falling Rapidly APAAABACQGAppApp*}ApApAqAqAqAq Q AuhQGAq0Aq@Aq@AqPAq@Aq0AqAq`*}Q AuQGAr0Ar@Ar@ArPAqAr`Aq`ArpQ AuPressure Subroutine (*}} (((.(( What is the barometric pressure?+(.( (1)  (# (2) #(*}#(3) 堳 (#(((Indicate by number$ AP`(++"@)"@)"@AUF(*}$(ILLEGAL ENTRY--TRY AGAIN!8-@A< F AP|Wind Direction Subroutine (} ((()#(What *}is the wind direction?&()(>(1) !( 2) -(3) >( 4) D(5) !( 6) -*}(7) >( 8) A(D(((Indicate by number$ AUP(&P:,AV!!!* @ *}A`F($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F AUp Graphics Set-up Subroutinezg+@%*}@((3( THE FORECASTI(VALID 24 HOURS]( FROM NOW IS:b(g($XForecast Listb(*}ҠĠ$l(fair$v(ҠĠ$*('(ҠΠ*$(FAIR AN*}D WARMER$(ҬȠ$Q( 2(N(ĠQ$*}/( ,( /$*( '(*$.(+(ΠҬ*}.$(rain$( unsettled$(ΠĠ$*(increasing wind,'(rain*$8*}(increasing wind,'(rain5(WARMER8$*( INCREASING'( CLOUDINESS*$( no change$ (*} ά$(unsettled, cloudy$ /( unsettled,,(probably cloudy/$*(RAIN AND WARMER$*}4(unsettled, WARMER$>7(cloudy&( rain probable4(WARMER7$H*('(*}*$R(cloudy and rain$\(CLOUDY AND WARMER$f=( unsettled,$(:(=$p*}4(SUMMER:LIGHT WINDS1( 4$z1(summer:unsettled.( 1$1(RISING TEMPERAT*}URES.(and fair1$L"F:B2y,"@" @V Au@InstructionsJU (}0("This program forecasts *}the weatherU( for the 24 hour period beginningT%%(24 hours after forecast time.^j)(!User supplies the following data*}:,(J( 1) Pressure TendencyM(j( 2) Present Pressureh/()( 3) Present Wind Direction,(/(ri)(!To b*}egin, press . To re-runQ(#the program after completion, pressi(. To stop the|5#(program at any time, pre*}ss 5( ͠. Au D:WEATHER.BAS(8|||888lllllll8~|80n8l8pv0008ppx|<x<<|xf< x.}|||v~x |||||||x0||8|||8p@`0 >w.}c6>888??888~|8l8~|8p<~~<.}888 <|< 08<><80,