@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"!GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G}}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!BOO-BOO 170ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u`!`H$-%.HH \hhh(`.HM)   !h(L`N) !"`3T}!3:,*2B:,"@A` A0/ +@-/(@TURN DISK OVER/-@/(@}THEN PRESS ANY KEY5AdAU)& A05% D:PROG.BASo+A%A @7-@}@Q(NO PROGRAM THIS MONTHc-@@oARB'(FLIP DISK AGAIN AND PRESS A KEY1 A08)B }A6 (}-@ @ 6( What's Your Pleasure?_B7t@d'@@d9-@@X(}enu rint ead: _)8"@w((.( Main Menu....8 A"@AP8"@}((.( Read File....8 AF.-B:,6. D1:**.TXT.67<,.7<,F A"@A )}5@<(}F A5p  A4F:A,"A6*@@@4 A5P**"@e*F:A},"ApA!`pA @4@e*F:A,"Ap:(}L-@@p(Not In This Months News Let}ter! AF AF! A!` TA @'A@hT((} 짠򠠠 0}0(( à aB7t@d'@@d4@8(D@waF:Ad,}"AFA5P F:@, @"A5  E(3(' 堒EAdAU ''F:}Ad,"AU*T:,"A5@ %AdAU(}% A5 ZAdAU(0(Z($Pres}s a Key or Trigger for Next File ''F:Ad,"AU*T:,"A5` *@@@'AdAU*$NA }%6.D1:PRESSPRT.MNU*5G@@@N(}((6-C:hhhhh Ȅԩ`,!A@h}!A " A@`(" A@@A @QB7t@d'@@d9-@@ }J( Selection: Q)!!"@i)"@eAH"@xAC,"@c' A@@}A@TK AD(}3D1:PRESSPRT.HLP= A5G A@KÛC6-@f6-@V!6-'6-36}-@96-C AI0S6-F:A,"A6E(! Viewing Complete Press Any KeyL)O$SÛDU (}-@}@'"A8K(Your Printer is Not On Line...U AFX<"Ap2(Printer Help File Not Found...< AF}b= (}-@@3(ERROR # F:A,= AFl A@-A $7@6-!}"@e'6--6-7 AH@F (}-"(PRINT STYLE?0( . DRAFTF(. DOUBLE STRIKE0)@6-&}@d0 )!AH U (}-3( PAGE COLUMNS & LINE SPACING?U(. 2 COLUMNS AT 6 LINES/INCHh%(. 2 COL}UMNS AT 8 LINES/INCHG(. 3 COLUMNS AT 6 LINES/INCHh(. 3 COLUMNS AT 8 LINES/INCH( )( @e)!@hAH@}g6-@f6-@V'6-@-6-C"@f)"@hO6-@[6-@g6-@v!@f6}-$I (}-!( PAPER TYPE?4(. CONTINUOUSI(. SINGLE SHEETS8( )( @e)!@fAIB"@}f6-&'ÛL$/ 6-6. D1:**.TXT6-%"/ A@E (}-@@>(dd, ven, or }ll Pages?E)++@e*@y*@iAPU (}-9(%LOADING BUFFER before Printing.....U(Use }-P to Pause+(Use -C to Cancel+-@= 6. 67,.67,.#6.)6.16-%=@w}/ - A`6-'6-@@/-"F:Ad,"A8" AU,F:Ad,"AF", A}& &APAQAQ 67<,. AQ@67<,. AQ@67<,.! 6-%6-%@9} ! "F:Ad,"A8" AU#,F:Ad,"AF", A$..'@"P:'@,*"@yA}SE%..'@P:'@,*"@iASE(9 A&@P:,"9(@=2 "(}GF6  '6-+",$%+",$+@&,6(=:,PN (((":6-+",$@ %+",$@G*@'}N*Z: 6-6-@@-$6.*":6. _"F:Ad,"A8" AU`,F:Ad,"AF}", Ad<67B:,%,.7<,)67B:,%,.7<,<67B:,%,.7<,n"6-?: <--|| $}  ||  || Atari User Group Inc.(c)1985 |*** Alex Pignato, Pre$}sident ****** 3376 Ocean Harbor Drive ****** Oceanside, N.Y. 11572 ***$}|Charter Member NEAR*US ATARI USER Gp.|| Ԡ |$}|Charter Member NEAR*US ATARI USER Gp.|| 砱 |$ ()()()() FIRST XLENT USER INFO February, 1994 by J.E.Hicswa Member JACG and OL' HACKERS(} First XLENT WORD PROCESSOR permits the format directives and text on same TOP line when separated by semicolon and(} one or two spaces. I only experimented with left/right margin directives. FIRST XLENT USERS TYPE THIS ARTICLE TH(}EN ENTER PRINT MODE. NOTE: F at beginning of lines is First Xlent (OPTION F). Fdv* [(RETURN) typical end of lines] DEFA(}ULT print margins are left margin=10, right margin=70 Flm5 Left margin is now 5 Flm5; Add text preceded by 2 s(}paces Flm10 Left margin is now 10 Flm10:rm37; Add text preceded by one space. Right margin is now 37 Flm15 Left ma(}rgin is now 15 Flm15:rm50; text preceded by one space Flm10:rm70; Margins returned to default. DEFAULT:(} When left margin is one digit 0-9, then two spaces separate semicolon and text. ;__text When left margin is two dig(}its 10-nn, only one separates semicolon and text. ;_text This was accidently discovered when margin directives were(} separated with semicolon instead of colon. Part of directive following semicolon was printed. It dawned on me (}this could be text. I tried and it worked. A little practice revealed necessary spaces. OPTION F followed by (}a space is like REM in ATARI BASIC used for author REMinder. Comments after F SPACE are ignored during printing. (}Use it to start a line/paragraph anywhere in the document: EG: As first line of document F Filename, date, other infor(}mation. F SPACE before a paragraph prevents it from being printed by printer while still retained in the file. If yo(}u develop this further, please be good enough to share with me and/or THE OL' HACKERS AUG, N.Y., and other First XLEN(}T users. END ()()() share with me and/or THE OL' HACKERS AUG, N.Y., and other First XLEN(4 =<>=<>= KEYBOARD FIX This article has been taken from Z*MAG Atari on-line newsletter. It i,}s a good article on fixing keyboards, even though it can't solve all problems. File was transferred by M,}ike Blenkiron, and tidied by Dean Garraghty and reprinted by THE OL' HACKERS, A.U.G., Inc. ------,}---------------- This is probably one of my last original articles from me for a while, but I will try to bring,} you some of the best fixes, modifications, and other projects of other authors in the coming months. In this ,}article however, I will try to give a little help on fixing one of the more common breakdowns, the keyboard. I'm su,}re quite a few of you have an Atari in the closet with a keyboard that has gone belly-up in one way or another. Y,}ou would like to put that machine to use again, or would like to sell it for the best price as a working comput,}er, so let's dig right in. The 400's membrane keyboard was a joke from the git-go. The only solution there is repla,}cement, and a lot of people replaced them with third party keyboards. Since there were so many manufacturers, I can',}t even begin to cover them all here. With the 800's, as well as the 800XL, there were more than one design of key,}boards, by far the most durable of which was the full stroke, contact- switch type. Stackpole was one of the major ma,}nufacturers here. While I'm not sure about what percentage of 800's used this type, not many of the 800XL's had,} them. If you should happen to have an 800 or 800XL with a Stackpole keyboard, then you should have very little i,}f any problems with it. If you lose function of a key here, a nice bath with a good tuner cleaner will take ca,}re of even the nastiest keys. If that doesn't work, then the keyswitch can be replaced. The other was the printed ,} circuit contact sheet, where conductive paint traces were silkscreened onto plastic sheets. My 800 is one of the,}se, manufactured by Mitsumi, and a lot of the 800XL's were made by Chelco. Here you must exercise a little more ,}caution. DO NOT use any solvent type cleaner or you will wash the traces right off. The only thing you can use here ,}is a little water and a soft cloth. Even alcohol will discolor the traces and raise the resistance. If a trace is ,} broken, a little dab of conductive paint, available at any electronic supply store, will fix it up nicely. If ,}the key still doesn't work, try giving the spring that presses against that contact a little stretch. Be careful,} here, as it is easy to go too far and have the key stick on all the time. Remember, it is easier to stretch a spri,}ng than it is to shorten it, (cutting it is "NOT" an acceptable alternative!!). If the problem is a key sticking on,} all the time, try it with the pressure spring removed. If it stops repeating, then shorten the pressure spring ,} by squeezing it down with gentle pressure. If it still sticks, then take the separator sheet (the one with ,}all the holes in it), and add a piece of scotch tape over the corresponding hole, and cut out the tape where it cover,}s the hole. Don't use masking tape or anything like that, as it is too thick. You should never use more than two l,}ayers of scotch tape for this type of repair. If it still sticks after two, then replace the keyboard or u,}se the computer for parts. There are quite a few 800XL's floating around that can be had for a more-than-reasonable,} price, and you should be able to find one with a working keyboard. The 130XE was a radical departure from the ,}others, in that it used only a single sheet of plastic, with a contact on the bottom of the keyshafts bridging ,}two contacts on the sheet. Here if cleaning doesn't help, save yourself a lot of aggravation and replace the key,}board. If you've found everything to be fine and dandy with the keyboard itself, but you don't have function of a gro,}up of keys, check the ribbon connector where the keyboard connects to the computer. There may be a bad c,}onnection. On the 800 this shouldn't happen, as this is a full plastic- bodied 18-pin connector. On the 800XL,,} the ribbon is merely an extension of the silk-screened sheet that slips into a connector on the main board.,} If part of the conductive paint has been scrapped away, you can reach fresh trace by trimming down the ribbon a little.,} If you find yourself having to go too far, then replace the keyboard. Sometimes the problem is on the main board its,}elf. The keyboard is read by two 4051 decoders and fed into the POKEY chip. Try swapping out the chips, one at ,}a time, and eventually the keyboard should come back to life. If not, then there is a more serious problem that req,}uires professional attention. Hopefully, I have given you enough information here to enable you to do some of y,}our own keyboard repairs and save a little money. *=end=*nformation here to enable you to do some of y,L ************************************** HAVING 8-BIT COPYING PROBLEMS? by Ken Wickert (Ed. While 0}this was written in 1990, I'm sure that thre are many new users that will benefit from reading this article, as the 0}information is still valid and informative. A.P.) Reprinted from the ACE of Syracuse Newsletter by THE OL' HACKER0}S AUG, Inc, N.Y., With notes and updates by Thomas J. Andrews, member of ACE of Syracuse, and THE OL' HACKERS AU0}G, Inc. Making copies of 8-bit disks? As you might guess, I copy a lot of disks so I look for the best a0}nd fastest way to do them with the highest reproduction accuracy. ( Ken was 8-bit Vice President and 8-bit d0}isk librarian of ACE of Syracuse at the time this was originally written. TJA) The problems I've encountered are0} mostly with the Atari Enhanced Density, the 1050 density. I've also heard it referred to as Dual Density. (Edi0}tor's Note: Single Density disks format as 40 tracks of 18 sectors each with 128 bytes per sector for a total of 720 se0}ctors and 90 kilobytes on a disk. Enhanced density disks format as 40 tracks of 26 sectors with 128 bytes persect1}or for a total of 1040 sectors and 130 kilobytes per disk. Double Density disks have 40 tracks of 18 sectors each wi1}th 256 bytes per sector for a total of 720 sectors and 180 kilobytes on a disk. VWS) (VWS is Vern Smith, Contributing1} Editor of the ACE Newsletter. Double sided double density disks have 80 tracks of 18 sectors each with 256 byte1}s for a total of 1440 sectors and 360 kilobytes. TJA) Many disks I receive are in this "medium" density1}. I use it myself and, as I've not had any problems except for copying, I continue to use it. I seldom use tru1}e Double Density, as it limits the people I can exchange disks with. So, if, like me, you have a disk you want to cop1}y and share with a friend, (Great! That's what PD is all about!) you'll probably want a sector copy utility to do t1}he job. Plain old DOS just takes too long. Now the fun begins. You might just assume you'll get a mirror copy using1} any sector copier. SURPRISE! You may not. I've made this error several times. If you select CopyMate 4.3 or 4.41 }, you may not notice it misses the middle of the road density completely. If you don't know you have an enhanced density1 } disk, you'll have a copy of the disk, but only up to the 720 sectors formated in single density. (Remember, t1 }here are 1040 sectors on a 1050 density disk.) If the disk isn't full, you may get all the information on 1 }it, but if it is full you don't get it all and that is a problem. MyCopyR is a good sector copier and will sense 1 }proper density of single, dual, and double density, EXCEPT on an Atari XF551, where it always senses single. (See up1}date at the end of the article. TJA) Why? Well, I wrote to the author of MyCopyR, Glenn Smith, and the letter was re1}turned, unopened and unable to forward. Then I tried to leave him e-mail on CompuServe only to be notified that he1} no longer subscribes. Probably the hope of an upgrade or update is lost. MyCopyR properly senses density on 1}a stock 1050 drive and on the Indus GT drive. I would like to use My CopyR as my permanent copy program because 1}it gives me the option to get a disk directory before and after use. This is important when doing a lot of c1}opying as you may lose your place. Without this feature, you must back out of the copy program and go to DOS to get1} a directory. The MyCopyR DC file states that it will work with a memory-upgraded machine, but I've not been able 1} to get it to work with my RAMBO upgrade without the problems described. USCOPY by E. Reuss is by far my fav1}orite copying program, despite the fact that you can't check the directory of a disk. Key features are that it1} works properly with my RAMBO upgrade and shows the RAM available on screen. It does not sense Dual density on 1}the XF551 drive (See Update! TJA) but it does work properly on the 1050 drive and on the Indus GT. USCOPY only nee1}ds to read the source disk once and is the best for making multiple copies of enhanced density disks with an extended1} memory machine or with a 130XE using single density. All of the above copy programs will correctly copy a disk reg1}ardless of the memory of your 8-bit, but you must know the density of your source disk. They will also correctly copy1} Print Shop Icon disks which use a type of single density. I do quite a bit of Downloading of files from GEnie a1}nd CompuServe and then inspect and assign them to a respective disk. For this I use a FILE copier. The file 1}copier is very similar to the demonstration on Sparta DOS given by Fred Dunaway at our September 1990 meeting. Yo1}u get the contents of the disk and select which files you want to copy by using the arrow keys and pressing RETURN1 } to highlight your choice. There are several file copiers for use with Atari DOS 2.* and density is not a problem 1!}as you format the disk yourself before you start to make your special disk. UPDATE! Contra1"}ry to what Ken believed when he wrote this article, both MyCopyR and USCOPY will detect disk density on an 1#}XF551. There is an undocumented trick that must be performed first though, one that I discovered quite by a1$}ccident. All you have to do is press RESET just before you copy a disk of a density different from the one 1%}last read on that drive. This seems to re- initialize either the disk handler or the drive itself (I vote for the1&} handler). Just to be sure, I ALWAYS press RESET, whether I think the disk is the same density or not. When Ken1'} wrote this, I was still using my original 800 computer. When I tried to use MyCopyR, I found out that it wouldn't wo1(}rk with the older machine, so I put it to one side and worked with another. USCOPY does work with the 800, so I was u1)}sed to that by the time I switched to my 800XL, and Ken wasn't recommending it for use with my XF551 drive, anyway.1*} I needed a sector copier one day recently, and had misplaced my USCOPY disk. I was searching for it when I cam1+}e across the MyCopyR disk again, so I tried that. Naturally, I ran right up against the problems Ken describes here. I1,} had come across the same problem with USCOPY and had found that pressing RESET "cured" it, so I tried it with MyCop1-}yR and it worked again! None of these copiers will copy double-sided disks. A quick review of the GEnie Atari8 1.}library revealed no entries there that would do so, either. If you want to make a copy of a double-sided disk, y1/}ou'll probably have to use the particular DOS to do it. Double-sided disks and drives have a problem all t10}heir own. By double-sided, I mean a drive that can use both sides of a disk without turning it over. I don't 11} maen the "flippies" that Atari users have been using for years.) It seems that the different manufacturers of dou12}ble- sided drives used differing formats when designing them. This means that it's almost necessary to use a double-13} sided disk in the same brand of drive that produced it. Because of that, you should try not to distribute doub14}le-sided disks to other people, as they may find them unusable. MyCopyR does use the extra memory of an extended XL15} or XE. Both single and double density disks are copied with one pass with my RAMBO'ed XL. For double density this16} requires 180k, so the program MUST be using the expanded memory. For some reason, though, MyCopyR does enhanc17}ed density disks differently, using two passes. It copies the first 720 sectors on the first pass, and the rest on18} the second. This is done even though the program knows there is sufficient RAM to do it in one pass. The best 19}of all worlds, and I'm sure Ken would agree with me, would be a new copier that would properly sense density, provide 1:}a directory, make multiple copies from RAM, and would work with all double sided drives. Will someone ever wr1;}ite such a program? I wish I knew... ************************************* sided drives. Will someone ever wr0S >>><<< ----------------------- SUPERDOS V5.0 and the Indus GT disk drives. 5=} ----------------------- by Joe Leber, Member of the OL' HACKERS AUG, N.Y. (OHAUG) INDUS + SUPERDOS V5>}5.0 = PROBLEM! If you are the owner of the INDUS disk drive and are contemplating using SUPERDOS V5.0-be aware that 5?}there is a problem in "booting" this version. READING & CURIOSITY FINDS A PROBLEM I came upon this problem out of5@} curiosity after reading the review of SUPERDOS V5.0 by Tom Curtner, which appeared in the Jan./Feb. 1994 issue of 5A} the OL' HACKERS Newsletter. I booted my copy of SUPERDOS V5.0 normally and it began to load. It only loa5B}ded a few sectors when it stopped loading. I then rebooted the DOS and the same thing happened. I rebooted a 5C}third time and again it stopped. I sat there awhile and thought I must have a bad disk. All of a sudden it c5D}ontinued to load and AGAIN it stopped. What is going on here? While scratching my head for awhile it AGAIN continu5E}ed to load, and then the READY prompt appeared. I then typed DOS and the SUPERDOS V5.0 menu appeared. I reboote5F}d the DOS several more times to verify what had happened and I thought I most definitely MUST have a bad disk (5G}or so I thought). WHAT SHOULD I DO? I contacted my good friend ALEX PIGNATO, (President of the OL' HACKERS AUG)5H} whom I know uses SUPERDOS V5.0. I informed him of the problem and told him that I must have a bad disk. As he sugge5I}sted, I sent him my copy so that he could check it out (Typical of ALEX and the OL' HACKERS). Within a few days, ALEX5J} sent me a new copy of the DOS. AH! PROBLEM SOLVED??? AH, Now I have a GOOD copy and immediately I booted up5K} my new gem. I could not believe it! AGAIN the DOS loaded a few sectors and then stopped. Zzzzzzzz (snore, snore!) A5L}bout a minute and a half went by when a few more sectors loaded, and then stopped. Another minute and a half went b5M}y when the DOS loaded some more, and then the READY prompt finally appeared. It behaved in the exact same manner5N} as my original copy before sending it to ALEX. I was confused because I knew the DOS worked with no problem on ALEX'5O}s system. INSPIRATION HITS! After a couple of days I had a bright idea! Could it be my glorious INDUS drives 5P}causing the problem? No, no way, but then again, maybe??? I decided to test the DOS on my ATARI 1050 disk drive wh5Q}ich was not attached to my system. I disconnected my two INDUS drives and temporarily attached my ATARI 1050 drive, an5R}d then booted up the copy of SUPERDOS V5.0 that ALEX sent me to replace mine. Eureka! It booted normally. I then p5S}roceded to boot my original copy of SUPERDOS V5.0 and it too loaded normally. AND SO..... The obvious conclusion5T} is that SUPERDOS V5.0 does not load normally on the INDUS GT disk drives. However, the older version of this 5U}DOS; SUPERDOS V4.4, does load normally, and without problem on the INDUS drives. A CHALLENGE TO ALL! Perhaps some5V} of you computer "brainiacs" out there can figure out the technical aspects of my discovery. AS FOR ME AND MY INDUS5W}: In the meantime, I think I'll stick to my trusty trouble-free ATARI DOS V2.5. >>><<:AT,>:@(,>:AT,Y6-%@m"@AP!6-9c}R:,!6-T:,_"*"G6-%$@@&@@%%@$+"@,M6-_@w-9d}8,6-8,-@w) 6-8,)F:B2y,"@A= )-( %6-+6-9e}=@wH 6-%! )!@1)-&7( H6-@2&O:,) 6-%! @)!@")69f}-&"?#6-@%@$+ @,)-?(7<%@,,"A6W%'%%@9g}56-%@@A!A M6-W A@% 6-%6-F:,%6-F:%@,JC"*"%A9q}B%DOS SYSB*)DUP SYSBSAUTORUN SYSBUAUTORUN COMBVHELP DOCBiMAINMENUHLPB;qNEWSLTR BASBPRESSPRTMNUBRAMDISK COMBWELCOME SCRBBFIRSTXLTXTB+CKEYBORDTXTBFDCOPYINGTXTB<ECOMPATATXTBGXSUBATTK BASB=RENUMBERBASBmHOMELOANBASB&RMATHADSUBASB)xMATHMUDIBASBLOADER BASB"XLDEMO BASBFBBQ TXT9%@AC AT[ -@6@4-@IAF:B7p,[@ ^9r} F:@ , @APh` 8,%@8,92@p@X2@F:B7p,\ ` 9s}r##%@|I"A)"A%6-16-?6-%AI A^ -AP9t}6@&-P(7$@%@<$@%@,^6-@&-@6@ 1)2'@9u}@'@- 1 %6-&@%"A0g -( #6-@/6-@";6-9v}G6-S6-] Aug A !6-b +@BB@d90@@ @K-@9w}@b(@ Š]-@@+(@SCORE:=-@@](@PRESS /9x}f-@2(@ ˡD-@f(@à3-@@3(9y}@SCORE TO BEAT:/-@@/(@ THE HI-SCORE5-@@5(@SUBROUTINE by AL9z}EX5-@@5(@MEMBER ̧++F:B2y,@*T:,A`@w A9{}"AF:,"AQ6-&@@ %A`+6-G6-+&@,$+!@9|},Q A< 6-F:,"2A$+!%A,< A=F:,"A)F:,"A'6-%36-A9}}= A@L -@6@4-@@@6-L6-4-@@@@4A9~}F:B7p,&k&&8,%&8,:6-+F:&&@,,W6-+F:%%@,,[ c6-%k6-%0)29}%))A@:C  6-96-%@@%+@#&,$@C A?[-@@#"9}( 0-@L-$@&@@#T([\X [$DU,($INITIALIZATION-FOLLOWS, PATIENCE!@-@9}AD UNo(W9@,9@,;A(,;@,9@,9@,;A,c-@9}o6-AXI +76-F:A`,%AV$F:Aa,%@IAR@b0@@70@9}@Q0@@@k0@@@0@@@lm&@@i+-@9}@#9%@= Y%@A(%@m%@$@v%%6-F:@,%AV$F:@,8$6-+9}F:A,&@,$AV8AV'AV""F:%@ ,"@A@_-@+-@19}W%$@@%@%@%$@2%[ _ 1 #A@!-AA#%"-%1 '-A'9}"#%' 6-A(A2%AU&F:BsD%,6 E-@-%A%AU1 E%A9}A9/-@"+%Ar%/ --@%")A6%- M*@A%9}(-@0<-@I*@M 9A'A@9BBA5 #Ap9}!-@@d%"167,.>:,5 %%160,160,160,160,160,160,160,160 8,9,10,11,12,13,14,1532,32,18,19,209},21,22,23 24,25,26,27,28,29,30,31*32,97,98,99,100,101,32,324%%104,105,106,107,108,109,110,111>%%160,160,160,19}60,160,160,160,160H##120,121,122,123,124,125,32,32RG-@@+67,.>:%@1,/ G67@,.>:@2,9}\5-@@"$68,-("168,-5 f771,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0pK6-@69}-@"/-@5">68,-G68,-K z$!!246,247,208,209,254,255,0,06 6-$6.:::::::::::::9}:::::::6A@T=67@!,.*::::new::::high:::::::T67B:,%@,.=:,9-67B:,%@9},.:::::::::::::::::::::96-@1-@B:,&@ %%2@@@9-@@#9}'(7<%@,9@  F:@ , @A p%%2@0@@l-@(9}grstu -@ ;6-&@G"S-@`( l6-@1 F:@ , @A9} 6-@ @2,@#1/@@#C,@@#U,@g/@9@29} Au$ŠӠכ168,0,0,0,42,0,0,0$0,2,42,170,10,168,0,0.9}0,160,2,170,160,42,0,080,0,128,0,160,0,0,0B15,63,63,63,15,0,0,0L!!192,240,242,240,192,0,160,0V0,34,10,19}36,2,168,0,0`0,32,160,136,0,0,0,0j0,0,0,0,85,85,5,0t0,0,192,63,95,117,85,21~0,0,0,192,85,85,85,851,9}5,53,31,87,93,85,8564,80,84,244,213,85,85,850,0,48,15,87,93,85,850,0,0,240,213,85,85,850,0,0,0,85,85,9}80,0128,8,3,143,3,128,8,0 2,48,240,252,224,200,0,1280,0,0,0,0,0,5,70,0,8,85,42,42,85,1190,130,249},64,0,0,84,1160,2,33,0,0,0,0,00,2,24,145,2,0,0,00,4,0,32,80,0,0,0 0,0,21,10,5,0,0,00,0,85,170,119}7,85,21,57,10,85,170,215,85,85,85( 119,170,85,170,93,85,85,852!!116,170,85,170,117,85,85,85<0,0,85,170,215,9}85,85,85F0,0,84,170,85,84,80,64P0,0,0,128,0,0,0,0Z0,0,0,0,0,0,0,0d0,0,0,0,0,0,64,16n0,0,0,0,0,0,0,09}x0,0,0,5,0,0,85,1190,0,0,84,128,128,85,1190,0,0,0,0,0,64,640,4,1,5,1,4,0,00,68,80,84,80,68,0,09}0,0,80,170,21,5,5,0 85,117,85,170,85,213,85,2180,208,80,170,85,93,85,8585,170,85,170,85,85,85,85 85,9}170,85,170,85,213,85,8564,129,65,170,85,93,85,8516,85,221,170,85,85,80,00,1,4,170,80,0,0,00,16,16,16,9}16,136,0,01,0,0,5,31,31,5,084,5,4,85,213,86,85,00,80,0,80,85,89,84,0"0,0,0,1,85,64,0,0,4,17,4,84,9}64,0,0,0632,2,51,15,131,8,128,0@34,0,200,240,194,48,0,8J0,0,0,0,5,1,0,0T0,0,0,2,85,93,85,5^20,20,20,9}170,85,93,85,85h20,20,20,170,85,93,85,85r0,0,0,128,85,93,85,84|0,0,0,0,84,64,0,00,128,8,32,15,131,3,29} 0,0,194,192,242,252,192,500,0,0,0,0,0,0,00,0,0,0,5,42,1,00,0,0,0,85,165,85,00,0,0,3,85,85,85,859}0,5,21,255,85,85,85,8585,85,105,255,85,85,85,850,0,0,255,85,84,85,850,0,0,192,80,20,80,640,0,0,3,59},20,5,11,1,1,255,85,21,85,8584,85,165,255,85,85,85,850,64,80,255,85,85,85,850,0,0,240,85,85,85,859}0,0,0,0,85,90,85,64&0,0,0,0,80,168,64,000,0,0,0,0,0,0,050,0,1,63,127,31,7,06##120,248,200,254,251,254,2529},0:55塛Dbb72,169,6,141,10,212,141,22,208,169,40,141,23,208,169,10,141,24,29}08,169,128,141,26,208,104,64N D:SUBATTK.BASA@D-208,169,40,141,23,208,169,10,141,24,28XX{DRIVEA@SAVE "D:RENUMBER.B=}AS 55VERY FAST AND CATCHES "GOTO" LINES AS WELL 3/94塒籰2Q;@,;@,-A =}?AAhQAAFF8(>:A%,8? :? " Ҡà":? :?Pl$(} =}ǠǮJ(! ԠϠՠ٠ƺl( Ş̌ӠǬZ[[(SProgram can be ĠϠ, or=} it ̠ŠĺҮʧ. for .nLL(CTO USE PROGRAM ONCE ITS IN MEMORY- TYPE IN, 'U=USR(38900,10,20)'h=}h(_-CHANGE THE LAST 2 NUMBERS IN 'USR' STATEMENT-STARTING LINE [#10], AND THE INCREMENTLINE [#20]$$(TO ANY NUMBERS TH=}AT YOU WISHV( (V(HTO LOAD THIS OBJECT FILE DIRECTLY INTO MEMORY AND NOT TO DISK, PRESSy@(KEY >:@4,L=}>:@4,. REQUIRES 48K MEMORY.y(4PRESS ANY KEY FOR DISK WRITE IT MAKES D:RENUMBER.OBJC"@@=}K/)@C"@vA)@8(>:A%,((8( ҮʠҠ/(/($**REQUIRE=}S 48K MEMORY AND DOS v.2.**"S(S(GTo which disk drive would you like the file written to (D1,D2,D3,or D4)6J A=}(p^9(/($One moment while I write the file to9(...r?67@<@,.?67@<@,. :RENUMBER.OBJ=}* A*@@ Ap"*@ A0@E @@=}E@5@@(>:A%,(&%%(File is now written to .:PP(HY=}ou may now use the DOS menu selection'L' to place the renumber program NLL(Dinto memory. Return to BASIC, load file to =}be renumbered, and usebRR(JU=USR(38900, starting line number, increment) to renumber your program.vOO(GOr place the =}USR statement into your program at line 32767. Watch forPP(Hpossible overwrite of the renumber program if RUNning a =}BASIC program@@(8that changes GRAPHICS modes, or uses other high memory.<A A'AAH9A=}<j(>:A%,( (ERROR #.(F:A,O( trying to write the file...c-@Ag j%##T=}HIS DATA FOR DISK WRITE ONLY255,255,244,151,255,15577THIS DATA FOR MEMORY 38900($97F4) TO 39935($9BFF)++76,80,1=}53,165,136,133,203,165,137,133***204,169,0,133,205,133,206,133,207,96>))201,14,240,1,96,152,141,243,151,136R))177,20=}3,32,61,152,165,207,208,10,32f((101,152,165,207,208,3,76,40,152,32z++148,152,172,243,151,169,0,133,205,133--206,133=},207,141,243,151,200,200,200,200((200,200,96,201,18,240,1,96,136,152**201,3,240,249,177,203,201,14,208,244**136,1=}77,203,201,23,240,11,201,24,240##7,201,4,240,3,76,66,152,169,1,,133,207,96,172,243,151,136,177,203,201((10,240,32=},201,12,240,28,201,23,240((24,201,24,240,20,201,13,240,16,201.&&4,240,12,201,27,240,8,201,35,240B&&1,96,32,220,154,=}169,1,133,207,96V--172,243,151,138,141,242,151,165,136,133j--205,165,137,133,206,200,177,203,133,212~--200,177,203,1=}33,213,200,177,203,133,214--200,177,203,133,215,200,177,203,133,216++200,177,203,133,217,32,198,154,32,210++217,1=}69,0,141,240,151,141,241,151,160))0,177,205,200,197,212,208,6,177,205((197,213,240,30,32,90,154,160,2,177**205,24=},101,205,133,205,144,2,230,206 ++238,240,151,173,240,151,208,3,238,241,,151,76,207,152,173,240,151,141,234,1512--17=}3,241,151,141,235,151,173,230,151,141F++236,151,173,231,151,141,237,151,32,41Z,,155,24,173,238,151,109,228,151,133,212=}n,,173,239,151,109,229,151,133,213,32,170--217,172,243,151,174,242,151,200,165,212--145,203,200,165,213,145,203,200=},165,214--145,203,200,165,215,145,203,200,165,216,,145,203,200,165,217,145,203,96,104,104--141,229,151,104,141,22=}8,151,104,141,231++151,104,141,230,151,173,6,228,170,232--138,141,154,153,141,114,154,141,171,154++141,252,154,17=}3,7,228,141,155,153,141"--115,154,141,172,154,141,253,154,173,2306((151,208,8,173,231,151,208,3,76,244J**154,32,138,=}155,162,13,138,72,189,244^**153,32,176,242,104,170,202,16,243,32r**247,151,160,0,177,203,201,255,240,14**201,0,208,=}20,200,177,203,201,128,208))13,76,2,154,200,177,203,201,127,208&&3,76,2,154,160,2,177,203,170,200++200,177,203,20=}1,22,240,22,201,155,240''6,32,8,152,76,202,153,152,133,208**230,208,228,208,240,3,76,202,153,138))24,101,203,133,=}203,144,2,230,204,76**164,153,155,155,46,46,46,103,110,105&++107,114,111,87,155,125,32,247,151,173:--228,151,133,20=}5,173,229,151,133,206,160N((0,177,203,201,255,240,14,201,0,208b**20,200,177,203,201,128,208,13,76,163v**154,200,177,=}203,201,127,208,3,76,163++154,160,0,165,205,145,203,200,165,206,,145,203,200,177,203,170,173,230,151,24--101,205,=}133,205,173,231,151,101,206,133**206,138,24,101,203,133,203,144,2,230''204,76,15,154,160,0,177,205,201,0((208,7,2=}00,169,128,209,205,240,1,96**162,22,138,72,189,140,154,32,176,242++104,170,202,16,243,169,66,133,212,169***5,133,2=}13,169,85,133,214,133,215,104>&&104,76,43,153,155,72,67,84,65,77R##83,73,77,32,35,69,78,73,76,32f**45,32,210,207,210=},210,197,162,18,138z++72,189,179,154,32,176,242,104,170,202&&16,243,96,155,155,42,42,32,68,69##82,69,66,77,85,78,6=}9,82,32,42**42,155,165,212,201,66,208,15,165,213''201,4,208,9,165,214,208,5,104,104''76,43,153,96,136,152,201,3,2=}40,13,,177,203,201,54,208,244,104,104,104,104 ))76,40,152,96,104,104,104,104,162,36 ))138,72,189,4,155,32,176,242,1=}04,170. ''202,16,243,96,155,155,46,83,84,78B ##69,77,85,71,82,65,32,82,83,85V ##32,82,85,79,89,32,69,71,78,65j ((72,6=}7,32,45,32,210,207,210,210,197~ ++155,169,0,141,232,151,141,233,151,141 **238,151,141,239,151,162,16,24,78,235 ++151,=}110,234,151,144,40,24,173,238,151 --109,236,151,141,238,151,173,239,151,109 --237,151,141,239,151,176,153,173,238,151=} ,,24,109,232,151,141,238,151,173,239,151 ++109,233,151,141,239,151,24,14,236,151 ((46,237,151,144,13,24,14,232,151,46=} ++233,151,238,232,151,76,134,155,14,2322 ++151,46,233,151,202,208,176,96,169,255F ,,141,240,151,141,241,151,32,247,15=}1,160Z ))0,177,203,208,7,200,177,203,201,128n ))240,29,160,2,177,203,24,101,203,133 ++203,165,204,105,0,133,204,238,24=}0,151 **173,240,151,208,3,238,241,151,76,149 --155,173,240,151,141,234,151,173,241,151 --141,235,151,173,230,151,141=},236,151,173 **231,151,141,237,151,32,41,155,24,173 --238,151,109,228,151,141,238,151,173,239 ++151,109,229,151,141,=}239,151,176,14,56 --169,254,237,238,151,169,127,237,239,151" 48,1,96,76,242,1546 CK FOR CORRECT ENTRYJ 117@=}<@,0D)B:,"@A)0^ ii7@<@,41)7@<@,42)7@<@,43)7@<@=},44A)pr +' (+(Error in entry. Try again... 5-@A ((>:A%,+(5 AP $ L=}OAD DATA INTO MEMORY D@(D(.Loading DATA into memory..Ӡנӡ 7 #A)-BB%A=}5-"37  T(T(ILoad complete. NEW this program, and LOAD or ENTER your BASIC program to NN(Fbe renumbered. =} Then use U=USR(38900, first line number, increment) to YY(Qrenumber the program. All error checking is done by the =}renumber pro- gram.& <A A'AAH9A<jj(bTYPE IN U=USR(38900,10,20), OR CHANGE =}THE STARTING LINE (#'10'), AND CHANGE THE INCREMENT (#'20').D:RENUMBER.BASj(bTYPE IN U=USR(38900,10,20), OR CHANGE <S56LNILTTMLINECNPASYEARSFFINABADASHIIIXFINPFESBABJTPTOTTITOTBORDRGSNFINISLIA}NEPRINTBEGISJSELECFFINYEARSIPAKEYADBAMSBABCALDPMMPMAVAAYEAARATFVAFYEAPVBAMKSNBSNYKERETRN@A} @A  s @0@A}PB&& L Y Bf   A} ''!A0"#$A %@ &'$(((A)A*A+,-@./A}0?ff1A3c2@345BP67AP8A3c9BP:A;@6?A}A@AAA BAUC##D@SAVE "D:HOMELOAN.BAS <<< HOME LOAN >>> <<< ANALYSISA} >>> <<< COPYRIGHT 1982 >>>( <<< J. F. SKINNER >>>2 <<< VERSION 1.1 >>>< <<< FOR ANTICA} MAGAZINE >>>> <<< PAGE 18 >>>? <<< 'D:HOMANLYR.BAS >>>F A3PPINPUT ROUTINER"@A} AT"@ A#0Z{ A4`-@@K:96-@E-@(U( 1 gAA}Rs-@({6.1d")@"AnH"AU!AdAU3AR@>@A}H Ax:"A&*!@'6-&@267,. : >:,!A++ @F)"@G)!@WA}A'67<,.>:,(>:,'6-%@ AMOVE CURSOR?6-F:B2y,!6-T:,06-F:A2,?A}6-F:Ad,#"@)"# A "AU6-8," @-@&( '"@)"@A}'6-%@'"@)"@'6-&@!@6-@ @6-@-@&A}(=>-@@E  Ap"ApApApApA A A PAA A}AA0APAA!0A!A"0A"A#A#0,AdAU Ap6CALCULA}ATE@"@ A#0J7"@ A) # A$0- A'`7 ApT-"@ A) # A%- ApA}^! A)  A$0! A&h"@ Ar Ap|c$cPOKE 77,0: POKE 580,1:ZZZ=PEEK(16):IF PEEKA}(16)>128 THEN POKE 16,ZZZ-128:POKE 53774,ZZZ-128<AdAU'A@d9A<$i%2@@UA}@@9-@@u= _2@b$iKSND?0@@@?2@A}A@@y-@A =2@Q-@AU o0@A}@r$yBSNDi%2@AAA9-@@u= _2@b$iGSA}NDPRINT SCREEN6-@ A6-%@ A6-@) +ARA}@) AQ0@@@70@@@Q0@@%%( A}Π( $ Month--(  YEARS % $&(0 ( DATEPRININTBAL:A}(DPRINT SCREEN LINENN 6.=:,B:,"@467@<@,. N67@<@,.=:,X A@bE 6B}.=:,/7B:,&@&7B:,&@67B:,%@,..00B}v AE67B:,%@,..00 Ae AdE 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 Ap67B:,%@,..0067B:,%B}@,..00$"6.0.00$ A AE 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 A67B:,%@,..00+-@B}(-&-@+(%-@( -@(%(@ A0$ AuAdAB}U (  (E 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 Aw67B:,%@,..00  A E 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 A67B:,%@,..00B } B K-@@(TOTAL1-@@5(G-@@K(*00('B } 4(>(H//(&R>-@@!>(# =print =go to the neB }xt year\>-@@">(# =return to the MAIN MENU fB"!-@@!B( B } p'AdAU'B2y@z06-F:B2y,!6-T:,06-F:Ad, "@'  AB }0" A @I"@  A3)6-56-@ ? A `I A@ AB}  '  A0$COPY SCREEN TO PRINTERH3>:@',=HӠҠҠϠԠŠB}͠Ρ-AdAU!6-AU-6-@?-@@!?($ Position Paper and press ŭ ?-B}@@"?($ (Press to Exit Print Mode) !6-F:Ad,!6-F:B2y,7"@3!AdAU-6B}-AU7 A@7"@!B2y@-6-@7 A` AAdAU>-@@!B}>(# $-"@-3 ŠΠ. -8-@@8B}B -L)@V!!67%@<%@,.>:,` j=6-F:B2y,"@0B2y@3'= A`B}t3~ AdAU$SCREEN OUTPUT 6-6-%%@'AR'AdAUB}  6- A0+A@ !6-@ + A A$0 6-6-6-6-U-@B}@!>(# CALCULATING P-@$@!U(?-@@"?($ (Press to Exit CalculB}ation) 6-&@ -@%@-@@6-%@( @ A@26-@B}6-%@< 6-$F&&6-P:+%>P,$A,'AP(6-$A6-P:,(6-'AZ 6-&6-B}%6-%d76-F:B2y, @!'-6-@7 A0n  APx 6-&AR@  -B}@@!D( CALCULATING  f2@@@@2@B} * A@  % 6-&6-6-%6-&# A@ @# A0.-@@ B}.(LAST PAYMENT %%!%( +  BALLOON A0$ START+@%@ AB}70@ @70@@@70@@@70@0@B}@@ @ @" @ HOME ' @ LOAN ,* @ B} ANALYSIS* @6## @ Ԡ @## @ ٠͠ J$$ @ B }:O$$(@ Ş̌ӠT## @ ^g @,1/@C/B!}@@U/@g/h"F:B2y,@" A@r @AdAU| A0B"}ENTER PURCHASE PRICE 6-A:, A2PENTER INTEREST RATE 350 A4` 6-A:,6.6-B#}'A6-@ A2PENTER LENGTH 6-A:,6-@ A2P&ENTER FIRST MONTHD 6-A:,B$}N% @)!@%6-@X A2PbENTER FIRST YEAR 6-A:, A2PENTER AMORTIZATION YEARB%} 6-A:, A2PENTER DOWN PAYMENT 6-A:,  A4` A2PENTER BALLOON PAYMENT " 6-B&}A:,6-@" A2P*ENTER MONTHLY PAYMENTH0 6-A:,6. A) & A%0 A2PRENTER APPRAISED VAB'}LUEp 6-A:,z A2P <<>> 6-A:, A2P ENTER RATE OF APPRECIATION 6-B(}A:, A'` A2PENTER RESALE VALUE 6-A:, A2P SELECT PRINT SCREEN$ 1 A36-@B)}%6-@16-@. A `8 6-B A2PL ENTER RESALE YEARj 6-A:,t A2P~ CALC B*}MONTHLY PAYMENT A%` 6-+&,&6-'A  6-6-% 5"+6-+@%,#+$@,5 A$B+} ))6-+@%,#++$@,&@, 6-$$'+&@, A%' &&6-P:+%>P,$A,'A E 6B,}.=:,/7B:,&@&7B:,&@67B:,%@,..00B-} A%( 67B:,%@,..00 B $-@(@ $(  -@(@ ( $ , B.} A4`"F:A,"@, A4` 67B:,%@,..00 A%0 CALCULATE PURCHASE PRICE( 6-'AB/}2 5"+6-+@%,#+$@,5 A&0< ))6-+@%,#++$@,&@,F 6-+$+&@,,'+$,B0}P 6-P:%?P,Z 6-%%d %-@(@%( n -@(@(x $ CALC APPRECIATION B1}RATE 6-+&,'+&, 6-+',$A &&6-P:+%>P,$A,'A %-@(@%(  -B2}@(@( $ CALC FUTURE RE VALUE  6-" A( " A(    A(P B3}-@+&, 6-%+$+'A,, 6-P:,   A(" -@+&,, 6-&+$+'A,,6 B4}6-P:,@  J %-@(@%( T -@(@(^ $h CALCULATE PV OF BALLOONr IARB5}@'B2y@3"?6-I A0P| " A0P >-@@!>(# CalculatingB6} Present Value  >-@@">(# of Balloon Payment  6- _-@+$@,=2@B7}@@@_2@ --@'@"-(++$@,&,  6-F:B2yB8}, 6-+&+$,, 2 )"@%6-('2 A0@  6- &&6-P:+%>P,$A,'AB9} >-@@!>(#=up =down =compute >-@@">(#Type a number and then press B:} $ FORMAT AT SCREEN '6-6-'6-@ ;@@'@@91+; AB;}& 'AR@'AdAU0 Q0@@@70@@@Q0@@: 00B<}(' D (N (X //(&b 1-@@B=}1( HOME LOAN ANALYSISl 3-@@3( (c) 1982 by Jim Skinnerv A50 -@@  00('B>}  ( ( //(&   AR@B?} >-@@!>(#=up =down =compute >-@@">(#Type a number and then press B@} Ap PRINTER OFF LINE B-@@">(# B  AdAUBA} "@ A0 AP INITIALIZE *@e@*AdAU* ##@@BB}S:4 70@70@> '6-A6-A'6-A0H ss;@,;@BC},9@,;@@,;@,;@,;@,;@,;@,;@,R 6-BP6-AP'6-@BD}P36-@0?6-@K6-AW6-AUc6-@o6-@{6-A6-A\ k6-A6-%#BE}6-A/6-;6-G6-BPS6-B _6-@k6-A3ca 11;@9,;@5,;@8,9@BF},f 467@,. %67@@,. 467@,.h 116.'| | j --6.# tBG}hen press l 006.&--------------------------------------p + A A7! A&+ A$0z BH}A INPUT ERROR  6.0' >-@@!>(# I couldn't read the last number  >-@@">(#BI} you typed... Please try again.  @   B A0 MAIN SCREEN 5-@@5(PuBJ}rchase Price.........  5-@@5(Down Payment...........  5-@@5(Interest Rate.......BK}..  5-@@5(Balloon Payment........  5-@@5(Length of Loan in Years 5-@BL}@ 5(Monthly Payment........ 5-@@5(Year of First Payment. 5-@@5(Month BM}of First Payment. $5-@@5(Amortization Year...... .<-@@<(" BN} 85-@@5(Appraised Value........ B5-@@5(Appraised Year......... L5-@BO}@5(Appreciation rate...... V5-@@5(Resale Value........... `5-@@5(ResBP}ale Year............ j8-@@8( t$~.#-@@"'68,-BQ}+ .$++1,1,1,7,7,5,7,2,6,4,2,4,1,7,4,5,7,4,1D:HOMELOAN.BAS@d'68,-.#-@@"'68,-@Y !TjNAMEANSWETOAVM@@@@I@I@ @@ FS} @A@SAVE "D:MATHADSU.BASd9 (}9ĺծӧ--(c)1FT}986, ALEX PIGNATO V.3.1x +@*(@ MATH QUIZ!9(@ (@< ADDITION AND SUBTRACFU}TION! PROGRAM BY 'ALEX'!YY(@HV.2.3-4/26/86-MEMBER ' hackers USERS ! v.3.1-7/1/89rr(FV}jPRESS START TO BEGIN!-10 ADDITION & 10SUBTRACTION PROBLEMS-Š Ҡנ A`AFW}Ax"F:B2y,"@" A@-@@+A$@H-@6@e-FX}@6@}2%@   AC +A 1A@CAFY}A";@%,((((("(I)(!HI! I'M YOUR TEACHER, MISS ATARI!,(/(E(WHATS YOUR NAME I,T(/FZ}(WELL  LETS SEE HOW WELL YOU DO!2(F-@AJ T+@@y-A%-@=2%@F[}@A E Y-@u2y T(@ MATH QUIZ!hR(@ F\} MENU!6(@ 1. ADDITIONR(@2. SUBTRACTIONmrr(jTo change the of the to be used in program-F]}change numberS after [*]L#520-540 & 1020-1040|($(@TYPE 1 OR 2 below!(-@@+A$F^}@H-@6@e-@6@w2%@{  )+@%@)"@F_}A`%6-'@%"@A `C +A 1A@CAA-@F`}@((( PROBLEM # (\%6-P:H:@,$@,%@\CHANGE THE [10] TO CHANGE THE LEVEL OF THE PROBFa}LEMS!\%6-P:H:@,$@,%@\CHANGE THE [10] TO CHANGE THE LEVEL OF THE PROBLEMS!0 ( (+(__DFb}X Al 6-% " A b -@@6@<2@@@@ b2Fc}(( NO!>( IT WAS 42> A@b -A@6@Fd}<2@@@ b2"(( CORRECT!"6-%@%%6-P:@$H:Fe}@,,%@ "@A "@A 4"@A`H   ( (\3( ( ((3( YOU GFf}OT  OUT OF 10 RIGHT!pj(9(.ENTER 1 TO CONTINUE TO THE SUBTRACTIONQUIZ,>>><(?(B(Z( ҠϠԡ](`(c(Fg}f(j"@A `"@A@-C +A 1A@CAFh}A-@@ ((( PROBLEM # (Z%6-P:H:@,$@,%@ZCHANGE THE[10] TO CHANGEFi} THE LEVEL OF THE PROBLEMSZ%6-P:H:@,$@,%@ZCHANGE THE[10] TO CHANGE THE LEVEL OF THE PROBLEMS$ ( Fj}(-(__8L A` "& A`t!( NO, IT WAS &! A b -A@6@ J|}V.2.4-ss(kPRESS START TO BEGIN!-10 MULTIPLIC. 10 DIVISION PROBLEMS-Š /ϠŠJ}}נӡ A@ F:B2y,"@A -@@+A$@H-@6@J~}e-@6@}2%@   AC +A 1A@J}CAA";@%,((((("(H)(!HI! I'M YOUR TEACHER, MISS ATARI!,(/(D(WHATS YOUR NAME HJ}U((WELL 0(LETS SEE HOW WELL YOU DO!3(G-@A K U+@(@ MATH QUIZ!c(J}@ MENU!<(@1. MULTIPLICATIONU(@ 2. DIVISIONc(@%!(@ TYPE 1 OR 2J}%V @I)!@P6-@6?PR2A@V  -@@+A$J}@H-@6@e-@6@}2%@  !-@@+AJ}$@H-@6@e-@6@}2%@  ")+@%@J})"@A#%6-'@%"@A,C +A 1A@CAAJ}@-@@((T8( PROBLEM # 2( [*] MEANS MULTIPLICATION5(8(h\%6-P:H:@,$@,%@\J}CHANGE THE [10] TO CHANGE THE LEVEL OF THE PROBLEMS!|\%6-P:H:@,$@,%@\CHANGE THE [10] TO CHANGE THE LEVJ}EL OF THE PROBLEMS! ( (*(__ A@ 6-$ " A`b -@@6@J}<2@@@@ b2(( NO!G( IT WAS (((=2J}G A0b -A@6@<2@@@ b2J}D"(( CORRECT!"6-%@F%%6-P:@$H:@,,%@H"@A J"@A @LJ}"@A X  ( ((((((l3( ( ((3( YOU GOT  OUT OF 10 RIGHT!h(7(,ENTER 1 TO CONTINUJ}E TO THE DIVISION QUIZ!>:(=(@(X( ҠϠԡ[(^(a(d(h"@A"@AJ}-C +A 1A@CAA-@@ ((( PROBLEM # J}([%6-P:H:@,$@,%@[CHANGE THE [5] TO CHANGE THE LEVEL OF THE PROBLEMS[%6-P:H:@,$@,J}%@[CHANGE THE [3] TO CHANGE THE LEVEL OF THE PROBLEMS'!((THE [/] MEANS DIVISION!)$('(  ( (/(J}__( "(( DIVIDED BY "(= * A4 "' A`H3( NO, IT WAS '(( (#(&()(3 J}A\b -A@6@<2@@@ b2]b -@@J}6@<2@@@@ b2^_( CORRECT!6-%@`%%6-P:J}@$H:@,,%@b"@A0d"@A0@f"@A0u v( ( ((((J}(w 6-%(((((-( (-( YOU GOT  OUT OF 20 !6-'@ $A# ( Your is J} #((@e%( ӡ(('A@T'A -@@0;(-@J}@!;( ٠ΠҠŬϮˮ;(-@@!;( ;(-@@!J};( TRY AGAIN ANOTHER TIME, O.K.?;(-@@!;( ٠ΠҠŬϮˮ W6-6-J}'6-36-?6-K6-W6-GG(?ŠӠԠŠƠՠ٠ĠŠJ}Πԡ)( ( נĠՠ &(?)(b( ( (*( Ϡǭ̸ҿJ( GEE..THANKS FOR THE APPLE!J}^-@Ab -@@+A$@H-@6@e-@6@J}}2%@   +( (( END!( (((Ӡ( ( (((J}4(ԠΡ....Ġˡ"(%(((+(.(1(4( A;&(YOU GOT IT٠ŠԠš)(,(/(2(5(8(;J}( A ;&(HEY, THATS Ԯ CONTINUE ON!)(,(/(2(5(8(;(* A 4(ԠΡ....Ġˡ"(%((J}(+(.(1(4( A J&(YOU GOT IT٠ŠԠš)(,(/(2(5(8(;(>(A(D(G(J( A J&(HEY,J} THATS Ԯ CONTINUE ON!)(,(/(2(5(8(;(>(A(D(G(J( AD:MATHMUDI.BASJ( A J&(HEY,HbDY3/92 SAVE "D:LOADER.BAS" +@@@## @ THIS IS A SAMPLE!! @N} #"" @ OL' HACKERS AUG%!! @ P.D. SOFTWARE($$ @N}2 @ =<!! @ yourprog.basF @P @ =Z!! @ N} progdocs.basdMF:B2y,"@:(START LOADS YOUR PROG. HEREM%D:YOURPROG.BASnqF:B2y,"@^(ASEN}LECT LOADS YOUR DOC BASIC PROG. or any other BASIC PROG HEREq%D:PROGDOCS.BASx A D2:LOADER.BAS^(ASELs  $HELSTARJ@PSAVE "D:XLDEMO.BAS ɠ̠ҠϠ éR}堠(!!The following routines will2$$demonstrate some of the unique<$$features of ATARI XL computersPR}""ҠΠԠӠZ1 +@@1@@9dnԠΠӠxQ0@R}@ @70@@@Q0@@ @ΠƠҠΠAR@R} A  A@@.(.(# Programs may be listed with fine/(/($scrolling by first pR}oking a non-zero-(-("into location 622 prior to opening,(,(!the screen editor, then using the$($(ATARI BASR}IC LIST command. A РҠŠǠA"@""NOTE THAT IN THIS PROGRAM WER}""DID NOT HAVE TO OPEN AN IOCB"!!FOR THE SCREEN EDITOR SINCE,""THE BASIC GRAPHICS 0 COMMAND6DID IT FOR US.@R}J;AR@ A1@A0; AT^ŠϠΠϠh̠ҠR}r|٠ԠŠ'('( There is an initial delay,(,(!seconds before a key will repeat./(R}/($The default value stored in location/(/($729 is 48. This value is the number/(/($of 60ths of a second to deR}lay before((((a key will repeat (48/60=.8).-(-(" To change the delay to 1/3 of a-(-("second, POKE 729,20R}. To make this.(.(#delay one full second, POKE 729,60. A.(.(# The value stored in location 730-R}(-("is the delay between repeats. The/(/($default is 6 or 6/60ths of a second..(.(#At this rate, a key will reR}peat ten0(0(%times per second. To slow the repeat&.(.(#rate down to five times per second,0-(-("POKE 730,12.R} To double the speed,::(( POKE 730,3.(A)@ :A0@D AN٠ˠĠXbR}/(/($ The click sound you hear wheneverl.(.(#you type can also be disabled on XLv/(/($computers. The default R}value stored-(-("in location 731 is 0 and indicates.(.(#that the click is enabled. To dis-+(+( the click, R}simply POKE in a 255.A1AU A@@+(+( This program has just set the,(,(R}!the delay before repeat to 1/3 of-(-("a second, and doubled the speed of,(,(!the repeat rate. Fine scroll hasR}/(/($been left on, and the keyboard click((has been disabled.*(*( I now return control of this+(+R}( computer to you and ATARI BASIC.%-@&@%( Jerry White 9@@'-@@9ARR}((BASIC(IS *Р٠Š4堠>&A2&CLEAR HELPR} KEYH$6-F:A2,$-@@#R'F:B2y,"@$6-@'$\(A@f/"@/(ՠR}ĠŠР٠p."@.(ՠĠԯРz-"AE-(ՠĠ̯Р$.(.(#R} This program demonstrates how to,,($check for the HELP key from BASIC on(an ATARI XL computer.AAR}.(.(# Press HELP, SHIFT/HELP, CTRL/HELP,2&( or Press Ԡ to exit.26- A0B2yR}@ A0  $,-@@!"(Ԡ, A F:A@,A5-@@#5( R} ,-@@!"(Ԡ, A ԠҠԠ٠$ӠĠR}.8 A0B4-@@#4(PRESS Ԡ TO CONTINUELA@@`V F:B2y,"@AR}`F:A@,Aj"-@@#"( START tA@@`~ F:B2y,"@AF:A@R},AP A(>:A%,CLEAR SCREENT0@@ @70@@@Q0@@ R}@T$Ԡ̠ĠC -@6?P<2@@ C$ DR}:XLDEMO.BAST$Ԡ̠ĠC -@6?P<2@@ C$ DP <<< >>> BAR-B-QUE On September 18, 1994 at 1:30 we are all invited to attend a B-B-V}Q get together at the home of JACK and MARY GEDALIUS. The cost will be $2.50 per person, which will cover the cost ofV} food and drinks. Our thanks to JACK and MARY for offering the use of their backyard for a fun afternoon of gooV}d friends, and good food. Hey folks, don't forget to thank the host and hostess! To get directions, call theV} GEDALIUS home at (516) 791-8639. See you there! <<< >>>ess! To get directions, call theTO