@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} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 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;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}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}!ERROR- 138ɛ+,' 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./QBRABDOCVNOFXYSCORTIMEPERCENT}@ @  ESCAPE FROM BARNABY'S ISLEBY DAVIDU} WOOLLEY$$(c)1988, ANTIC PUBLISHING INC.%%(DO NOT RENUMBER THIS PROGRAM!)VAF:B2y,"+@-(@V}8(@V(@ Š-(@-(@ barnabys isle-@A@ C +W}"A96-F:A,@C A h;A,;A,;A,;@P,;@,;@PX},;@P,9@,9@,t6-@6-@ Q-@@&68,-* >-@@M6Y}8,-Q -BB#""*"@7# %!!"@*"@A(Z} (} ((* A%- B:,"@ 6.NOTHING24(( YOU CAN SEE:. (4(VISIBLE EXITS:3(7@<[}@,4N((NORTH 4(7@<@,4S((SOUTH 5'7@<@,4E'(EAST 6'7@<@\},4W'(WEST 7(( WHAT NOW< @A4GOAF4GETApK4USEAP4]}EXAMINA5U4INFOA Z%(ՠΧԠϠԡ% @U_-@B:,a @d7<,4 ^}Ai n6.7@<&@,o4INFO$p6.7%@&4NORTH*7@<@,4N_}46-%@> @x>&4SOUTH*7@<@,4S46-&@> @}=%4EAST*7@<@,4E3`}6-%@= @=%4WEST*7@<@,4W36-&@= @)(ՠΧԠϠԠ١) @Ua}S44RAT*"@*"@*8@,"I68@,-@S AT54BOOK*"@*"@*8@b},"J68@,-@T AW84CUTLASS*"@*"@*8@,"M68@,-@W Ac}U64APPLE*"@*"@*8@,"K68@,-@U AX94TALISMAN*"@*"@d}*8@,"N68@,-@X AE#4CHEST*"@*"@;(IT'S FAR TOO HEAVY.E @UD"e}4BOAT*"@*"@:(IT'S FAR TOO HEAVY.D @UE#4TROLL*"@*"@;(HE WON'T COOPERATE.E f}@UpP4TREE*+"@*"@,)+"@*"@,)+"@*"@,f(IT'S FAR TOO BIG.p @U,"(g}ɠΧԠנԠԡ, @U-#(YOU HAVE NOW GOT THE .- @UG4RAT*8@,"@*8@h},"@*"@*"@j(THE TROLL RUNS OFF, SCREAMING.68@,-@ @UR!4BOOK*8@,"@i}+#A/"3(H68@,-@R @UX84CUTLASS*8@,"@*"@*"@N(IT HAS NO EFj}FECT!X @U["4APPLE*8@,"@<(IT TASTES QUITE NICE.Q68@,-[ @Ui%4TALISMAN*k}8@,"@_(5A STRANGE VOICE SAYS:'ROLLIN THE MAGICIAN WAS RIGHT!'i Ar**4BOAT*"@*"@Aul}%(ՠΧԠϠԡ% @U["4BOAT*"@*"@Q(*IT LOOKS STURDY ENOUGH TO RETURN YOU HOME.[ m}@U##4AREA)4LOCATION@@N#4TROLL*"@*"@D(HE LOOKS REAL MEAN AND UGLY.N @U\#n}4SHACK*"@*"@R(*IT HAS 4 EXITS, AND LOOKS PRETTY RUN DOWN.\ @Ug"4TREE*"@*"@](6o}THE OAK TREE LOOKS VERY OLD.CARVED INTO IT IS:'U-T-R'.g APk"4TREE*"@*"@a(:THE APPLE TREE LOOKS Vp}ERY YOUNG.CARVED INTO IT IS:'S-H-A'.k AUl"4TREE*"@*"@b(;THE PALM TREE LOOKS VERY STRANGE.CARVED q}INTO IT IS:'E-E-T'.l A` C 4RAT*8@,"@9(IT LOOKS QUITE DEAD.C @UD!4RAT*"@*"@r}:(IT LOOKS QUITE DEAD.D @Ue!4BOOK*8@,"@[(5THE COVER SAYS 'ISLE HISTORY'.MANY PAGES ARE MISs}SING.e Apf"4BOOK*"@*"@\(5THE COVER SAYS 'ISLE HISTORY'.MANY PAGES ARE MISSING.f ApG$4t}CUTLASS*8@,"@=(IT LOOKS REAL SHARP.G @U"H%4CUTLASS*"@*"@>(IT LOOKS REAL SHARP.u}H @U'F"4APPLE*8@,"@<(IT LOOKS GOOD TO EAT.F @U,G#4APPLE*"@*"@=(IT LOv}OKS GOOD TO EAT.G @U1V%4TALISMAN*8@,"@L("ITS USE IS A TOTAL MYSTERY TO YOU.V @U6W&4TALw}ISMAN*"@*"@M("ITS USE IS A TOTAL MYSTERY TO YOU.W @U;^#4CHEST*"@*"@T(,INSCRIBED Ix}NSIDE IS 'G- TO T-E N-RT- BEA-H'.^ Ae=,"(ɠΧԠנԠԡ, @U@!(!(ŠԠƠE!y}(!(GO GET USE EXAMIN INFOJ#( (ԠƠӠ#(O'8@,"@'( DEAD RAT,T#8@,"@z}#(BOOK,Y&8@,"@&(CUTLASS,^$8@,"@$(APPLE,c,8@,"@,(MAGIC TALI{}SMANm(r!((ԠƠӠ!(w>8@,"@"#A&":(THE BOOK SAYS:>(|;8@,"@|};(YOU HAVE SCARED OFF THE TROLL.>8@,"@>(!CARVED ON THE OAK TREE IS: U-T-R>8@,"@}}>(!CARVED ON THE APPLE TREE IS:S-H-A>8@,"@>(!CARVED ON THE PALM TREE IS: E-E-TS8@,"@~}S(6INSCRIBED INSIDE THE CHEST IS 'G- TO T-E N-RT- BEA-H'.?8@,"@?("THE BOOK IS CALLED 'ISLE HISTORY'.};8@,"@;(ROLLIN THE MAGICIAN WAS RIGHT. @U 8@,"@@@Z (A TROLL PUSHES Y}OU BACK!,6-@86-@L-@AP Z @=,"@*"@*8@,"@:6.NOTHING}=$=,"@*"@*8@,"@:6.NOTHING=$=,"@*"@*8@,"@:6.NOTHING=$}=,"@*"@*8@,"@:6.NOTHING=$$"68@,-@" @U"68@,-@}" @U"68@,-@" @U"68@,-@" @U"68@,-@" @U"68@},-@" @U!(!(ӡ0(0(%YOU HAVE ESCAPED FROM BARNABY'S ISLE. (WITH A POINTS SC}ORE OF:8-@@&8,"@46-%@8 8-@@&8,"@46-%@8 2!}6-A'+@%@ ,)6-$26-P:,%%( AND A PERCENTAGE OF %X=@w+@}A=B7tAb$hh"SO ROLLIN THE MAGICIAN HID HIS TREASURE IN THE OLD OAK TREE & WENT TO PROVE TROLLS FEAR }OF RATS."'bb3,1,ȠȮA BEATEN TRACK LEADS NORTH.TALL CLIFFS LOOM UP ON EITHER SIDE.,,NOOO'SS4,1,͠}ŮA LITTLE PALM TREE SITS ALONE OVERLOOKING THE CLIFF.,,NOOO'GG1,2,ǧӠŮVICIOUS ROCKS SURROUND THIS ROUGH C}OVE.,,OOEO'TT2,2,ŠŮA QUIET APPLE TREE RESTS IN A CLEARING IN THE SCRUB.,APPLE,OOEW'NN3,2,ӮHERE THE }PATH SPLITS INTO THREE OTHER DIRECTIONS.,,NSEW'RR4,2,ΧӠ̮A SMALL PEACEFUL HILL RISES UP OUT OF THE GROUND.,},NSEW'bb5,2,ΠŮA GRAVE HAS BEEN DUG HERE BUT THE OWNER IS NOWHERE TO BE SEEN.,DEAD RAT,OOOW']]2,3,Ġˠ}AN ANCIENT OAK TREE RISES OUT OF THE GROUND AHEAD.,MAGIC TALISMAN,OOEO'NN3,3,ˮA FORLORN SHACK STANDS IN A CLEARI}NG BEFORE YOU.,BOOK,NSEW'DD4,3,ŧӠҮNEXT TO YOU LIES A LITTLE RIVER.,,NSEW'GG5,3,̮A WATERFALL F}ALLS DOWN FROM HERE TO THE SEA.,,OOOW'HH2,4,ԠĮWHEAT STALKS DANCE MERRILY IN THE SUNSHINE.,,OOEO'kk3,4,Ġ}ΧӠЮA TERRIBLE SWAMP LIES HERE.TO THE NORTH YOU CAN SEE SOMETHING ODD.,,NSEW'KK4,4,ŧӠŮAN OP}EN CHEST LIES ON THE GROUND.,CUTLASS,OSOW'PP3,5,ȠȮYOU ARE FINALLY HERE!A BOAT LIES NEAR THE SHORE.,,OSOO}D1:BARNABY.BASȮYOU ARE FINALLY HERE!A BOAT LIES NEAR THE SHORE.,,OSOO=ESCAPE FROM DISPOZONTEXT ADVENTURE BY KEVIN SHERRATT(c)1988, ANTIC PUBLISHINGCOMMAND LIST & TIPS Unfortunately, Escap }e FromDispozon was NOT designedby the author to play as atwo-parter, so Antic just had to dothe best we could. As in }most text adventures,commands are limited to specificverbs and directions. These commandsmust be entered at the "Havilfad }:"prompt. For the sake of clarity,commands in this text file arewritten in capital letters -- but inthe game itself, com }mands must betyped in lowercase letters.XXX To move about, use NORTH, SOUTH,EAST and WEST. IN requires you tospecify }the object or room to enter,OUT does not. Only one commandshould be entered at the prompt. Incombinations such as NORTH }SOUTH onlythe first command will be acted upon. Use LOOK to examine your currentlocation, or "room". Used with anobje }ct (LOOK AT BOX), you can examinethe various items scattered about.To manipulate objects, use TAKE,DROP, OPEN and CLOSE. }Other possiblyXXXuseful commands involving an objectinclude HIT, USE, EAT, FOLLOW, ASK,TELL and GIVE. SAVE and RESTOR }E let you save asmany as five different positions inthe game and return to them any timeyou want. (Be sure to have a blan }k,formatted disk on hand to SAVE aposition.) Other commands that mightcome in handy include QUIT,INVENTORY, UP, DOWN, NO }, YES andHIDE.XXXRemember... * * * * THE GAME WILL NOT WORK PROPERLY UNTIL YOU HAVE BOTH PART ON }E ->AND<- PART TWO!!! * * * *XXX Depending on Iggy's mood, somecommands can be downrightfrustrating. } Just remember -- indealing with Iggy, politeness reallycounts.XXX Iggy's limitations are many,although you wouldn't t }hink so tolisten to him. One thing he can dois give more than one response to asituation. Sometimes you need tomake sur }e you've gotten ALL hisinformation from him.XXXOne more time: * * * * THE GAME WILL NOT WORK PROPE }RLY UNTIL YOU HAVE BOTH PART ONE ->AND<- PART TWO!!! * * * * }O!!! * * * * 3 WELCOME TO THE ANTIC MONTHLY DISK 㩱㮠 Having troub}le using this disk?Getting a BASIC program to RUN iseasier than you think!! When theMonthly Disk Menu appears, justtype }the NUMBER of the program youwant to RUN, then press the[RETURN] button.XXX For example, to use HELP.BAS,you'd: 1. } Locate "HELP.BAS" in the menu. It'll look like this: Ю(05) 2. Find the number of the file. } (In this case, Юӛ is file 5.) 3. Now, type a 5 and press [RETURN]. That's all you nee}d to do!XXXMost of the programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific operati}nginstructions. Please read the matchingissue of ANTIC Magazine for completedocumentation.SUBSCRIPTION Info & Orders:(8}00) 347-6969.BACK ISSUE Orders: (800) 234-7001(Visa or Mastercard only, please.)XXX *** BONUS FILES * BONUS FILES ***}ESCAPE FROM DISPOZON, Part II: Part II of Kevin Sherratt'smemorable text adventure. It'sso big, however, that we had t}obreak it in half!This half takes up ALL of Side"B" of this month's disk.(The first half took up ALL ofof Side "B" of }last month's disk!) Read the Escape From DispozonHELP file for more info.XXXNote... * * * * ESCAPE} FROM DISPOZON WILL NOT WORK PROPERLY UNLESS YOU HAVE BOTH PART ONE ->AND<- PART TWO!!! * * * }*XXXThe menu that appeared on the screenwhen you booted the disk will onlyRUN programs with a .BAS extender.If you try }to run a program and theresponse is 'cannot run Filename',check the file extender with thislist:XXX.BAS BASIC saved pr}ogram, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER then RUN..EXE Assembly language 'Loa}d and Go' file. Remove BASIC, boot DOS, type L then enter the filename.XXX.M65 "LISTed" MAC/65 assem}bly language source code. Must be compiled..SYS Reserved for DOS system files..DOC Text file. Usually ac}cessed by another program.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's} Archive. We've updatedthem from our HELP columns andmost are compatible with the XL andXE machines. We have worked to in}surethat our programs operate aspublished, but we consider all oursoftware listings to be works inprogress which we encou}rage you topersonalize and enhance.Good luck, and ENJOY! -Charles Jackson Technical and Online Editor } Antic Publishing -Charles Jackson Technical and Online Editor ?7LINEAFPPRxxy  11;A ,;@,;@,;@,YA}Y'@1(}D( (1) HELP fileG(YARZ-@@2((2) Escape From Di}spozonD-@@ Z((3) Previous Menu(= (( SELECTION-AY@41=6-2""(+41)4}2)43,@ 7 43%D:MENU<06. D:DOC.TXT4206.D:DISPOZON.DOCPN-@@(--@}@J(Hard Copy (Y/N) NNZ(+4Y)4N,@dW@@(}&@C@@}K4YW6-@n A`AR@x@vB:,!@-7@<@,4XXX0(}3(E-@@"Y(ӠΠf@l(}v A   3( A _@ B*-}@@"R("ΠҠՠҠˠҠ_@ @@ %D:MENU D1:HELP.BAS}ΠҠՠҠˠҠ_@ @@ %D:MENU D1:HELP.BAS100 REM HERTZ GENERATOR130 REM INIT140 GRAPHICS 0:LO=14150 AUDCTL=53768:CLOCK=1790000160 AUDF1=53760:AUDC1=53761170 AUDF}3=53764:AUDC3=53765180 REM INIT POKEY FOR SOUND190 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I200 REM COMBINE, CLOCK 1.79MHz210 POK}E AUDCTL,120:? CHR$(125);220 REM EVEN VOICES = VOLUME 8 230 POKE AUDC1,160:POKE AUDC1+2,168240 POKE AUDC3,160:POKE AUDC3+}2,168250 REM START PROGRAM 260 TRAP 260270 ? :? "One or two voices (1-2)? ";280 INPUT #16,VOC:IF (VOC<>1) AND (VOC<>2) T}HEN 270290 TRAP 44444300 REM MAIN LOOP 310 IF VOC=1 THEN X=1:GOSUB 450:VH1=HIF:VL2=LOF:V1=HERTZ/2:VH3=0:VL4=0:GOTO 34032}0 IF VOC=2 THEN X=1:GOSUB 450:VH1=HIF:VL2=LOF:X=2:V1=HERTZ/2:GOSUB 450:VH3=HIF:VL4=LOF:V2=HERTZ/2330 REM MAKE SOUND 340 PO}KE AUDF1,VH1:POKE AUDF1+2,VL2350 POKE AUDF3,VH3:POKE AUDF3+2,VL4360 ? :? :? "Voice #1 generating ";V1;" hertz."370 IF VOC=}2 THEN ? :? "Voice #2 generating ";V2;" hertz."380 REM END PROGRAM 390 ? :? "Press Ԡ to RUN again"400 ? :? "Press }Π to end...";410 IF PEEK(53279)=6 THEN 190420 IF PEEK(53279)=3 THEN ? :? :? "END.":END 430 GOTO 410440 REM INPUT HE}RTZ 450 TRAP 450:? :? :? "Hertz to generate ( ";LO;" - ";CLOCK;" ) ":? "for voice #";X;" ->";460 INPUT #16,HERTZ:TRAP 4444}4:IF (HERTZCLOCK) THEN 450470 HERTZ=HERTZ*2480 GOSUB 500:RETURN 490 REM CALCULATE Nth CYCLE 500 N=INT(CLO}CK/HERTZ)510 LOF=INT(N/256):HIF=N-(256*LOF)520 RETURN }256*LOF)520 RETURN $YO ] AXLPNB0@!(@( (Pd"(@Q +26-?:C:}hhhԩ`,<A6,DAdAUQ;@@,uAAX'A @9AAXK@}@]@@7c(}uAR@G Ap-@@G(# +}+(# Antic Monthly Disk, Apr. 1989 ++(#  ( | Side 'A' |++(# } @ -@A $ <<;@@,;@ ,;A,;@,;@@,} "D1:MENU" &&@@D:*.* 6,6." 6 @0i6-%@}(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367B:},%@,.G67@<@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@<}@,.7@<@,]67@<@,.0$@(''7@<@,4FREE@- @ }.K'7@<@,4 HELP.....BASK67@<@,. Ю2() <@F''7@<@},4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#}| |[ ( |  |\++(#  d**(" Selec}t HELP.BAS for information.xAR[@@9'-@@#C( FILE NUMBERM A }Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@},$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.}-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR}@'-@@"?  LOADING ? A@@91@@5%? B226.(}㩱㮠j-@@ +-&@5(7<,I-@@&c(7@A}&<@A&,g j$T-@@"-  CANNOT RUN 7 @TF:A,"@!A  B A0}% D:HELP.BASD:MENUOT RUN 7 @TF:A,"@!A  B A0944ɢ⍎55555 5VU T 5 51LN42L43ީ `5 5;UT 5 },5ѥ˅ΩUT 5 ,5ΑLN476 5dUT 5 ,5UT 5˅ԩ ح04 }ɀI45. 5멀4  5L4L4 5hhL4ɛ1~ 5L.5:0Lo5 5L }.5 5 ٥ԅ˥Յ` ɠI` `} Ӡ˯ś DOSPOKE DOSPEEK EXIT TO DOS }Your choice56: }Poke the integer:Into the address:Press to exit}[Press to abort input]Peek address: }Holds number: Main menu Re-run DOSPEEK4 } Main menu Re-run DOSPEEK4 0100 ; MINIMON0110 ; BY JOE KIMBROUGH0120 ; (c)1988, ANTIC PUBLISHING INC.0130 AFP = $D8000140 BUFF1 = $05000150 CH =$} $02FC0160 COLCRS = $550170 CONSOL = $D01F0180 EOL = $9B0190 FASC = $D8E60200 FPI = $D9D20210 IFP = $D9AA0220$} INVFLG = $02B60230 KGB = $F2FD0240 OUTCHAR = $F2B00250 PR2 = $34F30260 ROWCRS = $540270 ;0280 *= $34000290 S$}TARTCODE0300 LDA $FCD8 ;800 or XL/XE?0310 CMP #$A20320 BNE MAIN.MENU ;If not 800 $}then proceed0330 LDA #$E20340 STA OS.MOD.1+10350 LDA #$A40360 STA OS.MOD.2+10370 LDA #$F60380 S$}TA OS.MOD.1+20390 STA OS.MOD.2+20400 MAIN.MENU0410 LDY #$000420 LOOP.10430 LDA MENU.TEXT,Y ;Print main $} menu0440 JSR PRINT.CHAR0450 INY 0460 CPY #$560470 BNE LOOP.10480 ;0490 PUTCUR050$}0 LDA #$15 ;Place cursor0510 STA COLCRS0520 LDA #$0C0530 STA ROWCRS0540 LDA #$200550 JSR PRIN$}T.CHAR0560 JSR GET.CHAR ;Get menu choice0570 CMP #'10580 BNE DPE10590 ;0600 JMP DOSPOKE ;Go to DOSPOKE0$}610 ;0620 DPE10630 CMP #$320640 BNE DPE20650 ;0660 JMP DOSPEEK ;Go to DOSPEEK0670 ;0680 DPE20690 CMP $}#'30700 BNE PUTCUR0710 ;0720 LDA #$0C ;Store keycode for EOL in CH for0730 STA CH $} ;auto-[RETURN] after going back to DOS0740 RTS 0750 ;0760 DOSPOKE0770 $} LDY #$05 ;Clear ASCII input buffer0780 LDA #$000790 LOOP.20800 STA BUFF1,Y0810 $} DEY 0820 BNE LOOP.20830 ;0840 LDY #$000850 LOOP.30860 LDA DOSPOKE.TEXT,Y ;Print $}DOSPOKE screen0870 JSR PRINT.CHAR0880 INY 0890 CPY #$3B0900 BNE LOOP.30910 ;0920 LDA #$14 ;Place$} cursor0930 STA COLCRS0940 LDA #$010950 STA ROWCRS0960 LDA #$200970 JSR PRINT.CHAR0980 LDA #$03$} ;Limit input to 3 digits0990 STA $CF1000 JSR KEYBD.INP ;Get POKE value $} [ASC->INT]1010 LDA $CC ;Hi-byte > $FF ?1020 BNE DOSPOKE ;If not 0, then start o$}ver.1030 LDA $CB ;Store low byte1040 STA $CE1050 LDA #$14 ;Place cursor1060 STA COLCRS1070 LD$}A #$031080 STA ROWCRS1090 LDA #$201100 JSR PRINT.CHAR1110 LDA #$05 ;Limit input to %} 5 digits1120 STA $CF1130 JSR KEYBD.INP ;Get address [ASC->INT]1140 LDY #$001150%} LDA $CE ;Get stored INT1160 STA ($CB),Y ;Put in addr.1170 JMP DOSPOKE ;Go back1180 ;1190 DOSPEEK1200 %} LDY #$05 ;Clear ASCII input buffer1210 LDA #$001220 LOOP.41230 STA BUFF1,Y1240 %} DEY 1250 BNE LOOP.41260 ;1270 LDY #$001280 LOOP.51290 LDA DOSPEEK.TEXT,Y ;Print D%}OSPEEK screen1300 JSR PRINT.CHAR1310 INY 1320 CPY #$641330 BNE LOOP.51340 ;1350 LDA #$10 ;Place %}cursor1360 STA COLCRS1370 LDA #$021380 STA ROWCRS1390 LDA #$201400 JSR PRINT.CHAR1410 LDA #$05 %} ;Limit input to 5 digits1420 STA $CF1430 JSR KEYBD.INP ;Get address %} [ASC->INT]1440 LDA #$10 ;Place cursor1450 STA COLCRS1460 LDA #$041470 STA ROWCRS1480 LDA #$2%}01490 JSR PRINT.CHAR1500 LDY #$001510 LDA ($CB),Y ;Get contents of address1520 S% }TA $D4 ;Store lo-byte in FR01530 LDA #$001540 STA $D5 ;Put $00 in % } high byte FR01550 JSR IFP ;Convert INT->FP1560 JSR FASC ;Convert FP->ASC1570 LDA $0580 ;Pri% }nt ASCII1580 CMP #$301590 BNE PR11600 ;1610 INC PR21620 PR11630 LDY #$001640 CPJ31650 LDA $0580,Y% }1660 CMP #$801670 BCC CPJ11680 ;1690 EOR #$801700 CPJ11710 CMP #$2E1720 BEQ CPJ21730 ;1740 J% }SR PRINT.CHAR1750 INY 1760 CPY #$071770 BNE CPJ31780 ;1790 CPJ21800 LDA #$801810 STA PR21820 %}LDY #$06 ;Clear ASCII output buffer1830 LDA #$201840 LOOP.61850 STA $0580,Y1860 %}DEY 1870 BNE LOOP.61880 ;1890 LDA #$9B1900 JSR PRINT.CHAR1910 CHECK.CONSOLE1920 LDA CONSOL ;Check cons%}ole keys1930 CMP #$03 ;Is it OPTION?1940 BNE CHECK.START1950 ;1960 JMP MAIN.MENU1%}970 ;1980 CHECK.START1990 CMP #$06 ;Is it START?2000 BNE CHECK.CONSOLE2010 ;2020 JMP DOSPEEK ;Re-run DOSP%}EEK2030 ;2040 ; -----------------------------2050 ; Keyboard Input/ASCII->Integer2060 ; -----------------------------207%}0 KEYBD.INP2080 LDY #$002090 GET.KEY2100 JSR GET.CHAR ;Get a key2110 CMP #$1B ;Is it ESC?2120 BNE CPJ%}4 ;If not, go on2130 ;2140 PLA ;Clear stack of2150 PLA ;return addr.2160 JMP MAIN.MENU217%}0 CPJ42180 CMP #$9B2190 BEQ END.OF.LINE2200 ;2210 CMP #$7E ;Backspace2220 BNE CHK92230 ;2240 TA%}X 2250 DEY 2260 LDA #$002270 STA BUFF1,Y2280 TXA 2290 CPY #$FF ; Limit cursor %} travel2300 BEQ KEYBD.INP2310 ;2320 JSR PRINT.CHAR2330 JMP GET.KEY2340 ;2350 CHK92360 CMP #$3A %} ; Is it >9?2370 BCS GET.KEY ; If so, go back2380 ;2390 CMP #$30 ; Is it <0?2400 BCC GET.KEY ; If so, go b%}ack2410 ;2420 CPY $CF ;Check inp limit2430 BNE DO.BUFFR2440 ;2450 LDA #$9B2460 JMP END.OF.LINE2470%} ;2480 DO.BUFFR2490 JSR PRINT.CHAR2500 STA BUFF1,Y ; Store digit in ASCII buffer2510 I%}NY 2520 JMP GET.KEY2530 ;2540 END.OF.LINE2550 JSR PRINT.CHAR2560 LDA #$00 ;Set up FR02570 STA $F225%}80 STA $F32590 LDA #$052600 STA $F42610 JSR AFP ; ASC -> FP2620 JSR FPI ; FP -> INT2630 %}LDA $D4 ; Get lo-byte2640 STA $CB2650 LDA $D5 ; Get hi-byte2660 STA $CC2670 RTS 2680 ;2690 ;---%}------------2700 ; I/O ROUTINES2710 ;---------------2720 GET.CHAR2730 STY $CD ;Save Y2740 OS.MOD.12750 JSR %}KGB ;Get char2760 CMP #$A0 ;Inverse video?2770 BCC NO.INV.VIDEO2780 ;2790 EOR #$80 ;Fix inv. video% }2800 NO.INV.VIDEO2810 LDX #$00 ;Disable inverse video key2820 STX INVFLG2830 LDY $CD %!} ;Restore Y2840 RTS 2850 ;2860 PRINT.CHAR2870 STY $CD ;Save Y2880 OS.MOD.22890 JSR OUTCHAR ;Print ch%"}ar2900 LDY $CD ;Restore Y2910 RTS 2920 ;2930 ; ------ TEXT --------2940 ;2950 MENU.TEXT2960 .BYTE "}",%#}EOL2970 .BYTE " Ӡ"2980 .BYTE "˯",EOL,EOL2990 .BYTE EOL,EOL,EOL3000 .BYTE " DOSPOKE"%$},EOL,EOL3010 .BYTE " DOSPEEK",EOL,EOL3020 .BYTE " EXIT TO DOS",EOL,EOL3030 .BYTE "Your choice: ",EOL304%%}0 DOSPOKE.TEXT3050 .BYTE "}",EOL3060 .BYTE "Poke the integer:",EOL,EOL3070 .BYTE "Into the address:",EOL,EOL,E%&}OL3080 .BYTE "Press to exit",EOL3090 DOSPEEK.TEXT3100 .BYTE "}[Press to abort input]",EOL,EOL3110 .BY%'}TE "Peek address:",EOL,EOL3120 .BYTE "Holds number:",EOL,EOL,EOL3130 .BYTE " Main menu",EOL,EOL3140 .BYT%(}E " Re-run DOSPEEK",EOL3150 *= $02E03160 .WORD STARTCODE3170 .END %)} .WORD STARTCODE3170 .END $7KL0GHGSPITCLENGTDELADQA1A2A3AZOKOK1MARYENPERCENFLAQNUPQA)+} ),}PERIODIC MADNESSBY MARC LeBEAU$$(c)1988, ANTIC PUBLISHING INC.&&(D)-}O NOT RENUMBER THIS PROGRAM!!) A PAdAU1A@CAR@M @ W Av( ).} by MARC LeBEAU @06 (}3(%PERIODIC MADNESS6$ APLAY TUNE( @ )/}24( ( (((4( CHOOSE SKILL LEVEL:<j((( 1) SYMBOL ---> NAMEJ( 2) NAME ---> SYMBO)0}Lj( 3) NAME ---> MASSEAdAUF&6-F:Ad,&"AU@pK%"@16-@% A)1}P%"@06-@% AU%"@&6-@% AZ @pdDRAW PERIODIC TABLE i--(%)2} n--(%| | | |x--(% )3}--(%| | | | | | | | | |--(% --(%| | | |)4} | | | | | |--(%--(%| | | | | | | | | | | | | | | | | | |--(%)5}--(%| | | | | | | | | | | | | | | | | | |--(%--(%| | |)6} | | | | | | | | | | | | | | | |--(%( | | | | | |( --(% )7} --(% | | | | | | | | | | | | | | |--(% )8}--(% | | | | | | | | | | | | | | |"--(% '$, MUSIC 1 #Ap6%)9}%2@ "J2@@L1"12O):}-@T$ $F:Ad,"@3A`X=%29-@@= Y"A);}A`^ A h:AdAU72:$r<<102,40,76,60,76,65,85,15,68,65,85,40,76)<},65,102,65,0,50w55102,40,76,60,76,65,85,15,68,65,85,55,76,70,0,75|<<102,40,76,60,76,65,85,15,68,65,85,40,76,65,102,65,0)=},5066102,65,76,15,76,15,76,65,0,15,85,65,85,25,76,100INITIALIZE RR;@,;@,;@,;@,)>};@,;A,;A,267@,.X#67A,.267@,.6-6-'6-36-)?}?6-K6-\67@,.Wk67A,.z67@,.6-:%6-P:H:,$A%@)@},:7<,4XA03/6-@$+$@%+&@,,%A3#"A0"@1)A}6."@06."@&6.QUESTION SCREEN 'A@'A AR (} @)B} /(/( # CORRECT = # INCORRECT = (-@@(( % CORRECT = &A`ApA0)C}6-@@6( The symbol  stands for:5a-@@(1) 1-@@;(2) M-@@)D}W(3) a A:2-@@2(The symbol for  is:?a-@@(1) 1-@@;)E}(2) M-@@W(3) a AD/-@@/( The mass of  is:Ia-@@(1) )F}1-@@;(2) M-@@W(3) a AXGET ANSWER ]AdAUb&6-F:Ad,&)G}"AUAg++"@1)"@0)"@&A i Al: "6-%@06-P:+'+%,,$A,: A)H}Pv: 6-%@06-P:+'+%,,$A,: ACORRECT ANSWER SCREEN SA AT'A@)I}9AR@?(}I @ S A_%2@P@@9-@A= _2)J}=-@@(=67<,.>:@:7<,,%@,!!6-@&+P:B:,'@,,-@)K}(! -(X4!6-@/-@A /"@A A0INCORRECT ANSWER SC)L}REEN SA AT'A@9AR@?(}I @ S A_%2@P@@)M}9-@A= _2,-@@(,67<,.V!!6-@&+P:B:,)N}'@,,-@( -(X/-@A /"@A A0 FINAL SCREEN *)O} +@/&&(@ % CORRECT = %4@AP>@`A`H@0ApM )P}AR6-@@,(@ 6 A \5-@@+(@Ġ5 A f?-@)Q}@5(@better work harder? A p--@@-(@ z-@@-(@)R} ?-@@W(@ i-@@~(@䮮 A > A-@)S}@>(@٠ΠٯΩAdAU&6-F:Ad,&"AUA "@C+)T}%$"@5!AdAU$ A BREAK DISABLE 'A6Ai'A7A('A8)U}A3'A9@w'A@A'AA@d AgP:A6'AV,((AfA6&F:A)V}g,$AV$DATA STATEMENTS MARK,Q$,A1$,A2$,A3$,AZ,Y,X,,1,Ho,Hydrogen,Holmium,Hahnium,30,29,18!!2,)W}Chromium,Ch,Cr,Co,30,13,9**3,Rubidium,65.38,85.47,183.9,30,3,11**1,He,Hydrogen,Helium,Holmium,30,37,3$""2,Zirconiu)X}m,Zi,Zc,Zr,26,9,11.%%3,Gold,197.0,251,50.94,31,23,138((1,Sn,Tin,Sulfur,Strontium,31,29,11B2,Boron,Bo,Bn,B,26,27,5)Y}L%%3,Argon,4.003,222,39.95,26,37,7V--1,Si,Sodium,Silicon,Einsteinium,30,29,7`##2,Neptunium,Ne,Np,Nt,30,17,20j((3,F)Z}ermium,112.4,28.09,257,26,31,20t((1,U,Xenon,Mercury,Uranium,26,15,20~2,Zinc,Zi,Zn,Pb,30,25,9))3,Arsenic,74.92,204)[}.4,39.10,31,31,9001,Tc,Thulium,Tellurium,Technetium,26,15,112,Gold,Go,Au,Gd,30,23,13))3,Krypton,83.80,192.2,175)\}.0,31,37,9((1,Au,Astatine,Gold,Silver,30,23,13%%2,Einsteinium,Es,Ei,En,31,29,20%%3,Curium,152.0,247,145,30,23,20)]}111,Lr,Lawrencium,Lanthanum,Tungsten,31,37,20!!2,Magnesium,Mn,Ma,Mg,26,5,7&&3,Tin,118.7,35.45,9.012,31,29,11)))^}1,Ni,Nickel,Sodium,Nitrogen,31,21,92,Tin,Sn,Ti,Tn,31,29,11))3,Hydrogen,4.003,91.22,1.008,26,3,3 **1,Hf,Hahnium,H)_}afnium,Mercury,30,9,13""2,Thallium,Th,Tl,Tm,30,27,13''3,Sodium,47.90,101.1,22.99,26,3,7())1,Ga,Gallium,Germanium,G)`}old,31,27,92 2,Erbium,Er,Eb,Em,31,31,18<))3,Scandium,98.91,44.96,12.01,30,7,9F++1,N,Nickel,Nitrogen,Neodymium,30,31)a},5P""2,Phosphorus,P,Ph,Ps,31,31,7Z))3,Gallium,69.72,131.3,19.00,31,27,9d//1,Dy,Polonium,Uranium,Dysprosium,26,27,18)b}n 2,Selenium,Se,S,Sl,31,33,9x**3,Niobium,92.91,58.93,207.2,31,11,11))1,Ba,Boron,Beryllium,Barium,26,5,13$$2,Gad)c}olinium,Ga,Gd,Ag,30,23,18++3,Antimony,106.4,157.2,121.8,26,31,11&&1,Na,Nitrogen,Sodium,Neon,30,3,7 2,Nitrogen,Ni)d},Ng,N,26,31,5++3,Promethium,200.6,78.96,145,26,17,18--1,Tm,Thulium,Titanium,Thallium,31,33,182,Radium,Rd,R,Ra,2)e}6,5,15))3,Lutetium,175.0,259,35.45,31,37,18((1,H,Helium,Hahnium,Hydrogen,26,3,32,Nickel,N,Ni,Au,30,21,9++3,)f}Thallium,4.003,106.4,204.4,26,27,13((1,Ca,Carbon,Calcium,Cadmium,30,5,9 2,Silver,Si,Ag,Sv,30,23,11//3,Protactini)g}um,132.9,231.0,192.2,30,13,20**1,Zr,Zinc,Zirconium,Actinium,30,9,11"2,Iron,Fe,Ir,Pb,31,17,9,**3,Mendelevium,210,2)q}B%DOS SYSB*)DUP SYSB@SBARNABY BASBDISPOZONDOCBDOC TXTB HELP BASB HERTZ BASBMENU BMINIMON EXEB>MINIMON M65B*PERIODICBASBPROFILE M65B PROFILE1BASBPROFILE2LSTB PROFILE3BASBPROFTESTBASBpSHUTDOWNBAShjTAX88 SC 58,168.9,30,33,206..1,Nd,Neodymium,Sodium,Neptunium,31,15,18@ 2,Fluorine,F,Fl,Fr,31,35,5J((3,Helium,10.81,28.09,4.0)r}03,26,37,3T221,Mn,Magnesium,Mendelevium,Manganese,26,15,9^2,Thorium,W,T,Th,26,11,20h**3,Magnesium,24.31,58.71,35.4)s}5,31,5,7r,,1,Sr,Strontium,Sulfur,Samarium,31,5,11|$$2,Molybdenum,Mo,Ml,My,31,13,11))3,Titanium,55.85,195.1,47.90,26)t},9,9**1,Ce,Chlorine,Cesium,Cerium,26,11,182,Potassium,Po,P,K,26,3,9++3,Germanium,131.3,72.59,55.85,30,29,9,,)u}1,At,Astatine,Actinium,Silver,31,35,132,Krypton,K,Kr,Ky,30,27,9--3,Molybdenum,95.94,44.96,20.18,31,13,11//1,Ge)v},Gallium,Germanium,Gadolinium,30,29,92,Osmium,O,Os,Om,30,17,13**3,Tellurium,127.6,178.5,223,31,33,11((1,F,Iron,)w}Fluorine,Francium,30,35,5 2,Uranium,U,Ur,Un,31,15,20))3,Samarium,95.94,150.4,222,30,19,18,,1,Yb,Yttrium,Erbium,Y)x}tterbium,26,35,182,Indium,I,Id,In,26,27,11))3,Hafnium,78.96,112.4,178.5,26,9,13&111,Rf,Rutherfordium,Ruthenium,R)y}adium,31,9,150 2,Tantalum,T,W,Ta,26,11,13:''3,Lead,207.2,118.7,72.59,31,29,13D))1,Cs,Selenium,Cesium,Copper,30,3,13)z}N!!2,Rhodium,Ro,Rd,Rh,26,19,11X**3,Uranium,186.2,144.2,238.0,26,15,20b//1,Eu,Erbium,Einsteinium,Europium,26,21,18l){}$$2,Lawrencium,Lr,La,Lw,31,37,20v))3,Nobelium,35.45,126.9,259,26,35,20//1,Tl,Tantalum,Tellurium,Thallium,26,27,13!)|}!2,Strontium,St,S,Sr,26,5,11((3,Lithium,22.99,6.941,1.008,30,3,5&&1,Ti,Tin,Terbium,Titanium,26,9,9 2,Chlorine,C)}},Ch,Cl,26,35,7**3,Aluminum,26.98,69.72,114.8,31,27,7%%1,Ag,Silver,Gold,Argon,31,23,11!!2,Hahnium,Ha,Hh,Hn,31,11,1)~}5**3,Vanadium,91.22,50.94,69.72,30,11,9//1,Bk,Bismuth,Beryllium,Berkelium,26,25,202,Cesium,Ce,Cs,Cu,30,3,13-)}-3,Technetium,98.91,54.94,14.01,31,15,11''1,Cu,Copper,Curium,Cerium,31,23,9!!2,Lanthanum,La,Ln,L,31,7,13 ))3,Iodi)}ne,35.45,79.90,126.9,26,35,11--1,Fm,Francium,Fluorine,Fermium,26,31,20 2,Sulfur,S,Su,Sl,31,33,7*))3,Europium,195.)}1,152.0,243,30,21,184551,Es,Europium,Einsteinium,Protactinium,30,29,20>2,Arsenic,Ar,A,As,26,31,9H))3,Tantalum,92.9)}1,180.9,262,30,11,13R//1,Cl,Calcium,Chlorine,Californium,30,35,7\!!2,Platinum,Pl,Pt,W,30,21,13f**3,Bismuth,209.0,121)}.8,74.92,31,31,13p,,1,W,Platinum,Fermium,Tungsten,26,13,13z&&2,Praseodymium,Pr,Pa,Pd,31,13,18((3,Neptunium,145,237.)}0,254,30,17,20..1,Nb,Neptunium,Niobium,Nobelium,30,11,11!!2,Aluminum,Al,Am,Sb,31,27,7))3,Lawrencium,222,175.0,260)},26,37,20//1,Am,Aluminum,Americium,Actinium,30,21,20!!2,Lutetium,L,Lt,Lu,26,37,18**3,Beryllium,9.012,24.31,40.08,)}31,5,5++1,Xe,Xenon,Uranium,Plutonium,31,37,11""2,Tellurium,T,Tl,Te,26,33,11))3,Silicon,12.01,28.09,72.59,30,29,7)}((1,Ra,Radium,Radon,Rubidium,31,5,152,Silicon,S,Si,Sc,30,29,7**3,Chromium,183.9,95.94,52.00,26,13,9 &&1,Pb,Pa)}lladium,Tin,Lead,26,29,13 ""2,Germanium,Gr,Ge,Gm,30,29,9 **3,Selenium,16.00,32.06,78.96,26,33,9$ **1,Ar,Americium,Ars)}enic,Argon,26,37,7. ##2,Americium,Am,Ar,Ac,31,21,208 ,,3,Ruthenium,55.85,190.2,101.1,26,17,11B 331,Rh,Rhodium,Rutherfor)}dium,Ruthenium,31,19,11L ##2,Neodymium,Ny,Ne,Nd,26,15,18V &&3,Xenon,131.3,222,175.0,31,37,11` --1,Mg,Manganese,Magnesiu)}m,Mercury,30,5,7j !!2,Holmium,Ho,Hm,Hl,31,29,18t ++3,Gadolinium,197.0,157.2,247,30,23,18~ ''1,C,Copper,Carbon,Calcium,3)}0,29,5 !!2,Cadmium,Ca,Cd,Cm,30,25,11 ++3,Tungsten,183.9,95.94,52.00,31,13,13 ))1,Cr,Carbon,Curium,Chromium,26,13,9)} 2,Neon,N,No,Ne,26,37,5 ))3,Polonium,210,127.6,78.96,31,33,13 ''1,Co,Copper,Cobalt,Carbon,30,19,9 2,Sodium,Na,S)},So,31,3,7 **3,Plutonium,192.2,244,150.4,30,19,20 ,,1,La,Lead,Lanthanum,Lawrencium,30,7,13 &&2,Protactinium,Pa,Pr,Pt)},31,13,20 --3,Rutherfordium,257,178.5,91.22,31,9,15 ,,1,Y,Yttrium,Ytterbium,Tungsten,31,7,11 2,Copper,Co,Cp,Cu,26,)}23,9 ''3,Boron,10.81,26.98,69.72,31,27,5 //1,Np,Neptunium,Niobium,Neodymium,31,17,20 ""2,Antimony,An,Sb,At,30,31,11)}( ,,3,Phosphorus,14.01,30.97,74.92,30,31,72 --1,Be,Berkelium,Beryllium,Bromine,30,5,5< 2,Gallium,Ga,Gl,Gu,31,27,9F ++)}3,Manganese,186.2,98.91,54.94,26,15,9P ((1,O,Osmium,Nobelium,Oxygen,26,33,5Z 2,Hafnium,Ha,Hf,Hn,30,9,13d ))3,Bromine)},126.9,79.90,35.45,30,35,9n ((1,Ne,Nickel,Neon,Neodymium,30,37,5x ##2,Palladium,Pd,Pl,Pa,31,21,11 **3,Rhodium,58.93,10)}2.9,192.2,30,19,11 ))1,Fe,Fluorine,Iron,Francium,30,17,9 $$2,Dysprosium,Dy,Ds,Dp,31,27,18 &&3,Cesium,223,132.9,85.47)},30,3,13 ''1,S,Sodium,Sulfur,Silicon,30,33,7 2,Cobalt,Cb,Ct,Co,26,19,9 **3,Terbium,158.9,200.6,112.4,31,25,18 00)}1,Te,Tellurium,Technetium,Terbium,31,33,11 2,Oxygen,O,Ox,Oy,31,33,5 **3,Rhenium,186.2,98.91,54.94,31,15,13 ++1,Ha)},Hafnium,Iridium,Hahnium,26,11,15 2,Bromine,B,Br,Bo,30,35,9 ''3,Astatine,126.9,210,259,30,35,13 ++1,Hg,Mercury,Haf)}nium,Holmium,31,25,13 2,Yttrium,Yt,Y,Ym,30,7,11 **3,Americium,243,152.0,195.1,31,21,20" ''1,Br,Boron,Bromine,Barium)},30,35,9, !!2,Rubidium,Rb,Ru,Rd,31,3,116 ))3,Hahnium,92.91,180.91,262,26,11,15@ ,,1,Os,Osmium,Tantalum,Astatine,31,17,1)}3J %%2,Mendelevium,Me,Mn,Md,26,33,20T ((3,Carbon,12.01,28.09,72.59,31,29,5^ ))1,In,Indium,Iodine,Iridium,31,27,11h )}2,Iodine,I,Io,Id,31,35,11r ((3,Sulfur,16.00,32.06,78.96,30,33,7| ((1,Zn,Zinc,Zirconium,Nickel,31,25,9 !!2,Rhenium,Re,R)}h,Rn,31,15,13 &&3,Iron,55.85,101.1,190.2,31,17,9 ..1,Se,Scandium,Selenium,Strontium,30,33,9 ##2,Berkelium,Be,Bk,Bl,3)}0,25,20 --3,Palladium,59.83,106.4,207.19,30,21,11 //1,Kr,Potassium,Molybdenum,Krypton,26,37,9 !!2,Actinium,At,Ac,An,)}30,7,15 ((3,Barium,137.3,87.62,40.08,31,5,13 ,,1,Pd,Lead,Plutonium,Palladium,26,21,11 ""2,Ytterbium,Yt,Y,Yb,26,35,18)} --3,Dysprosium,114.8,162.5,204.4,30,27,18 --1,Sm,Sodium,Samarium,Strontium,30,19,18 !!2,Tungsten,W,Tu,Tg,31,13,13)} ))3,Osmium,55.85,101.1,190.2,26,17,13 //1,Er,Einsteinium,Europium,Erbium,26,31,18 !!2,Mercury,Me,Mc,Hg,26,25,13& $$)}3,Radon,260,222,175.0,30,37,130 331,Pt,Protactinium,Plutonium,Platinum,26,21,13: 2,Hydrogen,Hy,H,Hd,30,3,3D **3,Nitro)}gen,12.01,10.81,14.01,26,31,5N ''1,Li,Lead,Lutetium,Lithium,26,3,5X 2,Vanadium,V,Va,Vn,31,11,9b **3,Chlorine,19.00,35)}.45,79.90,30,35,7l 441,Cf,Californium,Francium,Mendelevium,31,27,20v $$2,Technetium,Tc,Te,Th,31,15,11 ((3,Cobalt,192.2)},102.9,58.93,26,19,9 //1,K,Krypton,Praseodymium,Potassium,26,3,9 2,Radon,R,Ra,Rn,26,37,13 ))3,Silver,197.0,107.9,6)}3.55,30,23,11 661,Pr,Phosphorus,Promethium,Praseodymium,26,13,18 2,Bismuth,B,Bm,Bi,26,31,13 ++3,Lanthanum,138.9,88)}.91,44.96,31,7,13 //1,No,Nobelium,Nitrogen,Neptunium,31,35,20 2,Carbon,Ca,C,Co,30,29,5 ((3,Holmium,254,164.9,118.7)},30,29,18 001,Md,Thorium,Thallium,Mendelevium,26,33,20 ##2,Ruthenium,Ru,Rt,Rn,31,17,11 **3,Iridium,58.93,102.9,192.2)},26,19,13 **1,Rb,Rubidium,Radium,Rhodium,31,3,11 2,Calcium,Ca,Cl,C,31,5,9 ((3,Francium,85.47,132.9,223,26,3,15 ))})1,Ir,Iodine,Iridium,Indium,30,19,13* 2,Scandium,S,Sc,Sa,30,7,94 **3,Berkelium,247,158.9,112.4,31,25,20> 331,Po,Prot)}actinium,Polonium,Potassium,30,33,13H !!2,Polonium,Pl,P,Po,26,33,13R ((3,Oxygen,78.96,32.06,16.00,26,33,5\ ))1,B,Beryll)}ium,Boron,Bismuth,30,27,5f 2,Lithium,Li,Lt,Lm,31,3,5p ((3,Nickel,106.4,58.71,10.81,30,21,9z ,,1,Al,Aluminum,Antimony,)}Holmium,31,27,7 !!2,Europium,E,Er,Eu,26,21,18 ++3,Strontium,87.62,40.08,24.31,31,5,11 221,Pm,Promethium,Potassium,Pa)}lladium,31,17,18 2,Titanium,Tt,Ta,Ti,26,9,9 **3,Cadmium,65.38,112.4,200.6,30,25,11 ))1,Tb,Lead,Tantalum,Terbium,26)},25,18 !!2,Terbium,Te,Tb,Tr,30,25,18 ))3,Cerium,50.94,92.91,140.1,26,11,18 001,Ta,Tantalum,Titanium,Technetium,31,11)},13 2,Lead,Le,Pb,Ld,30,29,13 ))3,Erbium,167.3,209.0,126.9,31,31,18 --1,Ac,Arsenic,Actinium,Americium,30,7,15 !!)}2,Beryllium,Be,Br,By,31,5,5++3,Platinum,58.71,106.4,195.1,26,21,13++1,Rn,Rhenium,Ruthenium,Radon,26,37,13!!2,Niob)}ium,Ni,Nb,No,30,11,11$((3,Radium,226.0,137.3,87.62,31,5,15.**1,Sc,Silicon,Scandium,Silicon,30,7,98!!2,Astatine,As,A,)}At,26,35,13B**3,Californium,251,227,107.9,31,27,20L331,Re,Rhenium,Ruthenium,Rutherfordium,31,15,13V""2,Manganese,Mg,)}Ma,Mn,26,15,9`**3,Fluorine,19.00,35.45,10.81,31,35,5j**1,Cm,Curium,Cadmium,Calcium,31,23,20t!!2,Thulium,Th,Tm,Tl,30,)}33,18~**3,Potassium,22.99,39.10,85.47,30,3,9--1,Bi,Bromine,Bismuth,Berkelium,30,31,13$$2,Promethium,Pm,Pr,Po,31,17)},18((3,Copper,63.55,107.9,197.0,31,23,9,,1,As,Astatine,Arsenic,Antimony,30,31,9!!2,Fermium,Fe,Fr,Fm,26,31,20'')}3,Yttrium,88.91,138.9,227,31,7,11++1,Sb,Antimony,Lead,Palladium,31,31,11!!2,Francium,Fr,Fn,Fc,31,3,15))3,Indium,)}26.98,69.72,114.8,26,27,11,,1,Th,Thallium,Thorium,Thulium,30,11,202,Barium,B,Ba,Bm,30,5,13//3,Praseodymium,231.)}0,140.9,95.94,30,13,18--1,Cd,Tungsten,Cadmium,Lutetium,30,25,11  2,Curium,Cu,Cm,Cr,30,23,20&&3,Thulium,168.9,210,)}258,31,33,18))1,Fr,Fluorine,Iron,Francium,26,3,15(2,Helium,He,H,Hl,31,37,32((3,Actinium,88.91,137.3,227,26,7,15<)}**1,I,Iridium,Iodine,Titanium,30,35,13F2,Xenon,X,Xe,Xn,30,37,11P,,3,Einsteinium,254,207.2,164.9,31,29,20Z//1,P,P)}hosphorus,Potassium,Polonium,31,31,7d""2,Nobelium,No,Nb,Nl,31,35,20n((3,Thorium,232.0,260,180.9,31,11,20x771,Pu,Plut)}onium,Protactinium,Praseodymium,31,19,202,Argon,Ag,Ar,An,30,37,7,,3,Ytterbium,79.90,126.9,173.0,26,35,18441,Pa,)}Potassium,Palladium,protactinium,26,13,20&&2,Rutherfordium,Ru,Rt,Rf,26,9,15,,3,Neodymium,98.91,144.2,186.2,30,15,18)}++1,V,Iridium,Vanadium,Samarium,30,11,9%%2,Californium,Ca,Cf,Cn,30,27,20++3,Zirconium,47.90,91.22,178.5,30,9,113)}31,Ru,Ruthenium,Rutherfordium,Rhenium,31,17,11##2,Plutonium,Pu,Pl,Pt,31,19,20&&3,Zinc,26.98,65.38,88.91,30,25,9++)}1,Lu,Lanthanum,Lead,Lutetium,26,37,18""2,Samarium,Sm,Sa,Sr,31,19,18((3,Calcium,9.012,24.31,40.08,26,5,9441,Mo,Me)}ndelevium,Manganese,Molybdenum,26,13,11 2,Iridium,I,Ir,Id,30,19,13"&&3,Neon,20.18,39.95,83.80,31,37,5,001,Gd,Gadol)}inium,Gallium,Germanium,31,23,186 2,Cerium,Cr,Ce,Cm,30,11,18@**3,Mercury,200.6,112.4,65.38,31,25,13D1:PERIODIC)}.BAS?r,Ce,Cm,30,11,18@**3,Mercury,200.6,112.4,65.38,31,25,13D1:PERIODIC(00100 ; BASIC PROFILER SOURCE CODE0110 ; BY STAN LACKEY0120 ; (c)1988, ANTIC PUBLISHING INC.0150 ;0160 ; Definitions:0180-} TEMP1 = $CB ; Temps used in routines0190 TEMP2 = $CD0200 TEMP3 = $CF0210 STMCUR = 138 ; P-}ointer into user program0220 RAMTOP = 1060250 ;0260 *= $9F000270 ;0280 PROFEN0285 .BYT-}E 0 ; Flag to enable Profiler0290 ;0300 ; SAMPLE is the timer interrupt0310 ; routine. It take-}s the current0320 ; line number, divides it by 100330 ; and increments that 16-bit0340 ; location in the RAM above0345 ; -}RAMTOP.0350 ;0360 SAMPLE0365 LDA PROFEN ; Sense enable0370 BNE SPL10375 ;0380 PLA ; It's off...03-}90 RTI ; just return.0395 ;0400 SPL10401 TYA 0410 PHA ; Must save Y0420 LDY #00430 -}LDA (STMCUR),Y ; Get line #0440 STA TEMP10450 INY ; Point to high0460 LDA (STMCUR),Y0470 STA TEMP-}1+10480 BMI EXIT ; Exit if line0490 ; num is neg.0500 ; Now, divide line number by 100510 LDA -}# <20480 ; Divisor:0520 STA TEMP2 ; #10, Shifted0530 LDA # >204800540 STA TEMP2+10550 LDA #00560 -}STA TEMP3 ; Clear quotient0570 STA TEMP3+10580 LDY #11 ; Loop count0590 DIVLP0595 SEC 0600 LDA TEM-}P10610 SBC TEMP20620 STA TEMP4 ; 16-bit subtr,0630 LDA TEMP1+1 ; ddnd-dvsr0640 SBC TEMP2+10650 STA-} TEMP4+10660 CLC ; Init.0670 BMI NOBIT ; Shift 0 in0680 ; dvsr > ddnd0690 LDA TEMP4-}0700 STA TEMP1 ; ddnd > dvsr0710 LDA TEMP4+1 ; Copy new ddnd0720 STA TEMP1+10730 SEC ; Shift 1 -}in0740 NOBIT0745 ROL TEMP3 ; Shift into0750 ROL TEMP3+1 ; quotient0760 LSR TEMP2+1 ; Shift dvsr0770 R-}OR TEMP20780 DEY 0790 BPL DIVLP ; Loop next bit0795 ;0800 ; Result is left in TEMP3.0810 ; Add that result to -}RAMTOP.0820 ASL TEMP3 ; 2x result for0830 ROL TEMP3+1 ; 2-byte access0840 CLC 0850 LDA TEMP3+10860 -} ADC RAMTOP ; TEMP3 is now0870 ADC #4 ; the pointer0880 STA TEMP3+1 ; into the RAM.0890 LDY #00900 -}CLC 0910 LDA (TEMP3),Y ; Get cell to0920 ADC #1 ; increment0930 STA (TEMP3),Y0940 BNE EXIT ; If i-}nc. to 0,0945 ;0950 INY 0960 CLC 0970 LDA (TEMP3),Y ; incr high0980 ADC #1 ; half0990 STA (T-}EMP3),Y1000 BPL EXIT ; Test overflow1005 ;1010 LDA #0 ; Stop prof1020 STA PROFEN ; on overflow1030 -}EXIT1035 PLA 1040 TAY ; Restore Y1050 PLA ; and A1060 RTI ; End of SAMPLE1065 ;-}1070 TEMP41075 .WORD 0 ; Temp used in division ; and A1060 RTI ; End of SAMPLE1065 ;,B. BASIC PROFILER, PART 1BY STAN LACKEY(c)1988, ANT1}IC PUBLISHING(46-F:A,&@24RESERVE 8K FOR COUNTERS2AA@< +( Working...F41}-BB'4LOAD PROFILER INTO PAGE 9FP"  Z[[0,173,0,159,208,2,104,64,152,72,160,0,177,138,133,203,21}00,177,138,133,204,48,95,169,0ddd133,205,169,80,133,206,169,0,133,207,133,208,160,11,56,165,203,229,205,141,122,159,165,201}4,229nbb206,141,123,159,24,48,11,173,122,159,133,203,173,123,159,133,204,56,38,207,38,208,70,206,102x]]205,136,16,216,61},207,38,208,24,165,208,101,106,105,4,133,208,160,0,24,177,207,105,1,145UU207,208,15,200,24,177,207,105,1,145,207,16,5,1691},0,141,0,159,104,168,104,64,0,0SET UP TIMER INTERRUPT)A(@)VTIMR1 VECTOR LOW!A)AY!V1}TIMR1 HI&B7a&VOLUME TO ZERO$B7`AU$FREQ OF TMR1&B7iAU&TURN ON TIMERS"1}@A"SET TMINT1F(Done...((Next:(C(LOAD the program to be ProfiledF(;(8(ENTER >:@41},D:PROFILE2.LST>:@4,;(((RUND1:PROFILE1.BAS1};(((RUND1:PROFILE1.BAS01 REM BASIC PROFILER, PART II (c)1988, ANTIC PUBLISHING2 I=(PEEK(106)+4)*256:FOR J=I TO I+6551:POKE J,0:NEXT J:5}REM CLEAR COUNTERS3 POKE 40704,1:REM START PROFILING31000 POKE 40704,0:REM STOP PROFILING31010 ? "Done...":? :? "Next:":? 5}:? "RUN ";CHR$(34);"D:PROFILE3.BAS";CHR$(34)5};CHR$(34);"D:PROFILE3.BAS";CHR$(34)4 #$PgLVLVMATOTAFLAPCUPCJ@@ 9}  BASIC PROFILER, PART 3BY STAN LACKEY(c)1988, ANTIC PUBL9}ISHING(&B&STOP PROFILINGd*9A,9A,*LINE#, VALUEn6-6-s(Read9}ing Counters...t$$6-+F:A,%@,$AVx-AeP@READ EACH COUNTER%%6-F:%,%AV9}$F:%%@,"ApSAVE ALL NON-ZERO VALUES6-%@%68,-$@68,-%6-%9}  6-(TOTAL COUNTS = (IN  PROGRAM LINES( SORTING...ROUTINE SORTS ALL ENTRIES9}-@ -8, 8,A`!!EXCHANGE L&V VALUES TO SORT! 6-8,68,-8,!68,-! 6-8,9}68,-8,!68,-   (. | AP6-@())(LINECOUNTSPERCENTCUM PCT39}TOTAL COUNTS = 3))3LINECOUNTSPERCENTCUM PCT A6-##PRINT TOP 20 IF TO SCREEN,9} ORTOP 40 IF PRINTER IS ON%6-@ %@ $ %6-6--@6-8,'6-%9}&&6-+P:?P%B$,,'A&&6-+P:?P%B$,,'A&(8,8,038,8,: 9}D1:PROFILE3.BAS&&6-+P:?P%B$,,'A&(8,8,038,8,: 8!  B>PQW PROFTST TESTS PROFILER(;A,=};A,2<<6.2This is dummy text for the string copy timing testd-@An6-@'x 6-E:,=}6-%@ 6-$ 6. 6-B:,TIME TO SKIP OVER A REM,  D2:PROFTST=} 6-$ 6. 6-B:,TIME TO SKIP OVER A REM,  D2:PROFTST< KLT66MOAXYDTESXYWSMAMPPDSCLVDNUDLIRDCMOVCHCHMOV@@@A} A} SHUTDOWNBYA} TONY BARNES$$(c)1988, ANTIC PUBLISHING INC.%%(DO NOT RENUMBER THIS PROGRAM!) O +@AY) BA}3 BEAVARO B011;@ ,9@,9@,9@,H-@&68,-A}568,-D68,-@H  BdV -@@6?P.-&@A(@7<,VAFB}:@ ,ne-@ &3(@7@!&<@!&,O2@B@e2@sN )2B}K2@N$xD-@@%-&@6(@ )D-@B}&[(@) )AF:@ ,E2@B@[2@N )2B}K2@N$)6-%@!@)6-2 @2,8,8,'6-8,B}%8,218,!!!* @A ;@26-8,%68,-68,/@'8,8,;$X18,%@B},"@2)"@G56-8,B68,-68,L@'U,8,X$=%@%@$+8,"6@,.68,-:,8,B}8,=$K6-F:A2,$@w. AKF:B2y,@A /!@@,%6-/ AB} I @2,I6-%+ @,$+ @,&+!@,$+!, 1"AXAP@2B}6-11%@1"@2)"@GA !!!Ap* AuA!@A)6-%@B }!@)6- ] 6-+2@A@@7 @W@%&@$+"@,],5B }!@/@%&@$+"@,5,/%2@/ Ah -@6@B }<2@P@h2@%P:H:,$@,@D AY,%6-%@7-@@B }D(@$C6-&@/AA%+$@,C A!) ALa 6-+2@G@B }@M2@Ab@@aAsAPQ'1&@'"@GA VC @2,B}%@)6-&@3@9,CAs[%,%@ A% A`O6-&@@2),%@B}7,%@E6-&@O@e> ,A!,%@>-@6?0jO2@G@B};2@Ab@? E6-O A~AtA'1%@'"@GAp; @B}2,!6-%@+@1,;At%,%@ A% AU; @2,!6-%@+B}@1,;Af,%@.-@6?0J2@G@f2@Ab@B}  6- AAqAP/1&@%@/"@GA I @2,!,%@B}/6-&@9@?,IAq%,%@ A% AI @2,!,%@/6-&@B}9@?,IAf,%@.-@6?0J2@G@f2@Ab@B}  6- A/1%@%@/"@GApI @2,!,%@/6-%@9@B}?,IAr%,%@ A% API @2,!,%@/6-%@9@?,IAB}f,%@.-@6?0J2@G@f2@Ab@  6- AB} @2,6-T-@8(@ҠĠT-AAU@P2B}@@;2@@@PA F:@ ,8.@%@$+'@"P:'@,,4,8 B}Y-@327 E6-&@Y!A@c-AU@=2B}@'@%c2@%@@'@%%-AA! % a @)-B}AP@E2@@@a2@},'@%+/@'@%/ Q2B}s2@} B4U-@32@@GB}-AAMQ U 922#A!P%@ $+H:,$@!@,>C "'2@@@C2B }@@@C1-$@ 1AA!MT -@6@62@B!}J-AAPT RO 6-%@$%6-%@O+"@*",)"@A0WQ%2@B"}G2@Q A@f))64,162,4,96,162,4,64,162,4,96,162,4k++81,162,4,10B#}8,162,4,81,162,4,108,162,4p&&136,182,16,144,182,32,144,193,32z==47,64,4,0,0,2,64,81,4,0,0,2,81,96,4,96,153,16,108,144,4B$} 0,0,2,108,144,4,144,193,16 [-@7(@ΠŠIAA[A@RB%} d%2@B-@@6@LAX,d/@ O'2A@B&}@&K2@A@@&O  Y-@!@2-,@M/@&@$+ @B'},Y,@ W/@$+!@,',@3/W2A@@& \*2@F:B7pB(},@@&. 8@dJ,@\/@@ t%2G2@B)}YA@h6-F:A`,t6- o-@@+-@ P2F:B7p,B*}@@oA`%H:,$@ V 6-(AR%@$0,@@ B,@@ VAS%B+}@$ Q,@ @ ',@@ + 5@2A,@ M,@Q  %"6-@% A0B,} o-@@+-@ P2F:B7p,@@oA`%H:,$@ f 6-(B-}AR%@$0,@@ B,@@ T,@@ f,@@  cAS%@$),@ @B.} ;,@@ M,@@ _,@@ c  ) @2,@%,@)  OA`,-B/}@6?PK2F:B7p,@O  S6-%A@2-,@ ?/@@ SB0} @A@ X6-*6.welldone4 AFA @XA@P! W-AAUB1}52@'@%S2@@'@%W & %2G2@B2}S6-a6-%Am6-@{6-%@ A@_AAH'-6(@B3}}H-@@_(@ GET READY-A@)-A- oAY'AB4}9A@@KA Ar]A@oAP-@*(@score<-@B5}@P(@men Q-@QAAAA`AB ABAC@ADAD`MAYB6}@4=-AA%+$@,?IAM [-@PA32@@W2@B7}%@@@[ W%2G2@M6-W A!!( "B8}" IS [ESC][CTRL][TAB] )&&(@  &&(@@ @@@@/@ @/@@@@ &&(@ B9} &&(@@@/ / /@@@&&(@ &&(@ / @@@@/@ B:} "&&(@ '&&(@ @@@@@ @@@@/ ,&&(@ @ 1&&(@B;}@/@@@@@@@@@@@@@@@@@6l6-@6-@ '6-@ ;-@J68,-@Y68,-@h68,B<}-@l ;$@&&(@ @ E&&(@@@@@@@@@@@@@@/@@@@J&&(@ B=} O&&(@@// /@@ T&&(@ @@@@@ Y&&(@ / / /@@ ^&B>}&(@ / / c&&(@ / / /@ h&&(@@ m&&(@B?}@@/@@@@@@@@@@@/@/r6-@6-@'6-@<68,-@Q68,-@f68@,-@B@}{68@,-@ 68@,-@68@,-@w$|&&(@@@@@@@@@@@/ /@@&&(@ BA} @ &&(@@@@@/@@@@@@@@@@@/@@&&(@@ &&(@@@@@@@@@@@@BB}@@@@/@@@&&(@ @&&(@/@@@@@@/@@@@@@@/@&&(@ @ @ BC}&&(@ @ @ &&(@@@@@@/@@@@@@/@@@@6-@6-'6-@ <68BD},-@Q68,-@f68@,-@{68@,-@68@,-@68@,-@$&&BE}(@@ @@@@@@@&&(@@@@@@@/ / &&(@@ @/@@&&(@BF}@@/ / &&(@ / /@/ &&(@@/@@ /@&&(@ BG} &&(@@@/@ /@&&(@ / / &&(@@/@@@@@@@@ /@ @@/BH}6-@6-@ '6-@<68,-@Q68,-@f68@,-@{68@,-@BI}68@,-@68@,-@ $&&(@ &&(@ / /BJ}&&(@ @@@ @@@@ / &&(@ @@@@ @@@ &&(@  &&(@BK} @@@/@@@@@@@@@@@ &&(@ &&(@ / / &&(@ BL} !&&(@/ /&6-@6-'6-<68,-@Q68,-BM}@f68@,-@{68@,-@68@,-@68@,-@+$0&&(@ @ BN} 5&&(@@@/@@@@@/@@@@@/@@:&&(@ ?&&(@/@@@@@/@@/ /@@/BO}D&&(@ I&&(@@@@@//@@/@ @//@N&&(@ S&&(@BP} @@/@@/ @/@/@@/X&&(@ @ ]&&(@/@@@@/@@@@@@@@/ @b6-@6-@BQ}'6-@ <68,-@Q68,-@f68@,-@{68@,-@ 68@,-@6BR}8@,-@g$l&&(@/@@@@@@@@@@@@@@@ q&&(@ @@@/v&&(@/ / BS}/ / {&&(@ / /&&(@ / / &&(@ @/ @BT}&&(@ // /@@@@@ @&&(@ &&(@@ &&(@BU}@@@@@@@@@@@@@@@/@6-@6-@'6-@ <68,-@Q68,-@ f68@,-@BV}{68@,-68@,-@68@,-@$'v-$(@}6AYBW}@@R,@d,@v,@'g,@@1,@@C,@BX}@U,@@g,@@'KA @'A@9A@PKAY@4$'4BY}6.)))))))*6-@4 A)'46.)))))shut))down)))))*6-@4 A.'46.)))))BZ})))*6-@4 A3'33F:AD,")F:B2y,"@B8'F6-@*6.)))))4 AB[}FA@@P='5AF:@ ,5F:AD,"BB' F:A@,!BEG'`6. ̉B\}ʼn)67@,.=:,D67B:,%@,.N A`A@@PL'5AF:@ ,5F:AD,"B]}BQ' F:A@,!B`V' A  B@t'[6-@ A %6-@/ A ;6-@E AB^} Q6-@[ A y'B -@6@4-AA:> B ~'=6-6-@'6-B_}@36-= A@ N#AY#B#"*N--6-F:A`,%AV$F:Aa,%@4N'-@B`}"#%A5' >NB6-P:C:,'AV,*6-C:,&$AV6ABAHN6BBA!AV3Ba}AY@46$R;@g,R226.(H HЍ h@ lЍ h@R..67@A,. Ѝ h@Bb} h@gR$lR4,4,6,8,10Y;A,;@F,Y5AY!6-B56-AV$A$Y5;@ ,+Bc}6.h͑`5 BYA86..hhhhhhh`A6-C:,YEAAR'Bd}AA$36-?:C:,,EAY@4YK#6-?:UÇÇÇÇBg}u##67@i<@i,.>:@4,uCC67A!<A`,.(Ç$B$<~f<~fBf~<~fBf~B$uFC67Aa line F}61 enter AMOUNT YOU OWE.H65H@(Amt of line 62 to be applied toward '89.H64H@(Amount of line F}62 to be REFUNDED TO YOU.H63H@+If line 61 > line 53 enter amount OVERPAID.H62H---F}----------------------H---------------H@$------------------------------------H-H@)Add lines 54 throughF} 60. TOTAL PAYMENTS.H61H@$Regulated investment company credit.H60H@!Credit from FederaF}l tax on fuels.H59H@Excess social security tax.H58H@Amt paid with Form 4868.H57F}H@Earned income credit.H56H@1988 estimated tax pmts.H55H@Federal incomeF} tax withheld.H54H-------------------------H---------------H@$------------------------------------H-F}H@,Add lines 47 through 52. This is TOTAL TAX.H53H@*Tax on an IRA or qualified retirement planH52F}H@Social security tax on tips.H51H@Recapture taxesH50H@Alternative miF}nimum tax.H49H@Self Employment Tax (Sched SE).H48H-------------------------H---------------H@$-F}-----------------------------------H-H@Subtract line 46 from 40.H47 &H@Add lines 41 F}through 45H46H@!Credit for prior year minimum taxH45H@General business creditH44F}H@Foreign tax credit.H43H@Credit for elderly/disabled.H42H@Credit for CF}hild Care Expenses.H41H-------------------------H---------------H@$------------------------------------H- &F}H@Add lines 38 and 39.H40H@-Additional taxes from Form 4970 or Form 4972.H39F}H@3Enter tax from table, rate sched, or Form 8615 etc.H38H@*TAXABLE INCOME. Subtract line 36 from 35.HF}37 APH@+Multiply $1950 by the number of exemptions.H36H@Subtract 34 from 32.H35F}H@ITEMIZED DEDUCTIONSH34H@%Add # of boxes checked and enter hereH33aH@(Amt froF}m line 30 (adjusted gross income)H32H=========================H===============H@$==================================F}==H=H@1Subtract line 30 from 23. ADJUSTED GROSS INCOME.H31H-------------------------H-----------F}----H@$------------------------------------H- &H@&Add lines 24 - 29. TOTAL ADJUSTMENTS.H30F}H@ Alimony paidH29H@&Penalty on early withdrawal of savingsH28H@ Keogh retirementF} & SEP deductionH27H@(Self-employed health insurance deductionH26H@Spouse's IRA deductF}ionH25bH@Your IRA deductionH25aH@%Reimbursed employee business expense.H24H-----F}--------------------H---------------H@$------------------------------------H- &H@&TOTAL INCOME (Add lF}ines 7 through 22).H23H@ Other incomeH22H@Taxable amount, if anyH bF}H@Social security benefitsH21aH@Unemployment compensation.H20H@Farm income (attachF} Sched F)H19H@&Rents, royalties, etc (attach Sched E)H18H@Total Pensions & annuF}itiesH17aH@Total IRA distributionsH 16aH@Other gains (losses)H15F}H@(Capitalgain distributions not on line 13H14H@#Capital gain (loss)(attach Sched D)H13F}H@&Business income (loss)(attach Sched C)H12H@Alimony received.H11H@0Taxable refuF}nds of state and local income taxes.H10H@+Dividend income. (attach Sched B if > $400)H9HF}@Tax-exempt interest income.H8aH@2TAXABLE interest income (attach Sched B if > $400)H8F}H@Wages, salaries, tips, etc.H7@H@!Enter total number of exemptions.H6F}@@H hereHQ) Enter filing status number hereQAPH@&QUALIFYING WIDOW(er) w/F}dependent childH5ADH@HEAD OF HOUSEHOLD.H4A%H@MARRIED FILING SEPARATE RETURN.H3F}APH@MARRIED FILING JOINT.H2A0H@SingleH1H@ Filing StatusH@'1988 Income Tax SF}preadsheet: Form 1040@SingleH1H@ Filing StatusH@'1988 Income Tax SD5?.