) ,,, ();"0"0 () "E" () "H"  (J2 " GOOD MORNING I HOPE YOU ARE WELL"i<   "DO YOU WANT CPM or BASIC or RUN THE CRYSTAL PROGRAMME C/B/R"   "CcBbRr"  Z F &P a x,x,,,,(Z    " ";0da u  a ""  a u  4na w(,a)  a  d  x        K      " CREATING EMPTY FILE PLEASE WAIT " "R",,"CRYSTAL.RND", , r r ""        XD s("CRYSTAL.rnd") ""   "R",,"CRYSTAL.rnd",; , R.,  R.,  R.,  R. , rn " CREATE AMEND LIST FIND END or STOCK ADJUST C/A/L/F/E/S"   "CcAaLlFfEeSs"  Z  > a 0,0,>,>,,,,,,,6,6j"  ;" FUNDAMENTAL = ";R." "R." STOCK LEVEL = ";R." COMMENT = ";R.,6   @ , J r. ( ," ") hT &(r.)  "^Ph   "ENTER CRYSTAL FREQUENCY (fundamental) TO STOCK UPDATE ";cryr  (cry)$|cr cry (," ")    ,  r. ( ," ")  cr r. ^     " THIS FREQUENCY IS NOT ON FILE TRY AGAIN "         "O   "ENTER NUMBER OF CRYSTALS TO ADD (xx) or SUBTRACT (-xx) ";nr &(r.)rr r nrf "(rr) r. rf ,4   " NEW STOCK LEVEL IS "   "-&         0   : ,+D R. ( ," ")   l:N " MORE Y/N"   "YyNn"  Z X b a   l)v   "FILES ARE FULL "     "FILE "; "FUNDAMENTAL "; "STOCK LEVEL"; "COMMENT "; "TX or RX";< " CORRECT Y/N "   "YyNn"  Z a   ""  R.  ""  R.   ""   %() R.    "" * %()  R. * ,49>    " FILE TO AMEND";H ,'R r. ( ," ") \  fZ\   " THIS FILE IS EMPTY "         f "Mp" CHANGE , DELETE , PRINT , SKIP ""CcDdPpSs" Z&z a ,,8,8,V,V: " MORE Y/N"   "YyNn"  Z   a    >     ,  r. ( ," ")   "      B  " PRESS ANY KEY TO CONTINUE or E or e to END"#au a""au"$ a"E" a"e" .8 r""B , L FV" FUNDAMENTAL ";r.;" STOCK LEVEL";r.;" COMMENT";r. ` jWt ************************************* SEARCH ROUTINE **************************~k "DO YOU WISH TO FIND THE CRYSTAL FREQUENCY OR THE FINAL FREQUENCY C/F"  "CcFf"  Z a ,,<,<  B " ENTER FUNDAMENTAL FREQUENCY TO FIND ";f   (f)    ,  r. ( ," ")  - x(r.,) f "       <  " MORE Y/N "   "YyNn"  Z a ,,,S(***************************** choose radio *********************************2 < #F "ENTER TYPE OF RADIO ";rP %(r)Z ()d  "FC900" n  "K9" hx  "NOVA"   "SABRE"   "ZYCOM"   "#"    "@" d   "?"    "&" T   "/"   <T******************************** FC900 ************************************/   "FC900 TX or RX (T/R)";trt %(tr) t "T" " t "R" 6   9"   "ENTER FINAL TX FREQUENCY REQUIRED";fi,f fi  0 96   "ENTER FINAL RX FREQUENCY REQUIRED";fi%@f (fi33+)  0 JTT********************************** K9 *************************************^,h   "K9 TX or RX (T/R)";trrt %(tr)| t "T"  t "R"    h9   "ENTER FINAL TX FREQUENCY REQUIRED";fif fi  0 9   "ENTER FINAL RX FREQUENCY REQUIRED";fi%f (fi33+)  0 V********************************** NOVA *************************************.   "NOVA HB or LB (H/L)";trt %(tr) t "H"  t "L" l   7   "NOVA HIGH BAND TX or RX (T/R)";trt %(tr)& t "T" D0 t "R" X:   9D   "ENTER FINAL TX FREQUENCY REQUIRED";fiNf fi  0 9X   "ENTER FINAL RX FREQUENCY REQUIRED";fi%bf (fi33+)  0 6l   "NOVA LOW BAND TX or RX (T/R)";trvt %(tr) t "T"  t "R"    l9   "ENTER FINAL TX FREQUENCY REQUIRED";fif fi  0 9   "ENTER FINAL RX FREQUENCY REQUIRED";fi%f (fi33+)  0 W********************************** SABRE *************************************/   "SABRE HB or LB (H/L)";trt %(tr) t "H"  t "L" p    8   "SABRE HIGH BAND TX or RX (T/R)";tr t %(tr)* t "T" H4 t "R" \>    9H   "ENTER FINAL TX FREQUENCY REQUIRED";fiRf fi  0 9\   "ENTER FINAL RX FREQUENCY REQUIRED";fi%ff (fi33+)  0 7p   "SABRE LOW BAND TX or RX (T/R)";trzt %(tr) t "T"  t "R"    p9   "ENTER FINAL TX FREQUENCY REQUIRED";fif fi  0 9   "ENTER FINAL RX FREQUENCY REQUIRED";fi%f (fi33+)  0 W********************************** ZYCOM *************************************0   "ZYCOM UHF or VHF (U/V)";trt %(tr) t "U"   t "V" t    3   "ZYCOM UHF TX or RX (T/R)";tr$ t %(tr). t "T" L 8 t "R" ` B    9L   "ENTER FINAL TX FREQUENCY REQUIRED";fiV f fi  0 9`   "ENTER FINAL RX FREQUENCY REQUIRED";fi%j f (fi33+)  0 2t   "ZYCOM VHF TX or RX (T/R)";tr~ t %(tr) t "T"   t "R"     t 9   "ENTER FINAL TX FREQUENCY REQUIRED";fi f fi  0 9   "ENTER FINAL RX FREQUENCY REQUIRED";fi% f (fi33+)  0  T ******************************** ##### ************************************ /   "##### TX or RX (T/R)";tr t %(tr) t "T"   t "R" 2     9   "ENTER FINAL TX FREQUENCY REQUIRED";fi( f fi  0 92   "ENTER FINAL RX FREQUENCY REQUIRED";fi%< f (fi33+)  0 F TP ******************************** @@@@@ ************************************Z /d   "@@@@@ TX or RX (T/R)";trn t %(tr)x t "T"   t "R"     d 9   "ENTER FINAL TX FREQUENCY REQUIRED";fi f fi  0 9   "ENTER FINAL RX FREQUENCY REQUIRED";fi% f (fi33+)  0  V ********************************** ???? ************************************* .   "???? TX or RX (T/R)";tr t %(tr) t "T"   t "R" "     9   "ENTER FINAL TX FREQUENCY REQUIRED";fi f fi  0 9"   "ENTER FINAL RX FREQUENCY REQUIRED";fi%, f (fi33+)  0 6 W@ ********************************** &&&&& *************************************J /T   "&&&&& TX or RX (T/R)";tr^ t %(tr)h t "T"  r t "R"  |   T 9   "ENTER FINAL TX FREQUENCY REQUIRED";fi f fi  0 9   "ENTER FINAL RX FREQUENCY REQUIRED";fi% f (fi33+)  0  W ********************************** ///// ************************************* /   "///// TX or RX (T/R)";tr t %(tr) t "T"   t "R"      9   "ENTER FINAL TX FREQUENCY REQUIRED";fi f fi  0 9   "ENTER FINAL RX FREQUENCY REQUIRED";fi% f (fi33+)  0 & ******************************************************************************************************************************************************************************.0  " THE FUNDAMENTAL SHOULD BE:- "f:   D , N r. ( ," ") v X fu &(r.)b f fu  l Nv    " NOT FOUND TRY AGAIN Y/N"   "YyNn"  Z a  2d   "FILE No " "FUNDAMENTAL = "r." "r." STOCK = "r." COMMENT = "r.,   " PRESS ANY KEY TO CONTINUE "# u ""      TOCK = "r." COMMENT = "r.,   " PRESS ANY KEY TO CONTINUE