@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 @AK8 QAQK < > - T}+D:WEFAX. D:PICTURE (F)ULL OR (M)ICRO? SAVING WEFAX PICTURE LOADING PICTURE SAVE WEFAX U}1 OR 2? &! LOAD WEFAX 1 OR 2? pppI#O#Fx A$!((x*ǍXLm-!'  0(`OV} ȭ ii i@ i `xI `M)    i  i  )  8     )W}  8 逍    )    i  i (` 8()xii8`X} 8xIii ʼnň I 8`G F K J 88R Q OY} P U N T `,M N I1(N T T `J iJ K i)*K K M J L NN N S T iZ}i`N S T K J P Q R P `O P F iF G iG Q i@Q R iR Q R G I F H U `Pҩ[}ҍҭb ҭc ҩ…`U `HHU   ) )hhh@ P BD*+ EHI V`PBJKL\}+P:D+E VP B?D EHI V䩯   ; + i  i 8    ٢P B V`P B]}DD EHI VP BHD EHI VH  I    *8@+,8      ө ^} *`/ (  8  (!1$0 4"/`   /8 i  i_} 8ޭ H ,  h ,  `H)JJJJ ,h)i0 ` O W, e L ,- M  W, j `}b c  W, s d 8 x `PARK<>+-123ICLS---.#.7.b.K.y...+)(0. , ,@BJa}KL-K:D-E VU a(@B0D-EHI V0-@-L- -L- P-HO-H`-.U *L+T `U b} J K L)U *`O O O L,8L L M M L,L iL M iM L,8b b c c ,L*b ib c ic ,Lc}*Z b [ c ` L a M ,L*X b Y c ^ L _ M ,L*V b W c \ L ] M ,L* * 8 x ./@B0Dd}-EHI V0-ML/FL/L, 8 x 0BJKD E V 0 B VL,(!)!  I0-e}0 B0D-EHI V (i@i и0-1-2-3-0 B0D-EHI V0 /0B VLf}, 8 x @B0D-EHI V0-12ɭ0- 0BJKD E V 0 B VL, 8 x 0g} BD8EHxI V0 B VL, * 8 x @B0D-EHI V0-12L,0- 0BJ0B1h}KD E V!8 x 0 B VL, 8 x 0BD8EHxI V0 B VL,(0BJ0B1ldX;D1:FAX.M65nX; By Patrick Bassx X; (c) 1986, Antic PublishingX; version 052886AAtari WEFAXA PASS j}>D1:SYSEQU.M65>D1:IOMAC.LIB PASS!TOTALCODEENDCODESTARTCODEEIEK>D1:FAXA.M65I E k}NDCODE STARTCODE"EI, PASS!TOTALCODEENDCODESTARTCODEEIEK>D1:FAXA.M65I E %^4dX;D1:FAXA.M65nX;By Patrick BassxX;(c) 1986, Antic PublishingX;Included from D:FAX.M65X; ADD.W ,Q m} O>4 P  Q  O>5  P X; SUB.W ;Q  S>4 "P , Q 6 S>5 @ P Jn}TX;^ LEA.W h Q>5 r P | Q>4 P X; MOVE.B Q P X; MOVE.W MOVE.B = o}MOVE.B = X; POKE  Q>4 P &0X;: ALSO DP NXX;b WRITE l$>v@PLCp}Q 9;S> P 90 I@PLCX; MOVEM $>@AAQ 9P 92 (> D@AA *X;4X;---q}-- Constants ------> UPH DOWNR LEFT\RIGHT;;Joystick dirsfPRINTER;;Die SchriberpDISK;;The disr}kman!zWRITE;;Schriben SieREAD;;Sehen SieKEYBOARD;;Eine tapperBLANK1;;Dlist equates BLANK8p s}LMS@ MODEFO JMPWTACH;;where keys sitPIXSTART;;status valuesPIXDRAWPIXOVERGHOSTt},;;BOO!ORINCOLORRANDOM IRQEN;;HardwareSDMCTL/;;DMA Shadow$STICK0x;;Stick shadow.AUDCTLu};;Audio Control8POKMSK;;IRQEN shadowBCOLOR0;;soft shadowsLCOLOR1COLOR0VCOLOR2COLOR0`COLORv}3COLOR0jCOLOR4COLOR0tATRACTM;;It's atractive~PORTA;;Outside World.NE.PORT;;...in a storm.w}AUDF1;;Hard sound. AUDC1Ҧ AUDF2Ұ AUDC2ҺSDLSTL0;;Dlist shadowVTIMR4;;Timer4 shadowSTx}IMER ;;Hard time.ATARIEOLEOL;;ATARI EOL ESCCR ;;Honest CRX; TOTAL.COLUMNS;;512TIMEy}R.DELAYQ;;06F2BYTES.PER.LINE@(NUM.SCAN.LINES2SCAN.LINES.ONSCREEN<BPLBYTES.PER.LINEFNSLNUM.SCAz}N.LINESPSLOSCAN.LINES.ONSCREENZSCREEN8dSCRSIZENSLBPLn!SCREENENDSCREENSCRSIZEx$PRINTSTARTSCREEN{}SCRSIZEBPLX; X;----- Reserved Memory -----POINTER.A COUNTER.A POINTER.B COUNTER.B|} POINTER.C COUNTER.C POINTER.D COUNTER.D X; DECIMAL == XINDEX  }}YINDEX "OREDCOLOR ,INVMASK ;;Inverso-matic6HIGHFLAG @TEMP ;;Used somewhereJMLADDR ;;ModeLine AddrT~}DISPLAY ;;From the top^HORIZ.COUNT hVERT.COUNT rHORIZ.LIMIT BPL(|VERT.LIMIT STICK ;;Shadow}-our-ownX;PSTARTADR PRINTROW PRINTCOL  BUFFER ======== =======}=!IPMESS ESC=A@A=ESC=AAA=PPMESS ESC=AKAX;CURRROW NUMROW NUM.SCAN.LINESCURRCOL NUMCO}L TOTAL.COLUMNSCOLMASK &COLSKIP 0SKIPCOUNT :STARTADR SCREENDSPEEDADJ NADJCOUNT X STATUS b}MICROM  lTWOPER TIMER.DELAYvONEPER ;;$0EA9MICROROW ATWOLINEROW TOTAL.COLUMNSONELINEROW TOTAL.CO}LUMNSTIMERCOUNT TIMER.DELAYX; ST.LINE AK A A < >A A - +A TEXT.LINE! ======}===! =========! =========X;  FILENAME AD:WEFAX.A FILENAME.X*} A A=ATARIEOL=4 MFILENAME> AD:PICTUREA=ATARIEOL=H TYPEMESSR A (F)ULL OR (M)ICRO? A\SAVINGMESSf ASAVING} WEFAX PICTUREApLOADERMESSz A LOADING PICTURE A SAVEMESS A SAVE WEFAX 1 OR 2? A LOADMESS A LOAD WEFAX }1 OR 2? A BLANKMESS A AX;X;------------------------- DLIST BLANK8=BLANK8=BLANK8 S}UBDL SLO  BLANK1 LMS  TEXT.LINE X;$ JMPWT. DLIST8 X;B X;-------------------------L (V }STARTCODE` -j =t $>~ B LEA.W PLOTDATA=VTIMR4 . !MAIN X; "X;- - - - - - - - - - - - - - - BUILD.LIST }LEA.W SUBDL=POINTER.A MOVE.W DISPLAY=MLADDR $>SCAN.LINES.ONSCREEN BL1  BUILD.MODE.LINE 0 HBL1 X; }: X;( X;-------------------------2 BUILD.MODE.LINE< %>F Q>MODEFP P@POINTER.A7Z 3d QMLADDRn P@POINTER.A7x 3} QMLADDR P@POINTER.A7 ADD.W POINTER.A= ADD.W MLADDR=BPL : X; X;------------------------- SCROL}L QSTICK0 N> PSTICK HTRY.RIGHT : X; TRY.RIGHT PATRACT" M>RIGHT, FTRY.LEFT6 X;@ QHORIZ.COUNTJ R}HORIZ.LIMITT FTRY.LEFT^ X;h #HORIZ.COUNTr ADD.W DISPLAY=| TRY.LEFT QSTICK M>LEFT FTRY.UP X; QHORI}Z.COUNT FTRY.UP X; "HORIZ.COUNT SUB.W DISPLAY= TRY.UP QSTICK M>UP FTRY.DOWN X; QVERT.COUNT }FTRY.DOWN& X;0 "VERT.COUNT: SUB.W DISPLAY=BPLD TRY.DOWNN QSTICKX M>DOWNb FFIXDLl X;v QVERT.COUNT RV}ERT.LIMIT FFIXDL X; #VERT.COUNT ADD.W DISPLAY=BPL FIXDL  BUILD.LIST : X; X;---------------------}---- CLEAR.SCREEN POKE INVMASK= LEA.W SCREEN=POINTER.B LEA.W SCRSIZE=COUNTER.B CLS1 %> C* P@}POINTER.B74 ADD.W POINTER.B=> SUB.W COUNTER.B=H ECLS1R X;\ :f X;p X;-------------------------z INV.SCREEN} POKE HIGHFLAG= LEA.W SCREEN=POINTER.B LEA.W SCRSIZE=COUNTER.B INV1 %> Q@POINTER.B7 N> P@}POINTER.B7 ADD.W POINTER.B= X; QHIGHFLAG HINV2 X;QPOINTER.BRPOINTER.C DINV2$X;.QPOINTE}R.B8RPOINTER.CB DINV2LX;V #HIGHFLAG` QINVMASKjN>t PINVMASK~INV2SUB.W COUNTER.B= EINV1X;:}X;X;-------------------------INITFAXMAPLEA.W =CURRROWLEA.W =CURRCOLLEA.W SCREEN=POINTER.C}LEA.W SCREEN=STARTADRMOVE.B COLSKIP=SKIPCOUNTPOKE STATUS=PIXDRAW POKE COLMASK=POKE ADJCOUNT=}:(X;2X;-------------------------< GETPOINTF QPORTAP IPLT0ZX;dQ>n GHOSTxPLT0Q> NINVMASKX;}6%> QCOLMASKN>M@POINTER.C7P@POINTER.C78 FPLT1X; QCOLMASKL@POINTER.C7P@POINTER.C7}PLT1" QADJCOUNT,FPROCESS.POINT6X;@ "ADJCOUNTJ:TX;^X;- - - - - - - - - - - - -hPROCESS.POINTrADD.W CU}RRCOL=|QCURRCOLRNUMCOL DPRO1X; QCURRCOL RNUMCOL EPRO2PRO1 VCOLMASK HPRO1XX;PO}KE COLMASK=MOVE.B SPEEDADJ=ADJCOUNTADD.W POINTER.C= PRO1X:X;- - - - - - - - - - - - -&PRO20}POKE COLMASK=:MOVE.B SPEEDADJ=ADJCOUNTDLEA.W =CURRCOLNQSKIPCOUNTX FPRO3bX;l MOVE.W STARTADR=POINT}ER.Cv"SKIPCOUNT:X;X;- - - - - - - - - - - - -PRO3MOVE.B COLSKIP=SKIPCOUNTADD.W CURRROW=AD}D.W STARTADR=BPL MOVE.W STARTADR=POINTER.CQCURRROWRNUMROW DPRO4X; QCURRROW RNUMROW  DPRO4}X; POKE STATUS=PIXOVER*PRO44:>X;HX;--------------------------RSTART.TIMER\POKE AUDCTL=PfPOKE }AUDC1=pALSO AUDC2zMOVE.B TIMERCOUNT=AUDF1!MOVE.B TIMERCOUNT=AUDF2POKE POKMSK=˜ALSO IRQEN}:X;X;--------------------------STOP.TIMERPOKE STATUS=PIXOVERPOKE POKMSK=ALSO IRQEN:X;}X;-------------------------- PLOTDATAA5$C.58 $STATUSB FPLOTEXITLX;V (>PIXOVER` FPLOTEXITjX;t(>PI}XSTART~HPLOTFAXMAPX; INITFAXMAPPLOTFAXMAP GETPOINT PLOTEXIT7?7>79X;X;-----------}---------------  PRINTBYTE PBUFFERBPUT PRINTER=BUFFER=(:2X;<X;--------------------------FPRINTFAXMAPP}"OPEN PRINTER=WRITE==AP:AZBPUT PRINTER=IPMESS=d!LEA.W PRINTSTART=PSTARTADRnLEA.W BPL=PRINTCOLx}PL1 PRINTALINEADD.W PSTARTADR=SUB.W PRINTCOL=EPL1X;CLOSE PRINTER:X;X;-------------}-------------PRINTALINEBPUT PRINTER=PPMESS=BPUT PRINTER=NUMROW=MOVE.W NUMROW=PRINTROW!MOVE.W} PSTARTADR=POINTER.DPLP1%>"Q@POINTER.D7, PRINTBYTE6SUB.W POINTER.D=BPL@SUB.W PRINTROW=J QPRIN}TROWTLPRINTROW^ HPLP1hX;rQ>CR| PRINTBYTE:X;X;--------------------------INIT.SCREENPOKE SDM}CTL= CLEAR.SCREENPOKE HORIZ.COUNT=ALSO VERT.COUNTLEA.W SCREEN=DISPLAY BUILD.LISTLEA.W DL}IST=SDLSTLPOKE COLOR0=POKE COLOR1=ALSO COLOR4POKE COLOR2= POKE COLOR3=4&POKE SDMCTL}="0::X;DX;--------------------------NDECIMALIZEXMOVE.W DECIMAL=COUNTER.DbLEA.W =DECIMALlQCOUNTER.Dv}LCOUNTER.D FDECIXX;SUB.W COUNTER.D= DECI1<ADD.W DECIMAL=-SUB.W COUNTER.D= EDE}CI1 DECIX QDECIMAL5QDECIMAL DEC.TO.ASCII  'DECIMAL&DECIMAL 7* DEC.TO.ASCII4'DECIMAL>}&DECIMALH:RX;\"X;- - - - - - - - - - - - - - -fDEC.TO.ASCIIp5zM>V?V?V?V? CHROUT?7}M> CHROUT,O>0L>ORINCOLOR>X;:X;$X;--------------------------.UPDATE.STATS8LEA.W =DECIM}ALBMOVE.B COLSKIP=DECIMALL DECIMALIZEV#MOVE.B DECIMAL=ST.LINE`X;jMOVE.W NUMCOL=DECIMALt DECIMA}LIZE~"MOVEM =DECIMAL=ST.LINEX; MOVE.W TIMERCOUNT=DECIMAL DECIMALIZE"MOVEM =DECIMAL=ST.LINE}X;WRITE ST.LINE=TEXT.LINE:X;X;-------------------------- KEYBUFF ======= KEYTABLE} APA=AAA=ARA=AKA  AA=A+A=A-A A1A=A2A=A3A=AIA ACA=ALA=ASA(LENKEYTABLE KEYTABLE2X;<KEY}JUMPTABLEF PRINT.A.FAXMAPP ADJUST.SYNCZ RESETd CHANGE.SKIPn LESS.COLUMNSx MORE.COLUMNS} MORE.TIME LESS.TIME SET1LINESEC SET2LINESEC SETMICROMODE INV.SCREEN CLEAR.SCREEN} LOAD.PIX SAVE.PIXX;X;--------------------------MAIN INIT.SCREEN UPDATE.STATS"OPEN KEY}BOARD=READ==AK:APOKE STATUS=PIXOVER" MAIN1, SCROLL6QCH@R>J FMAIN1TX;^BGET KEYBOARD=KEYBUFF=}h QKEYBUFFr$>LENKEYTABLE| MAIN2RKEYTABLE9 FMAIN3X;0 IMAIN2X; !MAIN1X;- - - - - - - - - - - -} - MAIN3 PERFORM.ROUTINE !MAIN1X;X;--------------------------PERFORM.ROUTINEAT?&>0QKEYJUMPTABL}E9:5DQKEYJUMPTABLE9N5X:bX;lX;--------------------------vPRINT.A.FAXMAPPOKE STATUS=PIXOVER STOP.}TIMER!PRINTFAXMAPX;X;--------------------------ADJUST.SYNCPOKE ADJCOUNT=:X;X;-----------------}--------- RESET QSTATUS R>PIXDRAWHGETFAXMAP X; QCURRCOL LCURRCOL* HRESET4X;>!INITFAXMAPHX;R}X;--------------------------\ GETFAXMAPfPOKE STATUS=PIXSTARTp START.TIMERz:X;X;--------------------------}CHANGE.SKIP #COLSKIP QCOLSKIPR>  DCS11X;POKE COLSKIP=CS11!UPDATE.STATSX;X;---------}-----------------LESS.COLUMNSSUB.W NUMCOL=!UPDATE.STATS$X;.X;--------------------------8MORE.COLUMNSB}ADD.W NUMCOL=L!UPDATE.STATSVX;`X;--------------------------j LESS.TIMEtSUB.W TIMERCOUNT=~ UPDATE.STA}TS!START.TIMERX;X;-------------------------- MORE.TIMEADD.W TIMERCOUNT= UPDATE.STATS!START.TIMER}X;X;--------------------------SET1LINESECMOVE.W ONEPER=TIMERCOUNTMOVE.W ONELINEROW=NUMCOL UPDATE.}STATS !START.TIMERX;X;--------------------------(SET2LINESEC2MOVE.W TWOPER=TIMERCOUNT<MOVE.W TWOLINERO}W=NUMCOLF UPDATE.STATSP!START.TIMERZX;dX;--------------------------nSETMICROMODExMOVE.W MICROM=TIMERCOUNT}MOVE.W MICROROW=NUMCOL UPDATE.STATS!START.TIMERX;X;-------------------------- SAVE.PIX STOP.TIMER}WRITE TYPEMESS=TEXT.LINEX;BGET KEYBOARD=KEYBUFF= QKEYBUFFR> MHSP3X;!SAVEMICROSP3"R>} F,HSP46X;@ !SAVEFULLJSP4T!UPDATE.STATS^X;h"X;-----------------------------r SAVEMICRO|!WRITE SAVINGMES}S=TEXT.LINE OPEN DISK===MFILENAME ISAM0X;CLOSE DISK!UPDATE.STATS X;- - - - - - - - - - - - - -}SAM0 MOVE.W SUBDL=POINTER.A$>SAM1%> &XINDEXSAM2 Q@POINTER.A7 'YINDEX N>& PKEYBUFF}0 BPUT DISK=KEYBUFF=: %YINDEXD 3N )>(X DSAM2b X;l ADD.W POINTER.A=BPLv $XINDEX 0 HSAM1 X; MO}VE.B COLOR4=KEYBUFF MOVE.B COLOR0=KEYBUFF MOVE.B COLOR1=KEYBUFF MOVE.B COLOR2=KEYBUFF BPUT }DISK=KEYBUFF= X; CLOSE DISK !UPDATE.STATS X; X;---------------------------! SAVEFULL !WRITE SAVEMESS=}TEXT.LINE!X; !BGET KEYBOARD=KEYBUFF=*! QKEYBUFF4!R> 1>! FSAF0H!X;R!R> 2\! HSAVEFULLf!SAF0p! MOVE.B KEYBUF}F=FILENAME.Xz!X;!#OPEN DISK=WRITE==FILENAME! ISAF2!X;!CLOSE DISK!!UPDATE.STATS!X;! X;- - - - - - - -} - - - - - -!SAF2!!WRITE SAVINGMESS=TEXT.LINE! BPUT DISK=SCREEN=SCRSIZE!CLOSE DISK!!UPDATE.STATS!X;"}"X;-----------------------------" LOAD.PIX" STOP.TIMER$"WRITE LOADMESS=TEXT.LINE."X;8"BGET KEYBOARD=KEYBUFF=}B" QKEYBUFFL"R> 1V" FLDP0`"X;j"R> 2t" FLDP0~"X;"!UPDATE.STATS"X;" X;- - - - - - - - - - - - - -"LDP0" MOV}E.B KEYBUFF=FILENAME.X"X;""OPEN DISK=READ==FILENAME" ILPX2"X;" WRITE BLANKMESS=TEXT.LINE"CLOSE DISK}"!UPDATE.STATS#X; # X;- - - - - - - - - - - - - -#LPX2#!WRITE LOADERMESS=TEXT.LINE(# BGET DISK=SCREEN=SCRSI}ZE2#CLOSE DISK<#!UPDATE.STATS- - - - - - - - - -#LPX2#!WRITE LOADERMESS=TEXT.LINE(# BGET DISK=SCREEN=SCRSI# :;STXSTYKNTSLDDRCTAA`@w@BAX@@@ @##}THE NEW OWNERS COLUMN, PART 6BY DAVID PLOTKIN (c) 1986, ANTIC PUBLISHING q +@@/9@,9@},;6-@yG6-@9YAR@q PRESS TO FILLq A@),;/AY}M/AY@y_/@yq/9,@y@$'/@Y@T9/@@T/@}@D'/@@9/@@K/@@$]/@@$o/@@4/@y@$6}-" @,"6-F:A2,e+T:,"@*F:B2y,@66-%8,A6-%8,K[,&8},&8,e @ (>6-%8,6-%8,,4F:B2y,"@> A2 @ O(>:A%,"AW@}4AV@O(WORKING ON RECURSION # @ ANAV'AWN "}PRESS } TO RERUN THIS PROGRAM F:B2y,@A %k6-%@6-@' A 9@w}?,M6-&@U1a"k A=6-%@6-&@'13"= A$=6-%@}6-%@'13"= AB=6-&@6-%@'13"= A`6-&@}j*6-&@6-' A *$(-@@"$68,-( 1,1,1,0,-1,-1,-1,0,0,0,0(-@}@"$68,-( 1,-1,0,0,1,-1,0,0,1,-1,0$DAV@'AW@%2( DAW@}0"@((GOSUB) "( Ω $D1:NEWOWN6.BASD1:NEWOWN6.BASNEWOWN6.BA@@{K L˩̩ͩP΢ `ˑ͈ ͑ˈYxyL L080а11Ѡ}A L*ȭ0ȭ1ЭЭѩ'Ј`H0 ʝȱ8 }L~ ЈɜJhL~ppB'd 8 T0100 ; BASIC TRACER0110 ; BY KEVIN GEVATOSKY0120 ; (c) 1986, ANTIC PUBLISHING0130 STMCUR = $8A ;Line # of cur. } BASIC statement0140 SRCPNT = $CB0150 DESPNT = $CD0160 TIMVAL = $CF ;Delay timer0170 ZPOINT = $D00180 R}OMOFF = $FF ;BASIC ROM 'off'0190 SDLSTL = $02300200 CH = $02FC0210 SOURCE = $A0000220 STGO = $A97E0230 DESTIN = $}50000240 SKCTL = $D20F0250 PORTB = $D301 ;ROM switch0260 STARTCODE = $01000270 *= $01000280 RAMBAS0290 JSR S}ETUP0300 JMP MOVE ;Move BASIC0310 SETUP0320 LDA # SOURCE0350 STA SRCPNT+10360 LDA # DESTIN0390 STA DESPNT+10400 LDX #32 } ;32 blocks=8K of BASIC code.0410 LDY #00420 RTS 0430 MOVE0440 LDA (SRCPNT),Y ;Copy B}ASIC ROM to RAM0450 STA (DESPNT),Y0460 DEY 0470 BNE MOVE0480 ;0490 NXTPAGE0500 } INC SRCPNT+10510 INC DESPNT+10520 DEX ;Decrement to next block.0530 BPL MO}VE0540 ;0550 LDA #ROMOFF ;Turn off BASIC ROM.0560 STA PORTB0570 JSR SETUP ;Set} up pointers for next move.0580 MOVE20590 LDA (DESPNT),Y ;Move BASIC s}ource code0600 STA (SRCPNT),Y ;to RAM at $A0000610 DEY 0620 BNE MOVE20630 ;06}40 NXTPG20650 INC SRCPNT+10660 INC DESPNT+10670 DEX 0680 BPL MOVE20690 ;0700 SETVEC0710 LDA # VECTOR0740 STA $A9790750 JMP START ;Go set up DL.0760 *= $06000770 ;0780 ; *** MODIFY DIS}PLAY LIST ***0790 START0800 JSR DLSET0810 JMP SOURCE ;JuMP to init. RAM-BASIC.0820 DLSET}0830 LDA SDLSTL ;Move start address of DL0840 SEC ;back two bytes } to make room for0850 SBC #2 ;more DL data.0860 STA SDLSTL0870 STA CHECK ;Save low byte of } addr.for later.0880 STA ZPOINT ;Set up zero-page pointer0890 BCS NODEC ;to} point at new DL start addr.0900 ;0910 DEC SDLSTL+10920 NODEC0930 LDA SDLSTL+10940 STA} ZPOINT+10950 LDY #00960 NXTBYT0970 LDA DLDATA,Y ;Get data to modify DL0980 STA (ZP}OINT),Y ;and store it at new add.0990 INY 1000 CPY #51010 BNE NXTBYT ;Do until done.}1020 ;1030 FIND1040 LDA (ZPOINT),Y ;Find end of the DL1050 CMP #65 ;(65=ANTIC JMP } to start of DL.)1060 BEQ FOUND ;Got it!1070 ;1080 INC ZPOINT1090 BNE NOINC1100 ;11}10 INC ZPOINT+11120 NOINC1130 JMP FIND ;Keep looking until found.1140 FOUND1150 I}NY ;Point to byte after ANTIC JMP1160 LDA SDLSTL ;Store start adr } of new DL1170 STA (ZPOINT),Y ;for the ANTIC JMP.1180 INY 1190 LDA SDLSTL+11200} STA (ZPOINT),Y1210 LDA DLDATA+3 ;Set zero pg. ptr. to start1220 STA ZPOINT ;of screen} RAM for new1230 LDA DLDATA+4 ;GR.0 mode line1240 STA ZPOINT+11250 LDA #$80 ;Invers}e blank1260 LDY #391270 INVERT1280 STA (ZPOINT),Y ;Store inverse chars1290 DEY }1300 BPL INVERT ;Do for all 40 bytes.1310 ;1320 RTS 1330 ; *** TRACE ROUTINE ***1340 } VECTOR1350 PHA ;Save reg.A for BASIC.1360 LDA CHECK ;Get low byte of DL and137 }0 CMP SDLSTL ;check to see if still same.1380 BEQ CONT ;It is, so go on1390 ;1400  } JSR DLSET ;Set up DL again.1410 CONT1420 LDA #01430 LDX #51440 BLANK1450 DEX ;Zero out DECVAL146 }0 STA DECVAL,X1470 BNE BLANK1480 ;1490 NEXT1500 LDY #01510 LDA (STMCUR),Y ;Get low byte  } of BASIC1520 STA LOBYTE ;and save it.1530 INY 1540 LDA (STMCUR),Y ;Get hi byte1550 STA HIBYTE1}560 LDY #01570 ;Convert binary to decimal.1580 SUBTRACT1590 LDA LOBYTE1600 SEC 1610 SBC DECPLC,Y ;Subtra}ct decimal value1620 STA TEMPLO ;from binary value.1630 LDA} HIBYTE1640 SBC DECPLC+1,Y1650 STA TEMPHI1660 BCS DECSTOW ;Branch if OK1670 ;1680 INY ;Increment} to next dec. place1690 INY 1700 INX ;and increment counte}r.1710 CPX #5 ;All done?1720 BEQ DECOUT ;Yes? Then put it on screen.1730 ;1740 }BNE SUBTRACT ;No? Subtract next dec. place1750 ;1760 DECSTOW1770 INC DECVAL,X1780 LDA TEMPL}O1790 STA LOBYTE1800 LDA TEMPHI1810 STA HIBYTE1820 JMP SUBTRACT1830 DECOUT1840 LDX #41850 LDY }#22 ;Pos. on screen.1860 NXTCH1870 LDA DECVAL,X ;Get decimal value.1880 ORA #$90 };Convert to ATASCII1890 STA (ZPOINT),Y ;& display it.1900 DEY 1910 DEX 1920 BP}L NXTCH ;Do until done.1930 ;1940 NODEL1950 LDA SKCTL ;Check keypress.1960 CMP #$FF1970 BEQ RESTOR ;If }no keypress1980 ;1990 LDA CH2000 CMP #156 ;Check CTRL-ESC2010 BEQ EXIT ;If pressed then } skip delay.2020 ;2030 RESTOR2040 LDA #$FF ;Restore CH2050 STA CH2060 LDY #0 ;Zero timer.2070} STY 202080 DELAY2090 LDA 20 ;Get timer value.2100 LSR A ;Divide by 2 for bette}r resolution2110 CMP TIMVAL2120 BNE DELAY ;Delay until time is up.2130 ;2140 EXIT2150 } PLA ;Give Acc. A back to BASIC2160 JMP STGO2170 DECVAL .DS 52180 TEMPLO .DS 12190 TEMPH}I .DS 12200 LOBYTE .DS 12210 HIBYTE .DS 12220 CHECK .DS 12230 DLDATA .BYTE $70,$70,$42,$00,$042240 DECPLC .WORD 10000,10}00,100,10,12250 *= $02E02260 .WORD STARTCODEDS 12230 DLDATA .BYTE $70,$70,$42,$00,$042240 DECPLC .WORD 10000,108OA@@O@AB L@)$H! }? ?(CG@< A@!!}@C |M_Ӡ/@   !"} IF`O@"C`(@ !G`(,7/ A!#}BБ"q@`% AV`&pj@#܈`, t('qkepHN~K**O^|B:!$}?~ _[V0QQ_/f@ !%}C|!@D n 8GD @E QK H(\!&}},@$% /@pg @  wd0E0!'}!D# -q3h02ф?? ???p@@(?@D >bH !(}~?O<ϘXDD숰p AedQG04d  0 |uT<@kz@$!!)}yX?r_{B""@!)@(? a!\" 0` OdJDJhዱҖ`o!*}=` T!D8eFD@b!>juy}D? 90" `^l}!+}kwB@T" p9>@~,=DpC?{D$2HAz? P@ <n _!,}@H/C+!xDs"V?5 #(A + ?!-}@@K ~? 8)W@ >!.}ˀ@!$  `@?!D}!/}4W ` @xgI@%B@fA !0}  R@7 /H"#BJN !1}G _!@ 96r~AP#@~x;#P!2}̉48D+`} AF >&@IE@@ G>? 8?!3}  *@ q~vIȀLO B 88 ?? !4} p?@ 3 /!C P!5}@??@??E$@  A`8PG !*qԀ!6} !? hzp8@R<@l})A`Fn@Ȅ!7}` Ht-"^`ZD`9 I4dH%p  ? @?E0#0Eˆ!8} /!~?!#? 0@||p@?a!9}A? D?@ B("/1/ @R:?%<%>0$2)!:}</}A@<Aɦ@@9 |(@%0|@$E @? !?}(@@D@H F,ZOP ) /!@}A ? 8 !pB4`$? $"D VBBP (#!A}#?=POp "O*`@@"O<;B? !B}B3" @_ ?0A`@ " A@B@` < ( Ϗ!C} #  ($B@ ;F8" p  *J_o@&0$ $@? *A@? ?g!D}0@# X@opD?@ %X&? !E}?@ @`0F0YA2PQ"$ XAGi@@!F} D ' (h oF 3*s@Ax#$/"@ !G} P   ?@~@@ ? @A8?@ Pc0!H}C@D( cB@Ē^x @@ H ?!I} 4)q@ b ! [&s (@  4?ADP !J} (@ H@@! @Hvh AE/A@ !K}H H@%K812 @"  @!L}B@@'H_$X ? ? 05!M}PH8?D @(18 $L?@@ @@D' !N}8p@ p  P b;{!O}@ x~ ?D@%B HW ! !P}$xA 4@D'!?x@!Q}(L<8L@& ;$ `@@W/z@(A~%L` !R}C8J?# |2AC@l!S} B $>~A!T}|D HD?8hoo{!U} -O!$@(!V}"@$ @x|X?!W}82?߀8?C p "_]!X}@p ,8R/7 0 YRP4 ڒy90GQuπ/` ; !Z}(4 VHA@x?,tx@ ,P@#׎?/![}Ã?(X^H/ߛP|!\}~?<rA?~|@t~!]}uyo @ ??CD@?8!^}G@?@$8G8!_}gߟ} ~nP(F~~݌@H"`7Y;@@<!`}^(>??@ KZ? Q!a} ^?߿@$dxx?0 !b}8?WA D8@r)?? h!c}FZ^޿ @P!d}30 c0 ("Զݗ[?w_& W6&DFk@&#>!e}@   @ @O| @^"Po!f}xk֎@((hDA$ o@P!g}? D?0?"G OPA!q}_B%DOS SYSB*)DUP SYSBSFAX EXEBiFAX M65BllFAXA M65BNEWOWN6 BASBTRACER EXEB6TRACER M65BWEFAX 1 BWESIM BASB.WETST BASB=4WX BASgNI % C {0@ LOOJ@@3'@!r} @*? ?@ 6>? x!s}@ D0À?pO!t}?@!q" $!u}q   ? 0@ a O@ !v}0 @7@p  "@HKA!w} ?v   @@@  NP !!x}$$ 3+"Tç"(B#"P58?P '!y}0rȠ |u FHgfA'!z}@$Hj@A@?G8!!{}p=i   cP l 5P&_/ x!|}a@ @{dû@@H@ "PT3@!}} / | @!~}TD.APF} ǵ;0!}AG͏,D$aA {DP" m  !}b (@! ?"!D?x@? o"!}@ @ A? @?@q?(?!}̀  <_ @?C? |C? F`Ȁ@d O 0Rǿ? 0!}D@  ?LxA%? !}?4_}>?? D`?2@P!%@B@.ց")/_0?!}|($ @1?z(k$d V?p@*  } !}<x@ _ @ /!} @98ϟ  b}w_O>wR!}^0O +]߈ @ oC!  Dᯧ3  o!}@k~(@;a(LI B G{ױHPùA&Js @_@g!}(LA B!ƾg߽?ޠF! !?0H&@P c!}~( `<Oqwd|Q~?@`C!}. ! O]~ &  >]~!}oyyka R9'H(~ B,^? A!}x@@e8@$4 ?v0)q`!u $B`?!}A߀ {?H q0!}?' O& A{aD=s+DE KŠX0d  !}Awp0 @!)4@?x$P@ !} D@ Q0H7 !!}D" @ߪ?"532)< @c@qnkb@ 0O?_'A$! !}?!?A {Ͽ?}| HuzB}B #1D!}/! ^}w6,?y@o"T?~n{<,@+!}@ _a?q t4.@0}#~]o~5(3@2h* @_!}J@#  qnnP!?x }^!}@G|w?_ )O ѽ,N@?~!}I ?aOw}?" !}@?a@3@H@Ep ?Q9 ݞa!}? +|v$-* !zl?`Hg_`I1 X5! %o4?&!}4;>;A`{ U? ?? @1!@,_A@?@ !}ܟ@H KHJ@2'I @AP' 'p@@O!}V&OaS-G=M]|s@wc@[#@!}0@E M') _$ } "K!}3?^ݿCD&"7аo  "w?HPAD!}@ O$B@@" 8ǀa4Ɖ(!}A€@ _"( $ O ?>Tæ! !}~!}0B_w @Lh +!}w2=GH"0+_?pC%B,ńE1`@!}߁c}<@ .X::!|| Ae10S<=ttBn2J`P!}@$߿`/$`>cCP@~(0!>%xv|$~(KB !}HPFo@Dh@( L%?~P!} @ @@D0G! D@H``?F@@`@@ @8!}(E P w#0p  ?K߿~!OB!}/<Q :P, ?߇΀|@_90 L`0VoO) A$ !}`$VF*K,BO |_<"/*O)# . @`#H OA $bN0@ h":XnaA C@dp)!}"DRp` HABP@0`" @@@AEgF"\!}hbD&` @" 1@3H `"P@ @ !} P@ B@$$@`&+&A!$Z@1` b!czp!} )$0" !@ĈP@`(@(a/!} 83(!HH @B 4  H@PA8 O!}1$@@@! GA 0  D !} ` ,Q *)h  @@@! O @ %    @a!}G$P @`@@D" B ` PR@J  @PtdFyn!} C o%ePHH#!iLA& X`D'@ x`aaAD @!} @  D@ @!@@ P@@ !}O$  @"(" "H@ !}P J@0@  @ @ @!} XX@F "E %a@A ( p  A!}_@B !}!}!}!}?=w?_OK?Wg_7~z!}￿'_?z\z?!}]!}!}yݷG"} HP!B $ BP P!! f @3D$L P8@@"}@wA`!PC Eh PJ Ic!# PD @D& @F`P1 #XBU uA (H`0"}S"}?o{"}"}ߧ! % Ff@ED P1@`_*"}~BC@  `  , 0B@F`@"}@@ 8 #`O@@`H( "}@@(@Q(@PA HЙ"N0IB@A Ӏ@ :B0 " } J!!$ HP"CD= "P@`@r@ZoP e @@ " } j T )+a #P@:`! $P)  pxt " }@O(0@a@B HPj+ %"P d&8N"DA 6BC~"}"}@oWr2_~Y~J=,߻*{`"}^z "} ""}_W.r>H+ y}}~m "} _9TONEGREYBYT WEFAX SIMULATORBY CHARLES JACKSON (c) &}1986, ANTIC PUBLISHING(4 +"AF:A,4AR@2P(+( If you've never heard a WEFAXP( sig& }nal before, this program will<D(generate one for you. (D( This sample signal contains F&&(no usable picture in&!}formation.P,( (,( (Press the space bar to end)Z%;@G,;@P,% AdF-@@)( [Press &"}START] FF:B2y,@An)B7h@)SET 64-KHZ. CLOCKx3-@@)(3 A0&#}N@ '@9-@@N()B7aAt)-@@0&$}%F:Ad,"@3'% A 'B7`@'@  F:@ , @)ApB7`@!&%} F:@ , @1A --@ @-( -@@P7@w&&}*F:Ad,"@3-'7 A 6-?:C:,, /-@ @/(-@A&'}7@w*F:Ad,"@3-'7 A "6-?:C:,,, 6?-@ @5( &(} ? A0@"AdAU+"J'@ '@TB7aAt^'B7`&)}@!'B7`@h%F:Ad,"@3'% A r F:@, @AP|$--@@G&*}")67<,.>:,- --@@P")67<,.>:,-  ( $]]104,169,0,133,20,162,1,142,8,210,169,17&+}4,141,1,210,173,10,210,201,14,144,239,201,22,176SS235,141,0,210,165,20,201,28,144,226,169,21,141,0,210,165,20,201,31,144,&,}250,96ZZ104,169,174,141,1,210,169,0,141,8,210,133,20,169,28,56,229,20,24,74,74,24,105,14,141[[0,210,165,20,201,28,144&-},236,169,21,141,0,210,165,20,201,31,144,250,169,0,141,1,210,96 D1:WESIM.BAS24,105,14,141[[0,210,165,20,201,28,144$Sm WEFAX INTERFACE TESTER BY BILL MARQUARDT (c) 1986, ANTIC PUBLISHING*/}-A6AD " ( 26-?:A6,<F104,169,0,141,8,210,169,3P""141,15,210,169,255,141*0},252,2Z""169,40,141,8,210,169,170,141d!!5,210,141,7,210,169,184,141n94,6,141,4,210,169,1,141x6,210,169,0,141,*1}47,2,141""0,212,169,253,133,20,173,252!!2,201,255,208,34,165,20,208!!245,165,20,208,252,173,94,6!!201,184,208*2},4,169,234,208,2 169,184,141,4,210,141,94,6!!169,253,133,20,208,216,95,6!!255,141,252,2,169,34,141,472,141*3},0,212,96 D2:SIMFAX.BAS41,4,210,141,94,6!!169,253,133,20,208,216,95,6!!255,141,252,2,169,34,141,472,141(<MSSSRDRWEPREDRYWETPRESVPTEMVVPRDDPCLDWINCHILDMDMLALOYLEADATTMMMMLLTAN.5}TANAAL1L2SNSNCSCSXHXHRISSEMINMIN .6} .7} !"#$%&'(.8})*+,-./01234567.9}89:;< WEATHER CALCBY JAN NULL,NATIONAL WEATHER SERVICE( (c) 1986, ANTIC.:} PUBLISHING2.@.@@K:<;@,;@,MAIN MENU +#( .;} Ҡ (#(9(1. TEMPERATURE9(2. DEW POINT/RELATIVE HUMIDITY6( 3. WIND CHILL+(4. SUNRISE/SUNSET6(.<}5. ENDC A+CAA APA`APOPTION SELECT SUBROUTINEQ((Ԡ.=}κ')@.(>:,8 AD6-A:>:,,N BQ$& +TEMPERATURE0 +0( .>} Še( (+(1. CONVERSION FROM FAHRENHEITJ(2. CONVERSION FROM CELSIUSe(3. RETURN TO MAIN MENU) .?}A)AAAL1 +1( ԠV:( (,(ENTER FAHRENHEIT TEMPERATURE.@} 6 A:`%%6-+&@2,$+@'@ ,j..6-P:+%As,$A%?P,'At..6-P:+%AYi,$A.A}%?P,'Ay$$6-P:$A%?P,'A~"("(CELSIUS TEMPERATURE= !(!(KELVIN TEMPERATURE= .B}!(!(RANKIN TEMPERATURE= (( ( (%( FOR MAIN MENU((!!(ANY OTHER KEY TO CONTINUE$)@$".C}AUA;;(3WOULD YOU LIKE ANOTHER FAHRENHEIT CONVERSION? (Y/N)$)@$"@A A.D}. +.( Ӡ7( ()(ENTER CELSIUS TEMPERATURE 3 A7(!!6-$@ '@%.E}@22..6-P:+%As,$A%?P,'A<..6-P:+%AYi,$A%?P,'AA$$6-P:$A%?P.F},'AF%(%(FAHRENHEIT TEMPERATURE= P!(!(KELVIN TEMPERATURE= Z!(!(RANKIN TEMPERATURE= d(( ( (.G}%( FOR MAIN MENU((n!!(ANY OTHER KEY TO CONTINUEx$)@$"AUA88(0WOULD YOU LIKE ANOTH.H}ER CELSIUS CONVERSION? (Y/N)$)@$"@A ADEW POINT/RH1 +1( נ.I}ԯŠ5(1(&ENTER DRY BULB TEMPERATURE (DEGREES F)55(1(&ENTER WET BULB TEMPERATURE (DEGREES F)5.J}6-@0//6-++@'@ ,$+&@2,,%As //6-++@'@ ,$+&@2,,%As6-'?0.K} 446-@$J:+@'$+&As,,'+&@5,,*776->g$$+&,$+@%++&@2,'Aq,,4 6-&>446.L}-@$J:+@'$+&As,,'+&@5,,HJ6-+A$,'+ )!A@(RH OUT OF RANGEJ A R .M}6-K:+$,'A,'@'\))6-+As&+@5$,,'+@&,f<+6-+&As,$@ '@%@2<6-P:%?P.N},p""6-P:?P%+A%$+&,,,z(( DEW POINT= 6(RELATIVE HUMIDITY= -6-P:%?P,6( %''(ES.O}TIMATED CLOUD BASES=  FT.( ( ((((.(ΠҠΠ::(2ANY OTHER KEY FOR ANOTHER DEW POINT/RH CAL.P}CULATION$)@$"AUA A WIND CHILL+ ++( Ġ̠\( (.Q}/(!ENTER AIR TEMPERATURE (DEGREES F)9 AP =\!A) 6@AP X(,(!ENTER WIND SPEED (MPH) .R} 6 AP0:X!AP) AP0 @6-@!@P6-@PDD6-?$+@q$.S}M:,%@&?%$,$+&@@,%@@&&6-P:+$A%?P,'A,0 +*( Ġ̠-.T}(0(( TEMPERATURE: ( WIND SPEED : (($($(WIND CHILL FACTOR IS: / @1*!@(/(.U} 4 @*!(4( ٠7 @*!6@ (7( Ҡ..V} 6@(.( Š4( ( ((((((4( FOR MAIN MENU$($(ANY OTHER KEY TO CON.W}TINUE $)@$"AUA APpSUNRISE/SUNSETu. +(( ů+(.(zf$.X}(ENTER LATITUDE (DEGREES,MIN). A`4f )!@) )!@YA`g%(ENTER LONGITUDE (DEG.Y}REES,MIN)/ A` 5g )!A) )!@YA` 7%(ENTER DATE (Month, Day, Year)/ A`07.Z}?? @)!@) @)!@1) A`0( (( CALCULATING6-%'@`6-%'.[}@` 6-+'@,&P:'@,Aa00++'A,&P:'A,",Aa6-@.\} Aa 6-@AA6-P:+Au$,'@ ,&$P:+%@ ,'@,%&@0%%6-%+@%'@,'.]}@$%%6-%+@%'@,'@$ 6-6-6-?V$&@%6-?V$&@%$336-%@`.^}$G:,%?$G:$@,%AVP.336-%@`$G:,%?$G:$@,%AVP86-?t`$+G:,'E:,,B6-?t._}`$+G:,'E:,,L6-+D:,,V6-+D:,,`QUADRANT CONVERSIONSb!A`6-&A`c!A`6-&A`.`}d 6-%A`e 6-%A`j6-P:'@,%@t6-P:'@,%@~ 6-O.a}:,6-O:,+"@+6-%+@$+@&,,5"@56-+@$,%+@$+@&,,5"@5.b}6-+@$,%+@$+@&,,+"@+6-%+@$+@&,,5"@56-+@$,%+@$+@.c}&,,5"@56-+@$,%+@$+@&,,6-'@6-'@6-?9x $G:,6-?9.d}x $G:,""6-O:E:D:'M:6$%@,,,,""6-O:E:D:'M:6$%@,,,, E$6-+E:@3,&$G:,,'+$E:,,E6-@.e}&D:'M:6$%@,,E$6-+E:@3,&$G:,,'+$E:,,E6-@&D:'M:6$%@,,6-A`&6-'@(.f}6-'@2>6-%&+?W$,&@b>6-%+'@,&P:'@,<>6-%&+?W$,&@b>6-%+'@,&.g}P:'@,F 6-%@$P 6-%@$Z!@$6-&@$]P:, @Ad.h}^&6-&@6.P.M.& Aeb6.A.M.d!@$6-&@$gP:, @Aeh&6-&@.i}6.P.M.& Ael6.A.M.n3 +'( ů*(-(0(3(p##(LAT :  DEG,  MINr##.j}(LONG:  DEG,  MINt#(DATE: // (#(x16-+&P:,,$@`'P:, @1 Ae`<<( SUN.k}RISE: P:,:P:,  LOCAL STANDARD TIME/6-+&P:,,$@`/P:, @AepF<( SUNSET : P:,:P:.l},  LOCAL STANDARD TIMEF AeG=( SUNRISE: P:,:0P:,  LOCAL STANDARD TIMEG Ae@==( SUNSE.m}T : P:,:0P:,  LOCAL STANDARD TIME4(1(&ADD ONE HOUR FOR DAYLIGHT SAVINGS TIME4(%( ("(ΠҠ.n}Π%(!!(ANY OTHER KEY TO CONTINUE$)@$"AUACC(;WOULD YOU LIKE TO USE THE SAME LATIT.o}UDE AND LONGITUDE (Y/N)V)@"@&+@( ůF6-L6-V A`0 A`.p} D1:WX.BASDE (Y/N)V)@"@&+@( ůF6-L6-V A`0 A`,