OPENF_ FORTRANSTACKENDBSSEENDBSS_BSSENDDATAEDATACONSTCOMADSDATA_DATABEGDATANULLFAR_BSS__FBSSLARGEL~CAAA$AL~CAAB$AL~CAAC$AL~CAAD$AENDCODEC_ETEXTCODEOPENF_DGROUP7@.H՘`` ` `PwhØh ǘH IH ݘHDHHHT {4CHREAD4OPENFLTCNVRTTUNITSXUNIT!ASNGQQRLDTQQRSDTQQRADTQQRMDTQQRTDTQQRDDTQQBLDTQQBSDTQQBADTQQBMDTQQEREVQQCLSVQQWTCVQQEFEVQQOPNVQQIQMVQQIIFVQQRTCVQQWRFVQQGOFVQQ  D BT9 FT: JT; NT< E COMMON.FOR &  D UWV~&&U- th3PPPP3PPPPP~ WP~ W3PPu3PPPTPP4>CuZ>Ou1~&PP~ W3PPPP~&&EAj>Auc~&PP~ W3PۜG).V3VCHVVV[ViVqvV|č̒V̗VĜ̡^ħĴVfA (A20) (/,' enter your output file name ( within 20 chrs. )') H T(/,' *** FILE ALREADY EXITS. ***',//, ' C) change output file name',/, ' A) append',/, ' O) overwrite ( Old data will be lost. )',//, ' enter your choice (C/A/O)') PPP~&&E*P~&PPPPPP-,~&PP~ W3PPPP~&&E~&&U- t3PPPP}%V^V05V>CVHVmVĢ} (/, ' Current output file is ',A20,/, ' Do you want to close it and open a new one ? (Y/N)') (' Output will be appended.') P~ 9V(  #ABCDEFGHIJKLMNOPQRSTUVWXYZ<#abcdefghijklmnopqrstuvwxyzWP4>Yt>yu#~&PP~&&E '>Nt>nu3PPPPPv^_] 8*VV ^0V IP^cVhVzOPENFL3`|I4UWV=P3PPPPPP> W?! ^V #V- 2V7V=C (A80) y>O &~&~&:E fffffq@| __fltusedu@=P~  Y  !8`{ !"#S$U%U&X'Z(x)2346789:;<=%>'?'@*F*G*H,^4_=`oa{bcVR~&\~&>O&:u:~&6N&:u&~& $ 5: C  @@?fffffq@%@=~~&^_] NzCHREAD4`P|1UWV~ &&U- u ^ !V)V P ,?;A~ &&U- u^~ &&V#)V 4fffffq@TRxU- u:^$1~ &&g/VV!V&)V.1V69V>AV( <fffffq@?@@RU- u^,~&&U- u4)!VV!V?BVGJV T?7^~&&U- u ~z~&& V # C K F RRGU- u:<^D^L^,~&&x)VV!V &)V1V 69VAV B, \uhQ=|?{Ŏ?S㥛@S㥛@:H@Ġ3U- uT^^_] VV!V zTCNVRT`d|RUWV~&&U-|&&U-| t~&=O&~ &^_]Ϝ9 zTUNITSN`|UWV~&&U- , uhQ=|?{Ŏ?S㥛@S㥛@:H@-uz^\^^d^^l^^t^^ |^ x^^^^;jV VV V#&V.V 6V;>VFV NVSVV^V fVknVvV }̀V̈V ̐V ĕ̘V̠V ̨V defgiklmnopq s 1I`n3>Tl /G_wV^^^^^ ^ ^_]<.V V V V$V ,V 14V