<<L=;w{:>A&CN| PO͵wEE B7@ ?BOOT-F-I/O error (=K c v c v c v c tv &C% ys% &CsS ys Xv xev f ov   ,H!  \H!   Z  p    ve  x&  %C ̵@STARTSex  5  w@5 C C  5  w`` wDvߋtȋ5 x b  x|&  [_  [H_  H!  lH!  _   (   Z    +_  k_  „  x  H!  *'|Qv f sS33 &k!   &\!  &j!  &g!  jP "jO &i!  &h!  f  +  r  K  6o &+(  0(2  R@   q  BA-J837B-BC MINC V2.0 DECRT11A xE  e  v@ `D fHT HT fHT `HTHT  HT HTpHT% HL xHT xHT5 &}@HT__>z >n e  @B5 %z% %Z7 }%Yz %d %\7 m5lem |7 ?BOOT-F-No swap file on volume 7f ?BOOT-F-No monitor file on volume  P7( ?BOOT-F-Insufficient memory 7 ?BOOT-F-Swap file is too small  e e |e < Ge|xD N4 >4 Ea a a* *e 5 a ,Vp`Vp`Xp]]5 AHH   @5  5f@f ;a  aW,`p %0  h;ae; wV0  % % 1  "0  0 ڇ׭ $,U BU ,04@V:::G@@@@@@@&;*;L:L< ="=8=E>; F??@ABEE4F,GVG>jHHPIB ;;;6; ;BčBDEB @@@zz?BOOT-W-Invalid or missing TT.SYSB RT-11SJ (S)V03B-00I z z z Yzdz &@yz Mz Zz> sSy:v T :v  R`;v Sdv zv 2dv# c v c v c v c v c v X @wzw5  2U? @7 be,}`` 555 5e H< e * `E ! UUUz  PP Đ ĊU zEex,}EzEeUUz~W" _AzeB vANrrF6e<&  ( c    e2  ec 4 e&c 7 |e&,^% & h  7 z5 EȊ  x  n U  b8 ;"@"ةGp @ g .WORD .WORD .PSECT.IFF$SYDSZ == .PSECT SYSHND.ENDCSTRT::.IF B .GLOBL INT .WORD  .WORD INT - ..IFF.GLOBL ,INT .WORD <-.>/2. -1 + ^UwJPBCDLCoD3@@@D ee0!!+5?`@+7`B f`B!? 5CT, & '$$>$R&@%&,Z-x-&~*J- `a `7```爇& TG C  .+@P@@v^ j` RE!@!7 7 U7 ? &? 7 "e,} `n5T?  V d g׌N3   Eť ť ť`w$  @ ? "? $,3 R zEP$ET*7 +7 X 3 3 3 3 35**3 3 e 5$UB)  z E$&e\eC 5$w)E,+<5@9+5E z B` B׌$_Vť "ť /ť ť -! BB7 ť `   n   B݁7  )Y5Ke4  MH \ $0$$ 3lEw, 5 67 r ̋? ^ ? E(+7 w5k ?  tw\e>e0eD D! c""   f ``<<L=;w{:>A&CN| PO͵wEE B7@ ?BOOT-F-I/O error (=KU(? & ʋ5v(ŀaz  7 t( 鈷h fW@CU(F f8f W@f x8C5'%@&^8weC ˕ ˤ &툀鈷ewZ x&  %C ̵@STARTSex  5  w@5 C C  5  w`` wDvߋtȋ5 x bWfeͥ( 77777 w.(*$ `Ce EfE%  ҋҋG #ʵ@ e`a%A 7  w& ee: & g  R"E e%  78?KMON-xE  e  v@ `D fHT HT fHT `HTHT  HT HTpHT% HL xHT xHT5 &}@HT__>z >n e  @B5 %z% %Z7 }%Yz %d %F-Overlay read error 5A K * +U@D& l 7 fe ?KMON-F-Fatal halt鈇  4 Ez %z ͋ ( B `  5$f >,( ""@&5\7 m5lem |7 ?BOOT-F-No swap file on volume 7f ?BOOT-F-No monitor file on volume  P7( ?BOOT-F-Insufficient memory 7 ?BOOT-F-Swap file is too small  e e@ 7  e  %@AeFuu  ( T X \E $ H .6 "? " cef `%Ԃ  f W +,e, (wv'@7$e '  I 6ww%  |e < Ge|xD N4 >4 Ea a a* *e 5 a ,Vp`Vp`Xp]]5 AHH   @5  5f@f ;a  aW,? !& f ,e $&EΔNIQ%Ό%@ 2EQU E`H#HeeNb,e, 0e' & De'w e ^!$  R L'((U  E`p %0  h;ae; wV0  % % 1  "0  0 ڇ׭ $,U BU ,04@E ` ف E6%^CC^!C%גע! C!$ @@   #   W: eZe0 `? # C! פ ר- 3D _7 , V:::G@@@@@@@&;*;L:L< ="=8=E>; F??@ABEE4F,GVG>jHHPIB ;;;6; ;BčBDEB @@@zz?BOOT-W-Invalid or missing TT.SYS & n. J 4Ud" (- # 3c    ""H7C  ,&5!&E faWW!<7 !e(e0!$!!&@ E &E`! 7 g7z~ ? Xf^!  v@! - D @&c%Lbtt&b%0c0jW""e,e0# 5 o%% E P4H@ `  |K5$e "2   I$QIeU@W@aDaWw w eD w4 el ! s @r  wJ|D\f`|dP|D PB RT-11SJ (S)V03B-00I or file? File 1? File 2? Library? Files ? File ? Physical device name? Logical device name? AW[ 0W:(((f",.e"@4`.|240$",4,/.&.$,0E0,000 06.... ((4RCODE DIDE(? WWW B ab2.L ""w? ? 2@w 4 !7w #  eNSS t_P cw U 7   7 7 w w 0w?  w -7 T LI ERECO  RESLC BSA RE SS GDE FO  AB DIFOSSTIN   DID IN RE LIH7 Fw (& 7J w @%.@% @#eee%7` 7 d   e# ' wEK]w  ۇf& : 8W 1bELW! 5 L1   <$ & w .8eAbw   Da(D`D` Rvpbdͥ,͋jg,E  7 7| lwr  wa PO e @e`  e ! @CONTNSUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU͇  @  7w r`wawLͥ  ͥ+ͥ,ͥ 7, 7xwre7_77 ͥ/I7PNO<e p SWUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU B#B ԁ`C  emDHa ҋ 3EfE%  ҋʵ@AwmE 77P|  | v  phœ  ¥  aefbL= K3 aezН/P h UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0˵@-•:) N N Zͥ-,B 4 H•.˵  B  ֆ 2ae  0 Oͥ: ͥ- ]eЕ[ P ͥ. ww7?Mͥ:  f 7wwwz `        x g l~[WWQUY QOGAB I Pb M P SCTYUI STUN  w E w$  ~  u%  77e eRe ͥ:  77e~ 2eef ,e  f&e j pp LF FB BENc CC!SC"S P#A$ODc%Dc&Jc'K(MUST )K*F+V,Q-R.G w ]\ w`ͥ:[ qlB ¥]ww RE P IA BU%pppͥ:!fefe * nee( ~Е Pee  `ͥ[R  ͥ- g z R ͥ]R Еrnv e aew*W Е:ͥ: ( ͥ.* w I P P   S  N SSBD ODTIAL B  B FF P T OS   OSAL ODS BEFB  F    D BE @ vAeJ  @ʕ*  #ͥ.P J  v%* @.*   @P  .ͥ*ͥ%  ee@a ȕa P C X DEBN!!  N! 6 N! *ͥ/͜AN wwNwͥ) ͥ, ͥ ͥ+͋f 5  L(e   6 > W ͋"w Z T w7  n7 E  2wwR e ы wae  8 $ w=u  V7fe e LMG,7 0 MfeBfeX, e_ l_? LBaJa(XD^\`Zbd"2J B@( "B p v \0pJXrH  eJe" aa C @ @w:, F f ÝeL aedw/   @RESORCPIPDIRDUPLINKBASICFORTRAMACRODUMPLIBRSRCCOMFILEXF4PDICOMPFOCALAPL     m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[E($U@~ ?MON-F-Illegal call to USRNo deviceDirectory I/O errorBad FetchOverlay errorDirectory overflowIllegal addressIllegal channelIllegal EMTTrap to 4Trap to 10FP trapMemory errorStack overflowSystem write error@T^r|m[m[m[m[LB: zL\z^*\LnZrDK:DK:SY:.SYS.LST.BOTkQ\$D DeC B`  ew> w2  |K5$e "   I$QIeU@ @FD$CeK    baba& Nw:TT:PL:KDTDOFrom? To ? File? Files? Device? Devicew D-F-鈀 U@vUf dw(& X∿ W[ W]  2W:  eJW.  $  $  7%%**09AZaz&   Nl b wzE 7L?MON-F-System read failure halt   < T $7 |7 < * " JĔ Ĕ &f&I e`  &e@^w:3 e &N W-e E  C0Π a `  6D w7 "F&F&   &7&  TT L4Lf \ & J & 8 V%&f&  U$E$w ww*GprtvF<?30*   -t7 le$F7 7 7 e>;J&\ L%J $  G@'( EM( U%| (r w 5(wB  e : L$   (  wߋ$ۀ^:(;:zz JJEw   D eEE e NQ@N  7RDť+;  fw E % * * e> 'C& eK# c# w 4mc DCB " s & ^ww :Hb` Hh$Ow7"| ff EaACW5 e  am*aglFFj~   FFFFFFFFFF FXU D   &7   8uD*eaU6  + 6<$w_ *%ee Ee #4E|ew X$E  FC.e - W -4     %  j F R   &DDeed$   f7`?X7T   /DeE D  5f w >H $PPw Fw (w  w  w 7 H3N  Q f *8,QJ7 F#@SD Og,e  ,0< *^%>=w65@>=^ 77 ?MON-F-Power fail halt R?N ac~,6 "0d @(F*&   5 @ < < N52g,.*5 # #e`#w "P %    `C KSdKU b$`Cg, _#&  ? B 7 h 63 f7 Kaes S w ^ 5Sw J7+5$ ͋*@ q"@  l͊  UU@ Z  wT XU$7  7   7 & 5(7 FE$(7> 7 ĥ  *U$5$Cw `I3W2Wl Ew C $ A!EE P &EΒE? *# ?w D%7 Еȕ e 0\^E & &N&& RDee?   f&@E\?5@$azE e  `SJu         rɥ 8W# u# > 5$ X 4     w  5$  U@w|w 2&fmw   E ŧ<ŭ^ f eg> BBE/aw "Ba5lafw nCRC!  BC 5aW :*Z Q!Eh(A W  UUH 7 j (  f  x7 ? t@n <  J D P T 7 ? r &5 @f Fe)U%Me u#e 7 @@@|A|A|AA  x`Be 7pEer5d3 w w @w w B xPPPH (a(fECew EN  x FEUw 5@!eBB ` ? DwElm*e& ,w  Q$ D \$.E@% * " @w `7 &w 8w  Be$B  wdQ$mw    &  |7d@Ŋ5$ߋr7 v:$*  @5@+B עGE85$E ӋU@UӋ@A A &$ h4 u# W%*L E  ?z#  4% 4  .?N $ ̗/ ? <% fNe p H&LE 0f& $xr7 j & e  ˋ5Q E %=%< D  "% % 5(ŀ׭A *"CИBw2 @'  7 e  O  $  N&r77  7 & f7 w ~ 0w ^ `! -&7 @  V5 Ea5' +7 5%5 E Eael B55 M D `97Device full N ,   &` 7File not found W,W=͋X7xIllegal commandͥ/N : U@ \ͥ.   @ 7Illegal device* 7?CSI  E E 7  s!5s  ENEae$ E % Άe`B`N ˋ  w  5E  $ &77  $ & Ĕ!6S͋2 eA ĒB `A `, eA p`7 Z<@&7 L<  ":  % ee/ e0w`  A @  -Jan-Feb-Mar-Apr-May-Jun-Jul-Aug-Sep-Oct-Nov-Dec-#e"  ͋WEr E ͋ ͥ-H ͋DA e B @ @ ց   @eEW=͋P,e, 0 <  N W,wHW ͋ $, & eE:<:<.< e(,e,Ċ͋#! C͋ͥ ͥ,u W- !k$,1!&c  xe  V f/ND`? # e(e & / & &$ &  O e   5 7r >EBc \O eT @  ef X f % w͋\  ,ep*Eg,eh eE  & &+3O& ㈅ e W!·  f?   `? 2 ߋ*wwe e @aew?KMON-F-?KMON-W-Line too longIllegal continuationAmbiguous commandIllegal commandFile not foundNot enough memorySystem I/O errorNo fileSave file I/O errorIllegal deviceBad fetchIllegal device for command fileIlle }w z \w }w  @e" r T 7 I G8 6&(7n a e,ew<  2 w> ߋ*ww ? W,͋w4gal option for programIllegal optionConflicting optionsAmbiguous optionIllegal NO on optionCommand string too complicatedIllegal value on optionError in file specToo many filesCommand file nesting too deepCommand file not at end of lineNo dateI  "Je> H nf, " W-~;7 4D)  !H', Q$W ',$)  a E 6Q$E , `6`? W,͋ww^ l llegal dateIllegal timeNo clockParametersMust 'R BATCH', type '/U'No roomAlready installed/assignedNo handler file on SY:Handler file I/O errorConflicting SYSGEN optionsDevice loaded or not removableAddressLogical name not foundNo roomCommand file I/O errorCommand file not foundww n    Hw  (ef@׭} w  > ` 0 qe ez}]vUHUHͥ: H.TECeBP,e:E: e" Ad  @b <J$H7 : n"Je" zzW ?  & &Ne@@ONU T : b$C;$"A 2 $ 7 .=E@ ,@!"W. B`  ͥ: ' ''PPw PYHXZHK@IMZeDPP PJ`@ePPPPP z2dv@^UA!!@:ER#SY:HELP.TEC#"F@^A#?HELP-F-File not found HELP.TEC #HKEX'YHXZHKGAMZ $ Ow pX t G˵JӵU $ aC]  ` 55  E   7we&m75   7 8@,ww7 ,-  & &wwfw,E]Yzd m`" Gwd \d4 EP e鈇 ae ,eb" &4   J D ev& w" W  jwt @x  = 5:5  Z2  bw5@J  U5 & 4E L5 -.w8UL 55$% eC % C ``` e̵%W  }' '* 4 X:#"""" wYw̵5>5 EȊ  x  n U  b X @wzw5  2U? @7 be,}`` 555 5e H<BIwww wF }w  J " V" SP  2 &m eg z3 ? & &+e _,00#`0.r 0 h? ͋/W,w6w @ :: 4Q .hw8e,͋(W    Ce<%R V `H͋*p5E   e  eH w x r T””#e,e V5 2r2"e6 ͋*W  B[e e ee4  f  }w  & "zL" I" F"  X  %z #0 `,,,#   e .2  ! 1 1 $? ͋W,w& 4&" ewww ` @ : 3 g *RGWWQYCTNw  w u   @w  evf D!%  R`W!+&&   e f   & f&ww' ww w D  u  18  (/ HL HEHDHCMhP HN ww  w bw B  u  / '  A DC WO ww"7 m eB`  DZT͋D ,̕/w  w7z7d A Def  e_!,ee   e %  eae8  ww ^0 Tw wv {  u  h `  GP W DEA`NOGBGI`R T@LMS CmFmO SUVGM VwRw H HwV Nwb"&e2  e % P (Loaded) (Resident) , =   P7 z   <7    W"zW"  B 2e   7 eweP % b    u    !SOWW @L GP   HEHD@C A DEA`NOGIGB`RTMS CmFmOMhP HNUVGM  RwNw `z 췊DwR J%e ee e  e鈁(@     wO SLIE DI CLIPAL W LIN AL OSO F4FEXS   DICOR CW  CO  MADI oe- @& 8w`"  * ZC! ׭! fw*W@7  \5 Pwfߋ* zw *ʋU f? ``?  N!%7   u    !SOWW@LGP HEHD@CADEA`NOGIGB`RTMS CmFmOMh P!"#$%&'(HNUVGM !"#$%&'( 2w.7v@E!wW7 .Հ 5 lE!d7 7 ^Q w| wt0z5( " e$ ̟Ԋ  ?R? U HAw pw xzp b w.7 0f,[ ^@e8@ J7  w/RU "@ ee@` wh7|KNILm*戕$wZ ե/@ ;ae6  <@ /  ,+SLIN SO W RF4FMADIO LIEw V w   fw  D v VW  d D" " !ehC   wLed "    t  eZ  b \e,͋E EXOAL  DI CAL OEXS   CODIR CW  CO  LIPAL P W BOLIN DEXMA www Y u  M EI@R@ Z W S L@ M@B@T@E@U@Y/ w < wf "feHB¥[P @e ы e wRUN  z with no math instruction setwith Floating Point Un Z aa&  0 D@m@7 ^R@ M-w w *e  7`  F :    w   @e E7w    w wl Z "7e v  UP$7 Z v v  0 v   7 v CD5@Ub 5UV v D5@ @" @" zU( v    it (FPU)with Floating Instruction Set (FIS)with Extended Instruction Set (EIS)RL02 system volumeRL01 system volumeRX02 system volumeRX01 system volumeunknown type of system volumeVT125 terminalVT105 terminalunknown terminalVM: device pre%  rEP$  & t De  x  0 *w0e  鈷 5鈷 5 鈷 ~ 5x.鈷 j׭d-^.R鈷 Pf鈷 D׭<z鈷 0׭(鈷 鈷 ׭2sent<[?3l[?6l(B#3 MINC BASIC/23 V2.0 #4 MINC BASIC/23 V2.0 processor NOSuspendRun FORE RESORCNONEUnknownLSI-11PDP 11/04PDP 11/05,10PDP 11/15,20PDP 11/34PDP 11/35,40PDP 11/45,50,55PDP 11/60P 鈷 ׭q6鈷 鈷  f鈷 Uv DPNv  $7  e> ^^鈷 v 5b 5Te VTBP v `@`@v \  DP 11/70PDP 11/44PDP 11/24PDP 11/23PDT 11/130PDT 11/150 '2z50 Hz system clock60 Hz system clockMINC-F-50 Hz clock setup error Please enterToday's date: Current time: Incorrect date, correct format is dd- C C Pv `0f @,e LFU U C 0f U,eȵ b鈷 v鈷 | ww @I w p- w w ` c l5w 0D v Rw b : mmm-yy Incorrect time, correct format is hh:mm:ss JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-sSy:%MINC-F-VM.SYS not present on system disk.MINC-F-Error while reading VM.SYSMINC-F-Error while writing to VM.SYSzz: w :  &w : ; w ; w ] `  . ,eU ,edAb%鈷 w 7 v  7 h b-VU t7 FC zQSX%MINC-F-no SP handler in system@yPpS(E)S(A[0,479][767,0])P[0,0]\1I A 2INS DY LOAD DY INS VM LOA VM R MUTIL VM:/Z/Y MINC-F-Insufficient space on system diskMINC-F-MINC system not present on system diskMINC-F-Bad MINC system o  w6DU%w B@ @ @`w &@`    0W  : 6 7  az & 7} 7ur 7j-b-^3 $ -DFE n system diskzovzsS(vzsS&v MINC-F-The system on this disk and this system configuration are incompatible. Do you wish to run MINC BASIC from VM:? (Y or N) z&C%RUN VM:Q4SZMX ALL R Q4SZMX ALL R MUTIL VM:Q4SZMX.SAV=Q4SZMX. 4D@ Rɋ|7 rv 5 w,v v   w 3 eQ~U0v 0 Uv Uz & & W e  zEE< SAV/N   67 v .v 0  0 "Xv  0  0 (U t"*v 鈷 X w  鈷 D w eH,N鈇v  ~v #~ Zw ~lw v w  w b v  0  0 =&w 鈷 w 鈷 r w 鈷 d w X [v v Ӈ +-'UP$Yyw EP$v  0  0 v  0 0 Z 鈇&fe>B @& fE@# B _ _ t_  _  8_  _  _  ,eee( " x & & 6 ? |Hɕe  DATE TIME DATE TIME ~ & ˇ/ 5~FɋwbB `ыB ɋɋB  ew fPw& HЋЋЋe 7AI ww @` bf wz  7   w L qߥ*wf wh e V   E>w!ww l w & r%   wp HwH@`7  wp w }% \7 e" #" #" ,   peAȋ  ` P7t7nDIGITALA, wewewewewae/ 7w D-w B  n6 ZX H] B&B7 X  Օ UU  D%u ՝՝՝%Օ.e  @  :7:2 B dT 'd -@eeW#@ z w vt nwFOutput file name is already in use; do you want to erase its current contents (Y or N)?x׭ 'U55eUwHardSoftBad Blocks Type Filename Rel Blk ?DUP-I-No bad blocks foundThere were no bad blocks found (w <5P vxhwh > wR7 \ m7B wI55 wK0HWEB~?<963&0O-r*}'$!' K ^t^鈀+wj@鈅Proceed with initialization (Y or N)?   ~   l e jXF R z >w n# f w w Z^w T0w |7 w w = &%CR%T1^ww 87neDevice SY may not be initialized. Current owner: Current volume id:? MUTIL V03.03 ?UTILITY-F-?UTILITY-W-RebootError writing directoryBad directory blockIllegal commandInstall volume to be initialized in SY, and press RETURNDisk unusabl7d w B=e #mJ#[7-w ^w &wTw = Be B*ew 2@ $  !@w w @w w @ P  ` sw t  ~ ? n @户7^ mV waR 7P w F hb " 7.w Bwwew BC e wW"6@  @"? ~7 tw 7 l  m  &`  F    e. Too many bad blocksError in formatting diskVolume owner name may not be 'DIGITAL'Unable to initialize volume with owner name 'DIGITAL'Unable to specify 'DIGITAL' as owner nameCopies of the following files may be faulty:Insufficient memoryError r2 dw :w Rw "-<w a w w\wX Initialization is complete; found Bad blocks @m7  17 \w w e N  r w P0 leeading directoryError in system areaTarget volume must be newly initialized.Not enough useable space on volumeRead errorWrite errorDirectory fullCannot write SY: while FG loadedIllegal deviceDevice not activeIllegal directoryIllegal contiguous ffee # e7cE `7!dwR XeA# # #eLR6 v  7 l B͋ww0 P ,B w7{"ŝԋ`^w\DZ  fLDBB C ileToo many bad blocksIllegal optionCannot /S SY: if indirect file openUnmarked bad blockFile not foundInput truncated at six charactersInput truncated at ten charactersInput truncated at twelve charactersDevice in useUninitialized volumeOutput f`B   ,7 " r M ͋wd  Z WWw 7 v   H  8 ee  w %w 4  Bw    8 = w R AeB`w >"d ( w *eAeBdevice not specified; DK: is defaultNo swap file on boot volume, ZNRBVKHFSICTUOYLXWXh Pp``w   z  BP  SY1 owner is: SY1 volume id is: @@   @ A  @ A @ A @ A    e0U %  Օ0N UUU  m  w@ 8 720 (  %: X!}<}; z:ߋ*wR  flJ `X fT4 L B e7: & #www 8~w 0= P  6 ׭!7 w7.7 5wv T{׭37 ( '7 &, V & w ( @ e@W [eW $e c    5m f A N  %  ѥ  Y  T  0-,7w%4w2w 7- ~ 4w w X7 $w  ѭBы @w 7 e7%@   ex ewj   p w    v &? 7; X  p  d  \  8 w 8  H7   5 =   )5%  ze(%w VeeDECRT11A nZ ȭ`ew 0w 7  0׭8nw w7z%l@ 8wU@$U$A Nw mADe 6f7 w  w Tw 0 w &f&f~  f (TVȋ ȝp0 &De"$& &ew w ^w ԕ E$E@$ T& & Fȋ  5vw j zRT11A ߋtv ?BOOT-F-No boot on volume Type new Volume id:Type new owner name:4/?&g鈀?EDITOR-&:鈀&@鈀[?8l[?8h ( (@ɋ (;B Rf &g鈀  0 9 f e 0`[H[24B#5[132C[6n[ ɋ ; f Rw f& e    8! ' z 7   !Pp V!M    7 *w7 |+wx !g  *'V Z7 7 7 7 7 07 + ^ x w&7   n7 $$7  6  *5 *  U@E@ 7 (7 7 7 7 07  7 80+ 4$ B : 7 *7  $wW-Abort edit session losing all edits (Y,N) ?f f b  q鈷 Nw Lq7 47 20< WORKING... ~rO[PQRSw t, qp n MAV B CDn p <[m=[?1l>[H[J[24B [K[H[K[B[K[H(0(B[?6h[?6l[24B[24A[6nf  e 6A &  h7 7 0,B ` E`^ Xt w \e e Nw>-,ba%&w w  1,w  De 7B5-vm&m% "`mx v@~w > d  &&7   0 9  7 * w w w  ~@  w hw `w. X    n j ,&7 `@ `  XC``B7Z%^w e <% "(  (4 @w w tw w$ w : 2ww (7 wDo you want to duplicate another volume (Y or N)?Re-install system vo(u-@ J : m      2  7 @j[r7 ,~CD \ T   p   \w TwR7 q 4 Q+ Jlume in SY0, and then press RETURNInstall volume to be duplicated in SY0; install initialized, empty volume in SY1,Are you ready (Y or N)? 7 z7 t Je 0 4  %vwN2e* $ (0   鈀  &^e@W X ҇7 17   W  W W W   鈰 wO 7 D7  beicd V-  L  6-j  X `@n7 7  & Ε,e  ĥ%,_hjXX ɥɥemfew"em w  7Z gw ^ew wew p ~  Bɋ@ & BW  @     5 E U w A Zaz < ы  j   RRR  7 LHT m0 8$ H7 meR7 J7|l Cw  u rԝԝԝe ԕ. W X    < @ $ ~ @   5 |v@    ` @    5  6 tU `5    Au u @ d ^u   @ H   5  @         P5 W  < w$U ~ w @  7 DfAAu- Am lual j 5 v \`Ntunu|p 8un^Bp u- W b =rj 5!DfC $ \ p X X5!t uru^np zu|p N ~نf @, pp0  eE `uu 7 y,w7 ݐ,w7 ݪ,w"&U $ , 2EU  ,5fnۀ 7 , . 숁  w /  !DE . ن '  \\ Al  e X\ ^& X0 ~$ e@E^ X5! z X @@a}Z&@l@mz Z5 \5l ^ u-^  X u-^*     `C !ee!m@a7 @,0 툀''&)  8 ' ' :6 t6 *Aa @,p7 ., '7 @,'XCa Baf c   f&& \B\Al`N W0 ѥ   %  N /u-^vNx#f& @  xu^v  01R j b x 5 X 7 , c W  'N7' J''$$$$@,' 7 hJ' d+@,'p  @ '' 7 &'7 5'  @7 -7 Q-&@^5 v xu^vx $ 2;  $H  &  & &dd &1 %0  Ee/  "2BRbr#3CScs$4DTdt%5EUeu&6FVfv'7GWgw(8HXhx)W-Limited space for insertions (only XXXXX blocks)W-Continue (Y or N)?W-Output file name is already in use do you want to erase its current contents (Y or N)?7 9IYiy*:JZjz& R ([  ,; @ H  fW B ?dd duz u u| u~    S S  m Az7 Hueu .f,; ,4t@,(-B@,0  (eE  7 ى-7 -7 |-DIGITAL7  B  H7 4 (  de0  נ0ѕ  ѐ 'd kZs{(0a(B(0d(B(0`(B(0i(B(0c(B[K[[J M[H[J &A` u  W W   u`u @  䂁 u`A7 f+w f&& l & ZۀYy7 &'B'$$$$Be @,p   1   @,'A@,'0 6D B  B BE@,p00  f w! 7 |+w7 w5 5uu="  $5 ,Ca #7 +w7 v X %55 5 u5 5 5 @ 5   R L W-" > 8 @, p00 `7 .7 &.?& -* &t*鈀t*UPJՇEPBՇF-Incorrect screen siz  V * N@  *u- } @ @ *u- } @ N *  & (f # & (= @ * u-e&u (@5 * eF-Unable to size screenF-Insufficient memoryF-Incorrect screen size, type CRModel: W-File exitF-Bad call to .VVV.VF-Bad impure area pointerF-SETUP- Allocation errorF-SPCFRE- Logic error, character count wrongF-RDFWD- No space to readF-RDFWD- u-e&u (u @   :   "@  &   fN%$ u- 7 NAA u "  lfN %$ 7 AA u " & fN pointer corruptF-WRFWD- Block overrunF-WRFWD- Bad block numberF-WRFWD- Not enough dataF-RDBKW- No space to read intoF-WRBKW- Block overrunF-WRBKW- Bad block numberF-WRBKW- Plygnd not emptyF-Illegal command lineF-Cannot find input file on specified7 AA A"u $ @ 7 / +@@@ A A @AAAmAA 5 (u&( A 5`&u (u`(5 &5 (7 `+w  7 87 P7 4 0wNW- I/O error; check diskette dri or default volumeF-Output volume has maximum number of files or no free blocksF-No output volume space large enough to EDI input fileF-Cannot proceed; owner is 'DIGITAL' for output volumeF-Non directory device illegal for outputF-Unable to check volu  z x  p7 P7 4Z+ & 7 g^  wRf&ves and message manual Continue (Y or N)?7 AA u "au- JAu  \BB"5RRu AA" .@,Hp pp 0  um u"AB5  @m u @ŀ" R  u u 5  ,& 5^5 jfN NmNbu`@d7 @^@  A 7 @a v 7 f`DAbu- DA`u A fAb @fd @^ Ba j 7 Xu`fu-7 +w7 +w7  u Au u A A;BB 0BB "3BB"  *@, pp 0  u ABA"bu um"7 @,w`7 6',wV7 ,A,wL7 AA u "4 /Au  `/ DAf W  ^ʋ  lX@ u^h V@^ 56 ʇuh^ҋKA^7 zN !R=eu eAa@$  u^D%5 ^  Ba@m7 4z `R@  ``B   BBm"5bbu  @,Hppp 0  um"u7 Z,w7 AAmBnBmCC "0  Y \ Y  @, ppp 0  uABAm"Ru u"u-5B B me ownerF-Unable to trim output fileF-I/O Error while trimming outputD     6 2 &  ֥Y w5Bf7: BɕS Y lr` v-d7  -P   67 0f f p" L Fѕ  <ѕ ,(*4"HBDENQWY  "2,,@  @& e % %   @  IB ȕ0  T zH6 7 xbl> 7. RH& F RH j ," 7" ȕF0  t7"  d 77ww @`772  & R ʋHF0  8< "& ȕF0  8\    f  5  rU5f"(e @A E  $ !5 ȕ Fp 5 EEB@ ?UTILITY-x-dev:filnam.typ to dev:filnam.t] ȕF0   H4 4 4 L2 0 *    HF0 X W 5"e W!X C"z 3 yp are you sure (Y or N)? ?MINC-W-Output filename is already in use.Do you want to erase its current contents (Y or N)? Check sum error Device in use DirectȕF 5@U5 U UU5    U U " ee  B U 0URf  %:&% * .  JQUJQ  . ory input error File sequence number not found Illegal commandIllegal delete Illegal directory Illegal optionIllegal option valueIllegal output fileIllegal rename Illegal use of wildcards Library file not copied Volume owner may not be 'DIGITAL'J4 74eW $BC @C @ 4wW $ $"  ȕF0  f 3 ȕF \& & e$g, ȕF0  , eHXX  b Output file found, no operation performed Protected file RebootToo many output filesWrong version of RT-11Unknown error codeWEFU Unknown error code Channel in use Channel not open Device full Directory full Directory I/O error Fetch er8rM PT 04 w5@5 ȝ07 w|@&h@    l7jww w`w`5R)7 @ 7:6 7 *7 ror File created:protected file already exists File not found Illegal device Input error Insufficient memory Output error Output file full Protected file already exists Record too long System error Unexpected EOF 1AQds    4 HF0 w! R 5 B ȕ0 ݚef e7 -Rw D ȕ0  D`@@R W"@ 5 Q$R5 ȕ ,<CYp1AQ^sPIP V07.00 (Y or N)? Is mounted in disk containing desired input filessystem diskdisk to receive output Please mount desired disk in at this time. Files cF0  R$W"@ J   h0 5F ppw bE 5 I FB *5 w & !-4  $ȕ opied:to be unsaved:&f& v &f f& w ( @` A@ 5W   p-@" eE ,  p-@p l  HF |->@ 6 6. ( $-&*  ?   lT  Kȝl00   7`7 m7C +*' ȕFp H ~  1  `E@鈀B  ~ѕeȋР+ z (@w ~ % b % e%e ee e w lD   ѕ:   ѕ.  p l Hp  HF  420 7`%*Hh b  ȕFh 85  |  e <f5 SYSVASMOCDABUse another file type; SYS, SAV, COM and BAD are protected 0W*W% W0 W9WAWZR  WaWz f   V  ѕQRSVVd| rT& " \    L 4  & Ѡe w DF f ҕ >   8  Octal& /& ~ B ~  rBʥҋB b  ^  8 $ @& e % % @ 7v-pw jF  rj^|P t^PZLVHd  d   7]w F   ȥ%Х*  @@e%  " A@|w tF#%5å Fåå :å2 &å m@@5  z % v55D %B@ l `ѕ W 鈇6 Hѕ W DZ鈇5d@ 5N 鈇` ѕ W h *   "BB"  8B''5 &f&pH f504 4 4 0"p0 eȋ ` Pȕ F0  DIGITAL 6 >J&zQQAA wL^YDIR V03.01 W<Bxkf ABCDEFGHIJKLMNOPQRSTUVWXYZ$%*0123456789Error reading directoryWrite errorIllegal directoryIllegal commandIllegal optionIllegal deviceOuptut file fullDevice not activeInsufficient memor@7 &w $ R   55 ,   w!ww e| R|7 R 7J58-  l   Y w n  Cנ*DĠ Ġנ*נ% fy@z  w  RH7 H8 m47.w w ^wD5'0ߋ*%ȕF0  `  V ~w xt5 54 B$$$"5 >Y &  x   x fFw  @ ȕ` weE  Vw5 &5r D0ew!vwp 7` \w b  N'p*w~  CH  few!ч tF C5 h#Hw Xa$*w   B BH ,W wVew!H䲇  aw L"IX 7e ewȝp00 9777 %77% 7%557 e|mrvmpt7h f / d z   U&wH ( UU   : wv!  v "  55  5  )     55  5H! ҕ=p !鈖 `L! X Any more files to transcribe? From: To: Remove system disk from SY0: and mount user disks.Are you ready to proceed (Y or N)?  Remount system disk in SY0:?-UTILITY-W-Syntax error.Device and unit necessary in filespec.Filename necessary with input filespec.Can not transcribe to same unit, use the COPY command.*.*/E/N/W W  W:UW.$ UR UW. UW. 5'ҕ.ҕBҕAҕSRU  "ˋӋˋ  "Uɋ ?DIR-l-     $ ( , 0 4 8 < @ D H L $r&(*0r8p:HFDABCDEFGJKLMNOP|*p0 wDw5www2 ww% 57 em w xrredCȥ5 , ѕ ȥ. ȥ.Ћȥ. e1 X (E 4 z w ^w X 505 %%HD8w 0w *%EO"5 e61 w   re,1 e*  H5 v C"Cv  ` `u %j|\rrr @5(@|0 00   @ 7 w %d ѕ ɕ *5 5   w w   e e t e fH `u huj( 0 "&(f &  55& t   & (!k7H<E&6^&E &8&!Pe" stsuvM-4  (% % . H7w7 e  >m  e t ml m` rl 7 L@e ~?-|` -t^-lT1, 1,1,1,x3 s !2 <5 #"e! ePe"Pj3h3|3z U $ fu!\+?Err 59 USR not locked?Err 62 FORTRAN start fail Lf&AE@ p B`"ʊ @ҋ 7 A1,1, 4 E  w D --!-"-"1,1,1,҇1,1,1,1,1,1, w &d r5-pXf   u 7 F |"e R F L΋ ++  wF nz|   F? DW=W? A @ @)鈇& - w F77PPPPA - A P&fP 5< UNUSED >&z  .[S& d   T* [** &f.( 5 [N9: & e:   낃 (   3 E`E& N U%@"wXz?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789fromin routine "" line ?Err | @ w@ Ƈwe % % w 7   7 7  D~ Ov t , -t7ft]@ @@H   PBP  @ FJ  [**&& f - ҕ ҕ 7   [N*: &ft "7  B  v+ nW r# r | hrp0 w7 <  |w F67 4|\0  w ,n Vw   w F%VOw FӥD%%B7 + Volume ID: [S/&vr  Owner : [S/&    %HDvF&f5%D0[D1-&f  % &f@   -[D&&T D# %H [N9: &~  -BAD- & v%r| br0  ߋ*w 0Fw *F 6rP|r0 % 7 , Volume ID: [S/& J6r L Owner : [S/& Vd "   515 X W dwm|n]zM h ZG p  A >wm, PEU0  Еrr7 z - A eP wWŀQ @+ՋwfEeHw 7E 7 A   w   H: :  eB` &  ѕ  ѕ ]. (- 7  [D6 Files in segment [D//&&" \  B \ 7 wm  ` \ e%N  n ([D6 Available segments, [D in use//&R,   B 6  w C@ |:(@ n:S:d t5g h5k \5f0f e @`0& |\p&f  @/#[@DgOUwSwNw2* 6 $7 7 $  [D Files, [** Blocks/&& b ]  [** Free blocks/&&X ,  B ,   ҕ ҕ  P %   e% p  @@ ҕ ҕ W*ы > ʕ@ Rʕ JrelzW*ы&Cנ0נ9 ы0@09዇0 e `W*ы ӕ0f  fe0㋓ w@ R  wC0@D     %7$%c%He7  $ ww  . w  @ed \ 5 K pd !ee x $ l ( ` , T 0 H   &e 070 ` $W:ы@ wtҕ fb0  2e0cwB 6   7  &  `SYS SAV COM BAD w Z  Cå*DĠ Ġå*å% f  @  PDD  ~  r NwR Hw FGRXO4 JeDrw6e 0120212223?63242526-4527312829$36,44 32!33"34%37&38'39(40)41#3530*42.46+43149/47048@64A65B66C673512500f& $  J"Kv v&f&  D h7 -?  wB  "e7 V&e  e7~ r vcGfbmf 7` TXwNEe I@wK4 2-. $ h wDOw  w  \f&̋ TT 5 Eť1 ť+ť$ 3 Tť0 H̋  <̋s  Ş@{s @ s ツ̋m 54 w> 0 2 4 + f3!fe     7?  7 ? uV  d7bw`  t7 z lr b 7d R \H^F-F `8 | a"-,cL XW d- ,f$ f 2nH5$ 2 STOP -- %c s ыs e Je3d & 35 5 j  Xf& f35f (  h zm 7  wp r  wwte nrnŸdb b >  8 @AuD(!w8BNDx& 7 -{  } b7nȋ~ 5*4& 54- ` pt^ r&朢d `   5@a3 s 5@ @ 3@3 r3 p3!  #p   3 3 -  -   f&f&  e `e& e eB2 N"Q$B(< U& * u @ 3 fPA&eW! .'& &4 4-45@E4   ^&vC j5EUe  & 4-2 . & &v    E5@ߋ*3 pf@! t# B   ` ׮PU ׮PU, U1 0 555U U& &3 @&&5¥.  , &@ #& 5ff@r 5U3 rpwv   ;3  ,FF3 F V {` `3 V3 Tl ,FFBFFx R p  3hAsd T `  N  ZT `Q & 5 EE 爄 Mxdxd z.0!% HELP-F-Error in Help line processing  HELP% HELP-F-Help file not in proper format HELP-F-Cannot open Help file! HELP-F-Error in reading Help file' HELP-F-DefauDMB ";  C  @ B   D \w :V& D D z 3 V3  j 3 F  `P B3 \ ~@  rEx H3I \sJ FsL% 8sN DL׬I(lt Help file has bad format) HELP-W-Default system Help file not found- HELP-F-Error opening user-supplied Help file $No help for topic cW~W  W  R%RNN @ 3`"  ,    p JœH @: & %NR W w   D >& & EF   &3sS333J3Ԁ  -  w f 6 w hDR%% $J J N ꇁ   Е `CBД  SD @` ,NT5@5#E 5m5  (PC= & eN t RD \RD ^ B& eN t  RDZ0~&$3R3~3D3Zҕ   mU v28 @UfABΥ D%# ы Cʋ ɋR  ֥ @DB  "R  D f  Հ e  e &S3`D Z~^\ f B % % e@ ( B`  ` A@^   A ^”E eBCIE `-    D E A@D D C b @` ` Z@9/ $#.-& f ffffU*@ e @@@ @Ћ @& ͥNffU*@ e@鈇CABåDR  åɋݕRCABы åݕ ѕ e0bb %- ҕ* V  Z ZU   U tp`5 r@E dt663 Dt~ t~3 r3 p3 X 3\w7 L /7  &  T fw 7  z rBh h ÝF   9  @0!H   ~ @"#, a  z   7 %  V    e d  VgVv `b Xw b||| 1164 122316 131 10514157553=6'   [W)*  0S   . J/ 7| t-t *2f-f 4X 5B-Bw70 t wP;&m  D7 EP U  dUP$ @YyNn wD|wType Y or N followed by RETURNDo you want to duplicate another volume (Y or N) ?Remove the distribution disk from drive 0 and store it safely.Remove the system disk from drive 1 and label it.Then place it in drive 0 and turn the power switch off.Wait a few seconds and then turn the power switch on again.UP$9e @YyN nwwN @YyN nwwEP$Type a Y or N followed by RETURN.Place a new disk in drive 1.Is the new disk in drive 1 (Y or N) ?MINC BASIC/23 V2.0 System Distribution DiskThis disk can only be duplicated, not used.Do you wish to duplicate this disk (Y or N) ?wRemove distribution disk from drive 0 and store it safely.UP$# @YyNn #Hw#& Ε,e _If the disk is new, the message "?DIR-F-Illegal directory" appears.If any files are present on the disk in drive 1, they will be erased.Proceed (Y or N) ?Place a new, blank disk in drive 1.Type Y or N followed by RETURNThe initialization procedure is now beginning.VUP$9l @YyN nwwV @YyN nwwEP$Type a Y or N followed by RETURN.Place a ne23_D2The verification operation is now complete.The message "No bad blocks found" indicates thatthere were no errors in the duplication operation.If a table of filenames and bad blocks was printed thenyou sw disk in drive 1.Is the new disk in drive 1 (Y or N) ?MINC BASIC/23 V2.0 Demonstration Distribution DiskThis disk can only be duplicated, not used.Do you wish to duplicate this disk (Y or N) ?wRemove distribution disk from drive 0 and storhould repeat the entire duplication operation with a different new disk in drive 1.e it safely.&,-X,The formatting operation is now beginning.The message "?FORMAT-I-Formatting complete" indicatesa successful operation. If any other message is printedthen you should repeat the entire duplication operation w>k>?9o>The duplication operation is now beginning.The initialization procedure is now complete.The message "The duplication operation is now complete"should appear next. If any other message is pritha different new disk in drive 1.intednext, then your duplication failed, so re-try withthe other distribution disk and then call the DigitalProduct Service Center.|x The initialization procedure will begin as soon as the next two questions are answered. It will then take several minutes. The first question requests the volume identifier which is simply any name you wish to assign to the disk. The secoFThe duplication operation is now complete.Verification of the duplication is now beginning.nd question requests the owner name. This may be your name or any other name except "DIGITAL" which is a reserved name.LES SY1: R ATCYN7 !Wrap it up. wp w 8e N   w l eee # e7lcE `7!w eA# #p #e6 v N&fH @`" B ,%w& 7 .R Q4SZMX ALL  &B o D e 7 , ͋w w>   : B w7 ŝ ԋn l wj Dh  zZ R P P C hf`B   : 7 0   W ͋wn  d WWw 7 v  I    ee   fw %w f > - 6 . w w0  w%%VOww *(    w   wf Dw P Е= n AeB`w 86w . Е=eAeB`w :t ! ! MINC STARTUP FILE FOR RX-BASED MINCS ! SET USR NOSWAP SET TT SCOPE INS SP LOAD SP INS LP ASS DY0 HLP R MNCINI @MNCINI  4  BP   @: Ie 8 ( . $ F   (  (  ,  &  7 ؁ 5 www@ ɋwe  @  @ A  @ A @ A @ A    e0U %  Օ0N UUU  m r w: 2r 7,* "| w|  fl `X fT L B e7: p #w8wFw vw "=L P$  6 ׭!7J w7.737 ( '7 &  & w~ V!( e@W [eW $e c    "7 x > w>7,5/Ep 5wDw   Fz5mf A N  %  ѥ YnMw>w? +&fe>B @& fE@@ B @ @@M_ B_ $_ _  B_  _  _  _  _ B_ B,e`eTeN( "2. & t& '$t X  00ȕ @ \ pPw *8%@ KrGo%@%@<7 9 65; (4$ #  %@w.~7 xR ATCYN3 @STARTS ` ? ɕe & tp& ˇ/ 5&ɋw*B `ыB ɋɋB  ew Qw&E B?7(w0-!< #HЋЋЋe 7ZAIN @ 7  w @` R f ~w 7   w ߥ*w w em>fm."m"7 Be ! ! MINC DEMONSTRATION DISK STARTUP FILE FOR DY DEVICE ! SET TT SCOPE SET USR NOSWAP SET ERROR NONE R ATCYND !Ask if you wish to copy DIR/FULL/VOL SY1: R ATCYN2 !Explain any messages from above. R ATCYN8 !Announce start of format. R FORMAT DY1: B! f  X   E>w!w@w8  w b %   w w@`7  w w  %  b aa&  8 F@mB7 `T@ M-w\ w ,e/Y ^C R ATCYN9 !Announce start of initialization. INIT/BAD/NOQ/VOL SY1: ^C R ATCYN5 !Announce start of duplication. COPY/SYS/NOLOG *.SYS SY1:*.* COPY/NOLOG CONTNS.MNC SY1:*.COM COPY/NOLOG (Q4SZMX,MEDIT,MUTIL).SAV SY1: COPY/NOLOG (MPIP,MNCINI).SAV  7`  7`D   T  w  @e E7w    w w   !7e7b mZ waV 7T w :J fw" 7.w BwwSY1: COPY/NOLOG DIR.SAV SY1:DIR.SAV COPY/NOLOG HELP.SAV SY1: COPY/NOLOG STARTS.DY SY1:STARTS.COM COPY/NOLOG *.BAS SY1: COPY/NOLOG EDITOR.* SY1: COPY/BOOT SY1:DYMNSJ.SYS SY1: COPY/NOLOG MNCHLP.HLP SY1: R ATCYN6 !Announce the verify pass. DIR/BAD/FIew BC e wW"4@  @"? ~7 tw 7 l  m  `&`  N z  8 2 hw 8w Vw 8wD ( @m67 VN .*17  , v?<9630-*'+$:![j|  x^鈀+wf@鈅 are you sure?/Init/Copy/Squeeze/Vol id changeForeground job ?0a pw?ahmb?^  %   b > wmt($` - \r` vV & w*D $ F w    dww ~-Jf loaded,continue?Insert system disc,Are you ready? Owner name Vol id? DUP V03.04C ?DUP-F-?DUP-W-RebootError writing directoryBad directory blockIllegal commandInsufficient memoryError reading directoryError in system areaDirectory not @ 2   wB Ȃ     n ww` 7w ^-w  ^" FD *[B&B\T7 N   Օ zeroedDevice fullRead errorWrite errorDirectory fullCannot write SY: while FG loadedIllegal deviceDevice not activeIllegal directoryIllegal contiguous fileToo many bad blocksIllegal optionCannot /s sy: if indirect file openUnmarked bad blockUU  % B՝՝՝%Օ.e  @ 0 7 BwXHardSoftBad Blocks Type Filename Rel Blk ?DUP-I-No bad blocks found 2 |w yw |~   &t  File not foundInput truncated at six charactersInput truncated at ten charactersInput truncated at twelve charactersDevice in useNo RT-11 vol idFile existsOutput device not specified; DK: is defaultNo swap file on boot volume, ZNRBVK e w& w wHFSICTUOYLXWV( ~vn %: X!}<}; z@: Hw Nw = %CR%T1fw 67ze7p w p=e #mV#Y7-(wdw B= & xRe N:ew $0@ $  !@w T:w L L 52ww &w 6?K ѭы @gw 7 e7Hv% p < w:\@ D 6 e e| j$ ?  "w ͋w>w>6@w hw Z:@ P  ` sw 68  ? ~ 户n h w 6le e ^wwba%>w w t6$\`1,w4  ew4Dw`m7  A w   " w 8 ` xrRjh" ww^ w@ w  " wd   R wDe 7Bwf-m&m% 8`m @ *`@ `  nC``B7r%vw e T% 8@ "@4 @w w z6tw $ fnw\wD ew  RT11̕AeeDECRT11A #  ȭew Rw 7 ^ X׭8w.wrwVw "h wV  h w 2w w Lw 9w L_ , 6-2((  & e7p -w Bx7 v7 e 0 4  %nw$ex r N@n7 d7 ^\ 4P& Ε,e w  w  $e!ԕD%B1 3)w w |% 7 w Z t~w ~'w vw <w 6w 0Xw X4w w w w w w7z%l@ 8w @  ĥ%,_hjXX w  >Yzdz-@,w"w"5w5wA +U@$U$DNA 8w 8ADe6N w 1E$E@$e R& & zȋ  5w S 2VOL1RT11A HDR1ZEROED.ZZZ RT11A 00010000000100 00000 00000 000000DECRT11AEOF1D $  `X7 t7 L<X7 2 ~  D ,p t  5*p   wh0 wj wVewPewJewDew>RT11A ߋtv ?BOOT-F-No boot on volume &f&f~  f NPxȋ ȝp0 &De"$& &e\7 e" #" #" Hw jw HN mD |7!?N B@e->5a  ~?a* wpw * w bw tw LD d:w02m07 vw ! * % -?a 6       7, &f   Z F 7 7 0 4   @ ׭$ w r f pVw R 2e - | ^ =@ : &f   *  -(w lwtDee fe rp0 f&,e$e0 p0 ͋   Nw .چew e w|&   Vf  7 N  w w jw   ,]  *  4 0 @ `$ ^@&  5  ree AB CD@GIK RRRR  : w47 P 7 " J pw J   | z V e)@ ('f !f P%P%P% 7 @ ` /~@ .? hfMN(O PQRp@STUHWXYMe  ee w  eee f   jf<W4 T wNW#% > f v ww  8 ee | 7 47 *7 * 'F+U oCP2w_ZPIP V06.01 deleted:copied/    LZ  4 w   v]| v $ l ee f p p *W  B w׭    . deleted:renamed:copied: Files to ? ?PIP-F-Check sum error Device full Device in use Error reading directoryLibrary file not copied Too many output filesFile not found Illegal output file File sequence number not foundIllegal deviceIllegal  ewf    "  鈇PPPPEL]RE `7` ?w p w e 07 7'fZ n  w#@SS% commandIllegal delete Illegal directoryIllegal option combinationIllegal optionIllegal use of wildcards Illegal rename Illegal option valueInput error Insufficient memoryNo .SYS actionOutput file found, no operation performed Output error Out#@SZ &f & R V@!   \B7 ^0 : 0  $j  ׭ w7 ׭ ׭w 2 ww (  * w  +put file full RebootSystem errorUse DIRL $(2FPZdxW  <6     w h 7rZ @& e W xw  w  w w "w $  @ w $7 d p& L Pw ewe t7 nw  77  T!0 & e $g,fE W @   [& , 7 x0    -& U%U%@M  CD5DSELw Pw Jw Dx @ J5 8  eW Z @  r`be\bj R0 &  7` ߋ* p&w w ww  v @`7x@E  w ` F. @`7H <W,*ъ   $5 !    -{∇&  2w \ +  z f   @    eW!]w F w @ Z  F f&m &wwm @7` Z  (w w   ww  'V! ׭8 f L   w Bw <w 6w "5Z R׭  l  ׭ ]n]je x ]w  ˇ7&] ]eX]^e-w  eZ  e0??  e   G`5C5;ff \ ( ȝz0 `ߋ*w  w  "~] w  ( 7 ( 5 wb,z, *& x"", 0 ,77 z jw 0ee    w- Uw b U  w- bUe emH  &Z  -Z 1 .  ]"    ^xw w ,eW!we 57 ^@ X   @ eP efe Np0 W- @ W w X2w R4׭ 5 p0 wf& A ww  55 @ | -~Z BW- RRRReml   hg  ; e 6 xw> <& f& 2DT  ' r     FW-   x6  wwe Re f&  ·w  w    W#EOW#HDj 5ZJ 7 F5  D Xw w H-@ w 8w *-"w  X (W#EOw 5 pߋމuމLމމމމ"_ >X_ X_ Z_ J[_ [_ 2\_ 6\_ \_ ^_ f_  :X_  xX_  X_ :X_ Y_ VZ_ __ `_ b_ b_ bc_ c_ c_ e_ 8X_ 8X_ Rf7 ER,5 @U v^885 5f Rf&f5  & &  $ pe$ ` Zz B%  %- . a A% w  %,  & QHQ$Y_ 4Y_ $r_ $r_ *r_ *fv_ *w_ *Px_ *y_ 0r_ 0t_ 0t_ 0lu_ 0px_ 0tx_ 6r_ 6r_ 6s_ 6t_ 6 v_ 6&v_ 6v_ 6Vw_ 6 y_ <r_ <s_ <bs_ <s_ <Jt_ <t_ <v_ Br_ AHA61v16QvQf&@(# 55w&5 E5@ E5 U $7 ER,$  |fWtE v`f&f&""" ``EEC`WtE tBr_ Br_ Hr_ Hr_ Hr_ Hs_ Hs_ H"t_ HNt_ Htt_ Ht_ H"v_ H~v_ Hdw_ HPx_ Hx_ Nr_ Ntu_ Npw_ Tr_ Tr_ Ts_ Tt_ Tv_ TRv_ Tv_ T4w_ Zr_ ZXs_ Zs_ ZDt_ Zju_ E z P0PyPNP7 ER,y4P<LP7 ER,eE!"E\ 2; UBe p5!UE!5@U60 E@5 U60 E 7 !7 !7 !E7p!Zu_ ZHv_ Zv_ `r_ `Ts_ `bt_ `$u_ `u_ `v_ `zw_ fy_ fz_ fLz_ flz_ fpz_ fz_ fz_ fz_ fz_ f{_ f {_ f{_ f|_ f|_ f|_ f }_ f2}_ fP}_ f}_ f\~_ f~_ f*_ 85 e7|#7y# t#5J! 7 B~73! F~ 5V4V4R4T4pT4xT4T4T4T4T4T4X4@X4DX4HX4L5  U U U@$  v T  5v ) %PWW*  d׭ U%@.-N  :e e    c ` ׭$ w Nf&&  PW#w 2ߋ* wF5 p0 @ 6 f>_ f_ f_ f._ f4_ f<_ fL_ fP_ f_ f_ f_ f_ f_ f$_ fF_ fJ_ fl_ f_ f$_ fJ_ fF_ f_ f>_ ly_ ly_ ry_ r z_ rz_ r4z_ r z;b r7f&  r-T0 "  N   鈂 n( z&0  *w P+舀w < 6&0 R0Z0j0v00000000000111$1*181D1N1V1`1l1|1111111122&242@2R2f2r22222 8&f&f &f&f D &f&f b  Z&f&f   bߋ*F  5 W l+͋+*@E@E f #5 j뗢.ʕ%/ҕ*ҋ  鈅 bw&f&f   , 4(7 ,(*(U,e & Ε,e  ,e  '&j (((((j 7'7'7'7'7' S7 "''2( (&f r( ( & ` 0 X'*7 T'&&2( (&f $( ( &  7 ' &w' 3 h2 \2 P 3 D3 8 &+ 7 &"&&2' '&f r' ' % ` M %wD 8 ?MINC-W-SRQ service subroutine has been canceled7 3 L&=2 2 v 3 j3 ^5& E%2(' "'&f ' ' &% 3Ue0* &E~ҟ E~e@yB% <~f&f&w &A e  &&L-7 ~&@ p&  PQ%5@  P& L&   5@  B N < Ā 6 ~&@5&E555%~57 R1 j&fe>B @& fE@6X  B 6X-E 6X:6X<A 6XJ6XKrRrVrZr^Mrbrerhrlro_rr7ruyxyyyyyyyމ_މމDމ މcމމމX%&tE P%@5@ 5  % 5 J %5    ~5R5  fe% U5> &@&&E H    *7 XER,&@U@5 4&f  n(h(%7 Z(7R(5 H( v7 0(7 .( BBBIDw .Bb xwV5 ( w B U ' bw B ,e & Ε,e w#43$0 *5 , >E  @7 JFF F *K e, 5 ,K e6  6   F  .%7 EV$ Je #P4  &f 6Au J& 5N Ru  5f    `  F~,e 2& 85   e e&f H!5  3p6 M("J~5  5E f&DB& A  @t4U,&E 5 wfPPW !5~ KKK*Ed ( 8E 5*  Tp'Pl'tg'\'PRitMi\JiE@ EU  ܇ قe K cE +    e0 e: & T&    0 yEU  3@  e v      #P @>&   Ee0E " 5{U 87w  & E "7 PPP7  + `7 Z 鈇H 鈇&f  &D  p H t" E 7we7 ^U7 T>*>>e7 0 *e*  , 5 , J&H*-W & & F> 0 6  > . f>   j. 0 f>0 # .   PpS(A[0,479][767,0])P[0,0]S(E)\ !5 Ճ ,#,R  ~7 7 7 7 7 7 "~7 |7 z : 4$,U@$ "   $7 7 < PBCDLC$E u5 F w& ?@ &wf$Ee0U@ \f$Ee0@ABCf !Cw D  eAmJu AJ !AmJu  uJ!ࡐ!JCw  @@AEoD3K@@@D *@,ff$E Au e @5 $wE @f$ERESTARTAINAOUT6 4E E7 7  b7 w b" : Ux ewz  ~ ^ EV 6fL D 14 Ew6 0 U,e & Ε,e t7n,e ,e &~,e & Ε,e 470,e"!A I?!%\BCPP\ff\5Efw$\\\\    \\ ( z7D\ 7 \!E\x\&!`!"dn"&!FFF!n"Fd`! * 7  e$0  !!D"d!$"n|"F!B""!"!n"!D"n"F!B""!n"!!n"F!D""!!ddFd`!"F!h""!!n""!n"!z""!!z""!n"n"F!GG@ BDE V{ V02-F2w@ ~@am IeE4 $EF 5 5 5 l3 w/ READY 5 RwpB"C " www:w       %Pet L E B BԂ  Bm7 AA- ,  J&5, A- T   e3 5> >WWQ  3Q@ыC ʥee e@0A2B4C6f850u2468 n!\ ) @m5 J5 7 h1 )5 4BD5 "5 $@ 5 @5 e J& n Xw7 WtE!t78U AB zzz{({(|`{zzz{({V|{ BBBw 2BB7 * BBBP *'w BB F8@ 54 e@3 E "h~ P  x  . u+u*u-u,&& eL e  L  E4  5 T(&ua&f&& W ы WWW W eQQe WWWы   B B}w .w & w  w   ,e & Ε,e 5,e $)^ X  5 ,e E%76 f( w ' X (,e & Ε,e |,e 45Bm =< < :&P+P*P-P,5 *5 ,v,v**,e&5+5*5-5,&5*5,&P*P,IA!h ,f* hEW-, W-, FN-* MOVE_CURSOR ROLL_AREAVTEXTBOX PUT_SYMBOL TEXT_LINEGTABLESENDRECEIVETRANSFER LOCAL_LOCKOUTALL_INSTR_CLEARDISABLE_ALL_PAR_POLL. LOCAL_INSTR INSTR_CLEAR TRIGGER_INSTRIEEE_BUS_CLEARDISABLE_REMOTE ENABLE_RE H  C B б  Et  ]U  ]e5]]%0Epve2B @WtEU ~]&p6 M75 ]5 EU@w ( {>>"?*?:?>J?X?f?<  < MOTE TEST_REMOTESET_TERMINATORS SERIAL_POLL6PAR_POLLENABLE_PAR_POLLDISABLE_PAR_POLL&TEST_SRQ>SRQ_SUBROUTINEFINSTR_TIME_LIMITTEST_LISTENERS SEND_FRAGMENT BLOCK_MOVE2x<,EL5E\5-EU(E.$< @tw@< @tw@ ttw@ ttw@EfE ]5 ] 55 !t 8U4UA?G`&J",EU7w 2 8]8 "f?w?^ ePm(ePmWE-O7 Sw@S,^ em }p3 3 && &  z 67 `EFR,: 7 Nn3FR, pC >]U8w8 NԇeE&&4E5UCG]CG] 4- 4 hE@6UtEE?P] 4- 4 UxErw :4 E 4`]5w ]p  &: 09p `0 ;  @ 40pCK44n544 w4 44w 4"wUE]  !te8 5@ߋ"] 5@"] <  e $w.@ "U< EeZ 7 U@ WtEx55x5x56"665 5EEvXBrdBApB U vv 5EWtBP] }q5 ~{E@5@H@H=@@A=@:A=@H@:@:A=@H@:@2A=@HA=@HA=6,6L6,6,6T6`6Z6f645n5"6AA @H@:@:A:A:A=@H=A@@A=P=A=@HA=@H@:A=@:A=@H@H==A=@H@K@KA=@H==@K====@H=@H11@H====@H====@@A=@H@5@1@::@9@=1919@1@=9@99@9@9@H2@H@2@H@~@=@vA=@=77 7(77074787<7D7L7T7\7d7l7t7|77777777777<8D800D888D8@@D8HHd8Pprl8Xxzt8`|8h88888@B8HJ8DF8LN8 8(t|A>@HA@A9@=1@HA=@H@:A=@H==@HA9@>@A=@H@A9@>@A=@HA9@>@A=A=@>@H@@9@@H@9@@>@H@51@5@@@@L92@H=@@A=@:A=@2@222A=@H@=@=@H@=@=@5@5@51@11PRrJ4N4L4L4J4P4P4N4R4V4T4T4R4X4X4V4??w w w w |w tw lw dw \w Tw Lw Dw <w 4w ,w $w w w w &f&DE]<[?1lc#6[?5h[?8h[?4l[?3h1(0INTERNAL TTY HNDLR ERROR#5[?5l[?8l[?4h[?3l2(B78[?7h[?7lDLCoD3KDLC D3 ]DDoD V9N E&\ hCBB-T 6 T  `  ޫ0 &f D@@  Ȑ@ p Vގz PE ,e & Ε,e E  & ,e E@v&f&\&\6\ T&\ j&w.& @\f,\ J&,wN,\&ff@ 6 %5*u,\\C*1D,&  EU  %   &f\ a@ ` C V@f\&\7f\@pf\ 7 &@E?D%&& f&#>-67 n`4FR,D pC  @HE5& ـE5& ـE&U@ ]5UE57 E5E]wm 5m T \ r7 @ \&&f   FFG  FXG  \ \   \e  \7 \@ V  A  W@@&\7 x &ff& #" DINDOUTAIN_SUM TIME_CLOCKCONTINUE| WAIT_FOR_DATAb TEST_LINE6SET_LINEFTEST_BIT.SCAN_BIT&SET_BIT> TEMPERATUREnSCHEDULEfPAUSEn START_TIMENGET_TIMEV MAKE_TIME^SCHMITTvDIN_MASK DOUT_MASK DIN_EVENT TERMINATENftE 7st7@`@`@ew ,e & Ε,e ] 5]X]]A]<EU@]@]7nh7dE\UV]EN5H5@U ]727/w ?7 EUA] TEST_GAINSET_GAINAIN_HIST TIME_HISTPST_HISTCINCOUTFFTPOWERMAKE_BCDn MAKE_NUMBERv EXTRA_SPACE NORMAL_SPACE DUAL_MOVEF ERASE_GRAPH FIND_POINT^GRID.HLINEfVLINEnPOINT&REGION6SET_BARNSHADEVIEWVWINE  5]w  777 صU@ ҵ]7@]Ew5 tE w e4"]f FIND_CURSORGET_CHAR9GRAPHBARGRAPH GRAPH_INIT DISPLAY_CLEARLABEL DISPLAY_COPY PUT_POINTPUT_LINE CHAR_MODEv DISPLAY_MODE~ ERASE_TEXT GET_CURSORHTEXT TEXT_INIT*LIGHTS WIDE_LINE MAP_TO_GRAPH MAP_TO_TEXT & &&?t~ 5? tEEU5UE]&%%`e]ffVt]t]e]BCt]e]E I 6f& FHJ %v\@7   f %&fH   $ `HdHhHlHpHtHxHHWH&HE@ pH7  7 7 7 ~ EpH%&7 V5`F5` = & &AT Pu/&P& = & B, :&)f@  5E"  1U e  e *  \IBPBA  &7   1@r5@?U?*@ڪAr?[=  W@@ @P7L H@7F@w>JP@ PBCD EfIA@?0@<֋weBa&7 Nf@   @@@u@: 1 EU@$E@$ F 5 B7 B  $B E5 5@  pe  e7 tW  : @׳>:L]L?ƪ@D 3 C+  f# J@ PCBPA& a @ 7 7   @;\)8A;\)pC[\Eys@‚= =7^ =K  ?AA @ @Aa." 09A Z az     ѕ NONAME& &@ 6  & &&f@ e  w e  &  eJPB P &@!h:יc&>X4%]@A7    e@ & f@ A&&f&77>LFLL =FLȝ>L>Be FLȝp0 ( ZLeE 3e e &  TeJ L*bfLDIGITAL?MINC-F-I/O error; unable to check volume owner?MINC-F-Cannot proceed; owner is 'DIGITAL' for output volumefM!!!!& M鈀~zv% ?MINC-F-Use another file type; SYS, SAV, COM and BAD are protected 5  U@$E@$ f&7 pFV$ C3  v   B K툇爎f &&w>E.O'w@ wr8 > H wu @B!E zX w (w >ww>X:X:X:X:X:XphB5BmwlD !!TBD*2DwE  ef   w6 .x Lu rw0 w( & w w w w w wwwNwRꈇ@R TNa B,f .  = H@ %u@  W 4eXAa LW-: @ P105  Wo3WwBBmʵ 5Jww) 6ʵ C,@*1W%3  *WWf, އ  *WC,1 @,ʵwD  D ޵.5 *. &e,Cנ"נננe&눵  p&@@5  @ՇW-: B J z 5:7  $BE& 5  !  ߋ* z5  ^w f@  ננננ BzvZB\ZZZZZZ T&!f. w& *e*5 , 5 , T̬ 7 FF F7 BFF6F v7 FF F7 tBFG6F3  & zw jwt @ f&. h :# P J .# 2 tS  P @a  e   & # AZa"z @# & eD`09. !& Β J#WW  e5 .Jf ڇ)#%  $ ҃!& Β`# e  `e e e0 6W V7 BFHFV$ J&: R L E5`Ff& AR@5 E U  U&)f@ 5E1 6 6(@@$@0 6 46ߋ*U.w3  *> ,e @*7 0FG F e . * R7 E0FG F J7 EFG F , , 7 0FG6F. ʿ 7 FG F)3 JN IK BBWBm <&! 2Bmʵ -ʵʵ@e 0 e ߋ*wU0, D  5E 7 B R     !  h wP    ʕ  ݆?@ fTf& `  &f, 4 T&Bm5 5 63&f&&6Bm55 & T& &  &e j& &   ॴu  Wu &&T @  TVA: | >U U@ & x戀e 6N:6 6  J5@ >W-: -   5  >#%> @:  ~9 ߇@: U@ :U @:6Bm55 T&& ee &  &e j&e &B  Bm$   ww6 %  w>)  d *z^_`>_`Jb`BaBBm WX WR wW + Ce 5@ N 5  R  8  : 3 .3e e (6  BV %  %  <v<6 6      K  JWBW?!hf ܣe&&  eeҤ%  פ   ҥ   B GDAT3+ WW! T&f.f @ @B)) BD "  K)BBBmE \k5eA( <@ KebU 8 &Wl @CB  5     $ @B"""H @ 5 "H$ ']cC`Ҕ  0u`u`  7@ @ ECCm , H " HB u`u`#@`" @A"e (     E e@  WwPEvvD  u5 wrʵ 4 T3Bʵ u,u*1B 3 B *u,B   *  rrD A Ww @`5 "ȕ5 (wB 3 W @`B u<5 >5 :  ѕ.09w& 5 >  ld `E Ę  פ  u,W3)1 *!7 FFV$#*-, *7 (FFV$#H#7 E6F j&&     ʵ ,,142 > 2 8 6 & mD % ʵ` ʵʵ `ӋHWA  ѕ <3d," ѕ@ /   u<u>wwwwPww}ĥeqѕ@ t  'ѕѕ`ѕBBC > W1 7AmW$  W Ww @ @R 53) $ WC"  " Cm .f BBBc55 W Շ W ʇ ( f`D ʵ 1  *7 FE6F. *7 0FE F. @ 6/5JeӤ   ## @Jme5 Bʵ+@C   T& 5@ j& 4 &e & 5 *,W W ܡWe f BQWWW BOBBm u % B @B W 9Bm e fe *& fe & fe *& fN ve T&f.   u 3 %1 J,U)Bʵ@ C 2   B eK)f f>5@ Q& R "   fA> Be @ҁe U>5*,f C @& Z',51w  w BB qnC lC CmR cR `]fe & T& *5 J&,.. &  : T& T&fe & f. F   11e ewfv j& ,3 5 23 &E` `Ble C1 5 *.5. &e, V&&& CJ 1 >&&Be eeҔ fA>5 ~ pBe em  ㋴ w&3zHcffgddVcd W   W WwWHWHWEWpf@ @5 :< h&C: (ew< ' $@  e  T  P  @&`5 P | w W `$W @& `eJ%w %w&f& v+-N  * 5 , U* , W-*5 *,  T fP% 8  w W W w, 6w| & u 5>5 RW> FfB3BBmf@ @ע ˋ> "C ˋ/CӤˋӤפ ר f `C = *> w? f  wC Ww 6ע,4 - *& Fע ˋע, WwW = R5 (ע wB  R3 WW & פ % & *zBX:[:[[XXbX4Y[pXXXY ɥ A- w b 5 W FW  ^w3 N X u, 5 W W  ,u, 4 < ѥw&  <ѥ <   ע"ע'ΔΤ׬     F    e     wDwפ ׬  ע ע,ˋe W W $C" Cm  "KAmw47 (Cנננ  <@@  @#W @, 5:f *]v WfU a3@, 4E>U  >U J&ʵ ,*7 pF(FF F, ,5 *  7 JpFV$,*E* , N ,WW   נ  3& B5  E5gW WBBmʵ ʵU Ƚ 3 J b J' :wJf WaWz Hх 3& n 5 &7 0pFV$ f 1 `E 5<5 <5X5Z5V@%X   PZ3V 8@a"H,5 >u2  dA2wFBʵ2 8WW @,   Z T : : :3    E% E@ BB5 : 8WWfы f r3& 5 : : :# :  E% `u` :WWQBe wl:DJ wW%W f@, P 5  W 3WW wuFBBWEf&ɋWWU *WWUU5! ~BJ E WWC!#3@`e  2 J   U5~h&59 4f.  U  & UJ, $) 45 RAC w " 7W-f 5 5 w:X fAN@@5 @mA# 5"N5N Dw u 0  Rwj3 D# "  @B"""" @ 5 "" euuHuJ5 L u2 @a W    |  t 5 < u2 xuTA2F l w0 5 >u2 PuRA2W- V Τ wRw  B kw CHC@@w USED, w R5  ҕ=w Hq q q w r6q 5  D Qwq hq ^w 06qw $>q QEXe@ TT:=DIR /FULL/VOL/SORT:TYPE:NAME/VOL/OUT:R MEDITR MUTIL FREE w J&5, w w "5   ^ wT wROLD w$ w8NEW  " f  > w>> L  w  W #w   8 U  s R MPIPRUN *.* Specify device only; no file name or file type is allowedSpecify only one file nameCheck the manual; DUP cannot accept any file nameIncomplete command; filename requiredInvalid file name(s)COP requires 2 file namesIncomplete comma # Hew5H& L   ‹W  "   WW36 WW vv:<$f n-- Wf<}:3Rfnd; device or filename requiredUse another file type; SYS, SAV, COM and BAD are protectedInvalid command; use only 2 file namesVfA "K"H2  K s  *wj  w5 Lw7 ƾB@a  F}w FILE NAME-- @פ ׬  פ  gNONAMEAe FU  tB1IhB WW  U WW BBBm ,)eeB    B 5W  \  @  м —%7 .fff)& (% &, 25 < & & ѕ: ~ѕ: t @ E Z@EeX @EeH 6-JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-8YÕ/ eѐ  B5 Bm J&, WWBm Ļ  ʵ$ ʵ% ʵ (w\  whWQ .&&& ^e rDJ Ee XW @P M@RH D @@R&  <  D @     & &3E $%( B "e ``BNF 4 ' "  '11e @ w" E \90$& \#u < : ѕ@ נ T W & .j DJ EA ( fb ``  2` Ҕ  mAL @ 8AW W0܇W9ق"w@ @ч Bt  Ѥ  &DJ נ\ נ(נ  ѐ B& & 4 ƃ,5$% $ ( 5 5  > e H 0 H? < $% J2  J&e & ( E< 5- k C@  EA F BmU& & & & @ -5 6" E6"66"  E6"6$ =m-  m J-  ŵ˵ ˵s u:Cѐѐ@ 7wJ,& w N Ku & >& % -ѕѕ  -ѕѕ@ w",e< C "e & C w>ѕf *&eCm H AC 5 "BQ$mE e"5 NAC $u"NuN Eam I   عBB5WXddNjlVdd@ehddddtdlfxfdddf& &&l鈀鈷V߇?MINC-F-7  Hʂ ǂ    A Zaz 7 & AJBJ Nu HH  CC 0 Cm      چ ؇e"cK`b  &  5 L& l4mɋ7 v rɋE 1 %V ы 7  Jl J  ؛^U$ DATETIMEINITIALIZEDUPLICATEVERIFYCOLLECTCOPYTYPEDIRECTORYEDITINSPECTCREATEHELPUNSAVETRANSCRIBEXRUNpmAu B B >  3& B- h6f  "UWB‹BBm ʵ  Twe:am (WW WK WE 2Wpmmmmmnndoo*p,pTmxppp@mlPע ҔHz2dvZw ^.q 5  / Jq Vq L KSw .q 5 Rq w 6qPo rw q5yf  !2 $0  ) &2!#+   LW-LBrLWW %w3W $wD A LrL BBBmW,rB܃ *D,5B ‚D,C* Rw w5d6ע*ע%   PoJw x.q 5 5CTTL P  = 2 w *Cq= tW Nww .qw p %5 Nw  r &r  q q 5 LI@ЕЕ5 NB555f 5 ʵ,  5 P&N P  PB  n  @ЕЕ5 N5555 f@5  W     r  Po w p & 5w lqw d q w Z q  r dw 6&qPo Ƙ"5""  5 = P Jҕ= Bw Hq q r  &w &qtoo deeply or too many user functionsnSpecified or default volume does not have file namedmFile space allocated on volume is too smalllValue of real expression is too largekValue of real expression is too smalljNo NEXT statement terminates FOR loUwE5 UU@5E@5 &5$5#f5@ Nf7 ER,7̀E  7 t 7N ? o 5  wAe"~5@$J LE5UV5@ @ @ B]VEEopiAn earlier statement already defined the functionhFile channel is not in the range 1 - 12gArray has invalid descriptionfEOF error in compiled program; use program stored with SAVEeValue of FILESIZE expression too large or less than -1dInvali 5U 5Aw zxx@E 5 U *VE &7 xZx   ~jĨU ~ bX x 7 FR,D@ *W C Zx-2$ &`fEtWt PxmZm: ot in range -32768 to +32767^Line is longer than 132 characters]Line is too long to translate\Cannot find routine named[Attempt to find square root of negative valueZOuter FOR loop is using control variableYNo corresponding FOR statement for NEwUBC7  B Ca E0B@C@x\E`!yE`!y!"y(y"y\nynyFny!ny!F!NyFnEF!dy"!y"!"!nyd!`!y`!yy"!nydnyFF`!ynydnyFF`!yyyw 0A3XTXCALL fails; workspace too full for parametersWNo suitable free space on volume for fileVInvalid operation; mixing numbers and stringsUToo few values for INPUT or READ variablesTInvalid PRINT USING format or syntaxSProgram too large; workspacCE!(  &&ff7 ^FR, @#= e overfillsRRESEQ has an invalid statement number or intervalQReached RETURN without executing a GOSUB statementPWorkspace too full to store stringOString is longer than 255 charactersNArray subscript is negative or too largeMSUB creates an inv* ~ 8} t .}7f&f <7 7 w sB "BBBAGHPVw ~Bsj EE5V5V5 >5@ U <5I5507ABD 57ABCE5V@  alid statement or has a syntax errorLSyntax error; cannot translate the statementKGOSUB fails; 20 subroutines already activeJTotal number of arrays and variables in COMMON exceeds 255INo DEF statement for the function namedHProgram does not have $s @  tU hU \ @"B  D555 L  @B"T L@ 5l5VfVEV H  !5A   x~h r Β ޑ ~wp@ ȑ a statement number specifiedGNo DIM or COMMON description for array usedFFile name in use; REPLACE or change name or volumeEAnother virtual array is using the channelBYyYYYZ;ZpZZZZ[Z[[[[\!\\\\\\]9]m]]]].^B^w^^^_S_x____`9`i` 5 V d5@6o C  E @ x W @ A@ Z~5V ,5q&EVҫ b  fB  ~d @E5V C D D ܐ  B !5@`  ```aBavaaaa"b[bbbbcScccĐ     5 ,Aa ~5 5  2 N tw2  R B @ .E ^ D { | S|57 7  BBB  E7w67w2DEEEBIMUw 褂Bv5 N&f&$EE ecF &  7   ċwd w\?MINC-ċwLF-wBW- @ <& *֋ u5  wʅ  ,w at line fTf& P5 * ѵ&Tw w STOP :wArguments in definition do not match function called~Array overfills workspace}DATA value or value from file does not match variable|Enter new value. Old value did not match INPUT variable {LOG or LOG10 expression less than or equal t$ 6| 0{5,w tB FBBB *EEBV57 ~ h5@ \ 7b T5@l H 7`@ Vw .( 7r.π 5877  xׁ"@aw n5>5 w  o 0zOPEN fails; workspace too full for another channelyOPEN fails; file channel already openxFile channel input or output errorwNeed OPEN statement for file channelvError in compiled program; use program stored with SAVEuCOMMON variables not i 7 pFEn"FR,w  7 PER,NDe"w&&&& 7 &FxBEFR, nΓ3wS6S85Ҭ(S&S( f2f4 .7 ҷxBEFR, Γ5   5    d| ^ } X|BDEGHILMPYSTUVw n the same order as in last programtValue of control expression is out of rangesDividing by zerorEND statement does not have highest number in programqExtra values from keyboard or file ignoredpInvalid exponential expressionoParentheses nested ަBt>U55E55@E5VUU U5EU5 E5UE5@U55 Z5wn57 RUU@wPwR5#7 n"xBEFnxFER,  dd75P 5R75w   t p t  x (| "|  } ?} w xB 4BBB  HVUTw B xw 08xBx @P 掇 ğw~ @ z57 &7 $ ƕBBBFLUw $BlxxxAE0@4  @ f@ @ ,pFCBB ʪz XEEE bE ޑ D đ #vtvt@^\-ZTfP JͷDͷ:ͷ4 r v AA " V !@@ -7̀ @mN-LP} NE 捇  EE5V @EEE z7 |7 z BBBy7 8!y8!yF8!y!8!y!FF!nEF!y"!!y$yR,> ʍEw 2B`y@y @ PbE VU5EE BTTT5U 8{ E Ґ@N -Pk}&@vvtBRRvv7 T7 R PCBB@> 74w20A B B  { BFRUw BvNw vvD   pVe"yB~BBBBBBBBBBBBR, { BnDBv @ @ZCBB'-$~ި- E C  A     Ж`CBBv-&w h&f& N@   8 w D : E ֧07 7 d CBBDw ĨBr <7 NnBEh!BR,W   e - 򤥁7 n$ n"FnBF`!tn `!BR,5Э 7 n( ntF`!BR,7 >B6 5V5N 5> 54 5$   7r π 7U p Y  T x y 1 [$ A  xx   !   w!ا   y \ 0 E A 7,w. ^ X5<    `y鈂  7 7 75> LUPUU ~ h l j 7 nBntF`!BR,mZJmjLmfNE N V ׁ $( @ @ 5 CBB`!,* ԦJ5@&&7 JER,ww xx[?1l>[?7l[?7h> ➎z ܞ lCBB T P>< ~ 5 Vt ^ 0PRPV S~7 7 . CBBIw Bur 0u  E xEV 5VUV D z 5N 5V5V& &CBB E @ H  @ @ B    x UV @v5@ p5@ ^@f \ W E eUVEV7 0 UnxVw̷  @ ҐH @ Đ ԏ xV<7 7 drCBB &Ww Br E bE ȓ ғ \ ڬ w 7 7 CBB BC 2 :w 9 E fP D~x0 j z \9 T ! P [ A  &,0xFx @7TxN7 E8!PxF8!PxFl!Px!RxwR,  eC 4DEBFRUIw Bs"w5Dt w T2t`E  < ( V~7 7 7 7 @xBw 0ªBB566ʷ mlw m`5 bxT 6B9 U 2 h~ & ֕CBB|w BBU@ 6B9݇< 65@̻ CBB i%" X \D  X2 ܽ&f Xʽ Ľ  F 5@̻ ( 7  Dwċ  wwze7 fnBR, f5 5hV5hUU`%"5j z1 ExlxUx^BU@ P,E27 x5&  6 R,U E57 xEֺE躇 n h bn} \0} V5º7 `x B  5 V<]@s:s5  `    M sHwww |VT ~@`A@6:V 0 d(w#~twr sds-w v2 6 |mn::s@Dx7 Ç7 7 ^CBB5tp"tx~Τw~DZw B t : (t6tDtwwR4wwV4wwV4Gf(B7 B7 @ jj yttvvv @6wt&U 5N64sTs 'E5\L65p" Le 60  U264s nJ4R4<80N4V4D88N4V4L8@N4V4T8HN4V4\8PpL4T4d8XxL4T4l8`L4T4t8h5 tx5   E`Wt5wvwv5wvwvfvfv7 dnBFnvFBnBFnvFBR,7 nBR, 7 ԶnBR,.ͷ&l E b @  T-{ H-u-qxP L4T4|8L4T48L4T48L4T48L4T48 N4V48(N4V48@P4X48HP4X48DP4X48LP4X486 ҙ5  7 ·nd4d4R,wTeN F7 ࿇t< 0|` ~ L4pwW mP  w` P 7 7 w U@ƾr 1DvJvw " 7 f( =:tv =2.]*&vzvJ4N4N4xw0x$$ p j`{ d{ ^n} X0} Rz Lz F({08L428N4.8?7T5l@tU 46?K5555!%??K556 `6 67    HCK7 7  DBBRw Bu  <?7 <%5 # ׃oѾ'ţAC3#Bƒ@ >'=DBHDEG@CIPF ]5 zx@  @) .& D  f B pv Ac@ c@ 0 rf V  @e  , $ x  EP\z v57 )57 ,  \!  xu vvvu  ({ | ޡ0 ء ҡ ̡n} ơ0}5%F>̀``5X``&&7 ȵER,̇5̀``̃`&  6 w w  7 EA@v7 EP EA@E5 E  E&f&fx d%&f&f5 EZx < E Fx E5D  fEf636@6&@6 ?t7zF5 6G65&5&t7zU z5zztE&ztEU@6 DBB X-D ?8Ĝ6E 7 - "H7 :w 77 (w 77 5w 7 .CBB| Vp ys$s,s2s8s\ ʤ({ Ĥ0} n}0 D~ @ ez%(%% f  t @PF %t0  ʀ ' n@ w7x@t ȝʀ@ ,   *IRV ⟎z ܟ  : 4({ .0} (n} RCBBw BB Tw Ν ȝ *CBBw BBp zj  CBBVΪw BD N> v ؙCBBw >BB P CBBXw 6B @C 57 xET # B FDwZW#wJ > wH7070[7  70Q70Q77r7p7P0 ~? VvP97 DwBE Ծ5@UȾU5UA 4 $w j  ^ܾ . 2D3w@W#Ҿw0W-wfe ċ Ë  w ԓ 2 䓅De w\2\wwP D=2  U v1@0  ~55< h~ n} 0}  (|~Ay5-$,<4 CBB5<5  EUEw zw |4B%H5@4 F7 7 CBBw Bt 5̽05 w&f    wj  $ D3нf  Ċ  X D  Ċ ޒ 1W#wrL7 j7 l `Y2< 6&f $  :5@ w BB @f@0 ~% 7 *nXwn`4FR,t&Rw&Pw@ A  fh7 En`wFx6EFFR,w;o#= ׀@@H7 7  CBBIAw Bxw 5 ּQ60 FE B 2 &f x   f wL ޼Լ  D7z37r W# @SӋĊwp ‘ ƑD  ‘pri2L F&f ‘4 . J 8w p_ 2 &f dֿ п  R |7 z нw, Dċw 2p j&f 撅X R n Ԓ \w* | D <w8U fU%EeEeUН5ʝD!ff" b Z@r!t!v, 4 0 8 $ ,  4  t t E7~w7 VH!ldl!l8!nF8!nF!"Ez!"$2 &f t   b wFvf Ċ  Ƽ2 &f | v    wڑ5@ċË 7 Լ W#=:<32l!|؃R,Ele5V \lEEW   f&fU D5! EyE5U5UUQ5E7KHE5U V5U H57 7  &f    z w^@ ʻ  Dֻw4 Ȼ2 &f      ċ= zw֐H DTwċ w 1 5U5U5U7! DwܛEEf _7 87 6 ؈DBBIw 8BZ  hE "CVE UU@5E@ڼJּLV5@u*Ju,L4EU @"BeJ @ (7 2 &f hڼ Լ  V ޺w: N@ x Z5@ bf&fCV 7 @7 > "DBB BFRUNESWMJKLCHVIw 0BR lD@`w fEE4H   U @      @@f&BCfAA1AQ& j z&Ecȕ 鈇fE 툀E~鈇 툀E~ n   H~&툀 툀E~   \  @vwtulkjmnqx [?8l12[?8hqbc c_c @c ): @`c*7ER`mZ( w@ F JDċw`w0"wP2 &f @  ȿ .3UR7 P7  wj Dċxw֔g2J D&f 2 , H 3UG~f Dw ܤD   f&{{0{  ! ,  h3f&f@B HEBxH|5 5~E U 5 5~E lEDE `5@ 0w P TDċ wj2 &f T  ܾ B3Ef7 d27 0 w ~ Г ԓDw |s2V P&f ̓> 8 T D wċT 5@w£tP 11$ $57 NFR,D2y *6& $ EEExw%xŎ-xzŀ f-Z^wEV}U4x wH|||}}$}E@C7 7 ŅU@!8e! 5wL  U 5 % U 5 >f 5 x7 7 &nDBB-xzV-pxRFRw tBz E 7 <  7 2 4$44fz hzBtzB       w , \ V P J< Dl > 8ʆ@ wA7- C%wW e %  ζ ȶ  5@5E@U : 5 5@7 `^#XR ec>0 e,-(d d27 7  - N7 tn~x6EFn6F6R,G@65@N V  Cwwww<  %       !  e w<    eemm&bمfNcՅӅAх&f- mB J~d5@~@ X~-\nrf6  ܉ft P4 4 7%` 7r44 w  f:u:=t?o>8_ 5 @ 5  @ 5H @  @ xmB  qw72qw7a&4qwqw)Um>e<-6wNmm  w w%w  4El1l.+(S2sElxxPPʁʁ $w .BJf.w~@c k 3 ` ( T Gs:e+UE n3[ G n1W{> !b!!$"""F##$g$$(%%%H&&'h'''(((E))*b**+~++;,,,U--.o..*///B000Y112 r@h>>?o??@t@@!AxAA$BzBB&C{CC&D{DD$EyEE!FuFFGpGGHjHHIbIIJXJJJMKKK@LLL1MMM!NqNNO^OOOJPPP4QQQRiRRSOSSS3TTTU`UUU@VVVWgWWWCXXXYdYYY;ZZZ[W[6?6 Wt|Wt| 7- x4  ,8wwf`E@5E e -(2 E]]] ^P^^^_^___&`h```.aoaaa2brbbb2cqccc.dlddd&edeeefWfff gGgggg2hmhhhiSiiii6jnjjjkKkkkk$lZllll.mbmmmm1ndnnnn-o_oooo#pSppppqAqpqqqq(rUrrrrs4s_ssss t6t`ttttu-uVu~uuuuvBvhvvv ذw B  x%5H w hB7 nBR, w5:2ww#-  \@&&7 ddFnnFE|R, &&7 bFR, &UM ((676vv#wHwlwwwwwx@xcxxxxx y*yJyjyyyyyz$zBz`z}zzzzz {'{B{]{x{{{{{{|*|B|Z|r|||||||}%}:}N}c}w}}}}}}}} ~~/~?~P~`~p~~~~~~~~~~~ "-8CNXblu~ 6zDlnz~z$E$zz $E Y Nzz HBP U$ SET USR SWAPSET USR NOSWAPPlease answer Y or N.Changing the size of the workspace requires erasing the workspace. You must h767'89;o#= #= ׀@vh4445  4 5h 4`5 U4%%.5 j w BB5 5  ~&fCuB 5 e¼U 4 N(4 ave already used either the SAVE or the REPLACE command to store the program if you want to preserve it. Are you ready to have the workspace erased? (Y or N):VNw1XwAN5 < <   t4n55"65 .x+fU †L6l65 0n6e< `A11w Tpp :z&ff U@@ U "qrw v (FDBBww t bDBBw b XDBB J5w :w 2w * w " ԓ*DBB  ȓ8DBBw  *DBBBB&&###7 LJCDFLRSEZTWw 蠂Bz5-E5@ h{z${{:{t{{zz{5 5 4&m7&̭w 沲BB &BAf75@( T U ;r lL . @   P W 7 L@ ʤU f B~@ ^ 6@ .7 &0 -wJ ރ h~ ҄5 rw555@t$55^C5l52n5-&:5f58/5T M5\5ǶW5!U . :5555 U < "~ N j ({ n} wUl@ &<  f   $ h    n h F5 T N w. |5  " Z U@ "w T(R0} l { z `{ (| ڛ ԛ. Λ ț › R r F @& 5@ 4 %  F 5 Uw  5"U 8 47 tE x||| ||{|||   e<t?o>$p@`A8_4==o6=F>@Ft?oH>N~A8_Z2AH@Ã7777t<,B=o=o=t?o>8_==o=h@Ã7777t?o>8_<ΉA=oЉr=@ډp@`A8_~̸z$   e e   w B(R 7 DW#Kw5 e 5  ċw Ċ - P*5@ 5  5~5@5~@5b  55 5@7 ww5,^ ejR pxpx8r00p00p, S5 @E H-6 z@&&7 ER,  e 5@ S- zƆ5 5 5 4Sw  w  @ N5 @ @ ΰz r  A  e Z 7S%L ċ H e> ,  V R eJ  ww  w  @ Dw 3   (WW- 7  B( DW#x e 5 oċmĊ5@ 5~'55 "5^ S%J 5L 5D S%, 7 :ER,@S%5 5  S%w  w  @ 8w &   A@ ¯   @  | < 6"7 P @72 &f    ~ wb  >z@ #κ ҕ- >z s f e0RMINC-F-Can't call REGION when in strip-chart (move) modeMINC-F-Can't turn on graph that's not in use7  wD ִʹ2 &f &   \5@? 0B+7 |o2R L&f ȉ: 4 P 3U 8 wP & w7 ܴ wtċBĊ MINC-F-Specify only one region, pleaseMINC-F-Graph number of zero not allowed hereMINC-F-Can't display vertical lines in strip-chart (move) modeMINC-F-FLOATING-POINT CALL STACK OVERFLOWMINC-F-Range of WINDOW limits too narrowMINC-F-Graph number o @7 h  w>XmR U -DF <Аċ BĊ   t7 7`x7tq2T N&f ʈ< 6 R B  8 w гij6@ f zero not allowed hereMINC-F-Can't be in double strip-chart mode when using this routineMINC-F-Move option must be selected if X argument is omittedMINC-F-Move option not allowed if other graph is in useMINC-F-Move option must be specified if Move L @ ċZBĊ U~7 v7 t KU@-fhI ^Аċ BĊ ;   7 8844,xu2X R&f ·@ : V F  < w*"  r7 wn    specified previouslyMINC-F-Move and Brand cannot be specified togetherMINC-F-Move option must be specified to specify UnitsMINC-F-High and Wide option must be specified togetherMINC-F-Cannot erase a currently unused graphMINC-F-Specified options inh ±  Dċбw.  ıw 2)*7 (?2t n&f ꆅ\ V r ؆  8 DċFw  :w ұ)ʱ7 ȱ_2 &f `compatible with moving graphsMINC-F-Graph number must be zero when DUAL_MOVE has been usedMINC-F-Width must be less than 512MINC-F-Graph number of zero not allowed hereMINC-F-The Text option must be specified by itselfMINC-F-Specifed Row or ColumnҲ ̲  N ԰  `]ʰ25 Ӌ7 ʋ7 w7 Ep27777|-C xteh^waZaejw`w`eZ 7-D7   @e_@ 8V not in graphic regionMINC-F-Only one symbol may be printed at a time!MINC-F-Specified corners are not diagonally oppositeMINC-F-Line must have different endpointsMINC-F-Zero is illegal as a ROLL_AREA argumentMINC-F-Argument outside terminal scroll<zBJZbwNmmg w87? ,e & Ε,e ,e w7  |xw ,e & Ε,e V,e 7  j,e & Ε,e ing limitsMINC-F-First argument must be smaller than secondMINC-F-No response from terminalMINC-F-Bad row specificationMINC-F-Bad column specificationMINC-F-Graph number of zero not allowed hereMINC-F-Only one graph number may be in useMINC-F-StA,e ,e & Ε,e C,e w,e & Ε,e ? @,e w 7 e_,e & Ε,e sp,e  @FweNDc DeceVeripchart modes must be off when this routine is calledMINC-F-Cannot specify X value less than 1 with DistanceMINC-F-X value must be less than 512 when Distance is selectedMINC-F-Distance must be specified if X is omittedMINC-F-Array length is too smalBB-"-|-tnnn. BR ~ ͥw} fBCDpLpT`@ 4`  !  5 B A B   `t   $, e2m ,e & Ε,e ,e w6w,n ww,e & Ε,e E@em|U@~,e wŀjw xz7 , h^\ZvwHFw@ 4 "? w& Ε,e f~B~_c     ww\ H ' @>w  7 w7 w,e & Ε,e 3Հx,e l_TV? N (e*'@@@7 7   >z@ #κ ҕ- >z s f e0RMINC-F-Use array element instead of array for argument #MINC-F-No autogain channels permittedMINC-F-Hpoints requestedMINC-F-Arrays must be as large as number of points requestedMINC-F-Number of points requested must be positivelMINC-F-Single strip-chart mode cannot be on when DUAL_MOVE is calledMINC-F-Indexing not allowed in strip-chart modeMINC-F-Index array is not presentMINC-F-Number of indices is outside range 0-10MINC-F-Number of indices is too large for specified aistogram arrays must contain at least 4 elementsMINC-F-Channel or unit # not in system for the routineMINC-F-Clock too fast for system to respondMINC-F-Subroutine #; Clock too fast for system to respondMINC-F-Data lost--transfer rate too highMINC-FrrayMINC-F-Previously plotted point not foundMINC-F-Specifed number not convertable to text coordinateMINC-F-Illegal graph numberMINC-F-Cannot get cursor position from terminalMINC-F-Graphics routine terminated by ^CMINC-F-Lab module routines are us-Subroutine #; Data lost--transfer rate too highMINC-F-Value exceeds valid range for argumentMINC-F-Subroutine #; Value exceeds valid range for argumentMINC-F-Existing display conflicts with display requestedMINC-F-Value exceeds BCD range for argumening the screenMINC-F-Number of copies to be made must be no greater than 50MINC-F-1ST ARRAY IN GTABLE IS NOT REALMINC-F-2ND ARRAY IN GTABLE IS NOT INTEGERMINC-F-Serial line number must be in range 1-3MINC-F-Specify either LP: or serial line number, t #MINC-F-No. of channels must match size of gain arrayMINC-F-Previous routine is already using the module requestedMINC-F-System does not contain the module requestedMINC-F-Invalid BCD value specified in argument #MINC-F-Service subroutine request but not bothMINC-F-Only one parity option may be specifiedMINC-F-Illegal baud rate specifiedMINC-F-Illegal number of bits specifiedMINC-F-Internal string handling errorMINC-F-This command is unsupported on this terminalpending. Cannot use CONTINUEMINC-F-Invalid data type for argument #MINC-F-Notify DIGITAL: Internal error trapMINC-F-Invalid or conflicting options requestedMINC-F-Could not find service subroutine # requestedMINC-F-Notify DIGITAL: Memory pool exau7 7 &DBBBSRTKJEUCFw |B z7rE%Q7`5EK5 W <585045(05Թ5^2wT-$6,@e%BCeHFw>Aev|w6 &h~ ({  *  \ stedMINC-F-Missing argument no. # is requiredMINC-F-Notify DIGITAL: Mark time failureMINC-F-Continuous transfer not in progress for array specifiedMINC-F-Must specify clock operating modeMINC-F-Invalid character or duplicate modes requestedMINC-F0}*$w`5FU>U?ZU5%E %7EE~7 EFFR,i7 FR,5[RPULÝ>B<ff7 XFR, (&e~% -Set front panel switch to P mode for channel # requestedMINC-F-Cannot set gain with no preamp connected to channel #MINC-F-Notify DIGITAL: Protection failureMINC-F-Too many response requests pendingMINC-F-Variable name required for argument #MINCffff ff7 FR,f fff7 FFFFR,7 ܯFR,7 ̯FR,Ʒ N3<:EYZ<"ME_E"0>\E F>.E3oW>HEwVhQĚN:2Wݼ.g"EAF&>-w4EW>>*cE s>/E\!# Ñā||Ħz~n+V!\ă0EP (ܼFw20PAc:WA<KCT=6D`=/rD2=Dg>9E>eE-u  @  H   h@t be from 0 to 255 charactersMINC-F-Array size must exceed 2 for continuous mode transfersMINC-F-Argument 3 must be evenMINC-F-Argument 3 must be an integral multiple of 4MINC-F-Serial output channel # is not readyMINC-F-Fast mode collects integer da<-nV=#< @ffC?Gta onlyMINC-F-Thermocouple type must be specifiedMINC-F-MNCAD must be present to use thermocouplesMINC-F-Channel # is not a thermocouple channelMINC-F-Thermocouple value out of range on channel #MINC-F-Fewer than 8 points requestedMINC-F-More than 2048 points requestedMINC-F-Number of points must be a power of 2MINC-F-Invalid or improper arguments specifiedMINC-F-Notify DIGITAL: FFT argument failureMINC-F-Invalid or conflicting arguments requestedMINC-F-Arrays must be as large as number of  , 0 . 0   > U  ֜  - wr a` 0wǦ& 4؎wi x w\Z44U wOM >fAW W    "  \wҘ7 FAT" ʋ 5 B& & #CaNa   6`  %7 AR @"1- z b&  ؎쎴w., x #4 ^    `  |ލލ:D4*  V ˋ ʤ #.*$'" Ca v& `%: 6 \ bC A ֚N ,  &6`"Da 6  7 u-HJCCHE <B :DDAB``a bu b"Aa ` ` a7 \ LERC#-^,.#-^w L3C: <.D̢ <`$ ɋBe Abb   @ U@0,   & , Ȳ : +-*/^()\&;,<==<>==><>><<>="':#[]IF END #LET IF GO TO ON FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT LINPUT PRINT USING REMDEF READ DATA CALL FNPISYS(RCTRLOABORT(TTYSET(CTRLCRC 4 ʵ:  >:5 @@ 6eC-<@< >B:C:5`:5< ~A6C >U <W-<  < e 3   ) D : , 6  &," D5-5  5- & && &CJ 21 >&&Be eeҔ fA>5 Be em  w@ Fy@{& WWWp& 7d eW  (wxW w@ x@& 7% D4   f&  & e  )Ԓh I4 8& W NQ  `eJ% %w    7 FR,ʵ7 FR,lCm< I ,5*ʵ7 pFV$Nm< 5' , , 5 *7 ̖pFV$,*57 pFV$-#% ҿ 4  +     @  *E* ,5 ,4> &  & $  >0 8 `& - `:% :  e\Ba,I1*U*5 , 6Uw` & & &  & 6 &N  -!ea5 9ȕ01000  e w* * $$ Z- Fȃ   f&f <} 7ҋ7֋E&V&5w,%&7 8!`!8!`!nnFxEFnFd!nF`!nF`!nnFnFR, h|7L&&7 FR,f @w7 fdnFR,  Q$ NvP&&7 8F`!nn!F!F"n!FdnnFFdnFnnFF!F"!nF!H"!l!l!ꋚ!X7 ֠8!8!Fd`!8!8!Fd`!Fdl!8!Fl!R, Tw7ڋD7 8!8!Fl!R,5@0*J0,L {4$VP { _ 0DBB\BBP~x EE@e"-ʖe&&e&&7 ڡFR,e ~$-tP.7Z7B7\7 nB!̋`!BnB!`!BR,@e7 77 jxE!n@FxE!@rAL>   0 8   ,  4   $       ^ Z | x | V R t p t t p | x | x t p t p @@T@@A AAAAAB BJE z 5V5- @e7$w" z yU yn@FR,RV7 08!L8!LF8!L8!LFF8!L8!LFF8!LFdd`!N8!LF8!LnNFFR, |~ \7 РnB!l"!!~n"FFn"F`!BnB!"!!nFFn"F`!BR,  6  >~n"FnDF!nFn@Fn"!&%P B#D m)D@ y5V   AB C D  yB x $y xx y xD x B e \E y 2yJU y\EEVUVfVEV y@ x @ y ~!ZBBBBC6Ey"CEH@Q@ˡAABBB   H x x x@ x@5T NySӕꎀ BxD~B #C5V   D .x y L x x uu @U x@U x5 X5 Z`EU x@ w@N x w@ wEUV x 457 7 w XB ,DBB N 7 j7 hw ԑXB DBB P ҕ,F X Ow :BX  v 4 h Fҕ, : L D :  . &ҕ鈇2 s e0a&fQE &&7 -E | &&7 nFFR,7 &&7 FR,n07 ޡdER,`-VՕ.7 ¡EFn"F!PR,%ՕE+ -  r ``MA F%>Q9f&fE|E5 R W(E)P[]V[W(V)\Pp w&fffEE w B BUV :4 ,&DV5@l53 ZuXZ+&E5V@BXCZ5XuZ v|U@| V&fB@ @D  25@3CP%.&&f DU@(EE5V,%K%KU |fVEpVȔE { {C,U j{c2Ez5U {5 5U {EVU 5 UVE UVB@ J8E zp7m Z@7\\250fL-&VN ]V6 @ v6  ~UVE@?5 !f@mؕEd-PoWcE    wPN7 5Vl5V#W CDH z@ {  55V 5VU@ z@ {5@ 70W 'e>7 B8!&x(EF`!(8!&n !Fn(FnXFFn"Fn(Fn !F8!&FR,7 8!&8!&Fx(EF`!(8!&R,e3EZ@ \z5@L @ T@EZe y@ y 7 zn(FR,%Zd%Po6wV yH zD@ x{ {UV  77]DH hz H{ p{UVҔД^ Z@ 67 3 7@ zf N $5 : p!mdbm^`imV7R!7L7@[V@ Qm,EVH y@ jz@ zy \z@ ly@5VU BzLnŒ\̋fڌ-1.2345E+12 9`r      $ ( $ | x x t p p @ rzTT dzT5ԝN NzTԕHmE 4zT̕ ۓ! (y yœ! y 4@ y ^ Z5#5@Vf$f"f4f2& D7 Fx!EFF`!!R,f6b8U@5@:/-6'5*' ( D| x ! j @t+   ! n  wb $|*R  ( @t     . ( BxP |7 9 { {D~x0 {@ { |9 mX@77 (n!ddl! 8! Fl! 8! Fl! R,5V)-В%-P -m B @7@U@5 UwxjU $xEHBJH@ w x5L w x52B xB{ USs7ڹ {[  {C  x Z{ r9 ({ Z{ $0   {7   77.*&w 2 9 zֶ  z \ ,& E w xx^ wh hx~  $  , 4 t p f ~ - 7 ExBEFn"FER,f&ZT@" F{N z~ Z9 z Xwl p0wpJm05>7 ER,t m,E 0 y@ y] zpߥr&5ާ U!U]ߋpߥr5U 7d 7dEd jUd]&f]P JU¦3 6LWJ 6F Nlf*f,W> 6: Nl .  #( *!C,   B mc ee _N_F3   J& & Ҏ me  ^p |mȋ _^   ` |f5|  (UlE f 5T鈇 \Pt5,֊ @5 7ŠzUw 4DBw (C~ w Hˊ鈇7 DEʩI!!A# A I I0!H 21Pp S(Ee  _F m_N B me<5 : (+&f: m_N& & _^ Nl |m_^ NBa m_F NBa m_FRfN& ΋?A<I Nd -bʑff& ΋ Y N) \&U@$Ҋ鈀&E@$ϊ鈀E` ⒇& U@$U>6~w 4w .c60 E@$ ~&Eꨇ5  ,@EEU tU ҋ鈇@2!A!"U% M% D# C   D eRʑPfRXhZjl̒np~ΒdRrtTdvfxǘȓz͘ʓ |Ә ~٘"BߘD`b"$ĕƕBDtˊ@   ڨ e 5    EPE%H7 n6FER,e e     pre2w B鈇A#(& ,8"3u77t;0 8;08% ;P8 %;@8 7v OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? TAB? SYS? RCTRLO? ABORT? TTYSET? CTRLC & RCTRLC? RND? ABS? SGN? BIN? OCT? LEN? ASC? CHR$? POS? SEG$? VAL? TRM$? STR$? PI? INT? DAT$? CLK$? a 0DBB~%' | r Bv\  DBBD  v% p `~( `r }10 REM ----BUSDEM 20 REM ---------IEEE BUS DEMONSTRATION PROGRAM 30 REM 40 DISPLAY_CLEAR 50 PRINT 'IEEE BUS DEMONSTRATION PROGRAM' 60 PRINT 70 PRINT 'This program lets you send data to and receive data from an IEEE-' 80 PRINT 'compatible instrumentMINC-F-Instrument time limit exceededMINC-F-Invalid instrument addressMINC-F-Invalid argument?MINC-W-SRQ subroutine canceled because no serial poll doneMINC-F-Notify DIGITAL: No IEEE bus moduleMINC-F-Too many talker addressesMINC-F-Too many li. Connect your instrument to MINC using the' 90 PRINT "cable provided. Check your instrument's user's guide to find the" 100 PRINT "instrument's address." 110 PRINT \ PRINT 'What is the address of your instrument (0 to 30)'; 120 INPUT I% \ IF I%>=0stener addressesMINC-F-Not enough space for the string?MINC-W-Same instrument specified as talker and listenerMINC-F-Conflict over control of the IEEE busMINC-F-Listener is not on the bus THEN IF I%<=30 GO TO 150 130 PRINT \ PRINT "The address must be a decimal integer between 0 and 30" 140 GO TO 110 150 PRINT 230 PRINT 'Do you wish to send or receive data (S or R)'; 240 LINPUT A$ 250 IF A$='S' GO TO 290 \ IF A$='s' GO TO 290 260 Eq$6X& Ew@  Ae E@ dCeJueu5(55@ K"  L PPM%5  fe% s)& (% EeF  lxwswIF A$='R' GO TO 330 \ IF A$='r' GO TO 330 270 PRINT 'Please respond S for send or R for receive' \ GO TO 230 280 PRINT 290 PRINT 'What characters do you wish to send to the instrument'; 300 LINPUT A$ 310 SEND(A$,I%) 320 GO TO 360 330 RECEIVE(A$,,I%Β.w>NOT ENOUGH MEMORY FOR BASIC&GR4;JU) 340 PRINT "The instrument sent the following characters:" 350 PRINT \ PRINT A$ 360 PRINT \ PRINT 'AGAIN (Y or N)'; \ INPUT A$ 370 IF A$='Y' GO TO 230 \ IF A$='y' GO TO 230 380 IF A$='N' GO TO 400 \ IF A$='n' GO TO 400 390 PRINT 'Please answer Y ow NONAME w Β̑RZĒTfʓ "Db$ƕDvJJ:K|IJII 6 6W3 n@,   a`&*:fR5 R R5,_lV5 , zM r N' \ GO TO 360 400 END  W'  |:^&P̋ USʋ~N̋ U~Eʋb~D̋ jUZ/ʋ * eE?]̋ .Uʋb  eE?]0 :,W3 n , \VW-, dV _f M_V n , W-, O_L# O_" nW-,W n@,  5P _V35 \M_V n f,& N&# _S  % @eD B dbB bE0wس0 *  ]̋ ̩Uʋŀ~̋ Uʋbŀ~̋ xUhʋŀ  eE?]̋ 6U&ʋbŀ  eE?]7E@& B     j&e_^ |mE*_^ & * ,@ J&*_^ J&& #   0  , _f J&& #     0  ` , _f J& ,_f t&& p& Ε,e & Ε,e % U@5U4 ~ z]   U N H5]8 25]w |  & * U ߋ   J&,_f n B mp,_F 6\WZ 6VWT 6P Nl *@@,-7 # 0 - * ce<ece:`eҢ :  <  : %5,5 *_f10 REM -----DADEM 20 REM ----------Program to put analog out to digital volt ohmmeter 22 DISPLAY_CLEAR 30 PRINT 'DIGITAL-TO-ANALOG DEMONSTRATION PROGRAM' \ PRINT 40 PRINT 'The digital-to-analog demonstration program generates a voltage' 50 PRINT 'ation to run and the amount' 20 PRINT 'of time you want to spend in the set state and the amount of time' 21 PRINT 'you want to spend in the clear state.' 22 PRINT \ PRINT 'Watch the volt-ohmmeter to see the two states.' 30 REM Request user input 40 PR the D/A output causing the volt-ohmmeter to oscillate starting' 60 PRINT 'with a small amplitude and slowly increasing until a maximum' 70 PRINT 'amplitude is reached.' 80 PRINT 90 PRINT 'Connect the volt-ohmmeter to one of the four channels of the DINT 45 PRINT 'How many seconds do you want to run (5 to 30)'; \ INPUT T 50 PRINT 'How many digital output units do you have in the chassis (1 to 4)'; \ 51 INPUT U2 \ IF U2>1 THEN 53 52 U=0 \ GO TO 65 53 PRINT 'If you followed the suggested configura/A' 100 PRINT 'converter. Set the volt-ohmmeter to DC volts and select a range' 110 PRINT 'that will give full-scale deflection for a 5 volt input.' 120 PRINT 130 REM Request user input 140 REM 150 PRINT 'How many seconds do you wish to run (1 to tion rules, then you have:' 54 PRINT 'Unit 0 ---- the right most digital output unit' 55 PRINT 'Unit 1 ---- the next digital output unit to the left of Unit 0' 56 IF U2=2 THEN 60 57 PRINT 'Unit 2 ---- the next digital output unit to the left of Unit 1'30)'; \ INPUT T 151 PRINT 'How many D/A converters do you have in your configuration'; 152 INPUT N 153 IF N>=1 THEN IF N<=4 THEN GO TO 157 156 PRINT 'please specify an integer between 1 and 4' \ GO TO 151 157 IF N>1 GO TO 600 160 PRINT USING 'What c 58 IF U2=3 THEN 60 59 PRINT 'Unit 3 ---- the next digital output unit to the left of Unit 2' 60 PRINT 'What digital output unit do you want to use'; \ INPUT U 65 PRINT 'What line did you connect the volt-ohmmeter to (0 to 15)'; 66 INPUT L 70 PRINT 'hannel did you connect the volt-ohmmeter to (0 to ##)',4*N-1; \ INPUT C 170 L=127 \ M=.5 \ A=16 \ D=1 \ V=0 180 REM Schedule an interrupt T seconds from now 200 S=0 210 SCHEDULE('Interval',T,420) 270 REM Repeat the following code until interval complHow many seconds do you want in the set period'; \ INPUT P1 80 PRINT 'How many seconds do you want in the clear period'; \ INPUT P2 85 PRINT 90 REM Specify and schedule interval. 100 J=0 110 SCHEDULE('Interval',T,2000) 120 REM Repeat the following uete 290 IF S=1 THEN 500 300 AOUT(,V,,,C) 310 GOSUB 330 320 GO TO 290 330 V=V+A*D 334 IF D*V'V' THEN 210 170 SET_GAIN(,G,C) 180 GO TO 250 190 REM The channel parameters are wrong.5 REM ----DODEM 6 REM--------Digital output demonstration program 7 REM -------This program moves the needle of a volt-ohmmeter to: 8 REM--------------approx 4 volts for a set period 9 REM--------------approx 0 volts for a clear period 10 DISPLAY_CLEA Print a message. 200 PRINT USING M$(-A),C \ GO TO 220 210 PRINT USING "The mode on channel ## must be volts.",C 220 GOSUB 20000 \ REM Execute the ready dialog. 230 IF A=-1 THEN GO TO 130 \ REM If channel has preamp, recheck until correct. 240 GO TOR 11 PRINT 'DIGITAL OUTPUT MODULE DEMONSTRATION PROGRAM' 12 PRINT 13 PRINT 'The digital output demonstration program moves the needle of a volt-' 14 PRINT 'ohmmeter to a 0 volt deflection (approximately) for a set period and' 15 PRINT 'to a 4 volt de 100 \ REM Otherwise ask for another channel. 250 REM Collect 513 point sweep, displaying data as they are acquired. 260 PRINT 270 PRINT "513 points will be collected. Connect the start signal to ST2." 280 GOSUB 20000 \ REM Execute the ready dialog. flection for a clear period' 16 PRINT 17 PRINT 'You specify the digital output unit number and the line number for' 18 PRINT 'that unit to which you connected the volt ohmmeter. Then, you specify' 19 PRINT 'the amount of time you want the demonstrat290 REM Allocate the data array. 300 DIM R%(512) 310 REM Collect the data. 320 AIN('Display,ST2',R%(),513,1/50,C) 330 REM Simpsons rule for the numerical integration of a 513 point array: 340 REM 350 REM 512 360 REM S = ------- * R%[0] + 4*R%[ 380 WAIT_FOR_DATA(S%(),Q) 390 SCAN_BIT(R,S%(Q+1)) \ REM Find the line that caused the event. 400 IF R<0 THEN 440 410 T=S%(Q) \ REM Get the time. 420 MAKE_TIME(,T,T) 430 GOSUB 1000 \ REM Update the display. 440 IF K9=0 THEN 380 \ REM If K9=1, the ti20010 PRINT "Again (Y or N)"; \ INPUT T$ 20020 IF T$='y' THEN RETURN 20030 IF T$='Y' THEN RETURN 20040 IF T$='N' GO TO 20050 \ IF T$='n' GO TO 20050 20042 PRINT 'Please answer Y or N' \ GO TO 20010 20050 END me is up. 450 REM Terminate process, 5 hours are up. 460 TERMINATE('Immediate',S%()) 470 REM Save the results. 480 OPEN F$ FOR OUTPUT AS FILE #1 490 FOR I=0 TO 15 \ PRINT #1,T(I) \ NEXT I 500 REM Close the file and stop with the final data on the scr10 REM EXAMPLE G - TIME_HIST 20 REM Identify the program to the user. 30 PRINT "Time interval measurement example." \ PRINT 40 REM Request a filename. 50 PRINT "Enter a data filename in which to save the results: "; \ LINPUT F$ 60 REM Open the file. een. 510 CLOSE #1 520 STOP 1000 REM Plot the animal position and update the occupancy time. 1010 REM Old zone is in R0, new zone is in R. 1020 P=R0 \ GOSUB 1200 1030 REM clear old mark 1040 HTEXT(,Y+1,X+6,B$) \ HTEXT(,Y+2,X+6,B$) 1050 REM Update th 70 OPEN F$ FOR OUTPUT AS FILE #1 80 REM Allocate the histogram and storage arrays. 90 DIM H%(511),S(511) 100 REM Begin the acquisition 110 FOR I=1 TO 26 120 TIME_HIST('Zero,Display',H%(),5,20000,15152,18520) 130 FOR J=0 TO 511 \ S(J)=H%(J)+S(J) \ NE1] + 2*R%[2] + ... 4*R%[511] + R%[512] 370 REM 6 * 256 380 REM 390 S=R%(0)+R%(512) 400 FOR I=1 TO 511 STEP 2 \ S=S+4*R%(I) \ NEXT I 410 FOR I=2 TO 510 STEP 2 \ S=S+2*R%(I) \ NEXT I 420 S=(S*512)/(6*256) 430 REM Print the integral value under thee occupancy time of the zone just exited. 1060 T(R0)=T(R0)+T-T0 1070 T$=STR$(T(R0)) 1080 HTEXT(,Y+3,X+9,SEG$(" ",1,8-LEN(T$))+T$) 1090 REM Display new mark. 1100 P=R \ GOSUB 1200 1110 HTEXT(,Y+1,X+6,A$) \ HTEXT(,Y+2,X+6,A$) 1120 T0=T \ R0=R displayed data. 440 PRINT "Calculated integral: ",S 450 REM Repeat the program. 460 GO TO 100 20000 REM Wait for Y instruction 20010 PRINT "Enter Y when you are ready to start "; \ LINPUT T$ 20020 IF T$='y' THEN RETURN 20030 IF T$='Y' THEN RETURN 1130 RETURN 1200 REM Convert P into X and Y coordinates. 1210 Y0=INT(P/4) \ Y=Y0*Y9+2 1220 X0=P-(Y0*4) \ X=X0*X9+2 1230 RETURN 2000 REM Set the timeout flag. 2010 K9=1 2020 RETURN 20040 GO TO 20010 10 REM -----CLKDEM 12 REM ---------Program asks you to solve simple calculations. 14 REM ---------It validates your response and saves your response time. 16 REM ---------At the end, it prints your score. 30 DISPLAY_CLEAR 40 PRINT "CLOCK DEMONSTRATION10 REM EXAMPLE F. DIN, DIN_EVENT, WAIT_FOR_DATA, SCHEDULE 20 REM Identify program to user. 30 PRINT "Animal tracking example." \ PRINT 40 REM Request filename from user. 50 PRINT "Enter name of data file: "; \ LINPUT F$ 60 REM Draw the boxes on the PROGRAM" \ PRINT 50 PRINT "This program asks you to solve simple calculations." 52 PRINT \ PRINT ' + means addition ' 54 PRINT ' - means subtraction' 56 PRINT ' * means multiplication' \ PRINT 60 PRINT "Your answer is validated and your responsscreen using the following constants: 70 X9=18 \ Y9=5 \ X0=1 \ Y0=1 \ X1=73 \ Y1=21 80 REM Initialize display strings A$ and B$. 90 A$="*****" \ B$=" " 100 REM Initialize the occupancy times, T(I) 110 DIM T(15) 120 FOR I=0 TO 15 \ T(I)=0 \ NEXT Ie time computed." 75 PRINT 76 PRINT "How many problems do you want to try (1 to 20)"; 77 INPUT N 80 PRINT 85 RANDOMIZE 90 REM Define a MOD [or REM] function. 100 DEF FNR(X,Y)=X-(INT(X/Y)*Y) 200 REM Repeat N times 205 T1=0 \ R1=0 \ W1=0 210 FOR 130 REM Initialize the screen display 140 DISPLAY_CLEAR 150 ROLL_AREA(22,24) 160 PRINT TAB(31);"ZONE SUMMARY" 170 FOR I=X0 TO X1 STEP X9 \ TEXT_LINE('I,R',Y0,I,Y1,I) \ NEXT I 180 FOR I=Y0 TO Y1 STEP Y9 \ TEXT_LINE('I,R',I,X0,I,X1) \ NEXT I 190 REM I=1 TO N 220 REM Get three random numbers (0<=X<=2,0<=Y,Z<=9) 230 X=FNR(INT(10*RND),3) 240 Y=FNR(INT(10*RND),10) 250 Z=FNR(INT(10*RND),10) 260 ON X+1 GO TO 300,320,340 300 R=Y+Z 310 GO TO 350 320 R=Y-Z 330 GO TO 350 340 R=Y*Z 350 PRINT USING "##Number the boxes and set the starting accumulation to 0. 200 GET_CURSOR(A,B) 210 FOR I=1 TO 4 \ FOR J=1 TO 4 220 X=(I-1)*X9+2 \ Y=(J-1)*Y9+2 230 MOVE_CURSOR(Y,X) \ PRINT USING "##",(J-1)*4+(I-1) 240 MOVE_CURSOR(Y+3,X+9) \ PRINT USING "########",0 250 ' # = ",Y,SEG$('+-*',X+1,X+1),Z; 360 START_TIME('KHZ') \ REM -- START CLOCK 370 INPUT A \ REM ----------------GET ANSWER FROM USER 380 GET_TIME(T) \ REM ------------GET RESPONSE TIME 390 START_TIME('H') 400 IF R=A THEN GO TO 415 410 IF R<>A THEN PR NEXT J \ NEXT I 260 MOVE_CURSOR(A,B) 270 REM Track an animal using DIN and DIN_EVENT 280 REM Set the experiment timer. 290 K9=0 \ SCHEDULE('Interval','5:00:00',2000) 300 REM Set the event-enable word. 310 DIN_EVENT(BIN('1111111111111111')) 320 REM INT TAB(20);"WRONG! The correct answer is ";R 412 W1=W1+1 413 GO TO 430 415 PRINT TAB(20);"CORRECT! "; 420 IF R=A THEN PRINT USING "Your response time - ###.## seconds",T 422 R1=R1+1 424 T1=T1+T 430 NEXT I 440 GOSUB 20000 450 GO TO 75 20000 RAllocate an array for acquistion of the events and timestamp values. 330 DIM S%(3) \ REM Allocate space for two events. 340 REM Start the elapsed-time counter. 350 START_TIME('External') 360 REM Start the acquisition. 370 DIN('Time,Continuous',S%(),4)EM Ask "Proceed?" and wait for a yes or no answer. 20001 PRINT 20002 PRINT USING "You had ## correct and ## wrong answers.",R1,W1 20003 IF R1=0 THEN GO TO 20006 20004 PRINT USING "Average correct response time was ##.## seconds",T1/R1 20006 PRINT Allocate a working array and save the data on the disk. 280 DIM D%(1023) 290 DOUT(,BIN('111')) \ DIN(,D%(),1024,,1) 300 REM Accept the file name from the user. 310 PRINT "Enter the filename for the data storage:"; \ LINPUT F$ 320 OPEN F$ FOR OUTPUT ASu want to try another permutation (Y or N)'; 710 INPUT A$ 720 IF A$<>'y' THEN IF A$<>'Y' THEN GO TO 740 730 GO TO 410 740 IF A$<>'n' THEN IF A$<>'N' THEN GO TO 800 750 RETURN 800 PRINT 'Please answer Y or N' 810 GO TO 700 900 DATA 'capable','easy FILE #1 330 REM Store the data in the file. 340 FOR I=0 TO 1022 STEP 2 350 REM Convert from BCD and store in file F$. 360 MAKE_NUMBER(D%(I),T0) \ MAKE_NUMBER(D%(I+1),T1) 370 PRINT #1,T1*10000+T0 380 NEXT I 390 REM Close the output file, print the e-to-learn','expandable' 910 DATA 'friendly','versatile','portable' 1000 END nd message and repeat program. 400 CLOSE #1 410 PRINT \ PRINT "Data saved in file ";F$ \ PRINT 420 GO TO 40 1000 REM Get the number of samples taken and display them. 1010 DOUT(,BIN('011')) \ DIN(,T0,,,1) \ MAKE_NUMBER(T0,T0) 1020 DOUT(,BIN('100'))10 PRINT "DO connection verification." \ PRINT 20 PRINT "Enter unit and line numbers: (n,x) "; \ INPUT U,L \ PRINT 30 V=0 \ B=0 40 DOUT(,B,,,U) \ SET_BIT(L,V,B) \ V=1-V 50 PAUSE(.5) 60 GO TO 40 \ DIN(,T1,,,1) \ MAKE_NUMBER(T1,T1) 1030 C=T1*10000+T0 1040 T$=CLK$+" Samples requested: "+STR$(N)+" Samples taken: "+STR$(C) 1050 HTEXT(,1,1,T$) 1060 RETURN 10 PRINT "Schmitt trigger connection verification." \ PRINT 20 SCHMITT(1,100) \ SCHMITT(2,200) 30 GO TO 30 100 PRINT "Schmitt trigger 1." \ RETURN 200 PRINT "Schmitt trigger 2." \ RETURN 10 REM -----SHUFFL 12 REM---------Program to randomly permute test items 20 DIM D$(20) 30 DISPLAY_CLEAR 35 PRINT ' SHUFFL' \ PRINT 100 PRINT 'Program to randomly permute a set of items' 102 PRINT 'The item set consists of six words describing MIXT J 140 NEXT I 150 FOR I=0 TO 511 160 PRINT #1,S(I) 170 NEXT I 180 CLOSE #1 NC.' 103 RESTORE 104 N=6 105 FOR I=1 TO N 106 READ D$(I) 107 NEXT I 108 GOSUB 400 109 PRINT 110 PRINT 'Do you wish to enter test data (Y or N)'; 120 INPUT A$ 130 IF A$='y' GO TO 200 \ IF A$='Y' GO TO 200 140 IF A$='n' GO TO 1000 \ IF A$='N' GO TO 1000 150 PRINT 'Please answer Y or N' 160 GO TO 110 200 REM USER ELECTS TO ENTER DATA 202 PRINT 205 PRINT 'You can enter any character string for each item' 207 PRINT 'Terminate the character string by typing the RETURN key' 208 PRINT 210 PRI10 REM EXAMPLE D. DIN, DOUT, SET_LINE, TEST_LINE, MAKE_NUMBER, MAKE_BCD, PAUSE 20 REM Identify the program to the user. 30 PRINT "Digital analyzer control example." \ PRINT 40 PRINT "How many data samples do you want to take:"; \ INPUT N \ N=INT(N) 5NT 'How many items are to be in the set (1 to 20)'; 220 INPUT N 222 IF N>0 THEN IF N<21 THEN GO TO 230 224 PRINT 'The number must be a decimal integer between 1 and 20' 226 GO TO 210 230 FOR I=1 TO N 240 PRINT 'Enter item number ';I; 245 LINPUT D$(0 TEST_LINE(0,R) \ REM Test the analyzer's ready line. 60 IF R>0 THEN 100 70 PRINT "Analyzer not ready." 80 PAUSE(15) 90 GO TO 50 100 DOUT(,BIN('000')) \ REM Initialize the analyzer. 110 T0=N/10000 \ T1=T-(T0*10000) \ REM Split the count into two 4 dI) 250 NEXT I 260 GOSUB 400 270 PRINT 280 PRINT 'Do you wish to enter another set of items (Y or N)'; \ INPUT A$ 290 IF A$='Y' GO TO 208 \ IF A$='y' GO TO 208 292 IF A$='N' GO TO 1000 \ IF A$='n' GO TO 1000 294 PRINT 'Please answer Y or N' \ GO TO igit halves. 120 MAKE_BCD(T0,T0) \ MAKE_BCD(T1,T1) \ REM Convert the halves to BCD. 130 DOUT(,T1,,,1) \ DOUT(,BIN('001')) \ REM Set the lower half. 140 DOUT(,T0,,,1) \ DOUT(,BIN('010')) \ REM Set the upper half. 150 PRINT "Acquisition begun.",TAB(50);C280 390 REM 392 REM subroutine to permute test items 394 REM 400 PRINT 410 PRINT 'How many permutations do you want to see (1 to 20)'; 420 INPUT P 430 IF P>0 THEN IF P<21 THEN GO TO 452 440 PRINT 'The number must be a decimal integer between 1 anLK$ 160 DOUT(,BIN('101')) \ REM Start the analyzer. 170 ERASE_TEXT('TEXT',1) \ REM Erase the first line for the sample counter. 180 REM Loop until the acquisition is done. 190 GOSUB 1000 \ REM Go get the counts done so far. 200 TEST_LINE(1,R) \ REM Chd 20' 450 GO TO 400 452 PRINT 453 PRINT 'The items in the set are:' 454 PRINT 455 FOR I=1 TO N \ PRINT D$(I)+' '; \ NEXT I 456 PRINT \ PRINT 457 PRINT 'The permutations are:' \ PRINT 460 FOR I=1 TO P 500 REM SWAP ITEMS TO RANDOMLY PERMUTE OReck the analyzer acquiring bit. 210 IF R=0 THEN 240 \ REM Exit this loop if done. 220 PAUSE(10) 230 GO TO 180 240 REM Data has been acquired but print the sample count once more. 250 GOSUB 1000 260 PRINT "Acquisition complete.",TAB(50),CLK$ 270 REM DER 510 FOR I2=N TO 1 STEP -1 515 R1=RND 520 R=INT(R1*I2+1) 530 T$=D$(I2) 540 D$(I2)=D$(R) 550 D$(R)=T$ 560 NEXT I2 600 REM PRINT PERMUTATION 610 FOR I2=1 TO N 620 PRINT D$(I2)+' '; 630 NEXT I2 640 PRINT 660 NEXT I 700 PRINT \ PRINT 'Do yoplete. 260 AIN('DISPLAY',M%(),,,C) 270 IF I=0 THEN GO TO 291 280 GO TO 260 290 I=0 \ RETURN 291 PRINT 'ANALOG-TO-DIGITAL DEMONSTRATION' \ PRINT 292 PRINT USING 'Input from channel ## now complete.',C 293 PRINT 300 PRINT 'AGAIN (Y or N)'; \ INPUTYou may have to adjust the preamp gain switch." 80 AIN('D',A,1,,C) 90 GO TO 80 100 PRINT "Channel does not exist." 110 GO TO 20 A$ 310 IF A$='Y' GO TO 170 \ IF A$='y' GO TO 170 320 IF A$='N' GO TO 340 \ IF A$='n' GO TO 340 330 PRINT 'Please answer Y or N' \ GO TO 300 340 DISPLAY_CLEAR 350 END 10 REM EXAMPLE H. AOUT 20 REM Identify program to user 30 PRINT "Analog output example." \ PRINT 40 REM Request a data filename. 50 PRINT "Enter data filename: "; \ LINPUT F$ 60 REM Tell user to set the channels. 70 PRINT \ PRINT "Set channels 0 a10 REM ----DIDEM 11 REM ---------Program to test all channels of Digital Input module 12 REM ---------and report the number of samples taken. 13 DISPLAY_CLEAR 14 PRINT 'DIGITAL INPUT MODULE DEMONSTRATION PROGRAM' 15 PRINT \ PRINT 'The digital input dnd 1 to bipolar mode, 5 volt range." \ PRINT 80 GOSUB 20000 \ REM Execute the ready dialogue. 90 REM Open the user specified file. 100 OPEN F$ FOR INPUT AS FILE #1 110 REM Erase the oscilliscope screen by sending control bit 1 of channel 3. 120 AOUT(emonstration program looks at all the channels' 16 PRINT 'of the digital input module that you specify for the amount of time' 17 PRINT 'you specify and then reports the number of samples taken on each' 18 PRINT 'channel' 19 PRINT \ PRINT 'How many se,BIN('10'),,,3) 130 REM Repeat until end of file on 1# 140 IF END #1 THEN 220 150 INPUT #1,V(0),V(1) 160 IF ABS(V(0))>5000 THEN 250 170 IF ABS(V(1))>5000 THEN 250 180 REM 5000/1000 = VOLTS. VOLTS/2.5E-3 = DAC output value. 190 V(0)=V(0)/2.5 \ V(1)=conds do you wish to run (5 to 30)'; \ INPUT T 20 PRINT 'How many digital input modules do you have in the chassis'; 22 INPUT N 24 IF N<>1 THEN GO TO 28 26 U=0 \ GO TO 50 28 PRINT 'If you followed the suggested configuration rules, then you have:' 3V(1)/2.5 200 AOUT(,V(),2,,0,2) 210 GO TO 140 220 PRINT "Data have been plotted." 230 PRINT 240 GO TO 50 250 PRINT "Value exceeds range +/- 5000. X: ";X;" Y: ";Y 260 GO TO 140 20000 REM Wait for Y instruction. 20010 PRINT "Enter Y when you are r0 PRINT \ PRINT 'Unit 0 -- the right-most digital input module' 32 PRINT 'Unit 1 -- the digital input module to the left of Unit 0' 34 IF N=2 THEN 45 36 PRINT 'Unit 2 -- the digital input module to the left of Unit 1' 38 IF N=3 THEN 45 40 PRINT 'Unieady to start "; \ LINPUT T$ 20020 IF T$='y' THEN RETURN 20030 IF T$='Y' THEN RETURN 20040 GO TO 20010 t 3 -- the digital input module to the left of Unit 2' 45 PRINT USING 'What digital input unit did you connect to (0 to #)',N-1; \ INPUT U 50 REM 160 REM 165 REM Allocate the counter array and initialize the format strings. 170 REM 175 DIM C(15) 176 FOR J=0 TO 15 \ C(J)=0 \ NEXT J 177 F0$="Line no. No. set No. clear Percent set." 180 F1$=" ## ####### ####### ###.##" 200 K=0 \ REM initialize sample count 210 S=0 220 SCHEDULE('INTERVAL',T,2000) 240 REM10 REM EXAMPLE B - AIN_SUM, TEST_LINE, SET_LINE, PAUSE 20 REM Identify the program to the user. 30 PRINT "Signal averaging example." \ PRINT 40 REM Initialize the channel, lines, and number of sweeps. 50 C=17 \ N=100 \ REM Channel, C = 17; Number of s --- Loop until the signal S is nonzero 255 IF S>0 THEN 400 260 DIN(,M,,,U) 265 K=K+1 280 REM --- Scan for active bits 300 SCAN_BIT(J,M) 310 IF J<0 THEN 255 320 C(J)=C(J)+1 330 GO TO 300 340 REM 350 REM Print the test results. 360 REM 399 PRINTweeps, N = 100. 60 U=0 \ S0=0 \ R0=0 \ REM Unit, U =0; Start line, S0, and ready line, R0 = 0 70 P=512 \ DIM D(511) \ REM Allocate space for 512 points. 80 PRINT "Prepare the instrument for computer control." 90 GOSUB 20000 \ REM Execute the ready dial10 REM -----ADDEM 20 REM ---------Program to obtain analog input from function generator 25 DIM M%(100) 30 DISPLAY_CLEAR 50 REM 60 PRINT 'ANALOG-TO-DIGITAL DEMONSTRATION PROGRAM' 70 PRINT \ PRINT 80 PRINT 'The analog-to-digital module demonstratio 400 PRINT 410 PRINT USING "A total of #### samples were taken.",K 420 PRINT 430 PRINT F0$ 440 PRINT 450 FOR J=0 TO 15 460 B=C(J) 470 C=K-B 480 D=(B/K)*100 490 IF D<>0 THEN PRINT USING F1$,J,B,C,D 500 NEXT J 510 PRINT 520 PRINT 'AGAIN (Y n program illustrates' 90 PRINT 'the ongoing collection of a/d conversion values and their display' 100 PRINT 'on the screen. Connect a function generator to channel 4,5,6, 0r 7' 110 PRINT 'of the a/d converter. Set the function generator mode to sinor N)'; \ INPUT A$ 530 IF A$='y' THEN 19 \ IF A$='Y' THEN 19 540 IF A$='n' THEN 2020 \ IF A$='N' THEN 2020 550 PRINT 'Please answer Y or N' \ GO TO 520 2000 S=1 \ RETURN 2020 END e' 120 PRINT 'wave and set the frequency to approximately 1/2 Hz and the level' 130 PRINT 'to 2 volts peak-to-peak. ' 140 PRINT 150 PRINT 'The analog-to-digital demonstration program takes points' 160 PRINT 'for 120 seconds.' 170 REM Request user input 180 REM 190 PRINT 200 PRINT 'What channel did you connect to (4 to 7)'; \ INPUT C 210 REM Take points for 120 seconds. Display points on screen. 220 REM 240 I=1 250 SCHEDULE('Interval',120,290) 255 REM Repeat the following until interval com10 PRINT "ADC connection verification." \ PRINT 20 PRINT "Enter channel number: "; \ INPUT C 30 TEST_GAIN(C,G,G$) 32 IF G=-3 THEN 100 40 AIN('D',A,1,,C) 50 IF G<-1 THEN 80 60 PRINT "PREAMP PRESENT - Set to voltage mode." 70 PRINT " ition now beginning." 190 AIN_SUM('Display',D(),P,,C,,N) \ REM Display, 512 points, Chan. C, N sweeps 200 PRINT "Acquisition complete." \ PRINT 210 SET_LINE(S0,0,U) \ REM Stop the instrument. 220 REM Average the data. 230 FOR I=0 TO P-1 \ D(I)=D(I)/N10 PRINT "DAC connection verification." \ PRINT 20 PRINT "Set desired channel to unipolar and 0 to 5 volt range." 30 PRINT 40 PRINT "Enter channel number: (0 to 15) "; \ INPUT C \ PRINT 50 V=2047 60 AOUT(,V,1,,C) 70 V=0-V 80 PAUSE(.5) 90 GO TO 6 \ NEXT I 240 REM 250 REM Assume data fits D(T)=C*EXP(-K*T) 260 REM or the relation LOG(D(I))=LOG(C)-K*T 270 REM Which is equivalent to Y = A + B*T 280 REM A least squares fit to the linear form follows. 290 REM T0 is the average of T. T2 is the av0 erage of T^2. 300 REM Y0 is the average of Y. Z is the average of Y*T. 310 REM B = (T0*Y0-Z)/(T0^2-X2) 320 REM A = Y0 - B*T0 330 REM 340 T0=0 \ T2=0 \ Z=0 \ Y0=0 \ REM Initialize the accumulators. 350 FOR T=0 TO 511 360 Y=LOG(D(T)) 370 T0=T0+T \ 10 PRINT "DI connection verification." \ PRINT 20 PRINT "Enter unit and line numbers: (n,x) "; \ INPUT U,L 30 PRINT 40 M=0 \ SET_BIT(L,1,M) 50 DIN_MASK(M,U) 60 DIN(,A,1,,U) 70 DIN(,B,1,,U) 80 IF A=B THEN 100 90 PRINT "Transition detected." 100 DT2=T2+T^2 380 Y0=Y0+Y \ Z=Z+Y*T 390 NEXT T 400 REM Calculate the averages. 410 T0=T0/P \ T2=T2/P 420 Y0=Y0/P \ Z=Z/P 430 REM Calculate the slope and intercept. 440 B=(T0*Y0-Z)/(T0^2-T2) 450 A=Y0-B*T0 460 REM Convert the intercept to the exponentiaIN(,A,1,,U) 110 IF B=A THEN 70 120 PRINT "Transition detected." 130 GO TO 70 l form. 470 A=EXP(A) 480 REM Print the results 490 PRINT " Y = C * EXP( -K * T )"; 500 PRINT USING " C = #####.#### K = #####.####",A,-B 510 PRINT 520 GO TO 80 \ REM Repeat the program 20000 REM Wait for Y instruction 20010 PRINT "Enter Y when 10 REM EXAMPLE E. START_TIME, GET_TIME, PAUSE 20 REM Identify the program to the users. 30 PRINT "Arithmetic quiz example." \ PRINT 40 PRINT "This program presents you with simple arithmetic problems to solve." 50 PRINT "The program records your scoryou are ready to start "; \ LINPUT T$ 20020 IF T$='y' THEN RETURN 20030 IF T$='Y' THEN RETURN 20040 GO TO 20010 e and how long you took to enter the" 60 PRINT "answer for each problem." 70 PRINT "There are 20 problems in each set." 80 PRINT 90 REM Define a MOD [or REM] function. 100 DEF FNR(X,Y)=X-(INT(X/Y)*Y) 110 GOSUB 20000 \ REM Execute the ready dialogue. 120 REM Initialize the result counters and then repeat 20 times. 130 C=0 \ W=0 \ G=0 \ B=0 \ REM Score counters, correct/wrong elapsed times. 140 FOR I=1 TO 20 150 REM Get three random numbers 160 X=FNR(INT(10*RND),3) \ REM X is in range 0 to 2. 17010 REM EXAMPLE C. AIN, CONTINUE, TERMINATE 20 REM Identify the program to the user. 30 PRINT "ADC to diskette transfer example." 40 REM Initialize the channel [C], trigger interval [R] and counter [J] 50 C=5 \ R=25 \ J=0 \ K=0 60 REM Accept the file Y=FNR(INT(10*RND),10) \ REM Y, Z are in range 0 to 9. 180 Z=FNR(INT(10*RND),10) 190 REM Create the problem to present. 200 ON X+1 GO TO 210,230,250 210 R=Y+Z 220 GO TO 270 230 R=Y-Z 240 GO TO 270 250 R=Y*Z 260 REM Display the problem. 270 PRINT specifications. 70 PRINT "Enter the file name of the data file: "; \ LINPUT D$ 80 REM Allocate the virtual array file and open its channel. 90 DIM #1,D(19999) \ S=19999 100 OPEN D$ FOR OUTPUT AS FILE 1 110 REM Allocate the array used for the con 280 PRINT USING "## ' # = ",Y,SEG$('+-*',X+1,X+1),Z; 290 START_TIME('KHZ') \ REM Start the elapsed-time counter in msec 300 INPUT A \ REM Wait for the answer. 310 GET_TIME(T) \ REM Determine the latency of the answer. 320 START_TIME('Halt') \ REM Stotinuous acquisition. 120 DIM R(199) \ B=99 130 REM Setup the continuous acquisition process. 140 AIN('Display,Continuous',R(),200,1/R,C) 150 REM Start the acquisition and specify R0 as the array index. 160 CONTINUE(R(),R0,2000) 170 PRINT 180 PRINT p the elapsed-time counter. 330 IF R<>A THEN 380 \ REM Score the answer. 340 PAUSE(.1) 350 PRINT TAB(40);"CORRECT." 360 C=C+1 \ G=G+T \ REM Increment the number correct and accumulate the times. 370 GO TO 400 380 PRINT TAB(40);"WRONG! The correct an"Number of data points requested: ";S+1 190 PRINT "Number of data points collected: "; 200 GET_CURSOR(C0,C1) 210 PRINT 220 HTEXT(,C0,C1+1,STR$(J)) \ REM print the number of points collected. 230 IF J0 THEN 160 130 PRINT CHR$(7);"The instrument is not yet ready." 140 PAUSE(15) 150 GO TO 110 160 REM Start the instrument. 170 SET_LINE(S0,1,U) 180 PRINT "Acquisiate',R()) \ PRINT "TRANSFER HALTED." 2070 RETURN 2080 CONTINUE(R(),R0,2000) 2090 RETURN ement by measuring' 65 PRINT 'the temperature of your hand.' 70 PRINT 80 PRINT 'You must have a MNCTP installed immediately to the left' 90 PRINT 'of a MNCAD. The MNCAD is in the rightmost chassis position.' 110 PRINT 'Are you ready (Y or N)'; \ LINPn+wÝe0 \ T& & Yns ,^ 鈀e鈇&U@$E@$ e&U@$E@$֥YUT A$ \ IF A$<>'Y' GO TO 80 200 PRINT 201 PRINT 'This demonstration accepts thermocouple probe types J,K,E,S,T,R,B.' 210 PRINT 'Which type of thermocouple probe did you connect to the MNCTP'; 220 LINPUT T$ \ REM get thermocouple type 300 PRINT 310 7   HU%erage response times were:" 500 PRINT USING " ###.## seconds for correct answers",G/C 510 IF B>0 THEN 540 520 PRINT USING " and you had no incorrect answers." 530 GO TO 550 540 PRINT USING " and ###.## seconds for incorrect answers.",B/W PRINT 'Grasp the thermocouple probe end with your hand.' 312 PRINT 'The program will stop when the temperature of the probe' 313 PRINT 'stabilizes.' 320 S=0 400 PAUSE(3) 420 TEMPERATURE('F,'+T$,12,T) 422 T%=T 425 PRINT 'The probe temperature reads ' 550 PRINT 560 GOSUB 20000 570 PRINT 580 GO TO 120 \ REM Repeat with another problem set. 20000 REM Wait for Y instruction 20010 PRINT "Enter Y when you are ready to start "; \ LINPUT T$ 20020 IF T$='y' THEN RETURN 20030 IF T$='Y' THEN RETURN 200+STR$(T%)+' degrees F.' 430 IF T<82 GO TO 440 \ IF ABS(S-T)<.1 GO TO 500 440 S=T 450 GO TO 400 500 REM temperature has stabilized 510 PRINT 520 PRINT CHR$(7)+CHR$(7) 530 PRINT 'Your hand temperature is '+STR$(T%)+' degrees F.' 540 PRINT 550 IF T40 STOP %<85 THEN PRINT 'A cold fish!' \ GO TO 600 560 IF T%>91 THEN PRINT 'A hot one!' \ GO TO 600 570 PRINT 'A normal one!' 600 END 04 1 REM ----SLUDEM 2 REM ----------Sends and receives data using turn around connector 3 REM ----------for serial line units 0 and 1 5 DISPLAY_CLEAR 10 PRINT 'SERIAL ASCII DEMONSTRATION PROGRAM' \ PRINT 20 PRINT 'A serial line unit is a device for sending and receiving ASCII codes.' 45 PRINT 70 PRINT 'You can send characters on one serial line unit and receive them' 80 PRINT 'back on the same unit using the wrap-around connector.' 100 PRINT 110 PRINT 'This program requests a channel number and an?FORMAT--YWSzFORMAT V01.04 Illegal command lineUnit ASCII message.' 120 PRINT 'The string is sent out over the specified channel. If a response' 130 PRINT 'is received within 3 seconds of the transmission, the response' 140 PRINT 'is printed.' 150 PRINT \ PRINT 'What channel do you wish to use (0 or number must be in range 0-7Device illegal or not supported by FORMATIllegal option: /No value can be specified with option: /Formatting the system volume is not allowedFormatting not allowed when a foreground job is loadedDuplicate option specified:1)'; \ INPUT C 160 PRINT 'What message do you want to send'; \ INPUT A$ 162 CIN(,R$,1,C,.1) 164 COUT(,A$,,C) 166 CIN('Retrieve',R$,,C,3) 168 IF LEN(R$)<>0 THEN 170 169 PRINT 'No response was received' \ GO TO 180 170 PRINT \ PRINT 'Response receive /:/FORMAT-Are you sure?Formatting abortedFormatting complete?FORMAT-F-Device not ready?FORMAT-F-Device errorInsert volume you wish to format. CONTINUE(Y/N)?Replace original volume. CONTINUE(Y)?xh?FORMAT-F-Unit number too large for RTd was ';R$ 180 PRINT \ PRINT 'AGAIN (Y or N)'; 190 INPUT A$ 200 IF A$='Y' THEN 150 \ IF A$='y' THEN 150 210 IF A$='N' THEN 1000 \ IF A$='n' THEN 1000 220 PRINT 'Please answer Y or N' \ GO TO 180 1000 END -11 configurationDY 8rRK U $,5 Fg +  \ .  "X&     F fvX ` @%'%F h e F N7|ĝ"5! e Fc v(`v`fv&  0e@7L @ G!A Y 10 REM THERMOCOUPLE DEMONSTRATION PROGRAM 20 REM 30 DISPLAY_CLEAR 40 PRINT 'THERMOCOUPLE PREAMP MODULE DEMONSTRATION PROGRAM' 45 PRINT 50 PRINT 'This program demonstrates the use of the thermocouple' 60 PRINT 'module (MNCTP) and the TEMPERATURE state e7F& B L  lX,8 F7 , z;  7b`f D `0 . I + I- ONTROL-VARIABLE 60 NORMAL_SPACE 61 OCT(OCTAL-STRING) 62 OLDFILESPEC 63 ONCONTROL-VALUEGOTOSTATEMENT#-LIST 64 OPEN"FILESPEC"FORINPUTASFILE#CHANNELDOUBLEBUF,FILESIZEVALUE 65 OVERLAY'FILESPEC'LINESTATEMENT# 66 PI 67 POS(STRING,SEARCH-MODEL,START-POSITT) 168 AIN_SUM(MODE,DATA-NAME,SWP-LENGTH,TRIG,A/D-CHAN,NO.-CHANNELS,NO.-SWPS, 169 AOUT(MODE,DATA-NAME,DATA-LENGTH,TRIGGER,D/A-CHANNEL,NO.-OF-CHANNELS) 170 CIN(MODE,STRING-NAME,STRING-LENGTH,CHANNEL-NO.,TIMEOUT-INTERVAL) 171 CONTINUE(DATA-NAME,INDEX,SUBROUTION) 68 PRINT#CHANNEL,USINGDESCRIPTION,PRINT-LIST 69 RANDOMIZE 70 RCTRLC 71 RCTRLO 72 READDATA-LIST 73 REMTEXT 74 RENAMEFILENAME 75 REPLACEFILESPEC 76 RESEQNEWSTART,OLDSTART-OLDFINISH,INCREMENT 77 RESTORE#CHANNEL 78 RESET#CHANNEL 79 RESTART 80INE) 172 COUT(MODE,STRING-NAME,STRING-LENGTH,CHANNEL-NO.) 173 DIN(MODE,DATA-NAME,DATA-LENGTH,TRIGGER,UNIT) 174 DIN_EVENT(EVENT-ENABLE-WORD,UNIT) 175 DIN_MASK(MASK-WORD,UNIT) 176 DOUT(MODE,DATA-NAME,DATA-LENGTH,TRIGGER,UNIT) 177 DOUT_MASK(MASK-WORD,UNIT) 17 RETURN 81 RND 82 RUNNHFILESPEC 83 SAVEFILESPEC 84 SCR 85 SEG$(STRING,START-POSITION,END-POSITION) 86 SGN(NUMBER) 87 SIN(ANGLE) 88 SQR(NUMBER) 89 STOP 90 STR$(NUMBER) 91 SUBSTATEMENT#[CURRENT-FORM[CHANGED-FORM[WHICH-OCCURRENCE 92 SYS(1) 93 SYS8 FFT(MODE,DATA-LENGTH,REAL-COMPONENT,IMAG-COMPONENT,SCALE-FACTOR) 179 GET_TIME(CURRENT-VALUE) 180 MAKE_BCD(NUMERIC-VALUE,BCD-VALUE) 181 MAKE_NUMBER(BCD-VALUE,NUMERIC-VALUE) 182 MAKE_TIME(RATE,OLD-VALUE,RESULT) 183 PAUSE(DELAY-INTERVAL) 184 POWER(DATA-LENG(4) 94 SYS(6) 95 SYS(7,0) 96 SYS(7,1) 97 TAB(NUMBER) 98 TIMEHOURS:MINUTES:SECONDS 99 TRANSCRIBE 100 TRM$(STRING) 101 TTYSET 102 TYPEFILESPEC 103 UNSAVEFILESPEC 104 VAL(STRING) 105 VERIFYDEV: 106 WILDCARDS 107 BARGRAPH(OPTION,NUMBER,ST-X,ST-Y,INCREMENTH,REAL-COMPONENT,IMAG-COMPONENT,SPECTRUM-ARRAY) 185 PST_HIST(MODE,HISTOGRAM-NAME,TICK-RATE,NO.-OF-SWEEPS,LOWER-ENDPT,UPPER-ENDPT) 186 SCAN_BIT(BIT-POSITION,WORD) 187 SCHEDULE(MODE,TIME,SUBROUTINE) 188 SCHMITT(SCHMITT-TRIGGER,SUBROUTINE,ST1-COUNT) 189 SET_T,SHADELINE,GRAPHNO.,ST-INDEX) 108 BOX(OPTION,ROW1,COLUMN1,ROW2,COLUMN2) 109 CHAR_MODE(OPTION) 110 DISPLAY_CLEAR 111 DISPLAY_COPY 112 DISPLAY_MODE(OPTION) 113 DUAL_MOVE(OPTION,NUMBER,ST-X,ST-Y1,ST-Y2,INCREMENT) 114 ERASE_GRAPH(OPTION,XCOORDINATE,YCOORDINATBIT(BIT-POSITION,CONDITION,WORD) 190 SET_GAIN(MODE,GAIN-CODE,A/D-CHANNEL,NO.-OF-CHANNELS) 191 SET_LINE(LINE-NUMBER,CONDITION,UNIT) 192 START_TIME(RATE) 193 TEMPERATURE('THERMO-TYPE,TEMP-UNITS',CHANNEL,TEMPERATURE) 194 TERMINATE(MODE,DATA-NAME) 195 TEST_BITU%U鈱U |x5 55 5AENU HD5I5 5\鈱    rr 5@A5 5@ %r  55E,GRAPHNUMBER) 115 ERASE_TEXT(OPTION,ROWNUMBER,COLUMNNUMBER,NUMBERTOERASE) 116 FIND_CURSOR(ROW,COLUMN,CHARACTER) 117 FIND_POINT(X,Y) 118 GET_CURSOR(ROW,COLUMN) 119 GRAPH_INIT 120 GRID(OPTION,GRAPHNUMBER) 121 HLINE(OPTION,FIRSTY,NUMBER,INCREMENT,GRAPHNUMBERe[r 55\鈱) 122 HTEXT(OPTION,ROWNUMBER,COLUMNNUMBER,TEXTSTRING) 123 LABEL(OPTION,XLABEL,YLABEL,GRAPHNUMBER) 124 LIGHTS(OPTION) 125 MAP_TO_GRAPH(ROWNUMBER,COLUMNNUMBER,X,Y,GRAPHNUMBER) 126 MAP_TO_TEXT(XCOORDINATE,YCOORDINATE,ROW,COLUMN,GRAPHNUMBER) 127 MOVE_CURSOR(RO The system Help file MNCHLP.HLP cannot be edited. To insert help for any topic "abcdef" put the help text in the file ABCDEF.TXT. HELP 1 BASIC 2 GRAPH(OPTION,NUMBER,ST-X,ST-Y,INCREMENT,SHADELINE,GRAPHNO.,ST-INDEX) 3 GRAPHICS WNUMBER,COLUMNNUMBER) 128 POINT(OPTION,XCOORDINATE,YCOORDINATE,GRAPHNUMBER) 129 PUT_POINT(OPTION,XCOORDINATE,YCOORDINATE) 130 PUT_LINE(OPTION,START-X,START-Y,END-X,END-Y) 131 PUT_SYMBOL(OPTION,ROWNUMBER,COLUMNNUMBER) 132 REGION(OPTION,GRAPHNUMBER) 133 ROLL 4 IEEE 5 LAB 6 SETUP 7 ABORT 8 ABS(EXPRESSION) 9 APPENDFILESPEC 10 ASC(CHARACTER) 11 ASSIGNMENTSTATEMENT 12 ATN(EXPRESSION) 13 BIN(STRING) 14 BLOCK_MOVE(SOURCE-ARRAY-NAME(SOURCE-START-VALUE),DESTINATION-ARRAY-NAME 15 BYE 16 CHAIN"FILESPE_AREA(TOPROW,BOTTOMROW) 134 SET_BAR(WIDTH,GRAPHNUMBER) 135 SHADE(OPTION,SHADELINE,GRAPHNUMBER) 136 TEXT_INIT 137 TEXT_LINE(OPTION,ROW1,COLUMN1,ROW2,COLUMN2) 138 VIEW(OPTION,GRAPHNUMBER) 139 VLINE(OPTION,FIRSTX,NUMBER,INCREMENT,GRAPHNUMBER) 140 VTEXT(OPTIONC"LINESTATEMENT# 17 CHR$(CODE) 18 CLEAR 19 CLK$ 20 CLOSECHANNEL-LIST 21 COLLECTDEVICE 22 COMMONCOMMON-LIST 23 COMPILEFILESPEC 24 COPYEXISTING-FILENEW-FILE 25 COS(EXPRESSION) 26 CREATEFILESPEC 27 CTRLC 28 DAT$ 29 DATADATA-LIST 30 DATECURRENT-D,ROWNUMBER,COLUMNNUMBER,TEXTSTRING) 141 WIDE_LINE(OPTION,ROWNUMBER) 142 WINDOW(OPTION,LOWERX,LOWERY,UPPERX,UPPERY,GRAPHNUMBER) 143 ALL_INSTR_CLEAR 144 DISABLE_ALL_PAR_POLL 145 DISABLE_PAR_POLL(LISTENERS) 146 DISABLE_REMOTE 147 ENABLE_PAR_POLL(CONDITION,DATATE 31 DEFFNX-SYMBOL(DUMMY-ARGUMENT-LIST)=EXPRESSION 32 DELFIRSTLINE-LASTLINE,FIRSTLINE-LASTLINE,... 33 DIM#CHANNEL,ARRAYNAME(HIGH-ROW-INDEX,HIGH-COLUMN-INDEX)=LENGTH 34 DIRECTORYFILESPECOUTPUTSPEC 35 DUPLICATE 36 EDITINPUT-FILESPECOUTPUT-FILESPEC 3A-LINE,LISTENERS) 148 ENABLE_REMOTE 149 IEEE_BUS_CLEAR 150 INSTR_CLEAR(LISTENERS) 151 INSTR_TIME_LIMIT(NEW-TIME-LIMIT,OLD-TIME-LIMIT) 152 LOCAL_INSTR(LISTENERS) 153 LOCAL_LOCKOUT 154 PAR_POLL(POLL-RESPONSE) 155 RECEIVE(MESSAGE,MAXIMUM-LENGTH,TALKER,LISTENE7 END 38 EXP(POWER) 39 EXTRA_SPACE 40 FORCONTROL-VARIABLE=START-VALUETOEND-VALUESTEPINCREMENT 41 GET_CHAR(CHARACTER) 42 GOSUBSTATEMENT# 43 GOTOSTATEMENT# 44 IFTRUE-CONDITIONTHENSTATEMENT 45 INITIALIZESY1: 46 INPUT#CHANNEL,VARIABLE-LIST 47 INSPECTRS) 156 SEND(MESSAGE,LISTENERS) 157 SEND_FRAGMENT(MESSAGE-FRAGMENT,LISTENERS) 158 SERIAL_POLL(STATUS,INDEX,TALKERS) 159 SET_TERMINATORS(TERMINATORS) 160 SRQ_SUBROUTINE(SUBROUTINE) 161 TEST_LISTENERS(CONDITION,LISTENERS) 162 TEST_REMOTE(CONDITION) 163 TEST_FILESPEC 48 INT(NUMBER) 49 KILL"FILESPEC" 50 LEN(STRING) 51 LENGTH 52 LETVARIABLE=VALUE 53 LINPUT#CHANNEL,VARIABLE-LIST 54 LISTNHLINESPEC,LINESPEC,... 55 LOG(NUMBER) 56 LOG10(NUMBER) 57 NAME"OLD-FILESPEC"TO"NEW-FILESPEC" 58 NEWFILENAME 59 NEXTCSRQ(CONDITION) 164 TRANSFER(ACTUAL-LENGTH,MAXIMUM-LENGTH,TALKER,LISTENERS) 165 TRIGGER_INSTR(LISTENERS) 166 AIN(MODE,DATA-NAME,DATA-LENGTH,TRIGGER,A/D-CHANNEL,NO.-OF-CHANNELS) 167 AIN_HIST(MODE,HISTOGRAM-NAME,A/D-CHANNEL,SWEEP-LENGTH,LOWER-ENDPT,UPPER-ENDPSYS(7,1) CHR$ END LOG10 RESEQ TAB CLEAR EXP NAME RESTART TIME CLK$ EXTRA_SPACE NEW RESTORE/RESET TRANSCRIBE CLOSE FOR NEXT RETURN TRM$ COLLECT GET_CHAR `L22("9|O 't! &!4@yHW@K NORMAL_SPACE RND TTYSET COMMON GOSUB OCT RUN/RUNNH TYPE COMPILE GOTO OLD SAVE UNSAVE COPY HELP ON SCR VAL COS IF OPEN SEG$ VERIFY CREATW@'  "|"fP vXK.IF NDF `$SYSDV.ASECTh. = 52.GLOBL pEND .WORD .WORD .WORD .PSECT.IFF$SYDSZ == .PSECT SYSHND.ENDCSTRT::.IF B .GLOBL INT .WORD E INITIALIZE OVERLAY SGN Wildcards Help is available for all the above. Enter HELP followed by the item name. GRAPH(option,number,st-X,st-Y,increment,shadeline,graph no.,st-index) Creates a graphic displa11s`? R !"^#%s%';'(d)*+3,-n./z0*0123Z45T789:;<l=>L?@@B.CDEF^GGHIJKLfMNzOPQ5RSy on the screen. Argument Type Valid Values Default Value option string expression [-]GRID, [-]EXACT, GRID, POINTS -UNITS, -HLINES, -TICKS, VLINES, INDEX, SHADE, BRANDS, MOVE, POINTS, LINES number numeric expression intTVXXZ[\]^K_O``acgdef=fghiTi7jklhlmno?plqXrstuMv+wxgyzH{|a|~V3<"9X_%Xfeger in entire array range 0-32767 st-X, or name of any element in st-X: ordinal st-Y, or numeric array any legally number st-index element dimensioned array st-Y,st-index: required increment numeric expression integer in rang0Ump%W+JdW)m2 aDVEO0}'.re 1 0-32767 shadeline numeric expression any legal Y lowest Y value coordinate in window graph no. numeric expression 1 or 2 1 Example GRAPH("LINES,BRANDS",50,X1(0),Y1(0),,,2) Result Creates a 50-point graph with a graph number o$=MHf 2. The X and Y coordinates of the points on the graph are taken from corresponding elements of arrays X1 and Y1, respectively. The 50 points are connected with line segments, and brands are placed at each point. The graph is not shaded. Reference BOOK 4 GRAPHICS The graphics routines are: BARGRAPH FIND_POINT MAP_TO_GRAPH SET_BAR BOX GET_CURSOR MAP_TO_TEXT SHADE CHAR_MODE GRAPH MOVE_CURSOR TEXT_INIT DISPLAY_CLEAR GRAPH_INIT POINT TEXT_LINE DISPLAY_COPY (BIT-POSITION,CONDITION,WORD) 196 TEST_GAIN(A/D-CHANNEL,GAIN-CODE,MODE-CODE) 197 TEST_LINE(LINE-NUMBER,LINE-CONDITION,UNIT) 198 TIME_CLOCK(MODE,DATA-NAME,DATA-LENGTH) 199 TIME_HIST(MODE,HISTOGRAM-NAME,TICK-RATE,SWEEP-LENGTH,LOWER-ENDPT,UPPER-ENDPT) 200 WAIT_FOR_DATA(DATA-NAME,INDEX) 201 HELP Help is available for the following general topics: HELP BASIC Lists all the command, statement, and function names. HELP GRAPHICS Lists all the graphic routine names. HELP IEEE Lists all the IEEE bus routine names. HELP LAB Lists alP[ &Fx<l the lab module routine names. HELP SETUP Describes the terminal characteristics. In addition, help is available for each statement, function, and routine. To obtain help, type HELP followed by the name of the topic. BASIC ABORT CTRLC INPUT PI SIN ABS DAT$ INSPECT POS SQR APPEND DATA INT PRINT STOP ASC DATE KILL RANDOMIZE STR$ Assignment DEF LEN RCTRLC SUB ATN DEL LX z04x[u~#ytu~< yENGTH RCTRLO SYS(1) BIN DIM LET READ SYS(4) BLOCK_MOVE DIRECTORY LINPUT REM SYS(6) BYE DUPLICATE LIST/LISTNH RENAME SYS(7,0) CHAIN EDIT LOG REPLACE LE_REMOTE SRQ_SUBROUTINE IEEE_BUS_CLEAR TEST_LISTENERS INSTR_CLEAR TEST_REMOTE INSTR_TIME_LIMIT TEST_SRQ LOCAL_INSTR TRANSFER LOCAL_LOCKOUT TRIGGER_INSTR PAR_POLL Help is available for all the IEEE bus routine/numeric 0 to 127 required component character string expression any character required component Example PRINT ASC('W') Result 87 Reference BOOK 3 Assignment Statement LET variable = value Assigns a value to the variable s. Enter HELP followed by the routine name. LAB The lab module routines are: AIN DIN_MASK PAUSE START_TIME AIN_HIST DOUT POWER TEMPERATURE AIN_SUM DOUT_MASK PST_HIST TERMINATE AOUT FFTor array element. Component Component Type Component Value Default Condition LET statement none assigns value variable string or numeric any valid name required component variable name = none n SCAN_BIT TEST_BIT CIN GET_TIME SCHEDULE TEST_GAIN CONTINUE MAKE_BCD SCHMITT TEST_LINE COUT MAKE_NUMBER SET_BIT TIME_CLOCK DIN MAKE_TIME SET_GAIN TIME_HIST DIN_EVENT SET_LINE one required component value string or numeric same type as required component expression variable Example 10 A=-7 Result A acquires the value of -7. Reference BOOK 3 ATN(expression) Assigns the expression argument to a WAIT_FOR_DATA Help is available for all the lab module routines. Enter HELP followed by the routine name. SETUP Screen contrast control: Press the SETUP key. Press the up arrow key to increase contrast, the down arrow key to decrease contrast.n arc tangent value (answer in radians). Component Component Type Component Value Default Condition ATN function name/real -pi/2 to pi/2 required component radians expression numeric expression real range Press the SETUP key again to return to normal operation. Terminal characteristics: Press the SETUP key and then the 5 key. Press the left and right arrow keys to position the cursor over the digit to be changed and press the 6 key to change th required component Example PRINT ATN(32.345) Result 1.53989 Reference BOOK 3 BIN(string) Assigns the binary string argument to a decimal value. Component Component Type Component Value Default Condition BIN function ne digit. Press the SETUP key again to return to normal operation. The standard initial state for the terminal is shown below. For further information see Book 7, Chapter 10. 1 1101 2 1111 3 0100 4 0010 :::: :: : :60Hz power; ame/integer -32,768 to 32,767 required component string string expression up to 16 1's required component and 0's Example 40 N=BIN('1001') Result N acquires the decimal value 9. Reference BOOK 3 BLOCK_MOVE(source-array-name(s1 for 50Hz :::: :: no interlacing; 1 for interlacing :::: :key click on; 0 for no key click :::: right margin tone on; 0 for no tone :::square cursor on; 0 for underscore cursor ::black background; 1 for white (reverse video) backource-start-value),destination-array-name(destination-start-value),number) Transfers blocks of data between arrays and virtual arrays. Component Component Type Component Value Default Condition BLOCK_MOVE statement none required componground :auto repeat on; 0 for no auto repeat smooth scrolling on; 0 for jump scrolling ABORT variable=ABORT(code) Halts program execution. Component Component Type Component Value Default Condition variable numeric variableent source-array- string or numeric valid array name required component name source-start- numeric expression 0 to dimension of required component value array destination- string or numeric valid array name required component array-name unknown required component = none none required component ABORT function name/none none required component code numeric expression 0,1 required component Example 40 X1=ABORT(1) Result The progra destination- numeric expression 0 to dimension of required component start-value array number numeric expression 1 to 32767 required component Example BLOCK_MOVE(A(10),B(50),15) Result A block of 15 elements moves from array A to virtuam stops and code 1 erases the workspace. Reference BOOK 3 ABS(expression) Assigns the expression argument to an absolute value. Component Component Type Component Value Default Condition ABS function name/real 0 to 1.7 x 10^3l array B. Element 10 is the first array element to move to virtual array location 50. Reference BOOK 3 BYE Completes changing the volume in SY1: and erases the workspace. Component Component Type Component Value Default Conditi8 required component expression numeric expression any value required component Example 80 A=ABS(-3) Result A acquires the value 3. Reference BOOK 3 APPEND filespec Combines a program stored on a volume file with the program in ton BYE command none required component Example BYE Result MINC pauses, then displays READY. Reference BOOK 3 CHAIN "filespec" LINE statement# Connects separate programs or program parts to form a program chain. Begins execu GRID PUT_LINE VIEW DISPLAY_MODE HLINE PUT_POINT VLINE DUAL_MOVE HTEXT PUT_SYMBOL VTEXT ERASE_GRAPH LABEL REGION WIDE_LINE ERASE_TEXT LIGHTS ROLL_AREA WINDOW FIND_CURSOR Help is available for all of the graphic routineshe workspace. Component Component Type Component Value Default Condition APPEND command none required component filespec characters dev:name.typ prompts for filespec Example APPEND SY1:ABCD. Enter HELP followed by the routine name. IEEE The IEEE bus routines are: ALL_INSTR_CLEAR RECEIVE DISABLE_ALL_PAR_POLL SEND DISABLE_PAR_POLL SEND_FRAGMENT DISABLE_REMOTE SERIAL_POLL ENABLE_PAR_POLL SET_TERMINATORS ENAB.BAS Result SY1:ABCD.BAS merges with the workspace file. Reference BOOK 3 ASC(character) Assigns the single-character argument to numeric ASCII code. Component Component Type Component Value Default Condition ASC function name00) Result Allocates space for array I and preserves the values of array elements I(0) through I(100) during a chain operation. Reference BOOK 3 COMPILE filespec Stores the compiled form of the workspace program in the filespec file. Compones or displays the current date (dd-mmm-yy). Component Component Type Component Value Default Condition DATE command none required component current-date characters dd-mmm-yy displays date Example DATEting the stored program filespec at the statement#. Component Component Type Component Value Default Condition CHAIN statement none required component filespec characters dev:name.typ dev: SY0: ent Component Type Component Value Default Condition COMPILE command none required component filespec characters dev:name.typ dev: SY0: name workspace name .typ .BAC Exname NONAME .typ .BAS LINE none none starts at first statement statement# numeric expression 1 to 32,767 paired with LINE Example 110 CHAIN "SY1:PROG4" LINE 1500 Result The program connects to Sample COMPILE ABCD1 Result Stores the compiled workspace program in SY0:ABCD1.BAC. Reference BOOK 3 COPY existing-file new-fileor COPY filespec LP: Copies a file to another volume, lists the file on a line printer, or copies a file to a new Y1:PROG4.BAS at statement line 1500. Reference BOOK 3 CHR$(code) Assigns the numeric ASCII code argument to a character value. Component Component Type Component Value Default Condition CHR$ function name/string any ASCII rlocation on its current volume. Component Component Type Component Value Default Condition COPY command none required component existing-file characters dev:name.typ dev: SY0: name required equired component character code numeric expression -32,768 to +32,767 required component Example 30 A=CHR$(101) Result A acquires on the value of e. Reference BOOK 3 CLEAR Clears everything but the current program from the wor .typ .BAS new-file characters dev:name.typ dev: SY0: name existing-file .typ existing-file Example COPY OLDFILE SY1: Result Copies SY0:OLDFILE.BAS to SY1:OLDFILE.BAS. Reference BOOK 3 COS(expressionkspace. Component Component Type Component Value Default Condition CLEAR command none required component Example CLEAR Result Sets numeric variables to zero, string variables to null, erases workspace arrays) Assigns the expression argument to a cosine value (argument in radians). Component Component Type Component Value Default Condition COS function name/real -1 to +1 required component expression numeric expression any with a dimension greater than 10, and abnormally closes all open files. Reference BOOK 3 CLK$ Determines the current system time (hours:minutes:seconds). Component Component Type Component Value Default Condition CLK$ functvalue, radians required component Example 80 F=COS(PI) Result F acquires the value of -1. Reference BOOK 3 CREATE filespec Invokes the keypad editor so that you can create a file. Component Component Type Component Value Defion name/string hours:minutes: required component seconds Example PRINT CLK$ Result 11:38:02 Reference BOOK 3 CLOSE channel-list Closes and saves files associated with each file channel in the channel-list. Component Componault Condition CREATE command none required component filespec characters dev:name.typ dev: SY0: name required .typ .BAS Example CREATE NAMES1 Result Invokes the keypad editor to create fent Type Component Value Default Condition CLOSE statement none required component channel-list list of elements see form all open channels Form of list element: number-sign character # channel-numberile SY0:NAMES1.BAS. Reference BOOK 3 CTRLC variable=CTRLC Enables normal CTRL/C operation. Component Component Type Component Value Default Condition variable numeric unknown required component = none n numeric expression 1 to 12 Example 5060 CLOSE #6,#C Result Closes channel 6 and the channel specified by variable C (# is optional). Reference BOOK 3 COLLECT device Collects free space on the volume and puts all files into consecutione required component CTRLC function name none required component Example 70 D2=CTRLC Result You can terminate program execution when you type CTRL/C. Reference BOOK 3 DAT$ Obtains the value of the current system date (dve blocks. Component Component Type Component Value Default Condition COLLECT command none required component device specification SY0:, SY1:, VM: required component Example COLLECT SY1: Result Cold-mmm-yy). Component Component Type Component Value Default Condition DAT$ function name/string day-month-year required component Example PRINT DAT$ Result The current date displays on your screen. Reference BOOK 3lects unused blocks on SY1:. Reference BOOK 3 COMMON common-list Preserves current values of common-list variables and arrays in the workspace for the next element in a program chain. Component Component Type Component Value Default DATA data-list Provides values for READ statement variables. Component Component Type Component Value Default Condition DATA statement none required component data-list list see form below required comp Condition COMMON statement none required component common-list list see form below required component Form of list element: item variable name or any valid name array description Example 10 COMMON I(1onent Form of list element: value string or numeric type corresponds required component to READ variables Example 10 READ A,A% 20 DATA 2,3 30 PRINT A,A% RUNNH Result 2 3 Reference BOOK 3 DATE current-date Specifitspec Reports directory information about the volume defined by the filespec. Component Component Type Component Value Default Condition DIRECTORY command none required component filespec characters dev:name.typic expression any number required component STEP statement component none paired with increment increment numeric expression any number 1 Example 10 FOR I = 1 TO 100 20 NEXT I 30 END Result The var dev: SY0: name all files .typ all types outputspec characters dev:name.typ dev: SY0: or LP: name required .typ .DIR Example DIR Result Reports a directory of SY0:. Refiable I counts from 1 to 100, then the program ends. Reference BOOK 3 GET_CHAR(character) Acquires a single character at the keyboard without pausing. Argument Type Valid values Default value GET_CHAR statement none required component chaerence BOOK 3 DUPLICATE Duplicates all files on a volume to a new volume. Component Component Type Component Value Default Condition DUPLICATE command none required component Example DUP Result MINC prompts yoracter string valid string not allowed variable variable Example: 100 GET_CHAR(C$) Result: The variable C$ acquires the value of a character you type during program execution. Reference BOOK 3 GOSUB statement# Transfers control to the subu to install the volume you want to copy in SY0: and an initialized volume in SY1:, then asks if you are you ready to proceed. MINC prompts you for volume and owner name, then asks if you want to duplicate another volume. MINC prompts yoroutine beginning at the statement# argument. Component Component Type Component Value Default Condition GOSUB statement none required component statement# numeric literal 1 to 32,767 required component E 28-FEB-81 Result Defines February 28, 1981 as the current date. Reference BOOK 3 DEF FNx-symbol(dummy-argument-list)=expression Defines a function. Component Component Type Component Value Default Condition DEF statement u to re-install a system volume in SY0:. When you press RETURN, MINC identifies your MINC system and displays the date and time. Reference BOOK 3 EDIT input-filespec output-filespec Modifies or creates an output file using an input file. none required component FN function name none required component x function name/letter A to Z required component symbol character null,%,$ required component dummy-argument- list variable name(s Component Component Type Component Value Default Condition EDIT command none required component input-filespec characters dev:name.typ dev: SY0: name required .typ .BAS output-filespec ) required component list expression real,integer,or type matches required component string symbol Example 10 DEF FNA$(X)='This is a string constant' 20 R$=FNA$(10) 30 PRINT R$ RUNNH Result This is a string characters dev:name.typ dev: same as input name same as input .typ .BAS Example EDI EDITOR.002 JULY81.TXT Result Edits input file EDITOR.002 to create output file JULY81.TXT. Reference BOOK 3 END Marks theconstant Reference BOOK 3 DEL firstline - lastline, firstline - lastline, ... Erases statements in a current program. Component Component Type Component Value Default Condition DEL command none required component fi end of the current program. Component Component Type Component Value Default Condition END statement none required component Example 200 END Result The current program ends at statement line 200. Reference BOOrstline numeric literal 1 to 32,767 first program statement character - deletes one statement lastline numeric literal 1 to 32,767 last program statement Example K 3 EXP(power) Assigns the power argument to the value of an exponent. Component Component Type Component Value Default Condition EXP function name/real > 0 required component power numeric expression approx -88 to DEL 10-20 Result Deletes program statements 10 through 20. Reference BOOK 3 DIM # channel,arrayname(high-row-index,high-column-index)=length Describes an array or virtual array file. Component Component Type Component Value Default Con+88 required component Example W=EXP(SQR(2+3)) PRINT W Result 9.35647 Reference BOOK 3 EXTRA_SPACE Adds 2048 words to the workspace. Component Component Type Component Value Default Condition EXTRA_SPACE statement dition DIM statement none required component # character # paired with channel channel numeric literal 1 to 12 workspace array array name characters valid array required component none required component Example EXTRA_SPACE Result Informative text displays, and MINC prompts: Are you ready to have the workspace erased? (Y or N). Type Y to erase the workspace; type N to leave the workspace intact. Refer name high-row-index numeric literal 1 to workspace required component size high-column-index numeric literal 1 to workspace single dimension array size = statement component none paired with leence BOOK 3 FOR control-variable=start-value TO end-value STEP increment Defines the beginning of a program loop. Component Component Type Component Value Default Condition FOR statement none required component contrngth length numeric literal 1 to 255 16 Example DIM #1, F$(250,6)=20 Result Describes a string virtual array file where each element in the string array is 20 characters long. Reference BOOK 3 DIRECTORY filespec outpuol-variable numeric variable name any number required component = none none required component start-value numeric expression any number required component TO statement component none required component end-value numerzation (Y or N)?Y Type new Volume id: Example Init Type new owner name: Mother Initialization is complete; found 000 bad blocks. Reference BOOK 3 INPUT #channel,variable-list Acquires values for the variable(s) from the keyboard or a or variable(s) from the keyboard or file channel. Component Component Type Component Value Default Condition LINPUT statement none required component # statement component # paired with channel chafile channel. Component Component Type Component Value Default Condition INPUT statement none required component # character # paired with channel channel numeric expression 0 to 12 nnel numeric expression 0 to 12 read from keyboard variable-list string variable name any string required component variable Example 50 LINPUT #3,B$ Result Acquires the value of string variable B$ from channel #3. Refe input from keyboard variable-list real, integer, variable name required component or string Example 20 INPUT #1,A$,B$ Result Acquires values for variables A$ and B$ from file channel #1. Reference BOOK 3 INSPECT rence BOOK 3 LISTNH linespec, linespec,...or LIST linespec, linespec, ... Displays all or parts of the current program on your screen. Component Component Type Component Value Default Condition LISTNH/LIST command none filespec Inspects file contents using the keypad editor. Component Component Type Component Value Default Condition INSPECT command none required component filespec characters dev:name.typ dev: SY0: required component linespec none see form of entire program linespec Form of linespec firstline numeric literal 1 to 32,767 first program statement - statement component - paired with name required .typ .BAS Example INSPECT SY1:EDITOR.001 Result MINC displays EDITOR.001 on your terminal screen. You can inspect EDITOR.001 by using arrow keys to move the cursor. Reference BOOK 3 INT(number) Assigns t lastline lastline numeric literal 1 to 32,767 last program statement Example LIST 150-350 Result MINC displays lines 150 through 350 of your current program. Reference BOOK 3 LOG(number) Assigns the number ahe number argument to an integer value; truncates any fraction. Component Component Type Component Value Default Condition INT function name/numeric any whole number required component number numeric expression any value rgument to the value of its natural logarithm. Component Component Type Component Value Default Condition LOG function name/real -87 to 88 required component number numeric expression any positive required component required component Example A=INT(-7.2) PRINT A Result -8 Reference BOOK 3 KILL "filespec" Erases a file from a volume. Use within a program. Component Component Type Component Value Default Condition KILL statemen real number Example A=LOG(2.71829) PRINT A Result 1 Reference BOOK 3 LOG10(number) Assigns the number argument to the value of its base-10 logarithm. Component Component Type Component Value Default Conditixample 200 GOSUB 2050 Result Transfers control to the subroutine that begins at statement line 2050. Reference BOOK 3 GOTO statement# Transfers control to another statement in your program. Component Component Type Component Valt none required component filespec string expression dev:name.typ dev: SY0: name required .typ .DAT Example 500 KILL "PARAM2" Result At line 500, the program deletes SY0:PARAM2.DAT. Reference BOue Default Condition GO TO statement none required component statement# numeric literal 1 to 32,767 required component Example 100 GO TO 199 Result Transfers control to statement line 199. Reference BOOK 3 IFOK 3 LEN(string) Determines the length of a string, and assigns the number of characters to a numeric value. Component Component Type Component Value Default Condition LEN function name/numeric 0 to 255 required component st true-condition THEN statement Executes the specified statement if the condition is true. Component Component Type Component Value Default Condition IF statement none required component true-condition logical expressioring string expression any valid string required component Example A=LEN('abcdefghijklmnopqrstuvwxyz') PRINT A Result 26 Reference BOOK 3 LENGTH Displays the number of used words and free words in the workspace. Component n true or false required component THEN statement component none required component statement program statement any valid required component statement Example 100 IF A=B THEN GO TO 300 Result The program transfComponent Type Component Value Default Condition LENGTH command none required component Example LENGTH Result 0 USED, 5491 FREE Reference BOOK 3 LET variable = value Assigns a value to a variable or array elementers to line 300 if A=B. Reference BOOK 3 INITIALIZE SY1: Prepares a new volume or erases all files on a used volume. Component Component Type Component Value Default Condition INITIALIZE command none required compone. Component Component Type Component Value Default Condition LET statement none assigns value variable string or numeric any valid name required component variable name = none none requirednt SY1: characters none required component Example INITIALIZE SY1: Result Install volume to be initialized in SY1, and press RETURN Current volume id:eeeeeeeeeeeee Current owner:eeeeeeeeeeeeeeeee Proceed with initiali component value string or numeric same type as required component expression variable Example 50 LET A=25.5 Result Variable A acquires the value 25.5. Reference BOOK 3 LINPUT # channel,variable-list Acquires string values fle NAME 'PROG.BAS' TO 'PROG.OLD' Result Changes the name of file SY0:PROG.BAS to SY0:PROG.OLD. Reference BOOK 3 NEW filename Erases the workspace and names the workspace filename.BAS. Component Component Type Component Value Defalueor OPEN "filespec" FOR OUTPUT AS FILE # channel DOUBLEBUF, FILESIZE value Assigns a file channel number to a file stored on a volume. Component Component Type Component Value Default Condition OPEN statement none requireult Condition NEW command none required component filename characters SY0:name.BAS prompts for name Example NEW SINES Result Names the workspace SINES.BAS. Reference BOOK 3 NEXT control-variable Marks the end od component filespec string expression dev:name.typ dev: SY0: name required .typ .DAT FOR INPUT statement component none input and output (for FOR OUTPUT virtual array files) AS FILE statement component nonef a program loop. Component Component Type Component Value Default Condition NEXT statement none required component control-variable numeric variable name NEXT assigns value required component Example 60 NEXT I required component # statement component none optional channel numeric expression 1 to 12 required component DOUBLEBUF statement component none normal file transfer FILESIZE statement component none normal space aResult Statement line 60, determines the bottom of the program loop. The NEXT statement increments I by the increment specified in the FOR statement, then returns control to a FOR statement at the top of the program loop. Reference BOOK 3 llocation value numeric expression 0 to available paired with FILESIZE blocks on volume Example 10 OPEN "NAMES.TXT" FOR INPUT AS FILE 2 Result Assigns channel #2 to input file SY0:NAMES.TXT. Reference BOOK 3 OVERLAY 'files NORMAL_SPACE Removes 2048 words (previously added by EXTRA_SPACE) from the workspace for faster file access. Component Component Type Component Value Default Condition NORMAL_SPACE statement none required component pec' LINE statement# Merges the filespec program with the workspace program and starts execution at the statement number argument. Component Component Type Component Value Default Condition OVERLAY statement none requi Example and Result NORMAL_SPACE Changing the size of the workspace requires erasing the workspace. You must already have used either the SAVE or REPLACE command to store the program if you want to preserve it. Are you ready to have the workspacered component filespec string expression dev:name.typ dev: SY0: name required .typ .BAS LINE statement component none next statement statement# numeric expression 1 to 32,767 paired with LINE E erased? (Y or N): Y READY Reference BOOK 3 OCT(octal-string) Assigns the octal string argument to its decimal value. Component Component Type Component Value Default Condition OCT function name/integer -32,768 to 32,767 rxample 50 OVERLAY "PROG3" LINE 200 Result SY0:PROG3.BAS merges with the workspace program and starts execution at statement line 200. Reference BOOK 3 PI Assigns the value of 3.14159. Component Component Type Component Value equired component octal-string string expression '0' to '177 777' required component Example A=OCT('177 777') PRINT A Result -1 Reference BOOK 3 OLD filespec Erases your workspace and brings a program from the volume into the w Default Condition PI function name/real 3.14159 required component Example A=COS(PI) PRINT A Result -1 Reference BOOK 3 POS(string,search-model,start-position) Searches for the position of characters in a string, and assignorkspace. Component Component Type Component Value Default Condition OLD command none required component filespec characters dev:name.typ dev: SY0: name prompts for name s the location of the search model in the string to a numeric variable. Component Component Type Component Value Default Condition POS function name/numeric 0 to LEN(string) required component string string expression an.typ .BAC first, then .BAS Example OLD SY1:PROG5 Result Replaces the current workspace with SY1:PROG5.BAS. Reference BOOK 3 ON control-value GO TO statement#-listor ON control-value GOSUB statement#-list Branches to the statemey valid string required component search-model string expression any valid string required component start-position numeric expression 1 to LEN(string) required component Example A=POS('calculator','A',1) PRINT A Result on LOG10 function name/real -38 to 38 required component number numeric expression any positive required component real number Example PRINT LOG10(10) Result 1 Reference BOOK 3 NAME "old-filespec" TO "new-nt number in the position specified by the control value. Component Component Type Component Value Default Condition ON statement none required component control-value numeric variable 1 to list length requirfilespec" Changes the name of any file not currently open. Component Component Type Component Value Default Condition NAME statement none required component old-filespec string expression dev:name.typ dev: SYed component or expression GO TO statement component none required component GOSUB statement#-list list 1 to 32,767 required component Example 30 IF R$='YES' THEN Z=1 40 IF R$='NO' THEN Z=2 50 ON Z GO TO 70, 3000: name required .typ .DAT TO statement component none required component new-filespec string expression dev:name.typ dev: SY0: name old-filespec name .typ .DAT Examp Result At statement line 50, if the value of variable Z is 2, MINC transfers control to statement 300 because 300 is the 2nd number in the statement list. Reference BOOK 3 OPEN "filespec" FOR INPUT AS FILE # channel DOUBLEBUF, FILESIZE va0 Reference BOOK 3 PRINT #channel,USING description,print-list Sends the values in the print list to the screen or to a file channel and formats them according to the USING description. Component Component Type Component Value Defaul NONAME Example RENAME SINES Result The workspace name is now SINES.BAS. The contents of the workspace are unchanged. Reference BOOK 3 REPLACE filespec Erases the filespec file and stores the workspace program under the filespec nat Condition PRINT statement none required component # statement component none paired with channel channel numeric expression 0 to 12 terminal screen (0) USING statement component noneme. Component Component Type Component Value Default Condition REPLACE command none required component filespec characters dev:name.typ dev: SY0: name workspace name .typ .BAS Example paired with description description string expression # , . * $ ^ - normal print ' L R C E format print-list list see list element blank print line form Form of list element: item REPLACE SY1:OLDFILE.BAS Result Erases SY1:OLDFILE.BAS and stores the workspace program using the SY1:OLDFILE.BAS name. Reference BOOK 3 RESEQ newstart, oldstart - oldfinish, increment Changes some or all statement numbers in your current progra string or numeric any valid value expression Example PRINT USING "#,###.##",1234.56 Result 1,234.56 Reference BOOK 3 RANDOMIZE Defines a new starting point for the RND function. Component Component Type Component Valuem. Component Component Type Component Value Default Condition RESEQ command none required component newstart numeric literal 0 to 32,767 the increment value oldstart numeric literal 0 to 32,767 Default Condition RANDOMIZE statement none required component Example PRINT RND .0982139 READY Result RANDOMIZE READY PRINT RND .867543 Reference BOOK 3 RCTRLC variable=RCTRLC Disables first program statement oldfinish numeric literal 1 to 32,767 last program statement increment numeric literal 1 to 32,767 10 Example RESEQ 100 Result Renumbers all program statements using 10 as the normal CTRL/C operation. Component Component Type Component Value Default Condition variable numeric variable unknown required component = none none required component RCTRLC system function none increment. The first statement number in the renumbered program is 100. Reference BOOK 3 RESTORE # channelor RESET # channel Returns the READ statement to the beginning of the first DATA statement or resets the file channel to the beginn required component Example 80 Q=RCTRLC Result At statement line 80, RCTRLC disables normal CTRL/C operation. Reference BOOK 3 RCTRLO variable=RCTRLO Cancels a CTRL/O combination and ensures screen output. Component Component Ting of a sequential file. Component Component Type Component Value Default Condition RESTORE/RESET statement none required component # statement component none paired with channel channel numeric ype Component Value Default Condition variable numeric variable unknown required component = none none required component RCTRLO system function none required component Example 90 D=RCTRLO Result expression 1 to 12 refers to DATA Example 40 RESTORE # 7 Result The program returns to the beginning of file number 7. Reference BOOK 3 RESET # channelor RESTORE # channel Returns the READ statement to the beginning of the first D At statement line 90, RCTRLO ensures screen output. Reference BOOK 3 READ data-list Assigns values from a DATA statement to data-list variables. Component Component Type Component Value Default Condition READ statement nATA statement or resets the file channel to the beginning of a sequential file. Component Component Type Component Value Default Condition RESTORE/RESET statement none required component # statement component none one required component data-list list see list element required component form Form for list elements: item string or numeric READ assigns value variable name Example 10 READ X,Y,Z,B$ 20 DATA 7,8.3,2,DEC paired with channel channel numeric expression 1 to 12 refers to DATA Example 40 RESET # 7 Result The program returns to the beginning of file number 7. Reference BOOK 3 RESTART Starts MINC (the same as turning on 30 PRINT X,Y,Z,B$ RUNNH Result 7 8.3 2 DEC Reference BOOK 3 REM text Includes a remark in a program. MINC does not execute REM statements. Component Component Type Component Value Default Condition REM statement the power). Component Component Type Component Value Default Condition RESTART command none required component Example RESTART Result The terminal screen flashes, MINC pauses, displays an identifying message none required component text up to 70 characters all except \ null remark Example 10 REM Place remarks in programs 20 REM Try [brackets] or (parenthesis) in a remark 30 END RUNNH Result READY Reference BOOK 3 , and then requests the date and time. Reference BOOK 3 RETURN Returns control to the program from a subroutine. Component Component Type Component Value Default Condition RETURN statement none required component RENAME filename Changes the name of the workspace without changing workspace contents. Component Component Type Component Value Default Condition RENAME command none required component filename characters name Example 350 RETURN Result Subroutine processing ends; the program executes the statement that follows the last GOSUB statement. Reference BOOK 3 RND Assigns the value of a pseudo-random number that ranges from 0 to 1. Component Componrequired component Example S=SIN(PI) PRINT S Result 1.87254E-07 Reference BOOK 3 SQR(number) Assigns the number argument to the value of its square root. Component Component Type Component Value Default Condition 'Type CTRL/C twice and wait' 30 PAUSE(20) 40 C%=SYS(6) 50 PRINT C% RUNNH Result If you type two CTRL/Cs, MINC displays 1. Reference BOOK 3 SYS(7,0) variable=SYS(7,0) Accepts keyboard characters in the same case (upper or lower) SQR function/real >= 0 required component number numeric expression >= 0 required component Example A=SQR(2) PRINT A Result 1.41421 Reference BOOK 3 STOP Stops the program without closing open files. Componin which they are typed. Component Component Type Component Value Default Condition variable numeric unknown required component = none none required component SYS(7,0) function/none none reent Component Type Component Value Default Condition STOP statement none required component Example 50 STOP Result At statement line 50, the program stops; MINC displays the last statement number executed and REAquired component Example 10 PRINT 'Type ABCD efgh' 20 LINPUT R$ 30 A=SYS(7,0) 40 PRINT R$ 50 END RUNNH Result ABCD efgh Reference BOOK 3 SYS(7,1) variable=SYS(7,1) Converts all characters typed at the keyboard to upper ent Type Component Value Default Condition RND function name/real 0 to 1 required component Example PRINT RND Result .0407319 Reference BOOK 3 RUNNH filespecor RUN filespec Executes the filespec program. CompoDY. Reference BOOK 3 STR$(number) Assigns the number argument to a string value. Component Component Type Component Value Default Condition STR$ function/string string required component representation of nent Component Type Component Value Default Condition RUNNH/RUN command none required component filespec characters dev:name.typ dev: SY0: name workspace program .typ .BAC, then number number numeric expression any valid value required component Example A$=STR$(6e1) PRINT A$ Result 60 Reference BOOK 3 SUB statement# [current-form[changed-form[which-occurrence Replaces a single string of characters.BAS Example RUN FILEMT Result MINC brings FILEMT.BAS into the workspace from SY0: and then runs it. Reference BOOK 3 SAVE filespec Stores your current program on a volume using the filespec name. Component Component Type Compo with a different string of characters. Component Component Type Component Value Default Condition SUB command none required component statement# numeric literal 1 to 32,767 required component current-form nent Value Default Condition SAVE command none required component filespec characters dev:name.typ dev: SY0: name workspace name .typ .BAS Example SAVE OLDWON Result MINC savecharacters any program required component fragment changed-form characters any valid program required component fragment which-occurrence numeric literal 1 to no. in 1 statement Example s the current contents of the workspace in SY0:OLDWON.BAS. Reference BOOK 3 SCR Erases the workspace. Component Component Type Component Value Default Condition SCR command none required component Example SCR Re SUB 225[FO TO[GO TO Result 225 GO TO Reference BOOK 3 SYS(1) variable=SYS(1) Acquires a single character from the keyboard, and assigns the value of the character to its numeric ASCII code. Component Component Type Component Valusult The workspace is now empty. Reference BOOK 3 SEG$(string,start-position,end-position) Copies a segment from a string, and assigns the segment to the string argument. Component Component Type Component Value Default Condition e Default Condition variable numeric variable name required component = none none required component SYS(1) function name/integer 0 to 127 required component Example 10 PRINT 'Enter a character' 2 SEG$ function name/string specified required component substring string string expression any valid string required component start-position numeric expression any numeric value required component end-position numeric e0 A=SYS(1) 30 PRINT A 40 END RUNNH Result If you type s, MINC displays 115. Reference BOOK 3 SYS(4) variable=SYS(4) Erases the workspace. Component Component Type Component Value Default Condition variable numeric xpression any numeric value required component Example A$=SEG$('ABCDE',3,5) PRINT A$ Result CDE Reference BOOK 3 SGN(number) Assigns the number argument to the value of its sign. Component Component Type Component Valu variable name required component = none none required component SYS(4) function name none required component Example 10 PRINT 'HOWDY' 20 A=SYS(4) 30 PRINT 'TATA' 40 END RUNNH Displays HOWDY. Scrae Default Condition SGN function/numeric -1, 0, or 1 required component number numeric expression any valid value required component Example A=SGN(-3) PRINT A Result -1 Reference BOOK 3 SIN(angle) Assigns thtches the program from the workspace so, cannot display TATA. Reference BOOK 3 SYS(6) variable=SYS(6) Records whether or not two or more CTRL/C's were typed on the keyboard while CTRL/C was disabled. Component Component Type Compoe angle argument to the value of its sine (angle argument in radians). Component Component Type Component Value Default Condition SIN real -1 to +1 required component angle numeric expression any angle, radians nent Value Default Condition variable numeric variable variable name required component = none none required component SYS(6) function/integer 0 or 1 required component Example 10 X=RCTRLC 20 PRINTs copied: SY1:ABCDEF.TXT to SY0:ABCDEF.TXT Any more files to transcribe? N Remount system disk in SY0: Is system disk mounted in SY0: (Y or N)? Reference BOOK 3 TRM$(string) Trims trailing blanks from its string argument and assigns the string in name or .typ %=single character in name or .typ Example UNSAVE SAND%%.* Result MINC deletes files on SY0: that match 6-character file names that start with SAND; all file types except .BAD, .COM, .SYS. AND .SA argument to the value of its trimmed string. Component Component Type Component Value Default Condition TRM$ function/string same as argument required component string string expression any valid value requireV. Reference BOOK 3 BARGRAPH(option,number,st-X,st-Y,increment,shadeline,graph no.,st-index) Creates a bargraph display. Argument Type Valid Value Default Value option string expression [-]GRID, [-]EXACT, GRID -UNITS, -HLINES, d component Example A=LEN(TRM$('abcd ')+'efgh') PRINT A Result 8 Reference BOOK 3 TTYSET variable=TTYSET(255,margin) Specifies the number of characters in a BASIC line. Component Component Type Component Value Defau -TICKS, VLINES, INDEX, SHADE, BRANDS, MOVE number numeric expression 0-32767 (integer) entire array st-X, or name of any element of st-X: ordinal st-Y, or numeric array any legally number st-index element dimensioned lt Condition variable numeric variable required component = none none required component TTYSET function name/numeric unknown required component 255 numeric literal 255 required component margin narray st-Y, st-index: required increment numeric expression 0 to 32767 (integer) 1 shadeline numeric expression any legal Y lowest Y value coordinate in window graph no. numeric expression 1 or 2 1 Examplumeric expression 0 to 255 required component Example 50 X=TTYSET(255,132) Result X defines the right margin for a BASIC line as 132. Reference BOOK 3 TYPE filespec Displays a file on the screen. Component Component Type e BARGRAPH("EXACT",20,X1(0),Y1(0),2) Result Displays a bargraph of 20 bars. The positions of the bars on the X axis are determined by 20 elements from array X1. The heights of the bars are determined by 20 elements from array Y1. In both Component Value Default Condition TYPE command none required component filespec characters dev:name.typ dev: SY0: name required .typ .BAS Example TYPE SY1:NAMES.TXT Result MINC displaycases, the first 20 even-numbered elements are used, because of the increment 2. The EXACT option sets the axis limits to equal the largest and smallest values in the 20 selected elements. Unless you have used SET_BAR previously, the widthscase. Component Component Type Component Value Default Condition variable numeric variable name required component = none none required component SYS(7,1) function/name none required componens the file SY1:NAMES.TXT on your terminal screen. Reference BOOK 3 UNSAVE filespec Erases a file from a volume. Component Component Type Component Value Default Condition UNSAVE command none required component filest Example 10 PRINT 'Type abcdefg' 15 LINPUT B$ 20 A=SYS(7,1) 25 PRINT 'Type abcdefg again' 30 LINPUT B$ 35 PRINT B$ Result As you type, SYS(7,1) converts abcdefg to ABCDEFG. Reference BOOK 3 TAB(number) Specifies the screpec characters dev:name.typ dev: SY0: name required .typ .BAS Example UNSAVE SY1:SINES.BAS Result MINC erases SINES.BAS from SY1:. Reference BOOK 3 VAL(string) Assigns the character string argument to ien column minus 1 for the next element of a PRINT list. Component Component Type Component Value Default Condition TAB function/name none required component number numeric expression 0 to 32,767 required componts numeric value. Component Component Type Component Value Default Condition VAL function/numeric any valid value required component string string expression string required component representation ent Example PRINT '1'TAB(5)'6' Result 1 6 Reference BOOK 3 TIME hours:minutes:seconds Specifies or displays the current system time. Component Component Type Component Value Default Condition TIME command non of a number Example A=VAL("10E1") PRINT A Result 100 Reference BOOK 3 VERIFY dev: Lists the number and location of bad blocks on a volume. Component Component Type Component Value Default Condition VERIFY coe required component hours 2 digits 0 to 23 displays current time minutes 2 digits 0 to 59 0 seconds 2 digits 0 to 59 0 Example TIME 13:43 Result MINC's internal clocmmand none required component dev: characters SY0:, SY1:, VM: SY0: Example VERIFY Result Bad Blocks Type Filename Rel Blk 414 Hard FILE.BAD 0 417 Hard SINES.BAS 0 Reference BOOK 3 Wildcardsk is set to 1:43 p.m. Reference BOOK 3 TRANSCRIBE Transfers specific files between non-system volumes. Component Component Type Component Value Default Condition TRANSCRIBE command none required component Example and Result TRANSCRI Represents character(s) in a file name or file type with COPY, DIRECTORY, TRANSCRIBE, and UNSAVE commands. * represents any number of characters in a file name or file type. % represents a single character in a file name or file type. ComponentBE Remove system disk from SY0: and mount user disks. Are you ready to proceed (Y or N)? Y From: SY1:ABCDEF.TXT To: SY0: Is disk containing desired input files mounted in SY1: (Y or N)? Y Is disk to receive output mounted in SY0: (Y or N)? Y File Component Type Component Value Default Condition COMMAND- command none required NAME component dev: characters device dev:=SY0: wildcard character(s) name or .typ *=any number of characters video, underlined characters. Reference BOOK 4 DISPLAY_CLEAR Erases all text and graphic displays from the screen. Arguments None Example DISPLAY_CLEAR Result Clears the terminal screen. Reference BOOK 4 DISPLAY_COPY Copies a graphic d 1-132 with others: column containing cursor number numeric expression integer in range 1 to erase 1-32767 Example ERASE_TEXT("-TEXT,ROW",12,40,5) Result Erases a horizontal row of 5 characters beginning at row 12, isplay from a VT125 terminal screen to a LA34-VA printer. Vertical lines and text are not printed. Argument Type Valid Values Default Value option string [-]WIDE -WIDE number numeric 1 to 50 1 Example DISPLAY_COPY("WIDE",2) Resu column 40. Reference BOOK 4 FIND_CURSOR(row,column,character) Allows you to move the cursor to any position on the screen with the arrow keys on the terminal keyboard; records the row-column position. Argument Type Valid Values Default Value lt Copies the graph from your VT125 screen to your LA34-VA printer. The printer makes 2 wide copies. The copies do not display vertical lines or text. Reference V2.0 Release Notes DISPLAY_MODE(option) Controls the width, background color, and row name of any legal name not allowed numeric for real or variable integer variable column name of any legal name not allowed numeric for real or variable integer variable character name of any legal name no character string scrolling mode of the screen. Argument Type Valid Values Default Value option string expression [-]LONG, [-]BRIGHT, no change [-]JUMP Example DISPLAY_MODE("BRIGHT,JUMP,-LONG") Result Sets the screen to display black characters on for string returned variable variable Example FIND_CURSOR(R,C,C$) Result Allows you to move the cursor with the arrow keys and waits until a character is typed. At that time, the row and column position are stored in R and C, and then ca white background, changes the scrolling mode to jump scrolling, and sets the screen to a width of 80 columns. Reference BOOK 4 DUAL_MOVE(option,number,st-X,st-Y1,st-Y2,increment) Displays two graphs on the screen in strip-chart mode. Arguharacter typed is stored in C$. Reference BOOK 4 FIND_POINT(X,Y) Determines and stores the X-Y coordinates of a point on a graph. Argument Type Valid Values Default Value X, Y name of any legal name not allowed numeric for real or ment Type Valid Values Default Value option string expression [-]DISTANCE -DISTANCE number numeric expression positive integer smaller no. of <= dimension of elements smaller Y array between st-Y1/st-Y2 variable integer variable Example FIND_POINT(X5,Y5) Result Displays a flashing brand that you can move to cover a point on a graph. When you press the RETURN key, FIND_POINT stops and the flashing brand disappears. The X coordinate of t and end of array Y1/Y2 st-X numeric expression name of element 1 (w/DISTANCE) or name of in array, or integer array element in range 1-512 (with not allowed DISTANCE option), or w/-DISTANCE real number st-Y1, nahe point is now stored in variable X5; the Y coordinate in Y5. Reference BOOK 4 GET_CURSOR(row,column) Determines and stores the current row-column position of the cursor. Argument Type Valid Values Default Value row numeric expression ime of array name of element in not allowed st-Y2 element, or array, or any legal numeric expression numeric expression increment numeric expression 1-32767 (integer) 1 Example DUAL_MOVE("-DISTANCE",100,X(0),Y1(0),Y2(0),2) Result Displays 1nteger in range not allowed or variable 1-24 column numeric expression integer in range not allowed or variable 1-132 Example GET_CURSOR(R1,C1) Result Stores the row number of the cursor's current position in the variable R1; stores t00 points on each graph. The start X argument is the first element of array X. The values in array X form the X axes for both graphs. Because the increment argument is 2, only the even-numbered elements display from arrays X, Y1, and Y2. he column number of the cursor's current position in the variable C1. Reference BOOK 4 GRAPH_INIT Resets all graphic characteristics changed by previous routines. Arguments None Example GRAPH_INIT Result Erases all graphic features of of the 20 bars are adjusted automatically to separate bars. Reference BOOK 4 BOX(option,row 1,column 1,row 2,column 2) Draws rectangular boxes with special text characters on the screen. Argument Type Valid Values Default Value option sReference BOOK 4 ERASE_GRAPH(option,X coordinate,Y coordinate,graph number) Erases specific graphic displays from the screen and from graphic memory. Argument Type Valid Values Default Value option string expression [-]ALL, POINTS, ALL tring expression BOLD, REVERSE, -INVISIBLE FLASHING, UNDERLINE, [-]INVISIBLE row 1, row 2 numeric expression integer in range row containing 1-24 cursor column 1, numeric expression integer in range column column 2 1-132 cont HLINES, VLINES, GRID X coordinate, numeric expression -32768 to 32767, all lines Y coordinate or real number graph number numeric expression 0, 1, or 2 1 Example ERASE_GRAPH("-ALL,GRID",,,0) Result Erases the grid features from from aining cursor Example BOX(,1,1,20,70) Result Draws a box with corners at row 1, column 1, and row 20, column 70. Reference BOOK 4 CHAR_MODE(option) Sets the display characteristics for characters on the screen. Argument Type graphs 1 and 2 leaving the points. Reference BOOK 4 ERASE_TEXT(option,row number,column number,number to erase) Erases part or all of the text display from the screen. Argument Type Valid Values Default Value option string expression Valid Values Default Value option string expression [-]BOLD, [-]REVERSE, no change [-]UNDERLINE, [-]FLASHING Example CHAR_MODE("BOLD,REVERSE,UNDERLINE") Result Sets the mode of all subsequent characters to boldface, reverse [-]TEXT, ROW, TEXT COLUMN row number numeric expression integer in range with TEXT: all rows 1-24 with others: row containing cursor column number numeric expression integer in range with TEXT:all columns graph number numeric expression 1 or 2 1 Example GRID("-HLINES,VLINES",2) Result Displays a grid on graph 2. The grid includes vertical lines; does not include horizontal lines. Reference BOOK 4 HLINE(option,first Y,number,increment,grape Valid values Default value X coordinate, numeric expression any legal X or Y not allowed Y coordinate coordinate ROW,COLUMN name of numeric any name of any not allowed variable integer variable graph number numeric expression 1 or 2 h number) Places horizontal lines on a graph. Argument Type Valid Values Default Value option string expression [-]INVISIBLE -INVISIBLE first Y numeric expression any legal Y coordinate, lowest Y value real or integer in window numbe1 Example MAP_TO_TEXT(.5,.6,R%,C%,2) Result Transforms the X coordinate .5 to a column number in the window of graph 2 and puts the column number in variable C%; transforms the Y coordinate .6 to a row number in variable R%. Reference BOOr numeric expression integer in range 1 0-89 or 189 increment numeric expression any legal Y coordinate, lines real or integer spaced evenly graph number numeric expression 1 or 2 1 Example HLINE("INVISIBLE",5,,,2) Result LocateK 4 MOVE_CURSOR(row number,column number) Moves the cursor to the specified row-column position. Argument Type Valid values Default value row number numeric expression integer in top of or variable range 1-24 scroll area column numbes the horizontal line at Y=5 on graph 2 and makes it invisible. Reference BOOK 4 HTEXT(option,row number,column number,text string) Displays horizontal text strings on the screen. Argument Type Valid Values Default Value option string expr numeric expression integer in column 1 or variable range 1-132 Example MOVE_CURSOR(10,25) Result Moves the cursor to row 10, column 25. Reference BOOK 4 POINT(option,X coordinate,Y coordinate,graph number) Displays a single X-Y coorression BOLD, REVERSE, normal FLASHING, UNDERLINE row number numeric expression integer in row containing range 1-24 cursor column number numeric expression integer in column range 1-132 containing cursor text string strdinate point in a graph. Argument Type Valid values Default value option string expression [-]INVISIBLE, -INVISIBLE MOVE, BRANDS, UNITS X coordinate numeric expression any real or integer with MOVE: expression right edge of ing expression any legal string empty string expression Example HTEXT("BOLD",2,3,"Systolic pressure") Result Displays "Systolic pressure" horizontally, beginning at row 2, column 3. Letters display in boldface. Reference BOOK 4 LABEL( region with others: not allowed Y coordinate numeric expression any real or integer not allowed expression graph number numeric expression 1 or 2 1 Example POINT("BRAND",.10,2.,2) Result Displays a single pointoption,X label,Y label,graph number) Puts labels on the X and Y axes of a graph or a bargraph. Argument Type Valid Values Default Value option string expression BOLD, REVERSE, normal FLASH, UNDERLINE X label string expression any strin on graph 2 at X=.10, Y=2. Reference BOOK 4 PUT_POINT(option,X coordinate,Y coordinate) Puts a screen coordinate point on a VT125 terminal screen. Argument Type Valid values Default value option string ON, -ON ON expression X coordinag of empty string 0-132 characters Y label string expression any string of empty string 0-24 characters graph number numeric expression 1 or 2 1 Example LABEL("BOLD","Time","Count",2) Result Displays "Time" at the top of graph 2te numeric integer in 0 or last expression range of 0 to 767 X position or single element in any legally dimensioned integer array Y coordinate numeric integer in 0 or last expression range of 0 to 479 Y position or sin; displays "Count" vertically to the right of the graph region. Both titles display in boldface. Reference BOOK 4 LIGHTS(option) Controls the terminal lights. Argument Type Valid Values Default Value option string expression [-]A, [gle element in any legally dimensioned integer array Example 60 PUT_POINT('ON',300,300) Result Places a single point at X=300, Y=300 on a VT125 screen. Reference BOOK 4 PUT_LINE(option,Start-X,Start-Y,End-X,End-Y) Draws a line be-]B, no change [-]C, [-]D Example LIGHTS("A,-B,-C,D") Result Turns on terminal lights A and D; turns off B and C. Reference BOOK 4 MAP_TO_GRAPH(row number,column number,X,Y,graph number) Converts a screen position from row-column coorditween two screen coordinate points on a VT125 terminal screen. Argument Type Valid values Default value option string ON, -ON ON expression Start X numeric integer in 0 or last or expression range of 0 to 767 X position; End X ornates to X-Y coordinates. Argument Type Valid Values Default Value row number numeric expression integer in not allowed range 1-19 column number numeric expression integer in not allowed range 1-132 X,Y name of numeric legal na single element in End X requires any legally argument dimensioned integer array Start Y numeric integer in 0 or last or expression range of 0 to 479 Y position; End Y or single element in End Y requires any legally ame of not allowed variable real variable graph number numeric expression 1 or 2 1 Example MAP_TO_GRAPH(12,80,X1,Y1,1) Result Transforms row 12 into a Y coordinate in the window of graph 1 and puts the Y coordinate in variable Y1; transfrgument dimensioned integer array Example 20 PUT_LINE('ON',100,100,200,200) Result Draws a line between screen coordinates at X=100, Y=100 and X=200, Y=200. Reference BOOK 4 PUT_SYMBOL(option,row number,column number) Displays a sgraphs 1 and 2. Reference BOOK 4 GRID(option,graph number) Places grid lines, tick marks and units on the screen. Argument Type Valid Values Default Value option string expression -UNITS, -TICKS, HLINES, TICKS, -HLINES, VLINES UNITS orms column 80 into an X coordinate and puts the X coordinate in variable X1. Reference BOOK 4 MAP_TO_TEXT(X coordinate,Y coordinate,ROW,COLUMN,graph number) Converts a screen position from X-Y coordinates to row-column coordinates. Argument Typharacters. Argument Type Valid values Default value option string expression [-]INVISIBLE, -INVISIBLE BOLD, REVERSE, FLASHING, UNDERLINE row 1, row 2 numeric expression integer in row containing range 1-24 cursor column 1,TR_CLEAR Clears all IEEE bus instruments. Arguments none Example 10 IEEE_BUS_CLEAR \ ALL_INSTR_CLEAR Result Statement 10 clears the bus and all the instruments on it. Reference BOOK 5 DISABLE_ALL_PAR_POLL Disables parallel poll respon numeric expression integer in column column 2 range 1-132 containing cursor Example TEXT_LINE("BOLD,REVERSE",1,1,10,35) Result Draws a line from row 1, column 1 to row 10, column 35 in boldface, reverse video. Reference BOOK se of all instruments on the IEEE bus. Argument none Example 110 DISABLE_ALL_PAR_POLL Result Disables the parallel poll response of every instrument on the bus. Reference BOOK 5 DISABLE_PAR_POLL(listeners) Disables parallel ppecial symbol at the specified row-column position. Argument Type Valid values Default value option string expression 1 + or more of: -INVISIBLE BOLD, REVERSE, FLASHING, UNDERLINE, [-]INVISIBLE, 1 of: CROSS, HOR4 VIEW(option,graph number) Makes the specified graph visible or invisible. Argument Type Valid values Default value option string expression [-]INVISIBLE -INVISIBLE graph number numeric expression 0, 1, or 2 1 Example VIEW("INVISIBIZONTAL, VERTICAL, NORTH, SOUTH, EAST, WEST, M, J, K, L row number numeric expression integer in range 1-24 row containing cursor column number numeric expression integer in range 1-132 column containing cursor LE",2) Result Makes graph 2 temporarily invisible without erasing the graphic memory. Reference BOOK 4 VLINE(option,first X,number,increment,graph number) Places vertical lines on a graph. Argument Type Valid values Default value option Example PUT_SYMBOL("REVERSE,CROSS",10,15) Result Displays a square cross in reverse video at column 15 of row 10. Reference BOOK 4 REGION(option,graph number) Defines the graph region for the graph number and changes the scrolling area. Ar string expression [-]INVISIBLE -INVISIBLE first X numeric expression any legal X coordinate lowest X value real or integer in window number numeric expression integer in range 1 0-512 increment numeric expression any legal X coordinategument Type Valid Values Default Value option string expression UPPER, LOWER, FULL FULL graph number numeric expression 0, 1, or 2 1 Example REGION("UPPER",0) Result Specifies the upper region for use by graphs 1 and 2, erases graphics, lines real or integer spaced evenly graph number numeric expression 1 or 2 1 Example VLINE("-INVISIBLE",0,25,.25,2) Result Displays 25 vertical lines on graph 2. The first line is X=0. The lines are separated by .25 X units. Refere in rows 1-10, and resets the scrolling area to rows 11-24. Reference BOOK 4 ROLL_AREA(top row,bottom row) Defines the scrolling area of the screen. Argument Type Valid values Default value top row numeric expression integer in range 1-2nce BOOK 4 VTEXT(option,row number,column number,text string) Displays vertical text strings on the screen. Argument Type Valid values Default value option string expression BOLD, REVERSE, normal FLASHING, UNDERLINE row number num3 1 bottom row numeric expression integer in range 2-24 24 Example ROLL_AREA(21,24) Result Sets the scrolling area to rows 21-24 (the bottom four rows on the screen. Reference BOOK 4 SET_BAR(width,graph number) Specifies the exact widtheric expression integer in row containing range 1-24 cursor column number numeric expression integer in column range 1-132 containing cursor text string string expression any legal string empty string expression Exs of individual bars in a bargraph chart. Argument Type Valid values Default value width numeric expression integer in automatic range 1-512 settings restart graph number numeric expression 0, 1, or 2 1 Example SET_BAR(20ample VTEXT("BOLD,REVERSE",2,43,"Vertex") Result Displays "Vertex" vertically, beginning at row 2, column 43. The letters display in boldface, reverse video. Reference BOOK 4 WIDE_LINE(option,row number) Defines the width of characters on a row,2) Result Defines the width of the bars in bargraphs using graph 2. Subsequent BARGRAPH statements will display bars that are 20 raster units wide. Reference BOOK 4 SHADE(option,shade line,graph number) Shades sections of a graph. Argumen. Argument Type Valid values Default value option string expression [-]WIDE no change row number numeric expression integer in row containing range 1-24 cursor Example WIDE_LINE("WIDE",23) Result Specifies double width charact Type Valid values Default value option string expression [-]INVISIBLE -INVISIBLE shade line numeric expression any legal Y lowest in coordinate window graph number numeric expression 0, 1, or 2 1 Example SHADE("-INVISIBLE",.5,ters in row 23. Reference BOOK 4 WINDOW(option,lower X,lower Y,upper X,upper Y,graph number) Sets the numeric limits of the X and Y coordinates for a graphic display. Argument Type Valid values Default value option string expression [-]EXACT2) Result Shades graph 2 by connecting all points on the graph with the line Y=.5. Reference BOOK 4 TEXT_INIT Erases all text and graphics and returns the terminal screen to the parameters defined in setup mode. Arguments None Example -EXACT lower X, numeric expression any real X or Y 0.0 lower Y coordinate upper X, numeric expression any real X or Y 1.0 upper Y coordinate graph number numeric expression 0, 1, or 2 1 Example WINDOW("-EXACT",0.,1.,100.,511.TEXT_INIT Result Erases text and graphics from the screen, and eliminates any character modes you set, and returns to setup mode parameters. Reference BOOK 4 TEXT_LINE(option,row 1,column 1,row 2,column 2) Displays lines composed of special text c,2) Result Sets the window of graph 2 so that the X range is 0 to 100 and the Y range is 1 to 511. The highest units on the X and Y axes will exceed 100 and 511 slightly to make the units on your graph more readable. Reference BOOK 4 ALL_INSe on the IEEE bus. Argument Type of Argument Valid Values Default Value new-time-limit numeric expression 0; 1 to 32,767 time limit not changed old-time-limit numeric variable name 0; 1 to 32,767 no value assigned Example 5lue status numeric variable name 0 to 255 no value assigned index numeric variable name 0; >=1 no value assigned talkers numeric expressions 0 to 30; 200 to 230 required argument Example 70 SERIAL_PO0 INSTR_TIME_LIMIT(300) Result Sets the new time limit to 300 clock ticks. Reference BOOK 5 LOCAL_INSTR(listeners) Puts selected IEEE bus instruments in the local state. Argument Type of Argument Valid Values Default Value liLL(D%,,4) Result Conducts a serial poll of instrument 4 and puts its status byte in the variable D%. Reference BOOK 5 SET_TERMINATORS(terminators) Specifies terminating characters (ASCII values or string literals) that RECEIVE and TRAsteners numeric expressions 0 to 30; 200 to 230 required argument Example 80 LOCAL_INSTR(3,5) Result Instruments 3 and 5 enter the local state. Reference BOOK 5 LOCAL_LOCKOUT Disables the return-to-local switches for allNSFER routines recognize. Argument Type of Argument Valid Values Default Value terminator numeric or string 0 to 255; no characters are expression any one-character terminators string Example 90 SET_TERMINATOR instruments on the IEEE bus. Arguments none Example 90 LOCAL_LOCKOUT Result Disables all return-to-local buttons of instruments on the bus. Reference BOOK 5 PAR_POLL(poll-response) Conducts a parallel poll; sets the ATN and IDY bus liS() Result No characters are recognized by RECEIVE and TRANSFER as terminators. Reference BOOK 5 SRQ_SUBROUTINE(subroutine) Designates an SRQ service subroutine. Argument Type of Argument Valid Values Default Value subroutine numernes and reads the poll response from the data lines. Argument Type of Argument Valid Values Default Value poll-response numeric variable name 0 to 255 required argument Example 60 PAR_POLL(R) Result Conducts a ic expression 0; 1 to 32,767 0 Example 30 SRQ_SUBROUTINE(2300) Result Starts executing the service subroutine that begins at statement number 2300 when a service request occurs. Reference BOOK 5 TEST_LISTENERS(condition,listeneoll response of selected instruments on the IEEE bus. Argument Type of Argument Valid Values Default Value listeners numeric expressions 0 to 30; 200 to 230 required argument Example 150 DISABLE_PAR_POLL(23) Resulparallel poll. Assigns the response to the variable R. Reference BOOK 5 RECEIVE(message,maximum-length,talker,listeners) Receives and stores a message from an IEEE bus instrument. Argument Type of Argument Valid Values Defaultt Disables the parallel poll response of instrument 23. Reference BOOK 5 DISABLE_REMOTE Puts all IEEE bus instruments in the local state. Argument none Example 200 DISABLE_REMOTE Result Clears the REN bus line; all instrumen Value message string variable name any string required argument maximum-length numeric expression 0 to 255 255 talker numeric expressions 0 to 30; 200 to 230 required argument listeners numeric expressions 0 to 30; 200 to ts enter local state. Reference BOOK 5 ENABLE_PAR_POLL(condition,data-line,listeners) Enables an instrument's parallel poll response. Argument Type of Argument Valid Values Default Value condition numeric expression 0; 1 230 only MINC listens Example 50 RECEIVE(M$,,3) Result Instrument 3 sends a message of up to 255 characters. MINC is the listener and stores the message string in M$. Reference BOOK 5 SEND(message,listeners) Sends a message to one or required argument data-line numeric expression 0 to 7 required argument listeners numeric expressions 0 to 30; 200 to 230 required argument Example 150 ENABLE_PAR_POLL(0,3,5) Result After statement 150, when more instruments on the IEEE bus. Argument Type of Argument Valid Values Default Value message string expression any string required argument listeners numeric expressions 0 to 30; 200 to 230 requirethe PAR_POLL conducts a parallel poll, instrument 5 sets data line 3 if its status bit is clear (0). Reference BOOK 5 ENABLE_REMOTE Puts all IEEE bus instruments in the remote state. Argument none Example 130 ENABLE_REMOTE Rd argument Example 40 SEND("R1F3",17) Result MINC (the talker) sends the string "R1F3" to instrument 17 (the listener). MINC sets the END bus line while sending the "3." Reference BOOK 5 SEND_FRAGMENT(message-esult Sets the REN bus line. Any instruments told to listen while this line is set enter the remote state. Reference BOOK 5 IEEE_BUS_CLEAR Clears the IEEE bus. Arguments none Example 10 IEEE_BUS_CLEAR Result Clears the instrumenfragment,listeners) Sends a message fragment to one or more instruments on the IEEE bus. Argument Type of Argument Valid Values Default Value message-fragment string expression any string required argument listeners numeric expt-independent part of all instruments on the bus. Reference BOOK 5 INSTR_CLEAR(listeners) Clears selected instruments on the IEEE bus. Argument Type of Argument Valid Values Default Value listeners numeric expressions 0ressions 0 to 30;200 to 230 required argument Example 30 SEND_FRAGMENT(F$,3) Result Sends the string contained in F$ to instrument 3. This string is only part of the message to instrument 3. The last part will be sent with t to 30; 200 to 230 required argument Example 30 INSTR_CLEAR(3,5,2) Result Clears instruments 3, 5, and 2. Reference BOOK 5 INSTR_TIME_LIMIT(new-time-limit,old-time-limit) Sets or determines the time allowed for instrument responshe SEND routine. Reference BOOK 5 SERIAL_POLL(status,index,talkers) Conducts a serial poll; tells your program which instrument requests service and the value of its status byte. Argument Type of Argument Valid Values Default Var,listeners) Supervises message transfer between IEEE bus instruments; send a message string from one bus instrument to one or more instruments on the bus. Argument Type of Argument Valid Values Default Value actual-length numeric v 1 to 65,535 A/D-channel numeric expression 0 to 63 0 or integer array no.-of-channels numeric expression 1 to 64 or channel 1 array length no.-of-sweeps numeric expression 1 to 32,767 1 sweep-delay numeric expressionariable name 0 to 32,767 no value assigned maximum-length numeric expression 0 to 32,767 no limit talker numeric expressions 0 to 30; 200 to 230 required argument listeners numeric expressions 0 to 30; 200 to 230 required argu >= 0 sec 0 sec Example 90 AIN_SUM('EXTERNAL,RANDOM',D(),N,100,C%(2),N1,N2) Result In external mode, collects N2 sweeps of data, using the sequential conversion sequence defined by N1 channel numbers from array C%, starting with Cment Example 50 TRANSFER(,,5,17) Result Instrument 5 sends a message string with any number of characters to instrument 17. Reference BOOK 5 TRIGGER_INSTR(listeners) Tells specified instruments to listen, and then to start basic operati%(2). Collects one conversion sequence on every hundredth ST1 signal. Reference BOOK 6 AOUT(mode,data-name,data-length,trigger,D/A-channel,no.-of-channels) Sends data to analog instruments using the D/A converter. Argument Type of Argumenton. Argument Type of Argument Valid Values Default Value listeners numeric expressions 0 to 30; 200 to 230 required argument Example 60 TRIGGER_INSTR(7,15,3) Result Instruments 7, 15, and 3 each start their basic ope Valid Values Default Value mode string expression CONTINUOUS,EXTERNAL, standard mode LINE,RANDOM,ST2 data-name numeric expression -2048 to 2047 required argument or numeric array data-length numeric expresration. Reference BOOK 5 AIN(mode,data-name,data-length,trigger,A/D-channel,no.-of-channels) Collects analog data from an A/D converter. Argument Type of Argument Valid Values Default Value mode string expression CONTINUOUS,DISPsion >= 1 1 trigger numeric expression 0; > 0 to 655.35; 0 1 to 65,535 D/A-channel numeric expression 0 to 15 0 or integer array no.-of-channels numeric expression 1 to 16 or channel 1 arraLAY, standard mode EXTERNAL,FAST,LINE, RANDOM,ST2 data-name numeric variable -2048 to 2047; required argument or array name full-scale values data-length numeric expression >= 1 1 trigger numeric expression 0y length Example 100 AOUT(,V(),512,,,2) Result Sends the contents of array V in pairs to channels 0 and 1. Sends the conversion sequences as burst output. Reference BOOK 6 CIN(mode,string-name,string-length,channel-no.,timeout-interval) Rec; > 0 to 655.35; 0 1 to 65,535 A/D-channel numeric expression 0 to 63 0 or integer array no.-of-channels numeric expression 1 to 64 or channel 1 array length Example 70 AIN(,V(),100,1/100,8,4) Result Coleives characters transmitted in serial ASCII format via a serial transfer channel. Argument Type of Argument Valid Values Default Value mode string expression RETRIEVE standard mode string-name string variable name ASCII charalects 100 values from the conversion sequence channels 8, 9, 10, 11, one sequence every one-hundreth of a second; puts the values in array V. Reference BOOK 6 AIN_HIST(mode,histogram-name,A/D-channel,sweep-length,lower-endpt,upper-endpt) cters required argument string-length numeric expression 0; 1 to 255 0 channel-no. numeric expression 0 or 1 0 timeout-interval numeric expression 0; >= 0.1 sec 0 Example 110 CIN(,S$,20,1,60) Result Receives 20 chrs) Tests for the presence of specified listeners on the IEEE bus by sending a line feed. Argument Type of Argument Valid Values Default Value condition numeric variable name 0; -1 required argument listeners Generates an analog input histogram from an A/D converter. Argument Type of Argument Valid Values Default Value mode string expression DISPLAY,ZERO standard mode histogram-name integer array name 0 to 32,767 required argument numeric expressions 0 to 30;200 to 230 required argument Example 60 TEST_LISTENERS(C,3) Result C is -1 if instrument 3 is listening, 0 if it is not. Reference BOOK 5 TEST_REMOTE(condition) Tests the remote enable (REN) line A/D-channel numeric expression 0 to 63 required argument sweep-length numeric expression 1 to 32,767 required argument lower-endpoint numeric expression within channel range negative full scale upper-endpoint numeric expression within c of the IEEE bus. Argument Type of Argument Valid Values Default Value condition numeric variable name 0; -1 required argument Example 60 TEST_REMOTE(C) Result Tests the REN bus line. C is -1 if the line hannel range positive full scale Example 80 AIN_HIST('DISPLAY',H%(),1,256) Result Collects a 256-point sweep from channel 1. Generates the histogram using the full channel range, displays the histogram and stores it in array H%. Refeis set, 0 if it is clear. Reference BOOK 5 TEST_SRQ(condition) Tests the service request (SRQ) line of the IEEE bus. Argument Type of Argument Valid Values Default Value condition numeric variable name 0; -1 required argrence BOOK 6 AIN_SUM(mode,data-name,swp-length,trig,A/D-chan,no.-channels,no.-swps,swp-delay) Accumulates analog input data from a series of A/D sweeps (signal averaging). Argument Type of Argument Valid Values Default Value mode striument Example 40 TEST_SRQ(S%) Result Assigns the value 0 to the variable S% if no instrument requests service; the value -1 if one or more instruments request service. Reference BOOK 5 TRANSFER(actual-length,maximum-length,talkeng expression DISPLAY,EXTERNAL, standard mode FAST,LINE,RANDOM, ZERO data-name numeric array name numeric range required argument sweep-length numeric expression >= 1 1 trigger numeric expression 0; > 0 to 655.35; 0 numeric expression 1 to 32767 required argument Example 120 CONTINUE(V(),I1%,1000) Result Designates the service subroutine beginning at statement 1000 to execute when one partition of array V is transferred. Assigns array incified digital output unit will convey data from the output word. Argument Type of Argument Valid Values Default Value mask-word numeric expression -32,768 to 32,767 all bits set (-1) unit numeric expression 0 through 3 0 dex for the current partition to variable I1% Reference BOOK 6 COUT(mode,string-name,string-length,channel-no.) Sends characters in serial ASCII format via a serial transfer channel. Argument Type of Argument Valid Values Default Value m Example 80 DOUT_MASK(BIN('1111 1111 0000 0000'),2) Result Specifies a mask work for unit 2 that has bits set for lines 8 to 15. Reference BOOK 6 FFT(mode,data-length,real-component,imag-component,scale-factor) Performs a discrete Fourode string expression WAIT standard mode string-name string expression ASCII characters required argument string-length numeric expression 0; 1 to 255 0 channel-no. numeric expression 0 or 1 0 Example 90 COUT(,S$(2),ier transform on a data array. Argument Type of Argument Valid Values Default Value mode string expression FORWARD or REVERSE FORWARD data-length numeric expression 2^n (n = 3 to 11) required argument real-component i10) Result Sends a string of 10 characters to channel 0 (without adding a carriage-return character) and starts executing the next statement without waiting for the transfer to complete. Reference BOOK 6 DIN(mode,data-name,data-length,trinteger array name input data required argument imag-component integer array name input data required argument scale-factor integer variable name integer range required argument Example 90 FFT(,128,R%(),C%(),S%) Result gger,unit) Collects data from the specified digital input unit. Argument Type of Argument Valid Values Default Value mode string expression CONTINUOUS,EXTERNAL standard mode LINE,ST2,TIMESTAMP data-name numeric variable -32,768 Performs a discrete Fourier transform of the first 128 values in the integer arrays R% and C%, storing the results of the transform in arrays R% and C%. Stores the scale factor in variable S%. Reference BOOK 6 GET_TIME(current-value) Rto 32,767 required argument or array name data-length numeric expression >= 1 1 trigger numeric expression 0; > 0 to 655.35; 0 1 to 65,535 unit numeric expression 0 to 3 0 Example 70 DIN('ST2',A(),50,1) Resulteads the current value in the elapsed-time counter. Argument Type of Argument Valid Values Default Value current-value numeric variable name >= 0 required argument Example 80 GET_TIME(V) Result Reads the current ela Starts collecting a sweep of 50 values from digital input unit 0 when a signal occurs on ST2. Puts one point into array A every second. Reference BOOK 6 DIN_EVENT(event-enable-word,unit) Enables individual digital input lines in the specpsed time or signal count into variable V. Reference BOOK 6 MAKE_BCD(numeric-value,BCD-value) Converts a standard numeric value to BCD format. Argument Type of Argument Valid Values Default Value numeric-value numeric expression 0 to ified unit to control digital input. Argument Type of Argument Valid Values Default Value event-enable-word numeric expression -32,768 to 32,767 all bits set (-1) unit numeric expression 0 to 3 0 Example 60 DIN_E9999 required argument BCD-value numeric variable name 0 to 9999 BCD required argument Example 70 MAKE_BCD(V,C%) Result Converts the value in V to BCD format, and assigns the BCD value to variable C%. Reference BOOK 6 MAKE_NUMBERVENT(BIN('1111 0000 0000 1111'),1) Result Enables DIN to sample when a singal occurs on any of lines 0 to 3 and 12 to 15. Reference BOOK 6 DIN_MASK(mask-word,unit) Defines which lines of the specified digital input unit will be read. (BCD-value,numeric-value) Converts a value in BCD format to a standard numeric value. Argument Type of Argument Valid Values Default Value BCD-value numeric expression 0 to 9999 BCD required argument numeric-valu Argument Type of Argument Valid Values Default Value mask-word numeric expression -32,768 to 32,767 all bits set (-1) unit numeric expression 0 to 3 0 Example 60 DIN_MASK(BIN('0000 0000 1111 1111'),2) Result Specifies e numeric variable name 0 to 9999 required argument Example 60 MAKE_NUMBER(B%,N%) Result Converts the BCD value in variable B% to numeric format and assigns the new value to N%. Reference BOOK 6 MAKE_TIME(rate,old-value,result) Cona mask word for unit 2 that has bits set for lines 0 to 7. Reference BOOK 6 DOUT(mode,data-name,data-length,trigger,unit) Sends data to the digital output unit specified. Argument Type of Argument Valid Values Default Value modeverts the timestamp values collected by DIN and TIME_CLOCK to standard numeric values (result in seconds or signal count). Argument Type of Argument Valid Values Default Value rate string expression CHZ,EXTERNAL, aracters from channel 1. Cancel the request after 60 seconds if 20 characters have not arrived, and assigns whatever has arrived to variable S$. Reference BOOK 6 CONTINUE(data-name,index,subroutine) Designates a service subroutine for con string expression CONTINUOUS,EXTERNAL standard mode LINE,ST2 data-name numeric expression -32,768 to 32,767 required argument data-length numeric expression >= 1 1 trigger numeric expression 0; > 0 to 655.35; tinuous analog or digital transfer. Argument Type of Argument Valid Values Default Value data-name numeric array transfer array required argument index numeric variable name 0,(n+1)/2 required argument subroutine 0 1 to 65,535 unit numeric expression 0 to 3 0 Example 70 DOUT(,V,1,0,2) Result Sends the contents of variable V to digital output unit 2. Reference BOOK 6 DOUT_MASK(mask-word,unit) Defines which lines of the speam response to a time event specified in numeric seconds or string hours:minutes:seconds. Argument Type of Argument Valid Values Default Value mode string expression ABSOLUTE or INTERVAL INTERVAL time numeric expression 0 to 86,,R,S,T required argument temp-units string expression Fahrenheit, or Celsius Celsius channel numeric expression 12 to 63 required argument temperature numeric variable -269 to 1740 required argument depending on type Ex current rate KHZ,LINE,ST2, T old-value integer expression -32,768 to 32,767 required argument result real variable name 0 to 65,535 counts required argument 0 to 1092.2 seconds Example 400 sec 0 or string expression 0 to 24:00:00 subroutine numeric expression 0; 1 to 32,767 0 Example 50 SCHEDULE('INTERVAL',30,640) Result Executes the service subroutine that begins at statement 640 a 70 MAKE_TIME('EXTERNAL',I%,R) Result Converts the DIN format value in I% to standard numeric format and assigns the count value to variable R. Reference BOOK 6 PAUSE(delay-interval) Suspends program execution for a specified tifter 30 seconds. Reference BOOK 6 SCHMITT(Schmitt-trigger,subroutine,ST1-count) Enables the program to respond to a Schmitt trigger event. Argument Type of Argument Valid Values Default Value Schmitt-trigger numeric expression 1 or me interval. Argument Type of Argument Valid Values Default Value delay-interval numeric expression 0 to 86,400 sec required argument or string expression 0 to 24:00:00 Example 60 PAUSE('10') Result 2 1 subroutine numeric expression 0; 1 to 32,767 0 ST1-count numeric expression 1 to 65,535 1 Example 40 SCHMITT(,1000,10) Result Starts executing the service subroutine that begins at statement 1000 after eveCauses the program to wait 10 seconds before continuing. Reference BOOK 6 POWER(data-length,real-component,imag-component,spectrum-array) Calculates the power spectrum for a set of complex Fourier coefficients. Argument Type of Argument Valiry tenth signal on ST1. Reference BOOK 6 SET_BIT(bit-position,condition,word) Sets or clears a single bit or all bits in a word. Argument Type of Argument Valid Values Default Value bit-position numeric expression -1; 0d Values Default Value data-length numeric expression >= 1 required argument real-component integer array array from FFT required argument imag-component integer array array from FFT required argument spectrum to 15 required argument condition numeric expression 0 or > 0 required argument word numeric variable name -32,768 to 32,767 required argument Example 30 SET_BIT(7,1,V%) Result Sets bit 7 of variable -array real array name result array required argument Example 70 POWER(128,R%(),C%(),P()) Result Calculates the power spectrum using the real-coefficient array R% and the imaginary-coefficient array C% as input. Puts the pV%. Reference BOOK 6 SET_GAIN(mode,gain-code,A/D-channel,no.-of-channels) Sets the gain for one or more channels connected to the preamp module. Argument Type of Argument Valid Values Default Value mode string expression RAower spectrum in array P. Reference BOOK 6 PST_HIST(mode,histogram-name,tick-rate,no.-of-sweeps,lower-endpt,upper-endpt) Generates a post-stimulus time histogram with the clock module. Argument Type of Argument Valid Values Default Value NDOM standard mode gain-code numeric expression >=0; 0 to 4 1 or numeric array A/D-channel integer expression 8 to 63 required argument or integer array no.-of-channels numeric expression 1 to 56 or channel 1 mode string expression DISPLAY,ZERO standard mode histogram-name integer array name 0 to 32,767 required argument tick-rate numeric expression 2 to 6 required argument no.-of-sweeps numeric expression 1 to 32,767 required array length Example 70 SET_GAIN(,0,8,1) Result Sets channel 8 to autogain. Reference BOOK 6 SET_LINE(line-number,condition,unit) Sets or clears a single line or all lines in a digital output unit. Argument Type of Argument Validargument lower-endpoint numeric expression 0 to 32767 ticks 0 upper-endpoint numeric expression 0 to 32767 ticks 32767 Example 40 PST_HIST('DISPLAY',H%(),3,100,1,500) Result Collects 100 sweeps of time interval data with a time base Values Default Value line-number numeric expression -1; 0 to 15 -1 condition numeric expression 0 or > 0 0 unit numeric expression 0 to 3 0 Example 60 SET_LINE(0,,1) Result Clears line 0 of digital oof 1 KHz. Generates the frequency histogram H% for time intervals in the range 1 to 500 msec. Reference BOOK 6 SCAN_BIT(bit-position,word) Clears the first set bit in a word and stores its position. Argument Type of Argument utput unit 1. Reference BOOK 6 START_TIME(rate) Starts the elapsed-time counter with a specified rate, or stops the elapsed-time counter with the clock module. Argument Type of Argument Valid Values Default Value rate string expresValid Values Default Value bit-position numeric variable name -1; 0 to 15 required argument word numeric variable name -32,768 to 32,767 required argument Example 30 SCAN_BIT(V,V%) Result Scans the value insion CHZ,EXTERNAL,HALT, HALT KHZ,LINE,ST2,T Example 50 START_TIME('CHZ,ST2') Result Sets the clock module rate to 100 Hz, and starts the elapsed-time counter when a signal occurs on ST2. Reference BOOK 6 TEMPERATURE('thermo- V%, starting with bit 0, and assigns to V the bit position of the first bit set (if any). If the value of V% is 0, after statement execution the value of V is -1. Reference BOOK 6 SCHEDULE(mode,time,subroutine) Schedule progrtype,temp-units',channel,temperature) Reads temperature in degrees Celsius or Fahrenheit using a thermocouple preamp module and a thermocouple probe. Argument Type of Argument Valid Values Default Value thermo-type string expression B,E,J,K and puts the line condition code in variable C. Reference BOOK 6 TIME_CLOCK(mode,data-name,data-length) Accumulates and stores time interval measurements using the clock module. Argument Type of Argument Valid Values Default Value moAD S,L 150 DATA 5,6 160 INPUT I 170 IF 1<=I THEN IF I<=S THEN CHAIN 'filem'+STR$(I) 180 IF I=L GO TO 210 190 PRINT 'Enter number between 1 and ';L; 200 GO TO 160 210 PRINT 'Exit File Maintenance Program' 220 END de string expression CONTINUOUS standard sampling data-name numeric expression real variable or none array data-length variable or constant 1 to 32,767 1 Example 40 TIME_CLOCK('CONTINUOUS',D1(),5) Result Stores five Schmitt trigger intervals in array D1 using CONTINUOUS mode. Reference BOOK 6 TIME_HIST(mode,histogram-name,tick-rate,sweep-length,lower-endpt,upper-endpt) Generates a time-interval histogram using the clock module. Argument Type of Argument Valid Valu10 FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'FILE CONCATENATION PROGRAM' 30 PRINT \ PRINT 35 PRINT 'Output file name'; \ INPUT O$ 37 OPEN O$ FOR OUTPUT AS FILE #12 60 PRINT 'Next file name'; \ INPUT F$ 70 OPEN F$ FOR INPUT AS FILE 1 80 IF END #1 Ges Default Value mode string expression DISPLAY,ZERO standard mode histogram-name integer array name 0 to 32,767 required argument tick-rate numeric expression 2 to 6 required argument sweep-length numeric eO TO 1000 90 LINPUT #1,L$ 100 PRINT #12,L$ 110 GO TO 80 1000 CLOSE 1 1010 PRINT 'Merge another file (Y or N)'; \ INPUT R$ 1015 IF R$='Y' GO TO 60 1016 IF R$='y' GO TO 60 1020 CLOSE 12 1030 PRINT 'File merge complete' 1040 CHAIN 'filemt' 1050 ENDample 30 TEMPERATURE('K,F',22,T%) Result Reads the temperature in Fahrenheit degrees, from a K type thermocouple on channel 22. Stores the temperature in variable T%. Reference BOOK 6 TERMINATE(mode,data-name) Stops a specified continuous datxpression 1 to 32,767 required argument lower-endpoint numeric expression 0 to 32767 ticks 0 upper-endpoint numeric expression 0 to 32767 ticks 32767 Example 60 TIME_HIST('DISPLAY',H%(),4,1E4,2,2^8) Result Collectsa transfer or all of the continuous mode transfers in progress. Argument Type of Argument Valid Values Default Value mode string expression DEFER or IMMEDIATE DEFER data-name numeric array transfer array a sweep of 10,000 (1E4) points with the clock running at 10,000 Hz. Generates and displays the histogram for time intervals in the range of interest 2 to 256, and stores the histogram in array H%. Reference BOOK 6 WAIT_FOR_D all transfers Example 90 TERMINATE('IMMEDIATE',V()) Result Stops the data transfer involving array V immediately. Reference BOOK 6 TEST_BIT(bit-position,condition,word) Tests the condition of a specific bit or all bits in a speATA(data-name,index) Waits for a complete array partition in analog or digital continuous transfers. Argument Type of Argument Valid Values Default Value data-name numeric array transfer array required argument cified word. Argument Type of Argument Valid Values Default Value bit-position numeric expression -1; 0 to 15 -1 condition numeric variable name 0 or > 0 required argument word numeric variable -32,768 to 3 index numeric variable name 0,(n+1)/2 required argument Example 90 WAIT_FOR_DATA(V%(),I) Result Waits until the next partition of array V% is ready for processing. The array index of the partition is in variable I. Reference BOOK 2,767 required argument Example 80 TEST_BIT(-1,C,W1) Result Tests the condition of all bits in variable W1 and assigns a positive value to variable C if one or more of the bits in W1 is set. Reference BOOK 6 T6  EST_GAIN(A/D-channel,gain-code,mode-code) Reports the gain and mode of an A/D channel connected to the preamp module. Argument Type of Argument Valid Values Default Value A/D-channel numeric expression 0 through 63 0 gain-code 10 FOR I=1 TO 23 \ PRINT \ NEXT I \ REM -- Clear screen 20 PRINT 'FILE LIST PROGRAM ' \ PRINT \ PRINT 30 PRINT 'File name (default type is .DAT))'; \ INPUT F$ 40 OPEN F$ FOR INPUT AS FILE 1 50 IF END #1 GO TO 90 60 LINPUT #1,L$ 70 PRINT L$ 80 GO real variable name -3 to 4 required argument mode-code string variable name *,V,I,R required argument Example 70 TEST_GAIN(C,G,M$) Result Determines the current status of channel C. Reports current gain in variable GTO 50 90 CLOSE 1 100 PRINT 'List another file (Y or N)'; \ INPUT R$ 110 IF R$="Y" GO TO 30 120 IF R$='y' GO TO 30 130 CHAIN 'filemt' 140 END and the current mode in variable M$. Reference BOOK 6 TEST_LINE(line-number,line-condition,unit) Tests the condition of one line or of all lines in a digital input unit. Argument Type of Argument Valid Values Default Value line-numb10 FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'SEQUENTIAL FILE MAINTENANCE PROGRAM' 30 PRINT 40 PRINT 'Enter program number from:' \ PRINT 50 PRINT '1 Input a file (NOTE: use editor to update)' 60 PRINT '2 Sort a file' 70 PRINT '3 er numeric expression -1; 0 to 15 -1 line-condition numeric variable name 0 or > 0 required argument unit numeric expression 0 to 3 0 Example 50 TEST_LINE(7,C,3) Result Tests line 7 of digital input unit 3 Merge 2 files' 80 PRINT '4 Concatenate files' 90 PRINT '5 List a file on the screen' 100 PRINT '6 Exit file maintenance program' 110 PRINT 120 REM -- S is the second to last choice 130 REM -- L is the last choice 140 RE | g +------+------+------+------+------+------+------+ h | 6 |17 | 8 | 9 |10 |11 |12 | i | | | | | | | | j | | | | | | | | k put file name'; \ INPUT O$ 80 OPEN F1$ FOR INPUT AS FILE 1 90 OPEN F2$ FOR INPUT AS FILE 2 100 OPEN O$ FOR OUTPUT AS FILE 3 104 REM 105 REM ************************************************ 106 REM -- Process file 1 107 REM 110 IF END #1 GO TO 130 +------+------+------+------+------+------+------+ |13 |14 |15 |16 |17 |18 |19 | m | | | *| | | | | | | |... n | | | | | | | | o 120 GO TO 160 130 F=2 \ REM -- End of file 1; file 2 left 140 GO TO 540 150 REM -- Get next record from file 1 160 FOR I=1 TO L \ LINPUT #1,I1$(I) \ NEXT I 164 REM 165 REM ************************************************ 166 REM -- Process file 2 +------+------+------+------+******+------+------+ p |20 |222 |23 |24 |25 |26 | q | | | | | | | r | | | | | | | s +------+------+------+------+------167 REM 170 IF END #2 GO TO 190 180 GO TO 240 190 F=1 \ REM -- End of file 2; file 1 left 200 REM -- Get record left over from file 1 210 FOR I=1 TO L \ I$(I)=I1$(I) \ NEXT I 220 GO TO 560 230 REM -- Get next record from file 2 240 FOR I=1 TO L \ L+------+------+ +------+------+------+------+------+------+------+ t * |27 |28 |129 |30 |31 | | | u | | | | | | | | v | | | | | | | | INPUT #2,I2$(I) \ NEXT I 250 GO TO 340 255 REM 256 REM **************************************** 257 REM -- Process file 1 258 REM 260 IF END #1 GO TO 280 270 GO TO 330 280 F=2 \ REM -- End of file 1; file 2 left 290 REM -- Get record left over frow +------+------+--- ---+------+------+------+------+ JANUARY, FEBRUARY, MARCH, APRIL, MAY m file 2 300 FOR I=1 TO L \ I$(I)=I2$(I) \ NEXT I 310 GO TO 560 320 REM -- Get next record from file 1 330 FOR I=1 TO L \ LINPUT #1,I1$(I) \ NEXT I 334 REM 335 REM ************************************************ 337 REM -- Decide which record is next in the output file 338 REM 340 FOR I=1 TO L 350 IF I1$(I)>=I2$(I) GO TO 400 355 REM 360 REM -- Process the record from file 1 365 REM 370 FOR J=1 TO L \ PRINT #3,I1$(J) \ NEXT J 380 GO TO 260 400 IF I2$(I)>=I1$(I) GO TO 450 405 REM 410 REM --//345678This is a sample file for MINC Keypad Editor exercises. // //` ` ` Do not erase it.` ` ` // JUNE, 1980 a SUN MON TUE WED THU FRI SAT b c +------+------+------+------+------+------+------+ d Process the record from file 2 415 REM 420 FOR J=1 TO L \ PRINT #3,I2$(J) \ NEXT J 430 GO TO 170 450 NEXT I 460 REM -- They are equal records -- so print from file 1 470 FOR J=1 TO L \ PRINT #3,I1$(J) \ NEXT J 480 GO TO 110 525 REM 526 REM ****** | 1 | 2 | 3 | 4 | 5 | 6 | 7 | e | | | | | | | | f | | | | | | | | g +------+------+------+------+------+------+------+ h | 8 | 9 |10 |11 |12 |13 |14 | i | | | | | | | | j | | | | | | | | k +------+------+------+------+------+------+------+ l |15 |16 |17 |18 10 FOR I=1 TO 23 \ PRINT \ NEXT I \ REM -- Clear screen 20 PRINT 'FILE INPUT PROGRAM' \ PRINT \ PRINT 30 PRINT 'Input file name'; \ LINPUT F$ 40 PRINT 'At each question mark, type the next line of the input file.' 50 PRINT 'To end the file, press th |19 |20 |21 | m | | | | | | | | n | | | | | | | | o +------+------+------+------+------+------+------+ p |22 |23 |24 |25 |26 |27 e RETURN key at the question mark.' 60 OPEN F$ FOR OUTPUT AS FILE #1 70 LINPUT N$ 80 IF N$='' GO TO 110 90 PRINT #1,N$ 100 GO TO 70 110 CLOSE #1 120 PRINT 'File input complete' 130 CHAIN 'filemt' 140 END |28 | q | | | | | | | | r | | | | | | | | s +------+------+------+------+------+------+------+ t |29 |30 | | | | | | u 1 2 3 4 5 6 7 12345678901234567890123456789012345678901234567890123456789012345678901234567890 //345678This is a sample file for MINC Keypad Exercises. // //` ` ` Do not erase it.` ` ` // | | | | | | | | v | | | | | | | | w +------+------+------+------+------+------+------+ ` JY, 1980 aSAT b c +------+------+------+------+------+------+------+ d | | | 1 | | 3 | 4 | 5 | e | | | | | | | | f | | | | | | | 10 FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'FILE MERGING PROGRAM' 30 PRINT \ PRINT 40 PRINT 'Input first file name'; \ INPUT F1$ 50 PRINT 'Input second file name'; \ INPUT F2$ 60 PRINT 'How many lines represent one record'; \ INPUT L 70 PRINT 'out F$ 50 OPEN F$ FOR INPUT AS FILE 1 60 PRINT 'How many lines represent one record'; \ INPUT L 65 L=L-1 70 N=1 74 REM 75 REM ********************************************** 76 REM -- Input the file into the workspace 77 REM 80 IF END #1 GO TO 140 900 PUT_POINT(,X,Y) 470 NEXT I 480 FOR Z=0 TO 4 STEP 2 490 PUT_LINE(,80+Z,200,80+Z,300) 500 PUT_LINE(,,,130+Z,250) 510 PUT_LINE(,,,180+Z,300) 520 PUT_LINE(,,,180+Z,200) 530 PUT_LINE(,280+Z,200,280+Z,300) 540 PUT_LINE(,380+Z,200,380+Z,300) 550 PUT_LI FOR I=0 TO L 100 LINPUT #1,N$(N,I) 110 NEXT I 120 N=N+1 130 GO TO 80 140 N=N-1 150 CLOSE 1 3000 REM ******************************************** 3010 REM -- Sort the file 3020 REM 3030 REM -- For an explanation of the shell sort see 3040 REM --NE(,,,480+Z,200) 560 PUT_LINE(,,,480+Z,300) 570 PUT_LINE(,680+Z,200,580+Z,200) 580 PUT_LINE(,,,580+Z,300) 590 PUT_LINE(,,,680+Z,300) 600 NEXT Z 610 A$="ON" 620 FOR I=0 TO 2*PI STEP .05 630 X=382+SIN(I)*380 640 Y=240+COS(I)*240 650 PUT_LINE(A$,X,2 Knuth, D.E., "The Art of Computer Programming, 3050 REM -- Volume 3 / Sorting", Addison Wesley Publishing 3060 REM -- Company, Reading, Massachusetts 3070 REM ********************************************* 4000 REM -- shell sort 4005 REM 4010 G=N 440,382,Y) 660 NEXT I 670 END 020 G=INT(G/2) 4030 K=G 4040 K=K+1 4050 FOR I=0 TO L \ V$(I)=N$(K,I) \ NEXT I 4060 J=K 4070 J1=J 4080 J=J-G 4090 IF J<1 GO TO 4130 4100 FOR I=0 TO L 4101 IF V$(I)N$(J,I) GO TO 4130 4103 NEXT I 4110 FOR I=0 TO L \ N$(J1,I)=N$(J,I) \ NEXT I 4120 GO TO 4070 4130 FOR I=0 TO L \ N$(J1,I)=V$(I) \ NEXT I 4140 IF K1 GO TO 4020 4155 REM 4160 REM ********************************************* 4165 REM 4170 PRINT 'Name of output file to hold 10 REM -----TRIG 20 REM --------PROGRAM TO CALCULATE SINES AND COSINES 30 DISPLAY_CLEAR 35 PRINT ' TRIG ' \ PRINT 40 PRINT 'This program calculates the sine and cosine of an angle' 50 PRINT 60 PRINT 'Please enter the angle in degrees (0 to 360sorted file'; \ INPUT F$ 5000 OPEN F$ FOR OUTPUT AS FILE 1 5010 FOR J=1 TO N 5020 FOR I=0 TO L 5030 PRINT #1,N$(J,I) 5040 NEXT I 5050 NEXT J 5060 CLOSE 1 5070 PRINT 'File sort complete' 5080 CHAIN 'filemt' 5090 END )'; \ INPUT X 70 IF X>=0 THEN IF X<=360 THEN GO TO 90 80 PRINT 'Please enter a value between 0 and 360' \ GO TO 60 90 PRINT 100 Z=X*PI/180 110 PRINT 'ANGLE','SINE','COSINE' \ PRINT 120 PRINT X,SIN(Z),COS(Z) 130 PRINT \ PRINT 'AGAIN (Y or N)'; \ INPUT A$ 140 IF A$='Y' THEN 50 \ IF A$='y' THEN 50 150 IF A$='N' THEN 1000 \ IF A$='n' THEN 1000 160 PRINT 'Please answer Y or N' \ GO TO 130 1000 END 10 DISPLAY_CLEAR 20 BOX(,1,1,24,80) 30 VTEXT(,3,1,"TEXT FIELD") 40 PUT_LINE(,0,0,767,0) 50 PUT_LINE(,,,767,479) 60 PUT_LINE(,,,0,479) 70 PUT_LINE(,,,0,0) 80 VTEXT(,5,4,"SCREEN FIELD") 90 HTEXT(,10,20,"THE TEXT FIELD USED BY MINC ROUTINES SUCH AS :") 100 HTEXT(,11,20,"HTEXT, VTEXT, MOVE_CURSOR ETC.") 110 HTEXT(,12,20,"IS DIFFERENT THAN THE SCREEN FIELD USED BY") 120 HTEXT(,13,20,"PUT_LINE AND PUT_POINT") 130 HTEXT(,14,20,"SCREEN COORDINATES RANGE 0-767 ACROSS AND 0-479 UP") 140 HTEXT(,15,20,"TEX10 REM --- APPROX 20 REM ----- Program to compute and display a Fourier series approximation 30 REM ----- To a sawtooth function. 40 DISPLAY_CLEAR 50 PRINT 'The APPROX program displays a sawtooth function and' 60 PRINT 'a Fourier Series approximationT COORDINATES RANGE 1-80 COLUMNS AND 1-24 ROWS") 142 PAUSE(5) 150 FOR L=10 TO 16 160 ERASE_TEXT("ROW",L,10,60) 170 NEXT L 180 HTEXT(,10,20,"NOW, CONVERSION BETWEEN TEXT AND SCREEN") 190 HTEXT(,11,26,"COORDINATES IS DEMONSTRATED") 200 HTEXT(,13,14,"M to that function.' 70 M=128 80 Q=4.62 90 REGION(,2) 100 HTEXT('BOLD',2,,'SAW-TOOTH FUNCTION') 110 HLINE(,0,,,1) 120 WINDOW('EXACT',-2*PI,-Q,+2*PI,+Q,0) 130 GRID(,2) 140 POINT(,-PI,0,2) 150 POINT(,+PI,0,2) 160 FOR K=-(M-1) TO +(M-1) 170 X=(K/M)******************************************* 530 REM -- finish off remaining file 535 REM 540 IF END #F GO TO 580 550 FOR I=1 TO L \ LINPUT #F,I$(I) \ NEXT I 560 FOR I=1 TO L \ PRINT #3,I$(I) \ NEXT I 570 GO TO 540 580 CLOSE 1,2,3 590 PRINT 'File merOVE CURSOR WITH THE ARROW KEYS AND HIT A CHARACTER") 210 HTEXT(,14,12,"PUT_LINE WILL BE USED TO DRAW A BOX AROUND THE CHARACTER") 220 HTEXT(,15,19,"(KEEP THE CURSOR WITHIN THE SCREEN FIELD)") 230 HTEXT(,16,21,"---HIT S TO STOP DEMONSTRATION---") 240 FIge complete' 600 CHAIN 'filemt' 610 END ND_CURSOR(R,C,X$) 250 FOR L=10 TO 16 260 ERASE_TEXT("ROW",L,10,60) 270 NEXT L 280 GO TO 300 290 FIND_CURSOR(R,C,X$) 300 HTEXT(,R,C,X$) 310 Y=481-20*R 320 X=INT(10*(C-4)+5) 330 PUT_LINE(,X,Y,X+11,Y) 340 PUT_LINE(,,,X+11,Y+20) 350 PUT_LINE(,,,X,Y+1 REM -- N$[N,i] is the array to be sorted. N is the number of elements 3 REM -- that are i lines long. 5 DIM N$(100,10) 10 FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'FILE SORT PROGRAM' 30 PRINT \ PRINT 40 PRINT 'Name of file to be sorted'; \ INPUT20) 360 PUT_LINE(,,,X,Y) 370 IF X$="S" THEN GO TO 390 380 GO TO 290 390 DISPLAY_CLEAR 400 HTEXT(,13,18,"PICTURE DRAWING WILL NOW BE DEMONSTRATED") 410 PAUSE(3) 420 DISPLAY_CLEAR 430 FOR I=1 TO 1000 440 X=INT(RND(0)*768) 450 Y=INT(RND(0)*480) 46PI 180 Y=X 190 POINT(,X,Y,2) 200 POINT(,X-SGN(K)*2*PI,Y,2) 210 NEXT K 220 PRINT 'How many terms do you want in the Fourier approximation (1 to 50)'; 230 INPUT I 232 IF I>=1 THEN IF I<=20 THEN GO TO 240 234 PRINT 'Please enter an integer between 1 and 20' 236 GO TO 220 240 PRINT 'How many points do you want to plot (1 to 512)'; 250 INPUT N 252 IF N>=1 THEN IF N<=512 THEN GO TO 260 254 PRINT 'Please enter an integer between 1 and 512' 256 GO TO 240 260 VIEW("INVISIBLE",2) 265 WINDOW("EXACT",10 REM ----WINDOW 12 REM -------Program to plot damped sine wave and let the user select a 13 REM -------portion of that wave to be expanded. 20 DIM X(150),Y(150) 30 DEF FNA(X)=SIN(X)*EXP(B1*X) \ REM EXPONENTIAL SINE WAVE 40 DISPLAY_CLEAR 50 REGION("-2*PI,-Q,+2*PI,+Q) 270 GRID('-HLINES,-TICKS,-UNITS',2) 280 HTEXT('BOLD',2,,'FOURIER SERIES APPROXIMATION') 290 S$='sin x' 300 IF I>=2 THEN S$=S$+' - 1/2 sin 2x' 310 IF I>=3 THEN S$=S$+' + 1/3 sin 3x' 320 IF I=4 THEN S$=S$+' - 1/4 sin 4x' 330 IF I>4 UPPER") 52 PRINT 'This demonstration program plots a damped sine wave in the upper' 53 PRINT 'region and then asks you for the lower and upper ends of the range' 54 PRINT 'you want to see expanded. It then plots the expanded graph in ' 55 PRINT 'the lTHEN S$=S$+' ... 1/'+STR$(I)+' sin '+STR$(I)+'x' 340 ERASE_TEXT(,21) 350 HTEXT('BOLD,FLASHING',21,10,'Plotting... ') 360 HTEXT('BOLD',21,26,S$) 370 FOR J=0 TO N 380 X=4*PI*(J/N)-2*PI 390 S1=+2 400 Y=0 410 FOR K=1 TO I 420 Y=Y+S1*SIN(K*X)/K 430 S1ower region.' 60 B1=-.05 \ N=150 \ C=8 \ REM SET UP ########## 70 M=2*PI*C \ I1=50/149 \ REM COMPUTE MAX X AND INCREMENTATION FACTOR 80 FOR I=1 TO N \ X(I)=(I-1)*I1 \ Y(I)=FNA(X(I)) \ NEXT I 90 L1=X(1) \ L2=X(N) 100 WINDOW(,0,-1,50,1) 110 GRAPH("LINE=-S1 440 NEXT K 450 POINT(,X,Y,1) 460 NEXT J 470 HTEXT(,21,10,'Approximation:') 480 VIEW("-INVISIBLE",2) 490 PRINT 'Do you want to shade the approximation (Y or N)'; 500 INPUT A$ 510 IF A$='N' GO TO 550 \ IF A$='n' GO TO 550 520 IF A$='Y' GO TO 54S",N,X(1),Y(1)) 120 GOSUB 1040 130 REM ## 140 REM ## NOW ALLOW USER TO CREATE A SMALLER WINDOW 150 A%=0% \ REM DON'T CHECK FOR CRASH - THIS IS THE 1ST ONE 160 Q1$=" ENTER WINDOW LIMITS " 170 Q2$=" ENTER LEFT X COORDINATE" \ F2$="BOLD" 180 A3=L1 \ A40 \ IF A$='y' GO TO 540 530 PRINT 'Please answer Y or N' \ GO TO 490 540 SHADE(,,1) 550 PRINT 'Do you want to run another case (Y or N)'; \ INPUT A$ 560 IF A$='y' GO TO 590 \ IF A$='Y' GO TO 590 570 IF A$='n' GO TO 620 \ IF A$='N' GO TO 620 580 PRINT=L2 190 Q3$=" VALID RANGE IS FROM "+STR$(A3)+" TO "+STR$(A4) \ F3$=F2$ 200 Q4$=" ENTER RIGHT X COORDINATE" \ F4$="" 210 Q5$=" VALID RANGE WILL DEPEND ON LEFT X COORDINATE ENTERED ABOVE" 220 F5$="" 230 GOSUB 550 240 X5=A1 \ Y5=A2 \ REM SAVE USER'S ANS 'Please answer Y or N' 590 SHADE("INVISIBLE",,1) 600 ERASE_GRAPH("ALL",,,1) 610 GO TO 220 620 DISPLAY_CLEAR 630 STOP WER 250 POINT("BRAND",X5,Y5) 260 R5%=A1 \ C5%=A2 \ REMEMBER TO SAVE THE TEXT COORDS TOO ! 270 A%=1% \ REM CHECK FOR CRASH 280 Q2$=Q2$ \ F2$="" 290 Q3$=" THE LEFT SIDE OF X AS ENTERED IS "+STR$(X5) \ F3$="" 300 A3=X5 \ A4=L2 310 Q5$=" VALID RANGE IS FROM "+STR$(A3)+" TO "+STR$(A4) 320 F5$="BOLD" \ F4$=F5$ \ REM HIGHLITE THE RIGHT SIDE MSGS NOW !! 330 GOSUB 550 340 X6=A1 \ Y6=A2 350 R6%=A1 \ C6%=A2 \ REM SAVE ROW AND COL 360 POINT("BRAND",X6,Y6) 370 I1=(X6-X5)/N \ REM COMPUTE INCR FACTOR 380 FOR10 REM ----CYCLES 11 REM--------Program to display specified number of cycles 12 REM--------of a sine wave. 13 DISPLAY_CLEAR 14 PRINT 'This program begins by displaying a sine wave with 1 cycle.' 16 PRINT 'When the display is complete, you can specify I=1 TO N \ X(I)=X5+(I*I1) \ Y(I)=FNA(X(I)) \ NEXT I 390 WIDE_LINE("-wide",12) 400 REGION("LOWER",2) 410 IF C1%=1% THEN HLINE(,0) \ HLINE(,-1) \ HLINE(,1) 420 C1%=1% 430 WINDOW(,X5,-1,X6,1,2) 440 GRAPH("LINES",N,X(1),Y(1),,,2) 450 PRINT " AGAIN (Y O the number of cycles' 17 PRINT 'you want to see displayed.' 20 DIM Y(512),X(512) 30 F=5 50 N=1 60 GOSUB 390 120 PRINT \ PRINT \ PRINT 130 PRINT 'How many cycles do you wish to see (0 to 10)'; 140 INPUT N 150 IF N>=0 THEN IF N<=10 THEN GO TO 1R N) "; \ INPUT A$ 460 IF A$="Y" THEN A%=1 \ GO TO 490 462 IF A$="y" THEN A%=1 \ GO TO 490 464 IF A$="N" THEN A%=0 \ GO TO 490 466 IF A$="n" THEN A%=0 \ GO TO 490 480 HTEXT("FLSH",,1," PLEASE ANSWER EITHER Y OR N ") \ GO TO 482 482 PRINT \ GO TO 45080 160 PRINT 'The number of cycles must be a number between 0 and 10' 170 GO TO 130 180 GOSUB 390 256 PRINT 260 PRINT 'AGAIN (Y or N)'; 270 INPUT A$ 280 IF A$<>'y' THEN IF A$<>'Y' THEN GO TO 290 285 GO TO 120 290 IF A$<>'n' THEN IF A$<>'N' THEN 490 IF A%=0% THEN 1100 \ REM OUT IF DONE 500 ERASE_GRAPH("ALL",,,2) \ GOSUB 1040 510 POINT(,X5,Y5) \ POINT(,X6,Y6) \ REMEMBER TO TURN OFF BRANDS 520 GO TO 150 530 STOP 540 REM #################### 550 REM ### SUBROUTINES #### 560 REM ############# GO TO 300 295 GO TO 1000 300 PRINT 'Please answer Y or N' 310 GO TO 260 385 REM Set frequency to 1 HZ 390 F=1 395 REM Calculate X and Y points 400 Q=2*PI*F*N 410 FOR I=0 TO 512 415 X(I)=N*I/512 420 Y(I)=SIN(Q*I/512) 430 NEXT I 440 REM Plot gra####### 570 REM 580 REM RTN TO ALLOW USER TO ENTER X COORD OF POINT 590 REM 600 ERASE_TEXT("TEXT",12) \ HTEXT(,12,(40-LEN(Q1$))/2,Q1$) 610 ERASE_TEXT("TEXT",14) \ HTEXT(F2$,14,1,Q2$) 620 ERASE_TEXT("TEXT",15) \ HTEXT(F3$,15,1,Q3$) 630 ERASE_TEXT("TEph and label axes 450 GRAPH(,,X(0),Y(0)) 455 LABEL('BOLD','time -->','amplitude') 460 RETURN 1000 DISPLAY_CLEAR 1010 END XT",16) \ HTEXT(F4$,16,1,Q4$) 640 ERASE_TEXT("TEXT",17) \ HTEXT(F5$,17,1,Q5$) 650 REM 660 PRINT " ENTER X COORDINATE ("+STR$(A3)+" TO "+STR$(A4)+")"; 670 INPUT A1 680 ERASE_TEXT("TEXT",20) \ REM DELETE ANY ERROR MESSAGE 690 MAP_TO_TEXT(A1,0,A8,A9) \ ALUES 60 NEXT J 65 REM THE ABOVE LOOP CALCULATES THE GIVEN FUNCTION WHICH MEETS THE CRITERIA 66 REM FOR DATA TO BEHAVE AS A CONTINUOUS FOURIER TRANSFORM DOES. 70 REGION('UPPER',1) 80 WINDOW("EXACT",1,-1000,128,+1000,1) 90 GRAPH(,,,R%(1),,,1) 100 REme in list. Repeat 220 REM until no more names remain in list - then store result. 230 FOR C=1 TO T 240 FOR D=C TO T 250 IF SEG$(A$(C),1,20)>SEG$(A$(D),1,20) THEN GO TO 350 260 NEXT D 270 L$(C)=A$(C) 280 NEXT C 290 REM Print final list of names 3GION("LOWER",2) 110 WINDOW("EXACT,-HLINES",1,-1000,128,1000,2) 120 GRAPH(,,,I%(1),,,2) 130 PRINT 'REAL AND IMAGINARY PARTS OF GIVEN FUNCTION' 140 PRINT 150 PRINT A$ \ INPUT S$ 160 FFT('FORWARD',128,R%(1),I%(1),S%) 170 FOR I=1 TO 128 175 REM NOW AP00 PRINT \ PRINT 310 PRINT "The names in order are:" 320 PRINT \ PRINT 330 FOR F=1 TO T \ PRINT L$(F) \ NEXT F 340 GO TO 380 350 REM routine for switching names 360 S$=A$(C) \ A$(C)=A$(D) \ A$(D)=S$ 370 GO TO 230 380 END PLY THE SCALE FACTOR 180 R1(I)=R%(I)*2^S% 190 I1(I)=I%(I)*2^S% 195 REM NOW SWAP HALVES OF ARRAY TO GET DATA INTO PROPER DISPLAY ORDER 200 IF I<65 THEN T(I+64)=R1(I) \ S1(I+64)=I1(I) 210 IF I>64 THEN T(I-64)=R1(I) \ S1(I-64)=I1(I) 220 NEXT I 230 DISPREM E-Z WAY TO CHECK FOR BAD COORDS ! 700 IF A1A4 THEN 710 \ GO TO 730 710 HTEXT("FLASHING",20,1," INPUT X COORD IS OUTSIDE SPECIFIED LIMITS! TRY AGAIN! ") 720 GO TO 660 730 A2=FNA(A1) 732 IF A%>0% THEN 740 \ REM OUT IF THIS IS THLAY_CLEAR 240 REGION("UPPER",1) 245 REM NOTE THAT FIRST HALF OF FFT DATA CORRESPONDS TO NEGATIVE FREQUENCY 246 REM RANGE 250 WINDOW("EXACT",-63,-64000,64,64000) 260 GRAPH('lines',,,T(1),,,1) 270 REGION('LOWER',2) 280 WINDOW("EXACT",-63,-64000,64,640E 2ND TIME 733 IF A1<49.1 THEN 810 \ REM OUT IF X IS LAR ENOUGH FROM THE EDGE 735 HTEXT("FLSH",20,1," 1ST X COORD TOO CLOSE TO THE RIGHT EDGE ") 736 GOTO 650 740 IF A1>X5 THEN 770 750 HTEXT("FLSH",20,1," THIS X COORD MUST BE LARGER THAN THE PREVIOUS O00,2) 290 GRAPH('lines',,,S1(1),,,2) 300 PRINT 'REAL AND IMAGINARY PARTS OF FFT OF GIVEN FUNCTION' 310 PRINT 320 PRINT A$ \ INPUT S$ 330 DISPLAY_CLEAR 340 POWER(128,R%(1),I%(1),P()) 350 FOR I=1 TO 128 355 REM NOW SCALE DATA AND TAKE SQR TO GET THENE") 760 GO TO 650 770 IF ABS(A1-X5)>.007 THEN 810 \ REM OUT IF POINTS ARE FAR ENOUGH APART 790 HTEXT("FSH",20,1," INPUT "+A$+" COORD IS TOO CLOSE TO PREVIOUS ONE. TRY AGAIN") 800 GO TO 650 810 RETURN 820 REM ## 830 REM ## RTN TO DEAL WITH YES/NO AN TRADITIONAL DEF. OF POWER 360 P(I)=SQR(P(I)*2^(2*S%)) 370 IF I<65 THEN T(I+64)=P(I) 380 IF I>64 THEN T(I-64)=P(I) 385 NEXT I 390 REGION("FULL",1) 400 WINDOW("EXACT",-63,0,64,150000,1) 410 GRAPH("SHADE",,,T(1),,,1) 420 PRINT "POWER SPECTRUM" 430 FSWERS 840 REM ## 850 A%=0% \ HTEXT(,20,1," PLEASE ANSWER YES OR NO ") 860 INPUT A$ 870 ERASE_TEXT("TEXT",18) 880 IF A$=SEG$("NO",1,LEN(A$)) THEN 910 \ REM OUT IF NO 890 IF A$<>SEG$("YES",1,LEN(A$)) THEN 920 \ REM MUST BE YES OR NO 900 A%=1% \ REMFT('REVERSE',128,R%(1),I%(1),S1%) 440 PRINT A$ \ INPUT S$ 450 FOR I=1 TO 128 455 REM NOTE DIVISION BY NUM. OF POINTS SINCE THIS IS A REVERSE TRANSFORM 460 R1(I)=R%(I)*2^(S%+S1%)/128 470 I1(I)=I%(I)*2^(S%+S1%)/128 480 NEXT I 490 DISPLAY_CLEAR 500 RE 1 FOR YES 910 RETURN 920 HTEXT("FLSHNG",18,1," PLEASE ANSWER YES OR NO") \ GO TO 850 930 REM ## 940 REM ## RTN TO QUERY USER ON POINT 950 REM ## 960 MAP_TO_TEXT(A1,A2,A1,A2) 970 PUT_SYMBOL("FLASHING,BOLD, CROSS",A1,A2) 980 HTEXT(,16,1," IS THIS WGION('UPPER',1) 510 WINDOW("EXACT",1,-1000,128,1000,1) 520 GRAPH(,,,R1(1),,,1) 530 REGION('LOWER',2) 540 WINDOW("EXACT",1,-1000,128,1000,2) 550 GRAPH(,,,I1(1),,,2) 560 PRINT 'REAL AND IMAGINARY PARTS OF REVERSE FFT OF FFT OF GIVEN FUNCTION' 570 PRINHERE YOU WANT IT ?") \ GOSUB 830 990 IF A%=1% THEN 1010 \ REM OUT IF CORRECT 1000 PUT_SYMBOL("INVISIBLE",A1,A2) \ GO TO 1030 \ REM ERASE & OUT IF BAD 1010 PUT_SYMBOL("CROSS",A1,A2) \ REM NORMAL CHAR FONT IF GOOD 1020 ERASE_TEXT("TEXT",16) \ REM ERASE YT 580 PRINT A$ \ INPUT S$ 590 DISPLAY_CLEAR ES-NO AREA 1030 RETURN 1040 REM RTN TO SET UP QUESTION AREA 1050 FOR I=11 TO 24 \ ERASE_TEXT("TEXT",I) \ NEXT I 1060 ROLL_AREA(21,24) 1070 WIDE_LINE("WIDE",12) \ REM HIGHLIGHT DEFINITION LINE 1080 MOVE_CURSOR(24,1) 1090 RETURN 1100 DISPLAY_CLEAR \ CHAR_MODE("-U,-B,-R,-F") 1110 END 10 REM Program ALPHA 20 REM Name sorting by alphabetical order 30 REM Create array to store unordered names 40 DIM A$(1000) 50 PRINT "Type names after the question mark, using the format:" \ PRINT 60 PRINT "Doe, J." \ PRINT 70 PRINT 'Type "end1 A$="Hit RETURN to proceed" 10 DIM T(128),S1(128),R%(128),I%(128),X%(128),P(128),R1(128),I1(128) 12 A1=600 \ N1=3 14 A2=200 \ N2=10 16 A3=300 \ N3=5 24 C1=2*PI*N1/128 26 C2=2*PI*N2/128 27 C3=2*PI*N3/128 29 DISPLAY_CLEAR 30 FOR J=0 TO 128 35 REM " as the last entry.' \ PRINT 80 REM Check for "end" 90 FOR B=1 TO 1000 100 LINPUT A$(B) 110 IF LEN(A$(B))<>3 THEN 160 \ A$="" \ REM Out if not 3 chars 120 FOR I=1 TO 3 \ A1$=SEG$(A$(B),I,I) 130 IF A1$>="a" THEN IF A1$<="z" THEN A1$=CHR$(ASC(A1$)-32HAVE BOTH SIN AND COS COMPONENTS TO SHOW RELATIONSHIP TO REAL AND 36 REM IMAGINARY COMPONENTS 40 R%(J)=A1*SIN((J-1)*C1)+A2*SIN((J-1)*C2)+A3*COS((J-1)*C3) 50 I%(J)=0 55 REM IMAGINARY COMPONENT IS TYPICALLY ZERO SINCE MOST DATA ARE NOT COMPLEX 56 REM V) 140 A$=A$+A1$ \ NEXT I 150 IF A$="END" THEN 180 \ REM Out if end 160 T=T+1 170 NEXT B 180 REM Create array for ordered names 190 DIM L$(1000) 200 REM Compare first name with next name in list, keep one 210 REM closest to A, and compare to next na10 R=1 \ C=2 20 DIM X(511),Y(511),I(9) 30 FOR I=0 TO 511 \ X(I)=LOG10(I+1) \ Y(I)=SIN(I*PI/50) \ NEXT I 40 GOSUB 100 50 ON R GOSUB 280,310,340,370,400,420,440 60 PRINT 'Return to menu'; \ INPUT N$ 70 IF POS('Yy',N$,1)>0 THEN 40 80 DISPLAY_CLEAR 90 STOP 100 REM ***DISPLAY-MENU SUBROUTINE****** 110 DISPLAY_CLEAR 120 ROLL_AREA(21,24) 130 HTEXT('BOLD',1,1,'[ ] GRAPH routine; S=SHADE, E=EXACT') 140 HTEXT('BOLD',2,1,'[ ] BARGRAPH routine; E=EXACT ') 150 HTEXT('BOLD',3,1,'[ ] DISPLAY_MODE routine; L=LONG, B=BRIGHT') 160 HTEXT('BOLD',4,1,'[ ] CHAR_MODE routine; B=BOLD,U=UNDER,R=REVERSE,F=FLASH') 170 HTEXT('BOLD',5,1,'[ ] TEXT_INIT') 180 HTEXT('BOLD',6,1,'[ ] DISPLAY_CLEAR') 190 HTEXT('BOLD',7,1,'[ ] GRAPH_INIT') 200 HTEXT('BOLD',15,1,'Move cursor to the row containing a graphic routine.') 210 HTEXT('BOLD',16,5,'If characters such as S and E are shown with the routine,') 220 HTEXT('BOLD',17,5,'use only those characters as terminating characters.') 230 HTEXT('BOLD',18,5,'Otherwise, type any letter as a terminating character.') 240 FIND_CURSOR(R,C,M$) 250 IF R>7 THEN PRINT 'WRONG ROW--TRY AGAIN' \ GO TO 240 260 RETURN 270 REM ******* END OF MENU SUBROUTINE ********** 280 IF POS('SsEe',M$,1)=0 THEN 460 290 GRAPH(M$,,X(0),Y(0)) 300 RETURN 310 IF POS('Ee',M$,1)=0 THEN 460 320 BARGRAPH(M$,10,X(0),Y(0),,25) 330 RETURN 340 IF POS('LlBb',M$,1)=0 THEN 460 350 DISPLAY_MODE(M$) 360 RETURN 370 IF POS('BbUuRrFf',M$,1)=0 THEN 460 380 CHAR_MODE(M$) 390 RETURN 400 TEXT_INIT 410 RETURN 420 DISPLAY_CLEAR 430 RETURN 440 GRAPH_INIT 450 RETURN 460 PRINT 'You typed an invalid terminating character' 470 RETURN 480 END