' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `#`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# #u`ATOM TO INSERT BEFORE? ";QA%QnQA%NAQA%1ČGG:"OUT OF RANGE":(37)1:2270in216,0:NNAQA%1nPPNQ%:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)n AC(N)QA%AC(PP)AC(N):2310n AC(PP)AC(N)Q% o :N1QA%1:AC(N)QA%AC(AD(N);",";BD(N);",";R(N):::2580=mM$"MODIFY ":M2:2490m"(ENTER NEW VALUES; SEPARATE BY RETURNS - ESC TO REENTER OLD VALUE)":mGU%:HV%:5000mM$"APPEND":M1:2620m:GNA1:HNAQ%:2700mM$"INSERT":M2:2620m:2660n"CONTINUE ON TO CALCULATIONS"FlC" <8> EXIT EDITOR TO MAIN MENU":YlRE$:B(E$)48kl\B0B92560lf:"TRY AGAIN"::2040lp"TOTAL NUMBER OF ATOMS= ";NA:lzM$"DISPLAY":M1:2490lNU%V%"m"ATOM NO. ";N;": ";AY$(N);",";AC(N);",";R MENU":4k"WHAT DO YOU WISH TO DO WITH FILE?":Yk" <1> LIST CONTENTS OF FILE"uk" <2> MODIFY LINES"k " <3> APPEND LINES"k" <4> INSERT LINES"k " <5> DELETE LINES"k*" <6> SAVE NEW VERSION OF FILE"l4" <7> j7936J,2J&j8000J,2(AC(N)1)EjAY$(N)"H"Ĺ8064J,0:960djAY$(N)"C"Ĺ8064J,1:960rj8064J,2j:"DONE"::LO1jE1AC(1)INj2580jES0ČGG:"NO CURRENT FILE EXISTS":3410jEESj:ESE k" FILE EDITO2:JJ1:Q0Q(0,N):Q1Q(1,N):Q2Q(2,N)>i4Q00Q0Q0255.999Ki>QI(Q0)niH7168M,QI:7169M,256(Q0QI)iRQ10Q1Q1255.999i\QI(Q1)if7424M,QI:7425M,256(Q1QI)ipQ20Q2Q2255.999izQI(Q2)i7680M,QI:7681M,256(Q2QI):INAC(1):AC(1)1/hTS0:N02:SUM0:M1NAEhSUMSUMQ(N,M):MThSUMSUMNA`hL1NAhQ(N,L)Q(N,L)SUM:(Q(N,L))TSTS(Q(N,L))hL:Nh TS55TS:N02:L1NA:Q(N,L)Q(N,L)TS::h8128,NA:8129,NA:M2:J1h N1NA&i*MM(2,2)(BR)%gNB(1,0)B(0,1)B(2,2)>gXB(1,1)B(0,0)B(2,2)WgbB(2,0)B(0,1)B(1,2)zglB(2,1)B(0,0)B(1,2):B(0,2)0gvL02:J02gSUM0gK02gSUMSUMA(L,K,IN)B(K,J):KgA(L,J,I)SUM:JgQ(L,I)Q(L,IN)A(L,0,I)R(I)hL:I);" TO BOMB"::25802fPI3.1415926536:PCPI180QfJ02:K02:A(J,K,0)0:kfA(J,J,0)1:Q(J,0)0:wfI1NAfARPCAD(I):BRPCBD(I)fI1AR0:BRPI:IN0:570f&I2BR0f0INAC(I)f:B(0,0)(AR):B(0,1)(AR) gDB(1,2)(BR):BYOU ARE ATTEMPTING TO READ A FILE WHICH DOES NOT EXIST":350_eGG::"ERROR CODE=";Y:3410eNL0:I1NA:IAC(I)NLIf:NL0ĺ"ATOM ";NL;" IS CONNECTED TO ITSELF OR AN":"ATOM HIGHER IN INDEX.":"THIS WILL CAUSE THE CALCULATION ON AN":E$(1" ";N$dcN$""3390Jdh(N$,5)E$(E)ČGG:"TRY AGAIN":(37)2:350]drD$;"OPEN ";N$pd|D$;"READ ";N$dNA:N1NAdAY$(N),AC(N),AD(N),BD(N),R(N)d:D$;"CLOSE ";N$d216,0:EE2:2000dD$;"DELETE ";N$dY(222)>eY5ĺ:"PE"c" CATALOG"2cE$:E(E$)48:E1270bcE320,320,340,340,1990,3200,3700,3900,4000pcE19280}cGG:250c300c:D$;"CATALOG":3410c,Y(222):460c@NA0:2000cT430d^"FILE NAME? (WILL BE OF FORM ";E$(E);"$$$):":"<4> LOAD ";E$(2);" FROM DISK"Ub"<5> REENTER EDITOR, CURRENT FILE"ob:"OTHER OPTIONS:":b"<6> LOAD SHAPE FROM DISK"b"<7> SAVE CURRENT SHAPE TO DISK"b"<8> DISPLAY CURRENT SHAPE"c"<9> ADD/DELETE LINES IN CURRENT SHA:GG64477:KR49152a216,0:pa"THE MOLECULAR ANIMATOR, BY JEFF HOWBERT":" VERS. 1.0, COPYRIGHT 1982"a:"FORM OF COORDINATE ENTRY TO BE USED?":a"<1> NEW ";E$(1)a"<2> NEW ";E$(2)a"<3> LOAD ";E$(1);" FROM DISK"-bO`38400:AY$(60),AC(60),AD(60),BD(60),R(60),A(2,2,60),B(2,2),Q(2,60),E$(9)`E$(1)"INTERNAL COORDINATE FILE":E$(2)"CARTESIAN COORDINATE FILE":E$(3)"VALT.":E$(4)"VALC."`D$(4):D$;"BLOAD TABLEMAS.LOW":D$;"BLOAD SHROTLOW1.OBJ0"aLO0:NA0          ύȍÍȍÍȍȍÍȍȍÍȍȍÍȍȍ  )155Ĺ49168,0::5045$"";E$(M)IN$N$E$(M)"/":((37)):5150:Z:"OK?":A$lA$"Y"5010AY$(N)E$(5):AC(N)(E$(6)):AD(N)(E$(7)):BD(N)(E$(8)):R(N)(E$(9)):::2580"NEW ATOM NO. ";N;": ";N$;:AT Y-AXIS"a" Z - C 8129,TTD:L1TT:7935L,2(Q(0,L)1):7999L,2(Q(1,L)1)::180NGH:E$(5)AY$(N):E$(6)(AC(N)):E$(7)(AD(N)):E$(8)(BD(N)):E$(9)(R(N))׀N$"":"OLD ATOM NO. ";N;": ";:M59:E$(M);"/";:::5150“M59(KR)1285025(KRȍÍÍÍÍÍÍȍȍύȍÍÍA$A$"Y"5010kAY$(N)E$(5):AC(N)(E$(6)):AD(N)(E$(7)):BD(N)(E$(8)):R(N)(E$(9)):::2580"NEW ATOM NO. ";N;": ";N$;:LFILE":E$(3)"VALT.":E$(4)"VALC."`D$(4):D$;"BLOAD TABLEMAS.LOW":D$;"BLOAD SHROTLOW1.OBJ0"aLO0:NA0Y$(N):E$(6)(AC(N)):E$(7)(AD(N)):E$(8)(BD(N)):E$(9)(R(N))~N$"":"OLD ATOM NO. ";N;": ";:M59:E$(M);"/";:::5150~M59~(KR)1285025~(KR)155Ĺ49168,0::5045~"";E$(M)~N$N$E$(M)"/":((37)):5150::"OK?":L1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q(1,L)U%)NLLu}:NL0Q(0,NL)Q(0,TT):Q(1,NL)Q(1,TT):TTTT1:4060}:"ATOM PAIR DOES NOT EXIST":4080}034,0:8129,TT}:L1TT:7935L,2(Q(0,L)1):7999L,2(Q(1,L)1)::180@~NGH:E$(5)A(1,L)U%)FLAG1B||:FLAG0TTTT1:Q(0,TT)U%:Q(1,TT)V%:4060j|:"ATOM PAIR ALREADY EXISTS":4080|TT0ĺ:"NO ATOM PAIRS TO DELETE":4080|:"ATOM PAIR TO DELETE? : ";U%,V%:NL0|(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080:}TT:Q(0,L);"/";Q(1,L);" ";:L5(L5)ĺ(13)={::4060l{hTT60ĺ:"NO ARRAY SPACE AVAILABLE":4080{k:"ATOM PAIR TO ADD? : ";U%,V%:FLAG0{m(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080|rL1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q0,L)(7935L)21:Q(1,L)(7999L)21:~z:"ADD/DELETE LINES IN SHAPE":"1=LIST 2=ADD LINE 3=DELETE LINE 4=EXIT"::34,3zE$:EE(E$)48:EE14080zEE4100,4200,4300,4400zGG:4060z:"# OF CONNECTED PAIRS= ";TT:TT04060/{ :L1BSAVE ";N$;",A$1C00,L$3C8"5y:"SHAPE SAVED":3410ByY(222)yY10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME"::3720y460y<LO03400yF4608:180yLO03400yAA(8128):TT(8129)yL1TT)zQ( "(PRESS ANY KEY TO CONTINUE)":E$:1803xt3770Bx~LO03400x"NAME FOR SHAPE DATA FILE? (USE FORM SHAPE.$$$): ";N$xN$""ĺ:"SAVE CANCELLED":3410x(N$,6)"SHAPE."(N$,7,1)" "(N$)7ČGG:"TRY AGAIN":(37)2:3720yD$;"HAPE."ČGG:"TRY AGAIN":(37)3:3205Ww D$;"BLOAD ";N$:LO1::"SHAPE LOADED":3410dw Y(222)w Y6ĺ:"YOU ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT EXIST"::3205w 460w> "LOAD CANCELLED":3410wH GG:"NO CURRENT SHAPE EXISTS."(xRv AY$(N)N$:AC(N)SC:AD(N)Q0:BD(N)Q1:R(N)Q2@v M1NANA1Fv Rv :2580v L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720v 3300v "NAME OF SHAPE FILE?(WILL BE OF FORM SHAPE.$$$):":" ";N$v N$""3390&w (N$,6)"SNY FOR AVAILABLE ARRAYS":(37)1:2630?uZ 216,0:M2240,2260kud :"COMMAND CANCELLED."::216,0:2580vu NGHu "ATOM NO. ";N;": ";u (KR)1282715u (KR)155Ĺ49168,0::M2770,2760u "";N$,SC,Q0,Q1,Q2:"OK?":A$u A$"Y"2710/"5=DELETE 6=SAVE 7=CALCULATION 8=EXIT"::34,4:2600Ot E$:B(0):B(E$)48\t B0B0t( B2160,2200,2230,2250,2350,2390,2480,2615t2 GG:2580t7 34,0:180t< 2660tF "NUMBER OF ATOMS TO ";M$;:Q%:Q%12660'uP PQ%NA:P60ČGG:"TOO MA2660Is "RANGE TO ";M$;"? (FIRST ATOM, LAST, RETURN) ":" ";U%,V%s U%1U%NAV%NAV%1Ģ(37):GG:"INVALID RANGE; TRY AGAIN: ";U%,V%:2520s 216,0::V%U%V%U%s M2180,2210,2360s :E$(E):"1=LIST 2=MODIFY 3=APPEND 4=INSERT"5t r 216,0:2580%r D$;"CLOSE ";N$2r Y(222)r Y10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME":2392r 460r NA2ĺ"INSUFFICIENT DATA FOR CALCULATION"::2580r "CALCULATING; PLEASE WAIT"::E470,3000s :" ";N$,q[ N$""ĺ"SAVE CANCELLED":2471bq` (N$,5)E$(E2)ČGG:"TRY AGAIN":(37)3:2392uqj D$;"OPEN ";N$qt D$;"DELETE ";N$q~ D$;"OPEN ";N$q D$;"WRITE ";N$q NA:N1NAq AY$(N):AC(N):AD(N):BD(N):R(N):r D$;"CLOSE ";N$:):2380*pG AC(N)V%AC(PP)AC(N)P:23808pI AC(PP)PP>pL MpM U%12385ypN I1U%1:AC(I)V%AC(I)AC(I)P:2384pO AC(I)U%AC(I)IpP pQ NANAP:P;" ATOMS DELETED"::2580pV 2472 qX :"NAME FOR TEXT FILE?(USE FORM ";E$(E2);"$$$):"N)AC(N)Q%o :NAP:Ho "(ENTER NEW VALUES; SEPARATE BY COMMAS)":co GQA%:HQA%Q%1:2700~o. M$"DELETE ":M3:2490o8 PV%U%1:V%NA2381o= NV%1NAoB PPNP:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)pE AC(N)U%AC(PP)AC(NATOM TO INSERT BEFORE? ";QA%QnQA%NAQA%1ČGG:"OUT OF RANGE":(37)1:2270in216,0:NNAQA%1nPPNQ%:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)n AC(N)QA%AC(PP)AC(N):2310n AC(PP)AC(N)Q% o :N1QA%1:AC(N)QA%AC(AD(N);",";BD(N);",";R(N):::2580=mM$"MODIFY ":M2:2490m"(ENTER NEW VALUES; SEPARATE BY RETURNS - ESC TO REENTER OLD VALUE)":mGU%:HV%:5000mM$"APPEND":M1:2620m:GNA1:HNAQ%:2700mM$"INSERT":M2:2620m:2660n"CONTINUE ON TO CALCULATIONS"FlC" <8> EXIT EDITOR TO MAIN MENU":YlRE$:B(E$)48kl\B0B92560lf:"TRY AGAIN"::2040lp"TOTAL NUMBER OF ATOMS= ";NA:lzM$"DISPLAY":M1:2490lNU%V%"m"ATOM NO. ";N;": ";AY$(N);",";AC(N);",";R MENU":4k"WHAT DO YOU WISH TO DO WITH FILE?":Yk" <1> LIST CONTENTS OF FILE"uk" <2> MODIFY LINES"k " <3> APPEND LINES"k" <4> INSERT LINES"k " <5> DELETE LINES"k*" <6> SAVE NEW VERSION OF FILE"l4" <7> j7936J,2J&j8000J,2(AC(N)1)EjAY$(N)"H"Ĺ8064J,0:960djAY$(N)"C"Ĺ8064J,1:960rj8064J,2j:"DONE"::LO1jE1AC(1)INj2580jES0ČGG:"NO CURRENT FILE EXISTS":3410jEESj:ESE k" FILE EDITO2:JJ1:Q0Q(0,N):Q1Q(1,N):Q2Q(2,N)>i4Q00Q0Q0255.999Ki>QI(Q0)niH7168M,QI:7169M,256(Q0QI)iRQ10Q1Q1255.999i\QI(Q1)if7424M,QI:7425M,256(Q1QI)ipQ20Q2Q2255.999izQI(Q2)i7680M,QI:7681M,256(Q2QI):INAC(1):AC(1)1/hTS0:N02:SUM0:M1NAEhSUMSUMQ(N,M):MThSUMSUMNA`hL1NAhQ(N,L)Q(N,L)SUM:(Q(N,L))TSTS(Q(N,L))hL:Nh TS55TS:N02:L1NA:Q(N,L)Q(N,L)TS::h8128,NA:8129,NA:M2:J1h N1NA&i*MM(2,2)(BR)%gNB(1,0)B(0,1)B(2,2)>gXB(1,1)B(0,0)B(2,2)WgbB(2,0)B(0,1)B(1,2)zglB(2,1)B(0,0)B(1,2):B(0,2)0gvL02:J02gSUM0gK02gSUMSUMA(L,K,IN)B(K,J):KgA(L,J,I)SUM:JgQ(L,I)Q(L,IN)A(L,0,I)R(I)hL:I);" TO BOMB"::25802fPI3.1415926536:PCPI180QfJ02:K02:A(J,K,0)0:kfA(J,J,0)1:Q(J,0)0:wfI1NAfARPCAD(I):BRPCBD(I)fI1AR0:BRPI:IN0:570f&I2BR0f0INAC(I)f:B(0,0)(AR):B(0,1)(AR) gDB(1,2)(BR):BYOU ARE ATTEMPTING TO READ A FILE WHICH DOES NOT EXIST":350_eGG::"ERROR CODE=";Y:3410eNL0:I1NA:IAC(I)NLIf:NL0ĺ"ATOM ";NL;" IS CONNECTED TO ITSELF OR AN":"ATOM HIGHER IN INDEX.":"THIS WILL CAUSE THE CALCULATION ON AN":E$(1" ";N$dcN$""3390Jdh(N$,5)E$(E)ČGG:"TRY AGAIN":(37)2:350]drD$;"OPEN ";N$pd|D$;"READ ";N$dNA:N1NAdAY$(N),AC(N),AD(N),BD(N),R(N)d:D$;"CLOSE ";N$d216,0:EE2:2000dD$;"DELETE ";N$dY(222)>eY5ĺ:"PE"c" CATALOG"2cE$:E(E$)48:E1270bcE320,320,340,340,1990,3200,3700,3900,4000pcE19280}cGG:250c300c:D$;"CATALOG":3410c,Y(222):460c@NA0:2000cT430d^"FILE NAME? (WILL BE OF FORM ";E$(E);"$$$):":"<4> LOAD ";E$(2);" FROM DISK"Ub"<5> REENTER EDITOR, CURRENT FILE"ob:"OTHER OPTIONS:":b"<6> LOAD SHAPE FROM DISK"b"<7> SAVE CURRENT SHAPE TO DISK"b"<8> DISPLAY CURRENT SHAPE"c"<9> ADD/DELETE LINES IN CURRENT SHA:GG64477:KR49152a216,0:pa"THE MOLECULAR ANIMATOR, BY JEFF HOWBERT":" VERS. 1.0, COPYRIGHT 1982"a:"FORM OF COORDINATE ENTRY TO BE USED?":a"<1> NEW ";E$(1)a"<2> NEW ";E$(2)a"<3> LOAD ";E$(1);" FROM DISK"-bO`38400:AY$(60),AC(60),AD(60),BD(60),R(60),A(2,2,60),B(2,2),Q(2,60),E$(9)`E$(1)"INTERNAL COORDINATE FILE":E$(2)"CARTESIAN COORDINATE FILE":E$(3)"VALT.":E$(4)"VALC."`D$(4):D$;"BLOAD TABLEMAS.LOW":D$;"BLOAD SHROTLOW1.OBJ0"aLO0:NA0          )155Ĺ49168,0::5045$"";E$(M)IN$N$E$(M)"/":((37)):5150:Z:"OK?":A$lA$"Y"5010AY$(N)E$(5):AC(N)(E$(6)):AD(N)(E$(7)):BD(N)(E$(8)):R(N)(E$(9)):::2580"NEW ATOM NO. ";N;": ";N$;:AT Y-AXIS"a" Z - C 8129,TTD:L1TT:7935L,2(Q(0,L)1):7999L,2(Q(1,L)1)::180NGH:E$(5)AY$(N):E$(6)(AC(N)):E$(7)(AD(N)):E$(8)(BD(N)):E$(9)(R(N))׀N$"":"OLD ATOM NO. ";N;": ";:M59:E$(M);"/";:::5150“M59(KR)1285025(KR TO DELETE? : ";U%,V%:NL0S(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080L1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q(1,L)U%)NLL:NL0Q(0,NL)Q(0,TT):Q(1,NL)Q(1,TT):TTTT1:4060:"ATOM PAIR DOES NOT EXIST":4080034,0:%AAV%AA)ĺ:"NONEXISTENT ATOM":4080g~rL1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q(1,L)U%)FLAG1~|:FLAG0TTTT1:Q(0,TT)U%:Q(1,TT)V%:4060~:"ATOM PAIR ALREADY EXISTS":4080~TT0ĺ:"NO ATOM PAIRS TO DELETE":4080:"ATOM PAIR0,4200,4300,4400}GG:4060L}:"# OF CONNECTED PAIRS= ";TT:TT04060} :L1TT:Q(0,L);"/";Q(1,L);" ";:L5(L5)ĺ(13)}::4060}hTT60ĺ:"NO ARRAY SPACE AVAILABLE":4080}k:"ATOM PAIR TO ADD? : ";U%,V%:FLAG0'~m(U%1V%1U<LO03400|F4608:180*|LO03400D|AA(8128):TT(8129)P|L1TT|Q(0,L)(7935L)21:Q(1,L)(7999L)21:|:"ADD/DELETE LINES IN SHAPE":"1=LIST 2=ADD LINE 3=DELETE LINE 4=EXIT"::34,3|E$:EE(E$)48:EE14080}EE410M{(N$,6)"SHAPE."(N$,7,1)" "(N$)7ČGG:"TRY AGAIN":(37)2:3720q{D$;"BSAVE ";N$;",A$1C00,L$3C8"{:"SHAPE SAVED":3410{Y(222){Y10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME"::3720{460 |T"::3205z 460/z> "LOAD CANCELLED":3410SzH GG:"NO CURRENT SHAPE EXISTS."zR "(PRESS ANY KEY TO CONTINUE)":E$:180zt3770z~LO03400z"NAME FOR SHAPE DATA FILE? (USE FORM SHAPE.$$$): ";N${N$""ĺ:"SAVE CANCELLED":3410E FILE?(WILL BE OF FORM SHAPE.$$$):":" ";N$Fy N$""3390}y (N$,6)"SHAPE."ČGG:"TRY AGAIN":(37)3:3205y D$;"BLOAD ";N$:LO1::"SHAPE LOADED":3410y Y(222) z Y6ĺ:"YOU ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT EXIS(KR)155Ĺ49168,0::M2770,2760Cx "";N$,SC,Q0,Q1,Q2:"OK?":A$Ux A$"Y"2710x AY$(N)N$:AC(N)SC:AD(N)Q0:BD(N)Q1:R(N)Q2x M1NANA1x x :2580x L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720x 33006y "NAME OF SHAP w< 26608wF "NUMBER OF ATOMS TO ";M$;:Q%:Q%12660~wP PQ%NA:P60ČGG:"TOO MANY FOR AVAILABLE ARRAYS":(37)1:2630wZ 216,0:M2240,2260wd :"COMMAND CANCELLED."::216,0:2580w NGHw "ATOM NO. ";N;": ";w (KR)1282715!x %U%V%U% v M2180,2210,2360Rv :E$(E):"1=LIST 2=MODIFY 3=APPEND 4=INSERT"v "5=DELETE 6=SAVE 7=CALCULATION 8=EXIT"::34,4:2600v E$:B(0):B(E$)48v B0B0v( B2160,2200,2230,2250,2350,2390,2480,2615v2 GG:2580v7 34,0:180IENT DATA FOR CALCULATION"::2580Pu "CALCULATING; PLEASE WAIT"::E470,3000[u 2660u "RANGE TO ";M$;"? (FIRST ATOM, LAST, RETURN) ":" ";U%,V%u U%1U%NAV%NAV%1Ģ(37):GG:"INVALID RANGE; TRY AGAIN: ";U%,V%:2520 v 216,0::VITE ";N$t NA:N1NAAt AY$(N):AC(N):AD(N):BD(N):R(N):Wt D$;"CLOSE ";N$:ht 216,0:2580|t D$;"CLOSE ";N$t Y(222)t Y10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME":2392t 460"u NA2ĺ"INSUFFICTOMS DELETED"::2580 sV 2472`sX :"NAME FOR TEXT FILE?(USE FORM ";E$(E2);"$$$):":" ";N$s[ N$""ĺ"SAVE CANCELLED":2471s` (N$,5)E$(E2)ČGG:"TRY AGAIN":(37)3:2392sj D$;"OPEN ";N$st D$;"DELETE ";N$s~ D$;"OPEN ";N$t D$;"WRrB PPNP:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)^rE AC(N)U%AC(PP)AC(N):2380rG AC(N)V%AC(PP)AC(N)P:2380rI AC(PP)PPrL rM U%12385rN I1U%1:AC(I)V%AC(I)AC(I)P:2384rO AC(I)U%AC(I)IrP sQ NANAP:P;" A"q AC(N)QA%AC(PP)AC(N):23106q AC(PP)AC(N)Q%bq :N1QA%1:AC(N)QA%AC(N)AC(N)Q%oq :NAP:q "(ENTER NEW VALUES; SEPARATE BY COMMAS)":q GQA%:HQA%Q%1:2700q. M$"DELETE ":M3:2490q8 PV%U%1:V%NA2381q= NV%1NA=END":M1:2620)p:GNA1:HNAQ%:2700CpM$"INSERT":M2:2620Pp:2660sp"ATOM TO INSERT BEFORE? ";QA%pQA%NAQA%1ČGG:"OUT OF RANGE":(37)1:2270p216,0:NNAQA%1qPPNQ%:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)ozM$"DISPLAY":M1:2490)oNU%V%yo"ATOM NO. ";N;": ";AY$(N);",";AC(N);",";AD(N);",";BD(N);",";R(N):::2580oM$"MODIFY ":M2:2490o"(ENTER NEW VALUES; SEPARATE BY RETURNS - ESC TO REENTER OLD VALUE)":oGU%:HV%:5000pM$"APPNES" n " <5> DELETE LINES"Hn*" <6> SAVE NEW VERSION OF FILE"sn4" <7> CONTINUE ON TO CALCULATIONS"nC" <8> EXIT EDITOR TO MAIN MENU":nRE$:B(E$)48n\B0B92560nf:"TRY AGAIN"::2040op"TOTAL NUMBER OF ATOMS= ";NA:ES0ČGG:"NO CURRENT FILE EXISTS":34101mEES LIST CONTENTS OF FILE"m" <2> MODIFY LINES"m " <3> APPEND LINES"n" <4> INSERT LIM,256(Q1QI)%lpQ20Q2Q2255.9992lzQI(Q2)Ul7680M,QI:7681M,256(Q2QI)el7936J,2J}l8000J,2(AC(N)1)lAY$(N)"H"Ĺ8064J,0:960lAY$(N)"C"Ĺ8064J,1:960l8064J,2l:"DONE"::LO1lE1AC(1)INl2580(mN02:L1NA:Q(N,L)Q(N,L)TS::Ck8128,NA:8129,NA:M2:J1Ok N1NA}k*MM2:JJ1:Q0Q(0,N):Q1Q(1,N):Q2Q(2,N)k4Q00Q0Q0255.999k>QI(Q0)kH7168M,QI:7169M,256(Q0QI)kRQ10Q1Q1255.999k\QI(Q1) lf7424M,QI:7425SUMA(L,K,IN)B(K,J):K,jA(L,J,I)SUM:JMjQ(L,I)Q(L,IN)A(L,0,I)R(I)hjL:I:INAC(1):AC(1)1jTS0:N02:SUM0:M1NAjSUMSUMQ(N,M):MjSUMSUMNAjL1NAjQ(N,L)Q(N,L)SUM:(Q(N,L))TSTS(Q(N,L))jL:N#k TS55TS:N0:570i&I2BR0#i0INAC(I)Ci:B(0,0)(AR):B(0,1)(AR)biDB(1,2)(BR):B(2,2)(BR)|iNB(1,0)B(0,1)B(2,2)iXB(1,1)B(0,0)B(2,2)ibB(2,0)B(0,1)B(1,2)ilB(2,1)B(0,0)B(1,2):B(0,2)0ivL02:J02iSUM0iK02jSUMO ITSELF OR AN":"ATOM HIGHER IN INDEX.":"THIS WILL CAUSE THE CALCULATION ON AN":E$(1);" TO BOMB"::2580hPI3.1415926536:PCPI180hJ02:K02:A(J,K,0)0:hA(J,J,0)1:Q(J,0)0:hI1NAhARPCAD(I):BRPCBD(I)iI1AR0:BRPI:I:D$;"CLOSE ";N$'g216,0:EE2:2000 DISPLAY CURRENT SHAPE"Ze"<9> ADD/DELETE LINES IN CURRENT SHAPE"me" CATALOG"eE$:E(E$)48:E1270eE320,320,340,340,1990,3200,3700,3900,4000eE19280eGG:250e300e:D$;"CATALOG":3410 f,Y> NEW ";E$(1)#d"<2> NEW ";E$(2)Td"<3> LOAD ";E$(1);" FROM DISK"d"<4> LOAD ";E$(2);" FROM DISK"d"<5> REENTER EDITOR, CURRENT FILE"d:"OTHER OPTIONS:":d"<6> LOAD SHAPE FROM DISK" e"<7> SAVE CURRENT SH)"VALC."IcD$(4):D$;"BLOAD TABLEMAS.LOW":D$;"BLOAD SHROTLOW1.OBJ0"icLO0:NA0:GG64477:KR49152vc216,0:c"THE MOLECULAR ANIMATOR, BY JEFF HOWBERT":" VERS. 1.0, COPYRIGHT 1982"c:"FORM OF COORDINATE ENTRY TO BE USED?": d"<1 MENU>" bZ;b_" ABOVE HELP COURTESY OF MOOSE O'MALLEY"Abdbbn""jbxA$vbD$(4)bD$"RUN COOR2A.TOT7"------------------"``#" A - X ROTATE ABOUT X-AXIS"`(" Y - B ROTATE ABOUT Y-AXIS"a-" Z - C ROTATE ABOUT Z-AXIS"a2Ia7"NUM KEY CHANGE SPEED OF ROTATION"ja<" (0=FAST, 9=SLOW)"paAaF" S SHOW SPINE OF MOLECULE ONLY"aK" D SHOW ATOMS ONLY"aP" F SHOW SPINE AND ATOMS"bU" K RETURN TO d* I  aUL@ kU8  L  Q^R(jQ0l^l\  wU& r&ֿB|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@#t& r&ֿ_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^ÍÍÍÍÍÍÍÍÍ 3' ʎRʎ]]]ɍuL͟ɍ}RLRɍg^H hZLɍR LͲɊRR% Q Z@ -^ ş\[Z QY\[8`l6 'M96a0 H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee 'M96a00L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu^2`-T%".Q`pNФbptťܥm2<(-Py0\|66e<g0/xhI  aUL@ kU8  L  Q^R(jQ0l^l\  wUÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ 3' ʎRʎ]]]ɍuL͟ɍ}RLRɍg^HhZLɍR LͲɊRR% Q Z@ -^ ş\[Z QY\[8`l6}ůe:Q H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLeesl ;R0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu#z#??"ԮĠ"ԮԠҲԸ!Ϡ ŮŠ! ԮŠ! ԮŠ!ŮŠ!Ԯ֠"Ԯֲ" Ů֠  ŮàĠŮŠԮŠ ŮŠ Ԯ̠Р Ů̠Р ԮŠ  ԮŠŮŠԮŠŮŠ ŮԮŮ̠  ŮŠ ԮŠ ŮŠԮŠԮŠŮŠ ŮŠ  ŮųԮųԮؠŮؠ îŠ ԮŠŮŠԮҠŠ #Ų!ҲԷ#͠Ӯנ ױʰ Y$(N):E$(6)(AC(N)):E$(7)(AD(N)):E$(8)(BD(N)):E$(9)(R(N))~N$"":"OLD ATOM NO. ";N;": ";:M59:E$(M);"/";:::5150~M59~(KR)1285025~(KR)155Ĺ49168,0::5045~"";E$(M)~N$N$E$(M)"/":((37)):5150::"OK?":L1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q(1,L)U%)NLLu}:NL0Q(0,NL)Q(0,TT):Q(1,NL)Q(1,TT):TTTT1:4060}:"ATOM PAIR DOES NOT EXIST":4080}034,0:8129,TT}:L1TT:7935L,2(Q(0,L)1):7999L,2(Q(1,L)1)::180@~NGH:E$(5)A(1,L)U%)FLAG1B||:FLAG0TTTT1:Q(0,TT)U%:Q(1,TT)V%:4060j|:"ATOM PAIR ALREADY EXISTS":4080|TT0ĺ:"NO ATOM PAIRS TO DELETE":4080|:"ATOM PAIR TO DELETE? : ";U%,V%:NL0|(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080:}TT:Q(0,L);"/";Q(1,L);" ";:L5(L5)ĺ(13)={::4060l{hTT60ĺ:"NO ARRAY SPACE AVAILABLE":4080{k:"ATOM PAIR TO ADD? : ";U%,V%:FLAG0{m(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080|rL1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q0,L)(7935L)21:Q(1,L)(7999L)21:~z:"ADD/DELETE LINES IN SHAPE":"1=LIST 2=ADD LINE 3=DELETE LINE 4=EXIT"::34,3zE$:EE(E$)48:EE14080zEE4100,4200,4300,4400zGG:4060z:"# OF CONNECTED PAIRS= ";TT:TT04060/{ :L1BSAVE ";N$;",A$1C00,L$3C8"5y:"SHAPE SAVED":3410ByY(222)yY10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME"::3720y460y<LO03400yF4608:180yLO03400yAA(8128):TT(8129)yL1TT)zQ( "(PRESS ANY KEY TO CONTINUE)":E$:1803xt3770Bx~LO03400x"NAME FOR SHAPE DATA FILE? (USE FORM SHAPE.$$$): ";N$xN$""ĺ:"SAVE CANCELLED":3410x(N$,6)"SHAPE."(N$,7,1)" "(N$)7ČGG:"TRY AGAIN":(37)2:3720yD$;"HAPE."ČGG:"TRY AGAIN":(37)3:3205Ww D$;"BLOAD ";N$:LO1::"SHAPE LOADED":3410dw Y(222)w Y6ĺ:"YOU ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT EXIST"::3205w 460w> "LOAD CANCELLED":3410wH GG:"NO CURRENT SHAPE EXISTS."(xRv AY$(N)N$:AC(N)SC:AD(N)Q0:BD(N)Q1:R(N)Q2@v M1NANA1Fv Rv :2580v L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720v 3300v "NAME OF SHAPE FILE?(WILL BE OF FORM SHAPE.$$$):":" ";N$v N$""3390&w (N$,6)"SNY FOR AVAILABLE ARRAYS":(37)1:2630?uZ 216,0:M2240,2260kud :"COMMAND CANCELLED."::216,0:2580vu NGHu "ATOM NO. ";N;": ";u (KR)1282715u (KR)155Ĺ49168,0::M2770,2760u "";N$,SC,Q0,Q1,Q2:"OK?":A$u A$"Y"2710/"5=DELETE 6=SAVE 7=CALCULATION 8=EXIT"::34,4:2600Ot E$:B(0):B(E$)48\t B0B0t( B2160,2200,2230,2250,2350,2390,2480,2615t2 GG:2580t7 34,0:180t< 2660tF "NUMBER OF ATOMS TO ";M$;:Q%:Q%12660'uP PQ%NA:P60ČGG:"TOO MA2660Is "RANGE TO ";M$;"? (FIRST ATOM, LAST, RETURN) ":" ";U%,V%s U%1U%NAV%NAV%1Ģ(37):GG:"INVALID RANGE; TRY AGAIN: ";U%,V%:2520s 216,0::V%U%V%U%s M2180,2210,2360s :E$(E):"1=LIST 2=MODIFY 3=APPEND 4=INSERT"5t r 216,0:2580%r D$;"CLOSE ";N$2r Y(222)r Y10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME":2392r 460r NA2ĺ"INSUFFICIENT DATA FOR CALCULATION"::2580r "CALCULATING; PLEASE WAIT"::E470,3000s :" ";N$,q[ N$""ĺ"SAVE CANCELLED":2471bq` (N$,5)E$(E2)ČGG:"TRY AGAIN":(37)3:2392uqj D$;"OPEN ";N$qt D$;"DELETE ";N$q~ D$;"OPEN ";N$q D$;"WRITE ";N$q NA:N1NAq AY$(N):AC(N):AD(N):BD(N):R(N):r D$;"CLOSE ";N$:):2380*pG AC(N)V%AC(PP)AC(N)P:23808pI AC(PP)PP>pL MpM U%12385ypN I1U%1:AC(I)V%AC(I)AC(I)P:2384pO AC(I)U%AC(I)IpP pQ NANAP:P;" ATOMS DELETED"::2580pV 2472 qX :"NAME FOR TEXT FILE?(USE FORM ";E$(E2);"$$$):"N)AC(N)Q%o :NAP:Ho "(ENTER NEW VALUES; SEPARATE BY COMMAS)":co GQA%:HQA%Q%1:2700~o. M$"DELETE ":M3:2490o8 PV%U%1:V%NA2381o= NV%1NAoB PPNP:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)pE AC(N)U%AC(PP)AC(NN)AC(N)Q%o :NAP:Ho "(ENTER NEW VALUES; SEPARATE BY COMMAS)":co GQA%:HQA%Q%1:2700~o. M$"DELETE ":M3:2490o8 PV%U%1:V%NA2381o= NV%1NAoB PPNP:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)pE AC(N)U%AC(PP)AC(NATOM TO INSERT BEFORE? ";QA%QnQA%NAQA%1ČGG:"OUT OF RANGE":(37)1:2270in216,0:NNAQA%1nPPNQ%:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)n AC(N)QA%AC(PP)AC(N):2310n AC(PP)AC(N)Q% o :N1QA%1:AC(N)QA%AC(AD(N);",";BD(N);",";R(N):::2580=mM$"MODIFY ":M2:2490m"(ENTER NEW VALUES; SEPARATE BY RETURNS - ESC TO REENTER OLD VALUE)":mGU%:HV%:5000mM$"APPEND":M1:2620m:GNA1:HNAQ%:2700mM$"INSERT":M2:2620m:2660n"CONTINUE ON TO CALCULATIONS"FlC" <8> EXIT EDITOR TO MAIN MENU":YlRE$:B(E$)48kl\B0B92560lf:"TRY AGAIN"::2040lp"TOTAL NUMBER OF ATOMS= ";NA:lzM$"DISPLAY":M1:2490lNU%V%"m"ATOM NO. ";N;": ";AY$(N);",";AC(N);",";R MENU":4k"WHAT DO YOU WISH TO DO WITH FILE?":Yk" <1> LIST CONTENTS OF FILE"uk" <2> MODIFY LINES"k " <3> APPEND LINES"k" <4> INSERT LINES"k " <5> DELETE LINES"k*" <6> SAVE NEW VERSION OF FILE"l4" <7> j7936J,2J&j8000J,2(AC(N)1)EjAY$(N)"H"Ĺ8064J,0:960djAY$(N)"C"Ĺ8064J,1:960rj8064J,2j:"DONE"::LO1jE1AC(1)INj2580jES0ČGG:"NO CURRENT FILE EXISTS":3410jEESj:ESE k" FILE EDITO2:JJ1:Q0Q(0,N):Q1Q(1,N):Q2Q(2,N)>i4Q00Q0Q0255.999Ki>QI(Q0)niH7168M,QI:7169M,256(Q0QI)iRQ10Q1Q1255.999i\QI(Q1)if7424M,QI:7425M,256(Q1QI)ipQ20Q2Q2255.999izQI(Q2)i7680M,QI:7681M,256(Q2QI):INAC(1):AC(1)1/hTS0:N02:SUM0:M1NAEhSUMSUMQ(N,M):MThSUMSUMNA`hL1NAhQ(N,L)Q(N,L)SUM:(Q(N,L))TSTS(Q(N,L))hL:Nh TS55TS:N02:L1NA:Q(N,L)Q(N,L)TS::h8128,NA:8129,NA:M2:J1h N1NA&i*MM(2,2)(BR)%gNB(1,0)B(0,1)B(2,2)>gXB(1,1)B(0,0)B(2,2)WgbB(2,0)B(0,1)B(1,2)zglB(2,1)B(0,0)B(1,2):B(0,2)0gvL02:J02gSUM0gK02gSUMSUMA(L,K,IN)B(K,J):KgA(L,J,I)SUM:JgQ(L,I)Q(L,IN)A(L,0,I)R(I)hL:I);" TO BOMB"::25802fPI3.1415926536:PCPI180QfJ02:K02:A(J,K,0)0:kfA(J,J,0)1:Q(J,0)0:wfI1NAfARPCAD(I):BRPCBD(I)fI1AR0:BRPI:IN0:570f&I2BR0f0INAC(I)f:B(0,0)(AR):B(0,1)(AR) gDB(1,2)(BR):BYOU ARE ATTEMPTING TO READ A FILE WHICH DOES NOT EXIST":350_eGG::"ERROR CODE=";Y:3410eNL0:I1NA:IAC(I)NLIf:NL0ĺ"ATOM ";NL;" IS CONNECTED TO ITSELF OR AN":"ATOM HIGHER IN INDEX.":"THIS WILL CAUSE THE CALCULATION ON AN":E$(1" ";N$dcN$""3390Jdh(N$,5)E$(E)ČGG:"TRY AGAIN":(37)2:350]drD$;"OPEN ";N$pd|D$;"READ ";N$dNA:N1NAdAY$(N),AC(N),AD(N),BD(N),R(N)d:D$;"CLOSE ";N$d216,0:EE2:2000dD$;"DELETE ";N$dY(222)>eY5ĺ:"PE"c" CATALOG"2cE$:E(E$)48:E1270bcE320,320,340,340,1990,3200,3700,3900,4000pcE19280}cGG:250c300c:D$;"CATALOG":3410c,Y(222):460c@NA0:2000cT430d^"FILE NAME? (WILL BE OF FORM ";E$(E);"$$$):":"<4> LOAD ";E$(2);" FROM DISK"Ub"<5> REENTER EDITOR, CURRENT FILE"ob:"OTHER OPTIONS:":b"<6> LOAD SHAPE FROM DISK"b"<7> SAVE CURRENT SHAPE TO DISK"b"<8> DISPLAY CURRENT SHAPE"c"<9> ADD/DELETE LINES IN CURRENT SHA:GG64477:KR49152a216,0:pa"THE MOLECULAR ANIMATOR, BY JEFF HOWBERT":" VERS. 1.0, COPYRIGHT 1982"a:"FORM OF COORDINATE ENTRY TO BE USED?":a"<1> NEW ";E$(1)a"<2> NEW ";E$(2)a"<3> LOAD ";E$(1);" FROM DISK"-bA$A$"Y"5010kAY$(N)E$(5):AC(N)(E$(6)):AD(N)(E$(7)):BD(N)(E$(8)):R(N)(E$(9)):::2580"NEW ATOM NO. ";N;": ";N$;:DFILE":E$(3)"VALT.":E$(4)"VALC."`D$(4):D$;"BLOAD TABLEMAS.LOW":D$;"BLOAD SHROTLOW1.OBJ0"aLO0:NA0A$A$"Y"5010kAY$(N)E$(5):AC(N)(E$(6)):AD(N)(E$(7)):BD(N)(E$(8)):R(N)(E$(9)):::2580"NEW ATOM NO. ";N;": ";N$;:;80'"NEW ATOM NO. ";N;": ";N$;: Y$(N):E$(6)(AC(N)):E$(7)(AD(N)):E$(8)(BD(N)):E$(9)(R(N))~N$"":"OLD ATOM NO. ";N;": ";:M59:E$(M);"/";:::5150~M59~(KR)1285025~(KR)155Ĺ49168,0::5045~"";E$(M)~N$N$E$(M)"/":((37)):5150::"OK?":L1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q(1,L)U%)NLLu}:NL0Q(0,NL)Q(0,TT):Q(1,NL)Q(1,TT):TTTT1:4060}:"ATOM PAIR DOES NOT EXIST":4080}034,0:8129,TT}:L1TT:7935L,2(Q(0,L)1):7999L,2(Q(1,L)1)::180@~NGH:E$(5)A(1,L)U%)FLAG1B||:FLAG0TTTT1:Q(0,TT)U%:Q(1,TT)V%:4060j|:"ATOM PAIR ALREADY EXISTS":4080|TT0ĺ:"NO ATOM PAIRS TO DELETE":4080|:"ATOM PAIR TO DELETE? : ";U%,V%:NL0|(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080:}TT:Q(0,L);"/";Q(1,L);" ";:L5(L5)ĺ(13)={::4060l{hTT60ĺ:"NO ARRAY SPACE AVAILABLE":4080{k:"ATOM PAIR TO ADD? : ";U%,V%:FLAG0{m(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080|rL1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q0,L)(7935L)21:Q(1,L)(7999L)21:~z:"ADD/DELETE LINES IN SHAPE":"1=LIST 2=ADD LINE 3=DELETE LINE 4=EXIT"::34,3zE$:EE(E$)48:EE14080zEE4100,4200,4300,4400zGG:4060z:"# OF CONNECTED PAIRS= ";TT:TT04060/{ :L1BSAVE ";N$;",A$1C00,L$3C8"5y:"SHAPE SAVED":3410ByY(222)yY10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME"::3720y460y<LO03400yF4608:180yLO03400yAA(8128):TT(8129)yL1TT)zQ( "(PRESS ANY KEY TO CONTINUE)":E$:1803xt3770Bx~LO03400x"NAME FOR SHAPE DATA FILE? (USE FORM SHAPE.$$$): ";N$xN$""ĺ:"SAVE CANCELLED":3410x(N$,6)"SHAPE."(N$,7,1)" "(N$)7ČGG:"TRY AGAIN":(37)2:3720yD$;"HAPE."ČGG:"TRY AGAIN":(37)3:3205Ww D$;"BLOAD ";N$:LO1::"SHAPE LOADED":3410dw Y(222)w Y6ĺ:"YOU ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT EXIST"::3205w 460w> "LOAD CANCELLED":3410wH GG:"NO CURRENT SHAPE EXISTS."(xRv AY$(N)N$:AC(N)SC:AD(N)Q0:BD(N)Q1:R(N)Q2@v M1NANA1Fv Rv :2580v L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720v 3300v "NAME OF SHAPE FILE?(WILL BE OF FORM SHAPE.$$$):":" ";N$v N$""3390&w (N$,6)"SNY FOR AVAILABLE ARRAYS":(37)1:2630?uZ 216,0:M2240,2260kud :"COMMAND CANCELLED."::216,0:2580vu NGHu "ATOM NO. ";N;": ";u (KR)1282715u (KR)155Ĺ49168,0::M2770,2760u "";N$,SC,Q0,Q1,Q2:"OK?":A$u A$"Y"2710/"5=DELETE 6=SAVE 7=CALCULATION 8=EXIT"::34,4:2600Ot E$:B(0):B(E$)48\t B0B0t( B2160,2200,2230,2250,2350,2390,2480,2615t2 GG:2580t7 34,0:180t< 2660tF "NUMBER OF ATOMS TO ";M$;:Q%:Q%12660'uP PQ%NA:P60ČGG:"TOO MA RETURN TO
" bZNb_" ABOVE HELP COURTESY OF MOOSE O'MALLEY"Tbdubn""}bxA$bD$(4)b"EXEC MOLANIM ...."bD$;"EXEC MOLANIM"8" A - X ROTATE ABOUT X-AXIS"a(" Y - B ROTATE ABOUT Y-AXIS"&a-" Z - C ROTATE ABOUT Z-AXIS",a2Va7"NUM KEY CHANGE SPEED OF ROTATION"wa<" (0=FAST, 9=SLOW)"}aAaF" S SHOW SPINE OF MOLECULE ONLY"aK" D SHOW ATOMS ONLY"aP" F SHOW SPINE AND ATOMS"aSbU" K  `:`>`" MOLECULAR ANIMATOR HELP. M.O'MALLEY"_` "-------------------------"e``" KEYS EFFECT / RESULT"`"-------- -----------------------------"``#" A - X ROTATE ABOUT X-AXIS"a(" Y - B ROTATE ABOUT Y-AXI   L S h hV]LƍSQME氥 k3:AyX67NN/SQ25#*$EGFBCܽ^"AL3yL?tqPw6xiZqFnbkcOEdT\<<hٕ1M!Lp`- f!QZyqlz6BW0:V 4254,128("A"), "BRUN SSPROT$$1"2`px|~~~~~|xp`??px|~~|xp?????@`px|||||xp`@??@@@@@@`pxxxxxp`@??@``@>>@`````@|~~|xp`@@@@@`px`````??p`@@`p??`@@`??AA?????A`` @@@@@ pp @  @ @@ @@@@@xx@  @ @@ @  @>AA>@ @||AdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAd*@  @@ @@@@ "AAA"8DD8pp``??|xxx|???xpppxq```qcAAAcGG~~~~|||~*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT                        ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######     YOU ARE ATTEMPTING TO READ A FILE WHICH DOES NOT EXIST":350_eGG::"ERROR CODE=";Y:3410eNL0:I1NA:IAC(I)NLIf:NL0ĺ"ATOM ";NL;" IS CONNECTED TO ITSELF OR AN":"ATOM HIGHER IN INDEX.":"THIS WILL CAUSE THE CALCULATION ON AN":E$(1" ";N$dcN$""3390Jdh(N$,5)E$(E)ČGG:"TRY AGAIN":(37)2:350]drD$;"OPEN ";N$pd|D$;"READ ";N$dNA:N1NAdAY$(N),AC(N),AD(N),BD(N),R(N)d:D$;"CLOSE ";N$d216,0:EE2:2000dD$;"DELETE ";N$dY(222)>eY5ĺ:"PE"c" CATALOG"2cE$:E(E$)48:E1270bcE320,320,340,340,1990,3200,3700,3900,4000pcE19280}cGG:250c300c:D$;"CATALOG":3410c,Y(222):460c@NA0:2000cT430d^"FILE NAME? (WILL BE OF FORM ";E$(E);"$$$):":"<4> LOAD ";E$(2);" FROM DISK"Ub"<5> REENTER EDITOR, CURRENT FILE"ob:"OTHER OPTIONS:":b"<6> LOAD SHAPE FROM DISK"b"<7> SAVE CURRENT SHAPE TO DISK"b"<8> DISPLAY CURRENT SHAPE"c"<9> ADD/DELETE LINES IN CURRENT SHA:GG64477:KR49152a216,0:pa"THE MOLECULAR ANIMATOR, BY JEFF HOWBERT":" VERS. 1.0, COPYRIGHT 1982"a:"FORM OF COORDINATE ENTRY TO BE USED?":a"<1> NEW ";E$(1)a"<2> NEW ";E$(2)a"<3> LOAD ";E$(1);" FROM DISK"-bO`38400:AY$(60),AC(60),AD(60),BD(60),R(60),A(2,2,60),B(2,2),Q(2,60),E$(9)`E$(1)"INTERNAL COORDINATE FILE":E$(2)"CARTESIAN COORDINATE FILE":E$(3)"VALT.":E$(4)"VALC."`D$(4):D$;"BLOAD TABLEMAS.LOW":D$;"BLOAD SHROTLOW1.OBJ0"aLO0:NA0          ?<TdWeN~GrOzLzKfUTR[fΌܒ΀DAc 1:yLvh \hgQMEưikmjln[lX `ĠԤӠb́{sZ]5KGD "446#Q_Nd]gHOVL`ɍIb(h*!_i€zSU)mQ2 NjÇ{PZ:zBfN!fp۝gJ@0pHpL MpM U%12385ypN I1U%1:AC(I)V%AC(I)AC(I)P:2384pO AC(I)U%AC(I)IpP pQ NANAP:P;" ATOMS DELETED"::2580pV 2472 qX :"NAME FOR TEXT FILE?(USE FORM ";E$(E2);"$$$):"N)AC(N)Q%o :NAP:Ho "(ENTER NEW VALUES; SEPARATE BY COMMAS)":co GQA%:HQA%Q%1:2700~o. M$"DELETE ":M3:2490o8 PV%U%1:V%NA2381o= NV%1NAoB PPNP:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)pE AC(N)U%AC(PP)AC(NATOM TO INSERT BEFORE? ";QA%QnQA%NAQA%1ČGG:"OUT OF RANGE":(37)1:2270in216,0:NNAQA%1nPPNQ%:AY$(PP)AY$(N):AD(PP)AD(N):BD(PP)BD(N):R(PP)R(N)n AC(N)QA%AC(PP)AC(N):2310n AC(PP)AC(N)Q% o :N1QA%1:AC(N)QA%AC(AD(N);",";BD(N);",";R(N):::2580=mM$"MODIFY ":M2:2490m"(ENTER NEW VALUES; SEPARATE BY RETURNS - ESC TO REENTER OLD VALUE)":mGU%:HV%:5000mM$"APPEND":M1:2620m:GNA1:HNAQ%:2700mM$"INSERT":M2:2620m:2660n"CONTINUE ON TO CALCULATIONS"FlC" <8> EXIT EDITOR TO MAIN MENU":YlRE$:B(E$)48kl\B0B92560lf:"TRY AGAIN"::2040lp"TOTAL NUMBER OF ATOMS= ";NA:lzM$"DISPLAY":M1:2490lNU%V%"m"ATOM NO. ";N;": ";AY$(N);",";AC(N);",";R MENU":4k"WHAT DO YOU WISH TO DO WITH FILE?":Yk" <1> LIST CONTENTS OF FILE"uk" <2> MODIFY LINES"k " <3> APPEND LINES"k" <4> INSERT LINES"k " <5> DELETE LINES"k*" <6> SAVE NEW VERSION OF FILE"l4" <7> j7936J,2J&j8000J,2(AC(N)1)EjAY$(N)"H"Ĺ8064J,0:960djAY$(N)"C"Ĺ8064J,1:960rj8064J,2j:"DONE"::LO1jE1AC(1)INj2580jES0ČGG:"NO CURRENT FILE EXISTS":3410jEESj:ESE k" FILE EDITO2:JJ1:Q0Q(0,N):Q1Q(1,N):Q2Q(2,N)>i4Q00Q0Q0255.999Ki>QI(Q0)niH7168M,QI:7169M,256(Q0QI)iRQ10Q1Q1255.999i\QI(Q1)if7424M,QI:7425M,256(Q1QI)ipQ20Q2Q2255.999izQI(Q2)i7680M,QI:7681M,256(Q2QI):INAC(1):AC(1)1/hTS0:N02:SUM0:M1NAEhSUMSUMQ(N,M):MThSUMSUMNA`hL1NAhQ(N,L)Q(N,L)SUM:(Q(N,L))TSTS(Q(N,L))hL:Nh TS55TS:N02:L1NA:Q(N,L)Q(N,L)TS::h8128,NA:8129,NA:M2:J1h N1NA&i*MM(2,2)(BR)%gNB(1,0)B(0,1)B(2,2)>gXB(1,1)B(0,0)B(2,2)WgbB(2,0)B(0,1)B(1,2)zglB(2,1)B(0,0)B(1,2):B(0,2)0gvL02:J02gSUM0gK02gSUMSUMA(L,K,IN)B(K,J):KgA(L,J,I)SUM:JgQ(L,I)Q(L,IN)A(L,0,I)R(I)hL:I);" TO BOMB"::25802fPI3.1415926536:PCPI180QfJ02:K02:A(J,K,0)0:kfA(J,J,0)1:Q(J,0)0:wfI1NAfARPCAD(I):BRPCBD(I)fI1AR0:BRPI:IN0:570f&I2BR0f0INAC(I)f:B(0,0)(AR):B(0,1)(AR) gDB(1,2)(BR):B((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######     ŠŠŠΠҲԷA$A$"Y"5010kAY$(N)E$(5):AC(N)(E$(6)):AD(N)(E$(7)):BD(N)(E$(8)):R(N)(E$(9)):::2580"NEW ATOM NO. ";N;": ";N$;:FILE":E$(3)"VALT.":E$(4)"VALC."`D$(4):D$;"BLOAD TABLEMAS.LOW":D$;"BLOAD SHROTLOW1.OBJ0"aLO0:NA0Y$(N):E$(6)(AC(N)):E$(7)(AD(N)):E$(8)(BD(N)):E$(9)(R(N))~N$"":"OLD ATOM NO. ";N;": ";:M59:E$(M);"/";:::5150~M59~(KR)1285025~(KR)155Ĺ49168,0::5045~"";E$(M)~N$N$E$(M)"/":((37)):5150::"OK?":L1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q(1,L)U%)NLLu}:NL0Q(0,NL)Q(0,TT):Q(1,NL)Q(1,TT):TTTT1:4060}:"ATOM PAIR DOES NOT EXIST":4080}034,0:8129,TT}:L1TT:7935L,2(Q(0,L)1):7999L,2(Q(1,L)1)::180@~NGH:E$(5)A(1,L)U%)FLAG1B||:FLAG0TTTT1:Q(0,TT)U%:Q(1,TT)V%:4060j|:"ATOM PAIR ALREADY EXISTS":4080|TT0ĺ:"NO ATOM PAIRS TO DELETE":4080|:"ATOM PAIR TO DELETE? : ";U%,V%:NL0|(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080:}TT:Q(0,L);"/";Q(1,L);" ";:L5(L5)ĺ(13)={::4060l{hTT60ĺ:"NO ARRAY SPACE AVAILABLE":4080{k:"ATOM PAIR TO ADD? : ";U%,V%:FLAG0{m(U%1V%1U%AAV%AA)ĺ:"NONEXISTENT ATOM":4080|rL1TT:(Q(0,L)U%Q(1,L)V%)(Q(0,L)V%Q0,L)(7935L)21:Q(1,L)(7999L)21:~z:"ADD/DELETE LINES IN SHAPE":"1=LIST 2=ADD LINE 3=DELETE LINE 4=EXIT"::34,3zE$:EE(E$)48:EE14080zEE4100,4200,4300,4400zGG:4060z:"# OF CONNECTED PAIRS= ";TT:TT04060/{ :L1BSAVE ";N$;",A$1C00,L$3C8"5y:"SHAPE SAVED":3410ByY(222)yY10ĺ:"YOU ARE ATTEMPTING TO OVERWRITE A LOCKED FILE; CHOOSE ANOTHER NAME"::3720y460y<LO03400yF4608:180yLO03400yAA(8128):TT(8129)yL1TT)zQ( "(PRESS ANY KEY TO CONTINUE)":E$:1803xt3770Bx~LO03400x"NAME FOR SHAPE DATA FILE? (USE FORM SHAPE.$$$): ";N$xN$""ĺ:"SAVE CANCELLED":3410x(N$,6)"SHAPE."(N$,7,1)" "(N$)7ČGG:"TRY AGAIN":(37)2:3720yD$;"HAPE."ČGG:"TRY AGAIN":(37)3:3205Ww D$;"BLOAD ";N$:LO1::"SHAPE LOADED":3410dw Y(222)w Y6ĺ:"YOU ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT EXIST"::3205w 460w> "LOAD CANCELLED":3410wH GG:"NO CURRENT SHAPE EXISTS."(xRv AY$(N)N$:AC(N)SC:AD(N)Q0:BD(N)Q1:R(N)Q2@v M1NANA1Fv Rv :2580v L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720v 3300v "NAME OF SHAPE FILE?(WILL BE OF FORM SHAPE.$$$):":" ";N$v N$""3390&w (N$,6)"S BL   - `Iid8 8 S S`  `I`i HIHH`# k kGDL k kGDL k kGD6&><=q YJ>e<=>=>/  >e<=>=>B BLTAL%` ե>e=<><>߹  >e=<><>  B<>  B BL`L'HIi`CȹDhJ@AJIi`EȹF8 Ii <=@0  >e<=>=>B BLAL)`  >e=<>8FFEE`ii`@ii`A8Ii<8Ii=><==-  >e<=>=>BBLAL `  >e=<><>  BBL U]GIT\ vI`  @ 8FDEC魷@ FeDEeC@  #HIHH LJD0CJfDJfDJfDJfDCCDC08EjiFEȹ  v @GD ITH   #Hɀ ɀL L L}qeYLLLLLɺ ɰ鰅L>RTQ` `px|~~~~~|xp`??px|~~|xp?????@`px|||||xp`@??@@@@@@`pxxxxxp`@??@``@>>@`````@|~~|xp`@@@@@`px`````??p`@@`p??`@@`??AA?????A`` @@@@@ pp @  @ @@ @@@@@xx@  @ @@ @  @>AA>@ @||AdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAdAd*@  @@ @@@@ "AAA"8DD8pp``??|xxx|???xpppxq```qcAAAcGG~~~~|||~*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT*8FT                          ύȍÍȍÍȍȍÍȍȍÍȍȍÍȍȍÍȍȍÍȍȍÍȍȍÍύȍÍÍȍȍȍÍȍȍȍÍȍÍÍȍÍȍÍȍȍȍÍÍÍȍȍ":"  "$&(*,.02468:<>@BDFHJPE."ČGG:"TRY AGAIN":  " &(((&000&8:::@@@FF88F"SHAPE LOADED":3410PTING TO LOAD A FILE WHICH&) DOES N,SC,Y4kչwz-3* 4  FU# Q1:R(N)Q2h M1NANA1n z :2580 L̑4QJ[@J ]:+ [ > D I nSHAPE FILE?(WILL BE OF FORM SHAPE.$$$):%:Q1:uՁ7-.Cj$(u'5+1 ,(XZ  30gZ 216,0:M2240,2260d :"COMMAND CANCELLE1:uՁ7-.Cj$(u'5+1 ,(XZ   (KR)155Ĺ49168,0::M2770,2760 "";N$ r$)Lv[ҏuqqa6.*7"1!6-DT"::34,4:2600w E$:B(0):B(E$)48 B0'U bG )vq_iʜMkhT" 1e Av,{180< 2660 F "NUMBER OF ATOMS TO ";M$;:Q   S8DCD S8DCD S8DC)@УL0CJfDJfDJfDJfDCCDC`#+.6BJU\.4FL+2o+2U\:i@G`<= =J<`J=` ``iig8    `iig8 8 ' ' '`iid8 Iɸ  ` k kGD SeDeCD SeDeCD SeDeC)@УL k kGD L   -`   8`Iig8  S S S`$@??@֥`@i@ hʼ@BJ *L L TB`ʆB  EL -B1:2͡y ( (2Y'h6'h6COMMAND CANCELLED."::216,0:2580S NGHl "ATOM NO. ";N;": "; (KR)1282715͡y ( (2Y'h6'h660 "";N$,SC,Q0,Q1,Q2:"OK?":A$ A$"Y"2710  AY$(N)N$:AC(N)SC:AD(N)Q0:BԝѮy+{.K Z5B ZZ(484 B0B0c( B2160,2200,2230,2250,2350,2390,2480,2615q2 GG:25807 34,0:ESE:֮n)i0 _*0 _c(S TO ";M$;:Q%:Q%12660P PQ%NA:P60ČGG:"TOO MANY FOR AVAILABLE ARRAYS":(37):32  "";N$:LO1::"SHAPE LOADED":3410A Y(222)  ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT 460> "LOAD CANCELLED":3410H GG:"NCURRENTD(N)"?%YcVW2Yc :2580h L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720s 3300 "NAME OF%n' )  SHAPE.$$$):":" ";N$ N$""3390 (N$,6)"SHAPE."ČGG:"TRY AGAIN":(37)31:2"5 KK'h6'h6COMMAND CANCELLED."::216,0:2580S NGHl "ATOM NO. ";N;": "; (KR)1282715"5 KK'h6'h660 "";N$,SC,Q0,Q1,Q2:"OK?":A$ A$"Y"2710  AY$(N)N$:AC(N)SC:AD(N)Q0:Bգ-߾( Z5B ZZ(484 B0B0c( B2160,2200,2230,2250,2350,2390,2480,2615q2 GG:25807 34,0:ESE: //,'( _*0 _c(S TO ";M$;:Q%:Q%12660P PQ%NA:P60ČGG:"TOO MANY FOR AVAILABLE ARRAYS":(37)ȍÍȍȍȍÍÍÍÍÍÍÍÍ APE. "(37)3:3205S D$;"BLOAD ";N$:LO1::"S    Y(222) Y6ĺ:"YOU ARE ATTEMPTING CH DOES NOT EXIST"::3205 460> "LO CANCEL AY ~* PfD 9N (N)Q2< M1NANA1B N :2580 L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L):; D^*WKa\fKNuE FILE?(WILL BE OF FORM SHAPE.$$$):":" ";N$ N$""3390" (N$,6)"SHY FO-,}!;L= )G !(Z 216,0:M2240,2260gd :"COMMAND CANCELLED."::216,0:2580r NGH "ATOM NO.-,}!;L= )G !((KR)155Ĺ49168,0::M2770,2760 "";N$,SC,Q0,Q1,Q2:"OK?":A$ A$"Y"2710+38$S! 0T4:2600F E$:B(0):B(E$)48S B0B0( B2160,2200,2230,2250,2350,2390,2480,261X}0"g v/N s< 2660F "NUMBER OF ATOMS TO ";M$;:Q%:Q%12660#P PQ%NA:P60ČGG:"TOO MAN1:2*yv 2 /Lo'h6COMMAND CANCELLED."::216,0:2580S NGHl "ATOM NO. ";N;": "; (KR)1282715+h6ݡԓ&/"T/Lo'h660 "";N$,SC,Q0,Q1,Q2:"OK?":A$ A$"Y"2710  AY$(N)N$:AC(N)SC:AD(N)Q0:BlRg3 {e ZZ(484 B0B0c( B2160,2200,2230,2250,2350,2390,2480,2615q2 GG:25807 34,0:ESE:lRg3 {2 _c(S TO ";M$;:Q%:Q%12660P PQ%NA:P60ČGG:"TOO MANY FOR AVAILABLE ARRAYS":(37)ȍÍÍȍÍȍÍȍÍȍÍȍȍÍȍȍÍȍȍÍȍȍÍȍȍȍ:32  "";N$:LO1::"SHAPE LOADED":3410A Y(222) ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT 460> "LOAD CANCELLED":3410H GG:"NCURRENTD(N)"K}' Eb)2Yc :2580h L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720s 3300 "NAME OF"C%6[,<Z SHAPE.$$$):":" ";N$ N$""3390 (N$,6)"SHAPE."ČGG:"TRY AGAIN":(37)31:2%xХ8 2$6/Lo'h6COMMAND CANCELLED."::216,0:2580S NGHl "ATOM NO. ";N;": "; (KR)1282715%xХ8 2$6/Lo'h660 "";N$,SC,Q0,Q1,Q2:"OK?":A$ A$"Y"2710  AY$(N)N$:AC(N)SC:AD(N)Q0:Bh  _(2e ZZ(484 B0B0c( B2160,2200,2230,2250,2350,2390,2480,2615q2 GG:25807 34,0:ESE:/|2Tot2 _c(S TO ";M$;:Q%:Q%12660P PQ%NA:P60ČGG:"TOO MANY FOR AVAILABLE ARRAYS":(37)  ȍÍȍȍÍȍȍȍ :32  "";N$:LO1::"SHAPE LOADED":3410A Y(222)  ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT 460> "LOAD CANCELLED":3410H GG:"NCURRENTD(N)CdVW2Yc :2580h L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720s 3300 "NAME OF"\\ݛ < )  SHAPE.$$$):":" ";N$ N$""3390 (N$,6)"SHAPE."ČGG:"TRY AGAIN":(37)3ȍÍÍȍÍȍÍȍÍÍÍȍÍȍÍȍÍ":"  "90N (N$,6)"SHAPE."ČGG:"TRY AGAIN":   $;"BLOAD ";N$:LO1::"SHAPE LOADED":34106ĺ:"YOU ARE ATTEMPTING TO LOAD A FILE WHICH DOES N,SC,2  b4wDpߝy 0W AY$(N)N$:AC(N)SC:AD(N)Q0:BD(N)Q1:R(N)Q2h M1NANA1n z :2580 L [ ,+@ L)R(L)::720 3300 "NAME OF SHAPE FILE?(WILL BE OF FORM SHAPE.$$$):%:Q z)@$4Iuּr MANY FOR AVAILABLE ARRAYS":(37)1:2630gZ 216,0:M2240,2260d :"COMMAND CANCELLE z)@$4IuּrATOM NO. ";N;": "; (KR)1282715 (KR)155Ĺ49168,0::M2770,2760 "";N$zү  be V-I .  "5=DELETE 6=SAVE 7=CALCULATION 8=EXIT"::34,4:2600w E$:B(0):B(E$)48 B0<( Y m.,z8.2390,2480,26152 GG:25807 34,0:180< 2660 F "NUMBER OF ATOMS TO ";M$;:QȍÍÍȍÍȍÍȍÍȍ΍APE. AGAIN":(37)3:3205S D$;"BLOAD ";N$:LO1::"S :3410` Y(222) Y6ĺ:"YOU ARE ATTEMPTING LE WHICH DOES NOT EXIST"::3205 460> "LO CANCEL AY"T0:BD(N)Q1:R(N)Q2< M1NANA1B N :2580 L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L):_L ![NAME OF SHAPE FILE?(WILL BE OF FORM SHAPE.$$$):":" ";N$ N$""3390" (N$,6)"SHY FOp ,, P s.7)1:2630;Z 216,0:M2240,2260gd :"COMMAND CANCELLED."::216,0:2580r NGH "ATOM NO.p ,, P s.82715 (KR)155Ĺ49168,0::M2770,2760 "";N$,SC,Q0,Q1,Q2:"OK?":A$ A$"Y"2710+2(3$1[NEXIT"::34,4:2600F E$:B(0):B(E$)48S B0B0( B2160,2200,2230,2250,2350,2390,2480,2611(p[ 0:ESE:180< 2660F "NUMBER OF ATOMS TO ";M$;:Q%:Q%12660#P PQ%NA:P60ČGG:"TOO MAN    :32  "";N$:LO1::"SHAPE LOADED":3410A Y(222)  ARE ATTEMPTING TO LOAD A FILE WHICH DOES NOT 460> "LOAD CANCELLED":3410H GG:"N CURRENTD(N)m 0ڰtT%I2Yc :2580h L1NA:Q(0,L)AD(L):Q(1,L)BD(L):Q(2,L)R(L)::720s 3300 "NAME OF T~Y?#6 SHAPE.$$$):":" ";N$ N$""3390 (N$,6)"SHAPE."ČGG:"TRY AGAIN":(37)3  ȍÍȍÍȍȍÍȍÍȍÍȍÍȍÍȍȍÍȍÍȍύÍÍȍȍÍȍȍÍȍȍÍȍȍ":"  "$&(*,.02468:<>@BD"SHAPE."ČGG:"TRY AGAIN": ""&&**..4488<<@@1::"SHAPE LOADED":3410TEMPTING TO LOAD A FILE WHICH#$ DOES N,SC,  >v !eD O } )WOB>lBD(N)Q1:R(N)Q2h M1NANA1n z :2580 L AC PP MJ, d9 ]-v~r|ME OF SHAPE FILE?(WILL BE OF FORM SHAPE.$$$):%:Qeu!'1/2;'1$d`ׅH+ BԇMʳ1:2630gZ 216,0:M2240,2260d :"COMMAND CANCELLEeu!'1/2;'1$d`ׅH+ BԇMʳ2715 (KR)155Ĺ49168,0::M2770,2760 "";N$ lhJQ*Jhb` D { !r' 8=EXIT"::34,4:2600w E$:B(0):B(E$)48 B0  OZ*۠g2k f < tE.&34,0:180< 2660 F "NUMBER OF ATOMS TO ";M$;:Q      ![E|{ d.ޤ !G*+ewFL0 \ FL0 \$ (jHiו +>I^8    ȍȍ΍ȍȍÍÍȍÍύύȍȍȍ3' Rʎ]]]ɍuL͟ɍ}RLRɍg^HZLɍR LͲɊRR% QZ@ -^ ş\[Z QY\[ 8`l6'~8*fu4k(h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLeer,ч+'3&.Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu^Q݋4=!'.Q`pNФbptťܥm2<(-Py0\|66e<gڿ\1:> d* I  aUL@ kU8  L  Q^R(jQ0l^l\  wU& r&ֿB|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@#t& r&ֿ_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^3' ʎRʎ]]]ɍuL͟ɍ}RLRɍg^H hZLɍR LͲɊRR% Q Z@ -^ ş\[Z QY\[8`l6 'M96a0 H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee 'M96a00L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu^2`-T%".Q`pNФbptťܥm2<(-Py0\|66e<g0/xhI  aUL@ kU8  L  Q^R(jQ0l^l\  wUq `%zB@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@#t"$T #_*U^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^  3' ʎRʎ]]]ɍuL͟ɍ}RLRɍg^HhZLɍR LͲɊRR% Q Z@ -^ ş\[Z QY\[8`l6}ůe:Q H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLeesl ;R0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu^&x2(ه!".Q`pNФbptťܥm2<(-Py0\|66e<g&x2(ه!ݷhI  aUL@ kU8  L  Q^R(jQ0l^l\  wU04gB@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@#t0QL4ϞrU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^F m.')z7vp*_+*!+yqpx|~**7777(*3]67V<<8:=???@#tF m.')z7vp*_+*-{󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^ !!! ȍÍÍÍÍÍÍȍȍȍȍÍȍȍȍ ""   """""""""&& && && && && && && &&  6& #3"-  t+ZX+"&33&"" #3 && #33""" 3' '& &3'"63 6"2' #' u _ "+pԛ37 7" '3 #2 3""" '3 && '3"2'' 2' '& "' 2"#& EdB#Tq'ܫ2&"""" "2 2'"" #3 2' '& "' ""637"""&"27EdB#Tq'ܫ"627"" &" "6"" #3 3' '&633'2' #2 3' #" , =aa2A]22 62 '3 '#6" &'36 '6 '7 '7 6# #"#2 #6 #& #7 *&u4V """2 2" '' 3' 63 '2 7'#7 "" #3 3' '& 2'''    ȍÍÍÍÍÍÍȍȍȍȍȍ 3' ʎ]]]ɍuL͟ɍ}RLRɍg^H ZLɍR LͲɊRR% QZ@ -^ ş\[Z QY\[ 8`l6>KA$)SG \APߖЌ@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee$x${@hhe`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu^)&*g s`pNФbptťܥm2<(-Py0\|66e<g)&*g s aUL@ kU8  L  Q^R(jQ0l^l\  wU # <"y"ƞ!|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@#t#TxD J " ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^  ȍÍȍÍȍȍÍȍȍÍȍȍÍȍȍ!"3'  "$&(*,.24ɍuL͟ɍ}RLRɍg^H   "" ( LͲɊRR% Q -^ ş\[Z QY\[8`l6o,= *G1֣ EM,. IRb_L`LLLL`ª`LQLYLeLXLeLee\ ( z-a I3C^(6Qm. :Ll8 ўR HH\`\Z[YS6`LxQɿu^PC o):m:U-7#VSh0S=i ѱ@&<ܥm2<(-Py0\|66e<gPC o):m:U-7#VSh0S=i ѱ@&e U+ 6=-*m)@֓)ڊeb -{󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^!!!!΍ÍȍȍȍύύȍȍÍÍÍÍÍÍȍȍύȍÍȍȍÍȍ!!΍ÍȍȍȍύύȍÍÍÍÍÍÍȍȍȍȍÍȍȍÍȍ! ! 3'  "$&(*,24ɍuL͟ɍ}RLRɍg^H   "" ( LͲɊRR% Q -^ ş\[Z QY\[8`l6 Y!yS= R FO,. IRb_L`LLLL`ª`LQLYLeLXLeLeeXWZ[?:Z\M `L D r _P. :Ll8 ўR HH\`\Z[YS6`LxQɿu^I.#3#q :D( p"[B`X@&<ܥm2<(-Py0\|66e<g..4F#N E;(D(Dϖʮ 1m@&