IMD 1.17: 21/02/2009 18:39:45 AS-H732B-BC MINIMINC/BASIC DEMO V1.2 RX01  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  <<H=;7twy:>A"CNAHH   @5  5|f@f |;a  aW,d`p % w$= d;ae; w6ZR0  % % r1  "Z0  0 ڇ@STARTSw 0 & 77 ׭Zd  $,U >U  :U2F22 A Epp  7 ?BOOT-F-I/O error vߋtȋ | xE  e p0pE E e B E  `e  ,7z3 d;``   7. ?BOOT-F-Memory error,04@<d:::G@@@@@@@";&;bJ:dJLJPJRJTJVJXJZJ\J^J<==4=E:;F??@AA  EE0F(GRG>fHHHB; ;;6;;BčBDEB @@@zz?BOOT-W-Invali d or missing TT.SYS MASTER DEMO DIGITAL DECRT11A  <@ `D fHT fHTHT  HT HTpHT% HL xHT xHT5 &}@HT__  Xz >n e  @B5 %z%d %Z7 }%Yz %d %\7 |m5lem Z7 ?BOOT-F-No swap file on volume 7p ?BOOT-F-No monitor file on volume  P72f@ RT-11SJ (S)V03B-00 ?BOOT-F-Insufficient memory 7 ?BOOT-F-Swap file is too small  e e |e T@yz hMz h z hdz hYzdz f dZz=hT :vh<u~vh R`; dGeZVD N4 >4 Ea a a* *e 5a ,0p`Rp`Tp]]5 vh2dv#hc vhc vhc vhc v hc v hc v hc v hc tv  h&C%ys%hysdh&CsSXvxevf ovhzvg1e}  {Lex  &k!  +  &\!  &j! r &g! K jO"jP"&h! &i! 6o &+(  R@  0(2  iT~v                     ABAD5 a C%!e e B V  B\E CP   D HUw4PBCDLCoD3@@@D:8   U H? $e,}==$ebZ U  Z e<_e,}e"  (:VlllllrrF6e<&  ( c    e2  ec 4 e&c 7 |e&,^% & h  7 z/2. -1 + 8 ^O100000 .WOR@ D INT - ..ENH DC .WORD ^O34P 0SYS::LQE:X : .WORD 0CQE:: .WORD 0h W@...Vp 2=0.IF NE MMGx $T...V2=...V2 +2..IF DF $SY SDV.GLOBL $RE LOC,$MPPHY,$GE TBYT,$PUTBYT,$ PUTWRD$RLPTR: : .WORD $RELOC $MPPTR:: .WOR D $MPPHY$GTBY T:: .WORD $GET BYT$PTBYT:: . WORD $PUTBYT$ PTWRD:: .WORD $PUTWRD.IFF$ RLPTR:: .WORD 0$MPPTR:: .WO RD 0$GTBYT:: !.WORD 0$PTBYT   jvj8| 7 z04x[u~# g dx dK( dP<2 d dytu~<z*lu~a*l dqA d Xh dj7 dZj& d8j dkj# dkjK d|*<< dd*J- dk*dF T` N*L22(&q q8HKr8HDz *`jRKjnKjr2Ljt#Njv-Kjx(-NjzNj|Kj~7hMjM*p62gj<2gj&F x<%e*:¾;"@ "ة""`*>'L*.'D*V"^*l"" g*l  <<H=;7twy:>A"CNw$=‚@STARTSw 0 & 77 r¾zƢ  7 ?BOOT-F-I/O error vߋtȋ | xE  e  <@ `D fHT fHTHT  HT HTpHT% HL xHT xHT5 &}@HT__  Xz >n e  @B5 %z%d %Z7 }%Yz %d %\7 |m5lem Z7 ?BOOT-F-No swap file on volume 7p ?BOOT-F-No monitor file on volume  P72 ?BOOT-F-Insufficient memory 7 ?BOOT-F-Swap file is too small  e e |e T"|4"O 8rH"0t!` K>'L .L 9 |&"F 2PW@fW@'<X.GLOBL` $INPTR.IIF Bh <> RTS %7.IpIF NB <> BR xINT:: JSR %5,@$INPTR .WORD ^C<*^O40>&^O340.ͥ*ͥ%  6.ee@a ȕ.a P  w/.W@K vK.IF NDF $SYSDV.ASECT. = 52.GLOBL END .WORD <7  n7 E..  2wwR k.Te ы wEND - STRT> .WORD .WORD .PSECT.IFF$SYDSZ == .PSECT SYSHND. ENDCSTRT::.ae.z  8 $. w=u  V7f.e e LMG,.7 0w:, F f .ÝeL aedw/ .8    d;ae; w6ZR0  % % r1  "Z0  0 ڇ$UB*  z E$ 'e`eC 5$w)E,+<5@9+5E z B׭Zd  $,U >U  :U2F22 A Epp)Y5Ke4  MH \ $0$$ 3lEw, 5 67 r ̋? p0pE E e B E  `e  ,7z3 d;``  ^ ? E)+7 w5k ?  tw\eBe0e@ @! c"   f ``U7. ?BOOT-F-Memory error,04@<d:::G@@@@@@@";&;bJ:dJLJPJRJTJVJXJZJ\J^J<==4=E:;F??@AA(? & ʋ5(ŀaz  7 ( 鈷h fW@CU6(F f EE0F(GRG>fHHHB; ;;6;;BčBDEB @@@zz?BOOT-W-Invali7f W@f x7C5'%@&^7weC ˕ ˤ &툀鈷ewZWd or missing TT.SYSfeͥ( 77777 w.(*$ `Ce EfE%  ҋҋG #ʵ@ e`a%A 7  w& ee> & g  j"E e%  78?KMON-F-Overlay read error 5A K ) +U@\& l 7 fe ?KMON-F-Fatal halt鈇  3 Ez %z ͋ ( B d  5$f >,( ""@"5@f@ RT-11SJ (S)V03B-00 7  e|  %@AefFuu  ( T X \E $ H .5 !? 2" cef  & dG F  `$) `e0e05h+DbAb?`+7`v (e < ee0!!2+5?`V+7`@ f`%Ԃ  f W +,e( (wv'@7$e '  I 6ww% ? ! dGeZVD N4 >4 Ea a a* *e 5a ,0p`Rp`Tp]]5 `A!> 5CT, " '$$@$h&%&,r--&*b- `a `7```& TG C AHH   @5  5|f@f |;a  aW,d`p % `w$  @ ? "? $,3 N |EP$El*7 +7 X 3 3 3 3 35B*3 3 e 5  ͇  @  7w r`wawLͥ  ͥ 8 $ w=u  V7fe e LMG,7 0w:& f ,e $&EΔNIQ%Ό%@ 2EQU E`H#HeeNb,e(+ͥ,ͥ 7,7xwre7_77 ͥ/I7PNO<e p SW 0e' & Fe'w e ^!#" R L'((U  EE B#B ԁ`C  emDHa ҋ 3EfE%  ҋʵ@Aw ` ف E6%^CC^!C%גע! C!$ @@   #mE 77P|  | v  phœ  ¥  aefbL= K3 aezН/P h 0˵   W: e^e0 `? # C! פ ר- 3@ _7 , @-•:) N N Zͥ-,B 4 H•.˵  B  ֆ 2ae  0& n. J 4U|" $- # 3c     H7C  Oͥ: ͥ- ]eЕ[ P ͥ. ww7?Mͥ:  f 7 ,&5"&E faWW"<7 !e,e0!$!  77e eRe ͥ:  77!&@ E &Ex! 7 g7z~ ? Xfv!  vX! e~ 2eef ,e  f&e j ppU%p- D @&c%Lbtt&b%0c0jW" e0e0# 5 o%% E P4H@ppͥ:!fefe * nee( ~Е Pee  `ͥ[R  ͥ- `  xK5$e2 "J   I$QIeU@W@aD g z R ͥ]R Еrnv e aew*W Е:ͥ: ( ͥ.* wJaWw w eD w4 el ! s @r  wJ|D\f`|dP|D.  @ʕ*  #ͥ.P J  v%* @.*8eAbw   Da(D`D` Rvpbdͥ,͋jg,   @P  .ͥ*ͥ%  ee@a ȕa P E  7 7| lwr  wa PO e @e`  e ! w7  n7 E  2wwR e ы wae  SSTIN   DID IN RE LIC X DEBN!!  N! 6 N! *ͥ/͜AN wwJwͥ) ͥ, ͥ ͥ+͋f 5  H(e   2 : W ͋ w V P @CONTNSUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU MfeBfeX, e_ l_? `BaJa$T@\Z^X`b FJ VT<U "V  \0p^Xr2\ 2" eJe" aa C @ @, F f ÝeL aedw/   @RESORCPIPDIRDUPLINKBASICFORTRAMACURODUMPLIBRSRCCOMFILEXF4PDICOMPFOCALAPL     m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[m[Um[m[LB:  zP\zb.\Pr^v DK:DK:SY:.SYS.LUST.BOTkQ\wwwz `        x g l~[WWQUY QOGAB I Pb M P SCTYUI STUN  w E w   ~  u%:TT:PL:KDTDOFrom? To ? File? Files? Device? Device or  LF FB BENc CC!SC"S P#A$ODc%Dc&Jc'K(MUST )K*F+V,Q-R.G file? File 1? File 2? Library? Files ? File ? Physical device name? Logical device name? AW[ 0w ]` w\ͥ:[ mhB ¥]ww RE P IA BW:'''f!+-e!@3`-|13/#!+3+/-%-#+/E/+/// /5---- ''3RCODE DIDE  I P P   S  N SSBD ODTIAL B  B FF P TT LI ERECO  RESLC BSA RE SS GDE FO  AB DIFO OS   OSAL ODS BEFB  F    D BE @ vAe  $? WWW B ab 2.` "6w? ? F@w H !7w #  eH (a(fECew EN  d FEUw 5@!eBB ` ? 0wElme& ,NSS t_L cw U 7   7 7 w w Dw?  w -7 w  Q$ 7 &w 8w  Be$B  wdQ$mw    &  \7 Zw <& 7 ^ w @%.@% @#eee%7` 7 x   e# ' w~7f@Ŋ5$ߋr7 x:$* @5@+> עGE:5$E ӋEK]w  ۇf: N LW 1vELW! 5 `1   P$ & w U@UӋˋ5Q E %=%< D  "% % 5(ŀ   . \  T5!f w Zd $PPw Nw Dw 2 w 2  rw E׭9Q *"CИBw( @'  7 e  O  $  N&W2 Z 7 H3zN  Q f *8,QF7 2#@SD Og,e r77  : `97Device full D ,   &` 7File not found W,W= ,0*5 # #e`#w d %    `C KSdKU b$`C͋X7xIllegal commandͥ/N : U@ Rͥ.   6 7Illegal deviceE($U@ ?MON-F-Illegal call to USRNo deviceDirectory I/O errorBad FetchOverlay errorDirectory overflowIllegalg, _#" ^ ? B 7 T 63 f7 Kaes S w ^  addressIllegal channelIllegal EMTTrap to 4Trap to 10FP trapMemory errorStack overflowSystem write error@T^r| 5Sw 6I3W2Wl Ew C $ A!EE P &EΒE? *# ?0$D DeC B`  ew> w2  xK5$ew D%7 Еȕ e 0HJE & &:&& >0ee?  "   I$QIeU@ @FD$CeK    baba& Nw  U<whw &fmw   E ŧ8ŭ^ f eg: BBE/aw Dw "Ba5lafw nCRC!  BC 5aW &*V Q!Ed(A W   x|`Be 7pEen5d3 w w @w w B xPPP  UUH 7 j (  f  x7 ? x@r <  J D P T w7 ? r *5 "@fFe)U%Me u#e 7 @@@xAxAxAA*GprtvF<?30*  Z^:$;:zz dI D \$.E@% * " @w `@Ew   D eEE e NQ@N  7RDť+;  feA A &$ h4 u# W%*L E  ?~#  4% 4  .?R $ ̗/  am*aglFFj~  FFFFFFFFFF FXU  ? @% fNe p L&LE 0f& (xr7 j & e   D   &7    7 ĥ  *U$5$Cw `f 2W:  eJW.  $  $  7%%**09AZaz&   Nl &@E\?5@$azE e  `SJu         rɥ 8W# b e &N W-e E  C0Π a `  6 u# > 5$ X 4     w  5$   zE 7L?MON-F-System read failure halt   < X $7 7 @ * " JĔ Ĕ &f&I e`  &e@^w:3 w8e,͋(W    Ce<%R V `H͋*p5E D w7 F&F&   &7&  TT L  e  eH w t n `””#e,e V5 2r2"e6 ͋*W  4Lf ` & N & < V%&f&  U$E$w wZ $ & Ĕ!6S͋2 eA ĒB `A `, eA p`7 Z<@&7 L<  ": -t7 leF7 7 7 e&:;J&\ L%J $  G@'( EM( U%| % ee/ e0w`  A @  -Jan-Feb-Mar-Apr-May-Jun-Jul-Aug-Sep-Oct-Nov-Dec- (r w 5(wB  e : L$   (  wߋ$ۀ:<:<.< e(,e(Ċ͋#! C͋ͥ ͥ,u W- !k$,1!"c  te w E % * * e> 'C& eK# c# w 4mc @CB " sV f/ND`? # e(e & / & &$ &   & bww :Hb` Hh$OQ7"M e w E  BC.e - ef T f % w͋\  ,ep*Eg,ed eE   W -4     %     &DDeed$  x 7& &+3O& ㈅ e W!·  b?   `? . ߋ*ww?7$ebZ U }w ~ Xw }w  <e. ~ P 7 I G4 6  Z e<_e,}e"  (fJJ4JJJJJJJJJJJ`JB^I&(7n a e,ew8  2 w: ߋ*ww ? W,͋w4  "JeJ H jf, " W-~;7 4D)  !D', Q$W ',$)  a E 6Q$E , `6`? W,͋wwZ h  llegal value on optionError in file specToo many filesCommand file nesting too deepCommand file not at end of lineNo dateIllegal dateIllegal timeNo clockParametersMust 'R BATCH', type '/U'No roomAlready installed/assignedNo handler file on SY:www wF }w  F " V" SP  F &m eg zHandler file I/O errorConflicting SYSGEN optionsDevice loaded or not removableAddressLogical name not foundNo roomCommand3 ?  & &+e_,00#`0.n 0 |d? ͋/W,w2w < 6: 0Q *hB[e e ee@  b  }w  " "zL" I" F"  l  %z #0 `,,,#  * e .2  ! 1 1 $? ͋W,w" 0&" e#e"  ͋WEn E ͋ ͥ-H ͋DA e B @ @ ց ,e:E: e" Ad  @b <J$H7 : n"Je" zzW0 ? " &    @eEW=͋P,e( , <  Z W,wDW ͋ 0, " eE&Ne@@ONU T : b$C;$"A 2 $ 7 .=E@ 8@!"W. B` O e   5 7n :EBc XO eP @ 7 ,-  & &wwbw,E]Yzd m`" Gwd \d4 E(P$  e鈇 ae ,e^" &4   J D e& w W  e e @aew?KMON-F-?KMON-W-Line too longIllegal continuationAmbiguous commandIllegal commandFile not fo%W  }' '* 4 X:#"""" wYundNot enough memorySystem I/O errorNo fileSave file I/O errorIllegal deviceBad fetchIllegal device for command fileIllegal option for programIllegal optionConflicting optionsAmbiguous optionIllegal NO on optionCommand string too complicatedI   w@e` "    t  eV  V Pe,͋E EXOww b4 Pw wr {  u  h `  GP W DEA`NAL  OGBGI`R T@LMS CmFmO SUVGM RwNw H DwR Jw   u    !SOWW @L GP   HEHD@C A DEA`NOGIGwww ` @ : 3 g *RGWWQYCTNw  w u  , =   P7 z   <7  www Y u  M EI@R@ Z W S L@ M@B@T@E@U@Y/   W"zW"  B 2e   7 eweP % b w < wb "feHB¥[L <e ы e wRUN %e ee e  e鈁(@      ee!  ͥ:fe wͥ:w g #  Y  " "" AK   7A""##DG`/RU w $  Jw, 0 @•Mw  ɕ • oe- @& 8w`"  * VC! ׭! fw&W@E  weŠeɥ׭w@fe| e*7  X5 Lwfߋ* vw &ʋU f? ``?  N!%7    u    !SOWW@LGP HEHD@CADEA`NOG5 $ W  p͋ g eJEwwHEXMALILIN DR  FIGB`RTMS CmFmOMh P!"#$%&'(HNUVGM !"#$%&'( .w*7vF W S  LSBOEXRBOAL P O  D RE LIMARE w x~t ^w*7 0f,[ ^@e8@ J7  w/RU "@ ee@` wd7|w~5$' Z͋!ͥ .ezD ͥ  P=Е 6    >  @ ̟Ԋ  ?N? UFAw le7R mJ waF 7D w : \V " 7"w 6ww ewBC e wW"6@  @"? r7 hw 7 `  m  &`  B    2 Xw 4w Fw -w c w z wbwR Initialization is complete; found Bad blocks @m7  17 Vw w e N  l w P* fe`ee # e7cE `7!^wL ReA# # #eHN6 v&fe>B @& fE@ B  x_ _ t_ ~_  _  8_    7 l >͋ww* P &B w~7uŝ ԋZXwVDT  `F><< C_  _  ,eee(  " r & & * ? pDɕe f`B   &7  l G ͋w^  T WWw 7 v   H  8 e z & ˇ/ 5zBɋwVB `ыB ɋɋB  ee  w %w .  Bw    4 ? w R AeB`w >^ * w *eAew ZLw& DЋЋЋe 7AI ww @` \f B`w   t  BP  SY1 owner is: SY1 volume id is: @@   @ A  @ A @ A @ A wn  7   w @ eߥ*wZ w\ e J    e0U %  Օ0N UUU  m  w@ 8 720 (   E>w!ww~ f w  n%   wd BwB@`7  wd w y%ߋ*wL  flD `X fT. L B e7:  #t  N aa&  $ 8@m47 RF@ M-w w e  7`  B 4  www 2zw *= P  6 ׭!7 w7.e >&ew 2@UwHardSoftBad Blocks Type Filename Rel Blk ?DUP-I-No bad blocks foundThere were no bad blocks found *5P $  !@w w @w w @ P  ` sw v   ? j B户wr F׭B 08-*,7Aww 7 w w:  Z Tp w Xe e Jw:-,ba%"w w 7 w f ѭы @Nw 7> e7 .%.@ f  e e1,w  De 7B5-rm&m% *`mt ~@zN  &ew eeDECRT11A6 V ȭew 0 `@ `  `C``B7V%Zw e 8% *$ $4 @w w tw L7  ׭ww27%B@ wU@$U$TA Nw \iADeh 6fw w, w 6 4ww $7 wDo you want to duplicate another volume (Y or N)?Re-install system vow w BZw <ԕ E$E@$ & & ȋ  5w  tRT11lume in SY0, and then press RETURNInstall volume to be duplicated in SY0; install initialized, empty volume in SY1,Are you reaA ߋtv ?BOOT-F-No boot on volume Type new Volume id:Type new owner name:dy (Y or N)?7 |7 v Le 0 4  %rwJ4e, &  w .5B ~np`w` 6 wJ7 T m7: w@n7 7  & Ε,e  ĥ%,_hjXX ɥɥ  0 0   ww w - w fw  Hc 5w  w : : w :  &w : ; w ; w x`V fK$ 6 0   0   C   wDU%&g鈀?EDITOR-&:鈀&@鈀[?8l[?8h ( (@ɋ (;B Rw B@ @ @`w &@`    0W  x 7 Z azf &g鈀  0 9 f e 0`[H[24B#5[132C[6n[ ɋ ; f R &B 7:7 7/, 7$--3 $ -FE  D@  Please enterTw f& e    8! ' z 7   !Pp V!M    7 *woday's date: Current time: Incorrect date, correct format is dd-mmm-yy Incorrect time, correct format is hh:mm:ss JAN-FE7 |+wx !g  *'V Z7 7 7 7 7 07 +B-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-<u~% DATE TIME  ^ x w&7   n7 $$7  6  *5 *  U@E@ 7 (DATE TIME 7 7 7 7 07  7 80+ 4$ B : 7 *7  $wv4/,eU b7 \Tfn` 76 0 *&-U 7 U@$ ? PQRSw t, qp n MAV B CDn p <[m=[?1l>[H[J[24B [K[H[K[B[K[H< w$U ~ w @ (0(B[?6h[?6l[24B[24A[6nf  e 6A &  h7 7 0,B ` E`w > d  &&7   0 9  7 * w  w w  ~@  w hw `w. X    n j ,&7 (u-@ J : m      2  7 @j[r7 ,~CD \ T   p   \w TwR7 q 4 Q+ J(0   鈀  &^e@W X ҇7 17   W  W W W   鈰 wO 7 D7  beicd V-  L  6-j  X `  Bɋ@ & BW  @     5 E U w A Zaz < ы  j  W X    < @ $ ~ @   5 |v@    `W-Abort edit session losing all edits (Y,N) ?f f b  q鈷 Nw Lq7 47 2 @    5  6 tU `5    Au u @ d 0< WORKING... ~rO[u   @ H   5  @         P5 W    !DE . ن '  \\ Al  e X\ ^& X0 ~$ e@  & (f # & (= @ * u-e&u (@5 * E^ X5! z X @@a}Z&@l@mz Z5 \5l ^ u-^  X u-^XCa Baf c   f&& \B\Al`N W0 ѥ   %  N /u-^vNx#f& @  xu^v  01R j b x 5 X&@^5 v xu^vx $ 2;  $H  &  & &dd &1 %0  Ee/  "2BRbr#3CScs$4DTdt%5EUeu&6FVfv'7GWgw(8HXhx)  z x  p7 P7 4Z+ & 7 g^  wRf&9IYiy*:JZjz& R ([  ,; @ H  fW B ?dd duz u & 5^5 jfN NmNbu`@d7 @^@  A 7 @a v 7 u| u~    S S  m Az7 Hueu .f`DAbu- DA`u A fAb @fd @^ Ba j 7 Xu`fu-kZs{(0a(B(0d(B(0`(B(0i(B(0c`/ DAf W  ^ʋ  lX@ u^h V@^ 56 ʇuh^ҋKA^7 zN (B[K[[J M[H[J &A` u  W W   u`u @  䂁 u`A7 f+w f&&!R=eu eAa@$  u^D%5 ^  Ba@m7 4z `R@  ``B    f w! 7 |+w7 w5 5uu="  $5 ,Ca #7 +w7 v 7 DfAAu- Am lual j 5 v \`Ntunu|p 8un^Bp u-  X %55 5 u5 5 5 @ 5   R L W-" > 8 W b =rj 5!DfC $ \ p X X5!t uru^np zu|p N ~نf  V * N@  *u- } @ @ *u- } @ N * "0  Y \ Y  @, ppp 0  uABAm"Ru u"u-5B B @, p00 `7 .7 &.?& -* &t*鈀t* @, pp0  eE `uu 7 y,w7 ݐ,w7 ݪ,w"&U $ , 2UPJՇEPBՇF-Incorrect screen sizEU  ,5fnۀ 7 , . 숁  w / eF-Unable to size screenF-Insufficient memoryF-Incorrect screen size, type CRModel: W-File exitF-Bad call to .VVV.VF-Ba*     `C !ee!m@a7 @,0 툀''&) d impure area pointerF-SETUP- Allocation errorF-SPCFRE- Logic error, character count wrongF-RDFWD- No space to readF-RDFWD- u-e&u (u @   :   "@  &   8 ' ' :6 t6 *Aa @,p7 ., '7 @,' fN%$ u- 7 NAA u "  lfN %$ 7 AA u " & fN  7 , c W  'N7' J''$$$$@,7 AA A"u $ @ 7 / +@@@ A A @AAAmAA 5 (u&( ' 7 hJ' d+@,'p  @ '' 7 &'7 5'  @7 -7 Q-A 5`&u (u`(5 &5 (7 `+w  7 87 P7 4 0wNW- I/O error; check diskette driW-Limited space for insertions (only XXXXX blocks)W-Continue (Y or N)?W-Output file name is already in use do you want to eves and message manual Continue (Y or N)?7 AA u "au- JAu  \BB"5RRu AA" .@,rase its current contents (Y or N)?7 Hp pp 0  um u"AB5  @m u @ŀ" R  u u 5  ,f,; ,4t@,(-B@,0  (eE  7 ى-7 -7 +w7 +w7  u Au u A A;BB 0BB "3BB"  *@,7 |-DIGITAL7  B  H7 4 (  de0  נ0ѕ  ѐ 'd  pp 0  u ABA"bu um"7 @,w`7 6',wV7 ,A,wL7 AA u "4 /Au   l & ZۀYy7 &'B'$$$$Be @,p   BBm"5bbu  @,Hppp 0  um"u7 Z,w7 AAmBnBmCC 1   @,'A@,'0 6D B  B BE@,p00  "wXz?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789fromin routine "" line ?Err  (PC= j& eN t RD \RD D^ & eN t  RDZ0~&$3R3~3D3Z e &S3`D Z~^\ f B % % e@ ( B`  ` A@^   A ^”E eBCIE `-    D E A@D D  e0bb %- ҕ* V  Z ZU   U tp`5 huj( 0 "&(f &  55& "  r@E dt63 Dt~ t~3 r3 p3 X 3\wpointer corruptF-WRFWD- Block overrunF-WRFWD- Bad block numberF-WRFWD- Not enough dataF-RDBKW- No space to read intoF-WRBKW & (!k7E&^&E &8&!Pe" stsuv- Block overrunF-WRBKW- Bad block numberF-WRBKW- Plygnd not emptyF-Illegal command lineF-Cannot find input file on specifiedx3 s !2 <5 #r"e! ePe"Pj3h3|3z U $ fu!\+ or default volumeF-Output volume has maximum number of files or no free blocksF-No output volume space large enough to EDI in?Err 59 USR not locked?Err 62 FORTRAN start fail Lf&AE@ p B`"ʊ @ҋput fileF-Cannot proceed; owner is 'DIGITAL' for output volumeF-Non directory device illegal for outputF-Unable to check volu R F L΋ ++T  wF me ownerF-Unable to trim output fileF-I/O Error while trimming outputz|   ? DW=W? A @ @)鈇&  e:   낃 (   3 E`E& N U%@ 4A65B66C673512500f& $  J"Kv v&f&  D R%RNN @ 3`"  ,     J\f&̋ TT 5 Eť1 ť+ť$ 3 Tť0 H̋  <̋s  Ş@œH @: & %NR W w   D >& & EF   &{s @ s ツ̋m 54 w> 0 2 4 + f3! w f 6 w hDR%% $J J N ꇁ   Е `CBД  S ,f$ f 2nH5$ 2 STOP -- %c s ыD @` ,NT5@5#E 5m5 s e e3d & 35 5   Xf& f35ҕ   mU v28 @UfABΥ D%# ы nȋ~ 5*4& 54- ` pt^ r&朢d `   5Cʋ ɋR  ֥ @DB  "R  D f  Հ e  @a3 s 5@ @ 3@3 r3 p3!  #p   3 3 C b @` ` Z@9/ $#.-& f ffffU*@ e @@@ @Ћ @& ͥ&4 4-45@E4   ^&vC j5ENffU*@ e@鈇CABåDR  åɋݕRCABы åݕ ѕ Ue  & 4-2 . & &v    E5@ߋ*3 p7 R /7x xV & l d `J fJw@ <7 6 4. &  B r 5U3 rpwv   ;3  ,FF3 F V {` `3 V  Ý   @0    ~ @"" a  z   7$      e xd  VRgVv `b Xw b3 Tl ,FFBFFx R p  3hAsd T `  N  ZT `Q ||| 1164 122316 131 10514157553=6DMB ";  C  @ B   D \w :V& D D ( 3 V3  120212223?63242526-4527312829$36,44 32!33"34%37&38'39(40)41#3530*42.46+43149/47048@6 3 F  `P B3 \ ~@  rEx H3I \sJ FsL% 8sN DL׬I( &    (n)f  ^X0 RZ  -@^ J.2d 7( "-  * HELP-F-Error in reading Help file' HELP-F-Default Help file has bad format) HELP-W-Default system Help file not found-1- 3J5 4-w6J^ t w:mj D7 t HELP-F-Error opening user-supplied Help file $No help for topic c0jNH h7 ->J~  lwAbC Xt "e7F D:&e e7*  "crFm 7  wEeHwJ - J h wNwx wo 3sS333J3Ԁ Pfe h  zD 7>t h2 7>d VuUNx BZ d7w .V "7 &   ~ 7  H]- _J | `-bJ XL c-eJ1 ( ~R gp lSld 7\ T TwoDD  4:w,w eqŸ     @t 7 -w  -xV l   f&f&  e `e& e eB N"Q$B(< U& * u @ 3 PAL&eW!N '& f@! t# B   ` ׮PU ׮PU, U1 0 555U U& &3 @&&5¥.  , &@ #& 5ff@ & 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!   UP$+ @YyNn +Tw+& Ε,e _If the diskette is new, the message "?DIR-F-Illegal directory" appears.If any files are present on the diskette in drive 1, they will be erased.Proceed (Y or N) ?Place a new, blank diskette in drive 1.Type Y or N followed by RETURNThe initialization procedure is now beginning.EP U  d intednext, then your duplication failed, so re-try withthe other distribution diskette and then call the DigitalProduct Service Center.xUP$ @YyNn zwFwType Y or N followed by RETURNDo you want to duplicate another volume (Y or N) ?Remove the distribution diskette from drive 0 and store it safely.Remove the system diskette from drive 1 and label it.Then place it in drive 0 and restart using the reset switch.FThe duplication operation is now complete.Verification of the duplication is now beginning.`>k>?9s>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 pr  te" indicatesa successful operation. If any other message is printedthen you should repeat the entire duplication operation witha different new diskette in drive 1.23_K2The verification operation is now complete.The message "?DUP-I-No bad blocks found" indicates thatthere were no errors in the duplication operation.If a table of filenames and bad blocks was printed thenyou should repeat the entire duplication operation with a different new diskette in drive 1. The initialization procedure will begin as soon as the next two questions are answered. It will then take several m*inutes. The first question requests the volume identifier which is simply any name you wish to assign to the diskette. The second question requests the owner name. This may be your name or any other name except "DIGITAL" which is a reserved name.,-X,The formatting operation is now beginning.The message "?FORMAT-I-Formatting comple! R ATCYN3 @STARTS  @DATTIM R Q4SZMX ALL  SET TT SCOPE SET USR NOSWAP SET ERROR NONE R ATCYND !Ask if you wish to copy DIR/EXCLUDE/VOL SY1:(*.SAV,*.SYS,*.COM) R ATCUP$An @YyN nww`YN2 !Explain any messages from above. R ATCYN9 !Announce start of initialization. INIT/BAD/NOQ/VOL SY1: ^C R ATCYN5 !Announc @YyN nwwEP$Type a Y or N followed by RETURN.Place a nee start of duplication. COPY/SYS/NOLOG *.SYS SY1:*.* COPY/NOLOG CONTNS.MNC SY1:*.COM COPY/NOLOG (Q4SZMX,DIR,MEDIT,MUTIL,MTITLw diskette in drive 1.Is the new diskette in drive 1 (Y or N) ?MiniMINC Demonstration Distribution DisketteThis diskette can E).SAV SY1: COPY/NOLOG HELP.SAV SY1: COPY/NOLOG STARTS.PD SY1:STARTS.COM COPY/NOLOG DATTIM.* SY1: COPY/NOLOG *.BAS SY1: COPonly be duplicated, not used.Do you wish to duplicate this diskette (Y or N) ?wRemove distribution diskette from drY/NOLOG EDITOR.* SY1: COPY/BOOT SY1:PDMNSJ.SYS SY1: R ATCYN6 !Announce the verify pass. DIR/BAD/FILES SY1: R ATCYN7 !Wrap itive 0 and store it safely. up. SET USR NOSWAP SET TT SCOPE INS SP LOAD SP INS LP SET LP NOFRMF SET LP LC SET LP NOFORM0 ASS PD1 HLP R MTITLE R DATTIM" > wwp w 8e N   w l eee # e7lcE `7!w e&fe>B @& fE@@ B @ @@M_ B_ $_ _  B_  _ A# #p #e6 v N&fH @`" B ,%w& 7 . _  _  _ B_ B,e`eTeN( "2. & t&   &B o D e 7 , ͋w w>   : B w7 ŝ ԋn l wj D ` ? ɕe & tp& ˇ/ 5&ɋw*B `ыB ɋɋB  h  zZ R P P C hf`B   : 7 0   W ͋wn  d WWw 7 v  ew Qw&E B?7(w0-!< #HЋI    ee   fw %w f > - 6 . w w0  w%%VOЋЋe 7ZAIN @ 7  w @` R f ~w 7  ww *(    w   wf Dw P Е= n AeB`w 86w . Е=eAeB`w :t  w ߥ*w w em>fm."m"7 Be 4  BP   @: Ie 8 ( . $ F   (  (  ,  &  7  B! f  X   E>w!w@w8  w b %   w w@ ؁ 5 www@ ɋwe  @  @ A  @ A @ A @ A    e0U % `7  w w  %  b aa&  8 F@mB7 `T@ M-w\ w ,e  7`  7`D   T  w  @e E7w   " w w   !7e7b mZ waV 7T w :J fw" 7.w Bwwew BC e wW"4@  @"? ~7 tw 7 l  m  `&`  N z  8 2 hw 8w Vw 8wD ( @m67 VN .*17 # =L P$  6 ׭!7J w7.737 ( '7 &ing directoryBad directory blockIllegal commandInsufficient memoryError reading directoryError in system areaDirectory not  & w~ V!( e@W [eW $e c    "7 x  zeroedDevice fullRead errorWrite errorDirectory fullCannot write SY: while FG loadedIllegal deviceDevice not activeIlle>7,5/Ep 5wDw   Fz5gal directoryIllegal contiguous fileToo many bad blocksIllegal optionCannot /s sy: if indirect file openUnmarked bad blockmf A N  %  ѥ YnMw>w? +File not foundInput truncated at six charactersInput truncated at ten charactersInput truncated at twelve charactersDevice i '$t X  00ȕ @ \ pPw *8n useNo RT-11 vol idFile existsOutput device not specified; DK: is defaultNo swap file on boot volume, ZNRBVK%@ KrGo%@%@<7 9 65; (4$ #  %@w.~7 xHFSICTUOYLXWV( ~vn $  `X7 t7 L<X7 2 ~  D ,p t   %: X!}5*p   wh0 wj wVewPewJewDew><}; z@:&f&f~  f NPxȋ ȝp0 &De"$& &e\7 e" #" #" L 52ww &w 6?K ѭы @gw 7 e7Hv% p , v?<9630-*'+$:![j| < w:\@ D 6 e e| j$ ?  "w ͋w>w> Օ0N UUU  m r w: 2r 7,* "| w|    x^鈀+wf@鈅 are you sure?/Init/Copy/Squeeze/Vol id changeForeground job fl `X fT L B e7: p #w8wFw vw loaded,continue?Insert system disc,Are you ready? Owner name Vol id? DUP V03.04C ?DUP-F-?DUP-W-RebootError writ$  ?0a pw?ahmb?^  %   b > wmt($` - \w 6le e ^wwba%>w w t6$\`1,w4  ew4Dw`m7  A w   " w 8 ` r` vV & w*D $ F w    dww ~-Jf xrRjh" ww^ w@ w  " wd   R w @ 2   wB Ȃ     n ww` 7D ew  RT11̕AeeDECRT11A #  ȭew Rw ^-w  ^" FD *[B&B\T7 N   Օ w 7 ^ X׭8w.wrwVw "h wV  h w 2w wUU  % B՝՝՝%Օ.e  @ 0 7 Bw w  w  $e!ԕD%B1 3)w w |% 7 w Z t~w ~XHardSoftBad Blocks Type Filename Rel Blk ?DUP-I-No bad blocks found 2 |w yw |~   &t  'w vw <w 6w 0Xw X4w w w w w w7z%l@ 8w @ e w& w wA +U@$U$DNA 8w 8ADe6N w 1E$E@$e R& & zȋ  5w S 2VOL1RT11A HDR1ZEROED.ZZZ RT11A 00010000000100 00000 00000 000000DECRT11AEOF1DRT11A ߋtv ?BOOT-F-No boot on volume  Hw Nw = %CR%T1fw 67ze7p w p=e #mV Hw jw HN mD |7!?N B@e->5a  ~?a* wpw * w b#Y7-(wdw B= & xRe N:ew $0@ $  !@w T:w Lw tw LD d:w02m07 vw ! * % -?a 66@w hw Z:@ P  ` sw 68  ? ~ 户n h %  W @   [& , 7 x0    -& U%U%@M  CD5DSELw Pw Jw Dx @ J5 8  eW ZAB CD@GIK $5 !    -{∇&  2w \ +  z fMN(O PQRp@STUHWXY   @    eW!]w F w @ Z  F f&m &De 7Bwf-m&m% 8`m @ *`@ `  nC``B7r%Mvw e T% 8@ "@4 @w w z6tw $ fnw\w Lw 9w L_ , 6-2((  & e7p -w Bx7 v7 'F+U oCP2w_ZPIP V06.01 deleted:copied/e 0 4  %nw$ex r N@n7 d7 ^\ 4P& Ε,edeleted:renamed:copied: Files to ? ?PIP-F-Check sum error Device full Device in use Error reading directoryLibrary f  ĥ%,_hjXX w  >Yzdz-@,ile not copied Too many output filesFile not found Illegal output file File sequence number not foundIllegal deviceIllegalw"w"5w5w 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 Output file full RebootSystem errorUse DIRL $(2FPZdxW  <6      w h 7rZ @& e W x&        7, &f   Z F 7 7 0 4   0  $j  ׭ w7 ׭ ׭w 2 ww (  * w  + @ ׭$ w r f pVw R 2e - | ^ =@ : &f   w  w  w w "w $  @ w $7 d p& L Pw Vf  7 N  w w jw   ,] ewe t7 nw  77  T!0 & e $g,fE  *  4 0 @ `$ ^@&  5  ree  @  r`be\bj R0 &  7` ߋ* p& RRRR  : w47 P 7 " J pw J   | z V ew w ww  v @`7x@E  w ` F. @`7H <W,*ъ  )@ ('f !f P%P%P% 7 @ ` /~@ .? hfwwm @7` Z  (w w   ww  'V! ׭8e  ee w  eee f   jf<W4 T w f L   w Bw <w 6w "5Z R׭  l  ׭ ]n]je x ]w  ˇ7&] ]eX]^e-wNW#% > f v ww  8 ee | 7 47 *7 *   eZ  e0??  e   G`5C5;ff \ (     LZ  4 w   v]| v $ l ee fee    w- Uw b U  w- bUe emH  &Z  p p *W  B w׭    .  -Z 1 .  ]"    ^xw w ,eW!we 5  ewf    "  鈇PPPPEL]RE 55 @ | -~Z BW- RRRReml   hg  ; e 6 xw `7` ?w p w e 07 7'fZ n  w#@SS%> <& f& 2DT  ' r     FW-   x6  wwe Re#@SZ &f & R V@!   \B7 ^0 :' 0 W- @ W w X2w R4׭ 5 p0 wf& A ww ߋ*F  5 W l+͋+*@E@E f #5  f&  ·w  w    W#EOW#HDj 5ZJ 7 F5  Dj뗢.ʕ%/ҕ*ҋ  鈅 bw Xw w H-@ w 8w *-"w  X (W#EOw 5 pߋ*  -(w lwtDee fe rp0 f&,e$e0 p0 ͋   Nw .چew e w|&  =$PWW*  d׭ U%@.-N  :e e    c ` ׭$ w Nf&&  PW#w 2ߋ* wF5 p0 @ 6 wI&  D ! !e  ! &ҕ:  ҕ ҕ @f( @ %ee0f6e.    W.W: B ѕ ɕ&fe>B @& fE@G$ B G$G3G5GEGFgMgQgUgYzg\x鈇'& %Y&f   Cנ/D נ/ נ.!  f  g_odokoloqowa|~|||u|L||&_ G_ JH_  z;b r7f&  r-T0 "  N   7 ^@ X   @ eP efe Np鈂 n( z&0  *w P+舀w < 6&0 ( K_ K_ bL_ N_ V_  G_  H_  H_ G_ H_ I_ :O_ O_ nR_ R_ S_ 1$&@U@5 L L Rf7 &b1$5 @U v L 5 5f RTS_ dS_ |U_ G_ G_ H_ H_ $g_ $g_ *g_ *Lk_ *l_ *6m_ *m_ 0g_ 0i_ f&f5  & &  $ pe$ u \p B%  %- . a A% 0i_ 0Vj_ 0Zm_ 0^m_ 6g_ 6g_ 6jh_ 6i_ 6k_ 6 k_ 6k_ 6p_ HTp_ Hp_ Hp_ Hp_  E5@ E5 U $B > 4 B 7 b1$$  |fWtE v`f&f&Hp_ Hp_ Hbq_ HNr_ Hr_ Hr_ Hr_ Hs_ Hs_ Hs_ H*t_ Hxt_ Ht_ Hu_ H.v_ H|v_  ``EEC`WtE tE z y 7 1$y 7 b1$Hv_ Hv_ Hv_ Hv_ Hv_ Hw_ H&w_ HE6f2'>'N'\'j'v'~'''' 8&f&f < &f&f  &f&f \ l 0( 1( Ew U,e & Ε,e t7n,e ,e &t,e & Ε,e&f&f B &f&f   < tf&f&wl A e V T  470,e < 7  e$0 L-7 @  PQ%5@    5@  y v s&@5&E555%~57 R1 j&tE P%@5@ 5  *x% 5 J %5    t5R5  fe% U5> L T L &@&&E H    x7 `)  y,<~7 7 7 *7 (7 7 "7 7  : 4$,U@$ "   $7 7 5, A- H   e3 > >WWQ  3Q@ыC ʥee < py GRAPHICS CONTEXT WILL NOT BE SAVED@yPBCDLCoD3|e@0A2B4C6f850u2468 \ ! @m5 J5 7 X) !5 4BD5 "5 $@@@@D[?7l[?7h> \p W{ V02-F2w@ r@amU5iU 7w n&. 7 P8PP7 v T+  IeE4 (EF 5 5 5 \+ w' READY 5 RwdB"C " www.w7  &f  R&n.  B N" 0E <7w X 5z       %Pet L E B BԂ  Bm7 AA- ,  *   09  m Ee& 0e  E ewe   3@   EXT, GET_CURSOR\HTEXT< TEXT_INIT.LIGHTSl WIDE_LINEd MAP_TO_GRAPH MAP_TO_TEXT MOVE_CURSORT ROLL_AREALVTEXTDB   e   3 # 6 4  7 & BHAuH  JuJ OXt PUT_SYMBOL  TEXT_LINEGTABLE&& &  z 67 b11$: 7 'Z2$ pC  & Ԃc 0 Cm      ܇ قe K cE +    e0 : 09p `0 ;  x 40pCK4e: &     0 yEU  3@  e v      #P(d)(( @>&   Ee0E " e7 ^D7 T>*>>e7 0 *e*  n))n)n), 5 , H*-W  & F> 0 6  > . f>   j. 0 f)x*))4  5 T(&ua&f&& W ы WWW W eQQe WW>0 # .   (E u5 F w ?@ wf(Ee0U@ Wы   B B5Bm =< < :&P+P*P-P,5 * \f(Ee0@ABCf !Cw D  eAmJu AJ AmJu  uJ!ࡐ5 ,v,v**,e&5+5*5-5,&5*5,&P*P,!JCw  @@AE w   w C  C f#IA!h ,f* :BW-, W-, TCN-**5 , B  @7 J111 *K e, 5 ,K e#N ff(E5*5, ; *@,ff(E Au e @5 $wE6  6   B  .%7 b1 Je #P4  &f 6Au J& 5N Ru  @f(ERESTART<SCHEDULEPAUSECINCOUTFFT,POWER4 SET_SERIAL EXTRA_SPACE NORMAL_SPACE 5f    `  ʵʵ  De* 09#   & 0$ DUAL_MOVE ERASE_GRAPH FIND_POINTGRIDHLINE VLINEPOINTREGIONSET_BARSHADEVIEWWINDOW FIND_CUeL  . _ n.V09   E u E e 8 6 3 +-RSORGET_CHAR,GRAPHBARGRAPH GRAPH_INIT DISPLAY_CLEARLABEL4 DISPLAY_COPY CHAR_MODE DISPLAY_MODE$ ERASE_T+ &f&DE] ۼ//~/-N6     y* &fD@@    @ f&\pf\ 7  \ r7  \&&f   22  22Ȑ@ J  f\p `W{m 5m ftE >+st+@`@`@e5 EL  \ \   \e  \7 * \ &  . & @  $<  U@w  {-$-2-ttw@ttw@] <  e $w@ "U<  Z23  Z23 % 6 @ V23%\%7 x &ff&EeZ 7 U@,e & Ε,e E  & ,e E@&f&@E?D%& #"  4 6f& Z2.47 %v\@7   f %&f4   $& f&#>-67 V(Z2v$D pC x xHPRr[ p4t4x4|444444&457  57 7 6 6 & Dr1D<[?1lc#6[?5h[?8h[?4l[?3h1(0INTERNAL TTY HNDLR ERROR#5[?5l[?8)&&\   5@5@ 151V255Z2l5v5v5v5Z21Z21Z21Z215b15Z215Z255f&\l[?4h[?3l2(B78[?7h[?7lDLCoD3|DLC D3 |DDoD |98  \& \\r1@\[?\ e7   ?U?*@ڪA& & & & & D&&e @H=@@A=@:A=@H@:@:A=@H@:@2A=@HA=@HA=@H@:@:A:A:A=#@  @6  V2866 6 #?%-0 @ ׳f&& @׳@H=A@@A=P=X=A=@HA=@H@:A=@:A=@H@H==A=@H@K@KA=@H==@K====11@H=@H@H====@H==@f& Z2161V26f&f& Z26Z21Z21Z21Z21Z2116116   \7f& \ e***==@@A=@HA9@>@A=@H@@9A@H@9A@>@H==,H=@H@:A=@H==A=@H@51@5@@@H=@@A=@:A=@2@22*********+++++2A=@H@~@=@v1  @%7 0  @ %   `&\&  f 6A   +(x*d)*)*f-@-L+L+L+L+L+N+T+r+z++Z+b+j++@B+HJ+PR+DF+Lv  6N\z\z\ \ w\& @\f,\ ,wBN,\&ff@ 6 %5*u,\\C*1DN+TV@(D(B(B(@(F(F(H(L(J(J(H(N(N(??w ,w $w w w w ,&  EU  %   &f\ a@ ` C z\z\C %   , \;@\ \N @   =@f&ysE[\pCf&f&\% a @ 7 x7 p  D@R TNa B,f .  = H@ %u@  W 4eXAa JW-: @& &&@ 1&8D& && 6  A V2x8^218x8^2818x8x8Z28Z21Z21Z21Z21Z2j8 e N105  &  p&@@5  P݇W-: B J\ \S\ e& @ 18N8e\8f& \:יc&>X4%]@fEA7 l   z 5:7  &BE& 5  !  ߋ* z5  e@ & f& f& f V21"9 ff &f&77 ::L =:ȝ :  ^w f@ @ f&. h :# P J .# 2 >Be :ȝp0 ( &:eE 3 b:*bS  P @a  e   & # AZa"z @# 2:DIGITAL?MINC-F-I/O error; unable to check volume owner?MINC-F-Cannot proceed; owner & eD`09.: R L E5`Ff& AR@5 E U is 'DIGITAL' for output volumef:!!!!&:鈀~zv% ?MINC-F-Use another file type; SYS, SAV, C U&)f@ 5E1 6 6(@@$@0 6 OM and BAD are protected E50u:u-RAAB <e E "<< !"<<p46ߋ*U@e 0 e ߋ*wU0, D  5E $ " "< p6<0 B"< 0 pp<0 ;?MINC-W-Cannot recover workspace pro7 B R     !  h wT    ʕ  ݆gram; see message manualz&Ԁz ~ "<<P"<0 p0 =D :;t!:5t-?@ fTf& p &T @  TVA: ~ >U U@ & z戀e 1A B<"<p0 w]0d"< 0 6<0 ;鈱 56N:6 6  J5@ >W-: -   5  >#%> @:  ~9 ߇@  U@$E@$ f&7 1 C3  v   B K툇爎d &: U@ :U @: + Ce 5@ N 5  R  8  : 3 .3e\>:L]L?ƪ@D g C_  fW & @&&&& 7Z217b17V217Z21V211V2t71z7Z27e\&wL41>w> wt6 w. w& & w w w w w w*w"w\w`ꈇ- *WC,1 @,ʵwD  pD ޵.5 *. Re,Cנ"נננeBC N W1 7AmW$ ( W Ww @ @R  ננננ BzJKDJfJJ`J@J:J !f. w& *e*5 ,53) $ WC"  " Cm .f BBBc55 W "Շ W ʇ f e (6  BV %  %  <v<6 6   5 , dԬ 7 ў1Z217 121 7 ў1V217 1213  & \w LwV     &7 f5`F5` = & &AT Pu/&P& = &  !& Β ,#WW  e5 .Jf ڇ)#%  $ B, :&)f@  5E"  1U҃!& Β`# e  `e e e0 6W 87 RО11  e  e * <֋weBa&7 ^f@   @@@u@: 1 EU.w3  *> ,e @*7 д1@31 e . * b7 b11@31 J7 b1131 , , @$E@$ T 5 D7 B  $B E5 5@  pe  e7 ϴ121. ҿ 7 Ϟ131)3 7N 4K BBWBm <&! 2Bmʵ -ʵʵ7 G  :@Aa." 09A Z az      f,  Bm5 5 63&f&&6Bm5ѕ NONAME& &@ 6  & &&f@ e  w e5 R  R  je  j   ॴu  Wu &  &  eJe e &  ~eJ6Bm55 & ee R  je e &B  Bm$   X wu RB!E z(H w (w >wwGGGGGG]B5BmwlD ! ww6 % r w>)  F *zNNPN:PQhPBaBBm WX WR wW!TBD*2DwE  ej   w6 .x .u rK  JWBW?!hf e&&  eeҤ%  פ   ҥ   BWo3WwBBmʵ 5Jww) 6ʵ C,@*1W%3  *WWf, އ |  GDAT3+ WW! f.f D PB)) B. > w? f  wC Ww 6ע,4 - *& ( ע ˋע,4 ^    `  [@[[[Z[\[f[V[L[  WwW = R5 (ע wF  R3 WW & פ % &   ˋ ʤ #.*$'\ LERC#-^,.#-^w & B5  E5\W Wע"ע'ΔΤ׬     F    e   wDwפ ׬BBmʵ ʵU 3 J X J' :w@f WaWz Hх   ע ע,ˋe ĒW W $C" Cm  "KAmw 47 (Cנננ 3& r3    E% ;@ BB 0WWfы f 3& # ^* , ^ ,WW   נ . 3  ī{& WWWp& 7d eW  w|  E% `u`WWQBe wl:DJ Ef&ɋWWUe j 5 *,W W ౴We f *BQWWW BOBBm u % B @B W 9W w@ n@& 7% D4   f&  & e  )Ԓh I4 8Bm e fe  fe R fe  fN ve f. 0 u 3 %1& W NQ 4  +     @ n *E1w  w BB qnC lC CmR cR `]fe 2  *5 ,* ,5 ,4> &  & $  >0 8 `& -.. R  J  fe 2 f. V   11e ewfv   `:%  *U*5 , ɲDw` & & &  & 6 &w&3zRvVvVV T fP% 8  w W W wH0 6w| & u 5>5 RW> D  f  - $wr a` 0w& 4[wi x[ \w FUB3BBmf@ @ע ˋ> "C ˋ/CӤˋӤפ ר f pC = *\Z44U \wOM  [\\w., x[ #\/ ʵ 4 v3Bʵ u,u*1B 3 B *u,B ,  * u,W3)1 *! <@@  @#W @, 5:f ,]v WfU a3@, 47 B1^2#*-, *7 $11#H#7 11 &    ܃ ʵ ,,1E>U  >U ʵ ,*7 Ҟ1111, ,5 *  7 Z1,*E42 > 2 8 6 & mD % ʵ` ʵʵ ``D ʵ &7 @1 h 1 `E 5<5 <5X5Z5V@%X   RZ31  *7 ,111. *7 1b11. @ 6/5JeӤ   ## V :@a"H,5 >u2  dA2wJBʵ2 HWW @,   Z T @Jme5 Bʵ+@C    5@  4 j J,U)BʵwW%W f@, R 5  W 3WW wuFBBW@ C 2   B eK)f f>5@ Q& R "   fA> Be @ҁe U>5*,f C @& z',5 ,3 5 P3 $) 45 RAC w " 7W-f 5 5 wG fAN@@5 @m DE` `Ble C1 5 *.5. Re, V&&& CJ 1 >&&A# 5"N5N Dw u 0  Rwj3 D# "  @B"""" @ 5 ""  >*WWUU5! BJ E WWC!#3@`e  \ JBe eeҔ fA>5 Be em   `eJ%w    U5~h&59 Vf.  U  j UJ,D " %w &f& +-N  * 5 , U* , W-*5 *,  K)BBBmE \`5eA( f@ KebU 8 0&Wl @CB  5     A"e (  4*zGJJ8KGHHJHLHHH ɥ A- w b 5 W FW  dw3 P X     E e@  WwPEvvD  u5 wu, 5 W W  ,u, 4 < ѥw*  <ѥ <   0   rrD A Ww @`5 "ȕ5 (w 2B 3W @`B u<5 >5 : ʵ  Twe:am (WW WK WE 2W ѕ.09w8^& s^5 >  ld `E Ę  פ   !2 $0  ) &2!#+   LW-LBrLWW %w3W $wӋHWA  P`ѕ s^<3d," ѕ@ /  D A LrL BBBmW,rB܃  *D,5B ʂD,C* u<u>wwwwPww}ĥeqѕ@ t  'ѕѕ`ѕB5 LI@ЕЕ5 NB555f 5 ʵ,  5 P&N P  & &3E $%( B "e ``BN PB  ~  @ЕЕ5 N5555 f@5  W     F 4 ' "  '11e @ w" r^E \90$& \#u < : ѕ@ נ euuHuJ5 L u2 @a W    |  t 5 < u2 xuTA2F נ\ נ(נ  ѐ B& & 4 ΃,5$% $  n w@ 5 >u2 PuRA2W- V  wRw  B ^w CHC@@w USED, w( 5 5  > e H 2 H? < $% J2  e j (  FREE wơ 5, w w "5   ^ wX wROLD w$ w8NEW  ε˵ ˵s u:Cѐѐ@ 7wJ,& w N Ku & >& % -ѕѕ  -  " v  > w,>> N  w  W #w   : D  s ѕѕ@ w",e< C "e & C w>ѕf eCm H # Tw5H& L   ‹W  "   Hʂ ǂ    A Zaz 7 & AJBJ Nu H WW36 WW vv:<U n-- Wf<}:3U$ @B"""H @ 5 "H$ ']cC`Ҕ  0u`u` H  CC 0 Cm      چ ؇e"cK`b  &  5 L&  7@ @ ECCm , H $ HB u`u`#@`" @Au B B > , 3& B- h6f  "UWB‹BBm 1  2` Ҕ  mAL @ AW W0܇W9قw@ ч Bt  Ѥ0f tjf j KSw d t5 Rf .w drc DP 35; .F UA "K"H2  K s  *wj  0 w5 Lw7 B@a   &DJ E< 5- ] rC@  EA F BmU& & & & @ -5 H}w FILE NAME-- @פ ׬  פ  VNONAMEAe HD  B1I 6" E6"66"  E6"6$ =m- dBP`8^ WW  Q WW BBBm  m J-  AC 5 "BQ$mE e5 NAC $u"NuN Eam(%eeB    B 5 \  @  Ā ʗ%  I   LBB5WS|S\FTTT[FTBTTTVVT`XxT`T+-*/^()\&;,<==<>==B5 Bm , WWBm  ʵ$ ʵ% ʵ (w\ P` wp><>><<>="':#[]IF END #LET IF GO TO ON FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUTW>fAW W   D F  ~w7 xATZ ʋ 5 B LINPUT PRINT USING REMDEF READ DATA CALL FNPISYS(RCTRLOABORT(TTYSET(CTRLCRCTRLCRND(RNDSIN(COS(SQR(ATN(EXY& & #CaNa   6`  %7 AR @Z1- X P(LOG(LOG10(ABS(INT(SGN(TAB(BIN(OCT(CHR$(LEN(ASC(POS(SEG$(VAL(TRM$(DAT$CLK$STR$(OPEN CLOSE CHAIN OVERLAY Y& " Ca T& `%: 6 : bC A N ,  6`"Da 6  AS FILE KILL NAME RECORDSIZE FILESIZE MODE DOUBLE BUF LINE DIM COMMON RANDOMIZERESTORE RESET STOPENDUNSAVER 7 ,u-HJCCHE <B :DDAB``a bu Y"Aa ` ` aENAMENEWREPLACEDELSUBLISTNHRUNNHLISTRUNSAVECOMPILEAPPENDOLDSCRCLEARLENGTHBYERESEQf& &7 L"C: <D̢  p`$  X  H@ U@0, P `鈀鈷`؇?MINC-F-7 aaɋ7 v rɋE 1 %V ы 7  Jpa  & , , : Q .&&& e DJ Ee XW @P M@RH DJ  ^U$ DATETIMEINITIALIZEDUPLICATEVERIFYCOLLECTCOPYTYPEDIRECTORYEDITINSPECTCREATE @@R& T W & l\ *DJ EA ( fb `` HELPbb,b~brbxbbcccLdNda@$bzaPע ҔHz2dvZw fd 5  / 2 SAV, COM and BAD are protectedInvalid command; use only 2 file namestoo deeply or too many user functionsnSpecified or default volume does not have file namedmFile space allocated on volume is7 >fff)& (% &, 25 < & & ѕ: ~ѕ: t @ too smalllValue of real expression is too largekValue of real expression is too smalljNo NEXT statement terminates FOR lo E Z@EeH @EeH 6-JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-HÕ/ eѐ opiAn earlier statement already defined the functionhFile channel is not in the range 1 - 12gArray has invalid description <  D @    fEOF error in compiled program; use program stored with SAVEeValue of FILESIZE expression too large or less than -1dInvali>5+55% w d= hNw dw d $5 N f  g  f jf wg x rc w d n& 5w dw d w d B wg w  N&f&(EE eSF & 67 2  ċwd w\?MINC-ċwLF-wBW- @ <& drc "5""  5 = P Jҕ= Bw pe f wg  &w Fd*֋ u5  w.҅  ,w at line fTf& `5 * ڵ&Tw w STOP  5  ҕ=w e f Hjf >@ TT:=DIR (.SYS,.SAV,.COM,.BAD)/EXC/SORT:TYPE:NAME/F :wArguments in definition do not match function called~Array overfills workspace}DATA value or value from file dULL/VOL/VOL/OUT:R MEDITR MUTIL*.* W  W:UW.# UR UW. UW.5&5#ҕ.oes not match variable|Enter new value. Old value did not match INPUT variable {LOG or LOG10 expression less than or equal tҕBҕAҕSRU eˋӋˋ W W  @W W  e   f o 0zOPEN fails; workspace too full for another channelyOPEN fails; file channel already openxFile channel input or outputSYSVASMOCDAB*%/ $W0 W9WAWZR  WaWz Specify device only; no file name or fil errorwNeed OPEN statement for file channelvError in compiled program; use program stored with SAVEuCOMMON variables not ie type is allowedSpecify only one file nameCheck the manual; DUP cannot accept any file nameIncomplete command; filename requn the same order as in last programtValue of control expression is out of rangesDividing by zerorEND statement does not hairedInvalid file name(s)COP requires 2 file namesIncomplete command; device or filename requiredUse another file type; SYS, ve highest number in programqExtra values from keyboard or file ignoredpInvalid exponential expressionoParentheses nested 3 e overfillsRRESEQ has an invalid statement number or intervalQReached RETURN without executing a GOSUB statementPWorkspaceS( ­f2f4 D7 /b1V2$ 2Ɠ5   5    r r _rBDEGHILMPYSTUVw  too full to store stringOString is longer than 255 charactersNArray subscript is negative or too largeMSUB creates an inv~/iBU55E55@z/5VUU U5EU5 E5UEalid statement or has a syntax errorLSyntax error; cannot translate the statementKGOSUB fails; 20 subroutines already active5@U55 Z5wn57 hUU@wP*wR&5#7 |/b1V2lZ21$  dd75P 5R75JTotal number of arrays and variables in COMMON exceeds 255INo DEF statement for the function namedHProgram does not have UwE5 UU@5E@5 &5$5#f5@ Nf7 1$7ĀE  7 7d a statement number specifiedGNo DIM or COMMON description for array usedFFile name in use; REPLACE or change name or volumex Gx ix ڥx ԥx5  lAe"~5@:J6LE5UV5@ @ @ B]VEEEAnother virtual array is using the channelHI7IoIIIJ:J_JJJJ*K=KuKKKK5LcLLLLM9MYMMMMNMNNNNO:OVOOOO P 5U 5Aw ll@E 5 U VE&7 m@m   ~ȩU 6n 7PgPPPPQMQrQQQQ,RYRRRR#SXS7 1$Z@ W C @m-2$ &`fEtWt PmmZm(:@E vEPVUd file namecOPEN statement for file channel prohibits transferbSorry; the statement is invalid in immediate modeaEarlier array description differs from reference`Quotes around string do not match or end quote missing_Value of integer expression not 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 NE$ bq \q50w ©i~/ //~/ Ex/BV57  ~5@ r 7x XTXCALL fails; workspace too full for parametersWNo suitable free space on volume for fileVInvalid operation; mixing numbe j5@ ^ 7vV lw D> 7rDǀ 5N7$7  w"@al (n5>5 l  rs and stringsUToo few values for INPUT or READ variablesTInvalid PRINT USING format or syntaxSProgram too large; workspac 7 <2b1t1$l  7 b1$NDe"l&&&& 7 1/b1V2$ Ɠ3lS6S85֭(S&4 1t4nV2t/1nJn rn  nHnHnrn nnZ21HnnnZ21Hnrnnw 0A3l^Z^b T_r Nr Hr B s w l~/ //~/  HVUTw (~/lw m(m @P ^ OtCE!(  &&ff7 *1$ @#=  @ أ]p57 <7 : //~/FLUw ʣ~/RmmmA&/0@4  @ ޗ@ @ 0E f  Ex/5V @&/@/Z/ &p7 7 //~/n7 ֵ n n1 n n* ~ d{s t Zs7f&f <7 7 w g~/ //~/AGHPVw $~/g pEx/51V2t/1nn n n$T BEw آ~/Fn@rn 8 @ fE VU5EE /TTT5U V5V5 5@ 0U 5I55F7ABD 57ABCz/5V@  pVe"nB~////////////$ 2q$s @  U U Ԝ @p/  555 L  @/pj Ĝ@ 5l5VfVEV H t!5A ,  sl nv F ^¬ 6~wp@ H 07 7 (0/~/Dw j~/g <7 /1P/$W   *=w $w }w7 |V2/Z2H|iH/$5Ԯ 7 » 5 V |5@:| C  E @ W @ A@ қ~5V ,5q&EV֬ ڛ |i1H/$7 T/L 5l5d 65T 25J .5:   7r ǀ 7U p Y  T  fB  d @z/5V C D . \  rB !||5@d|   7 7 75 > v ĜUTUU   7 Ժ/|i1H/$D  6 z   r5 ,Aa~5 5  2 8w2  ` ҙ B @ mZ`mbm|dE Λ * ħw w:> @$ @, 5 N0/~/`! J ƨ7 55 m@mw@@*@  @E ޙ Υq ȥq ¥!r57 &7 $ t//~/  E7l67l2Dx/Ez/BIMUw ~/k5f&fl> 585:(aff&4&2& D7 V21H/$5 /RRUVUV5 5^5UVEV55lUBC7  B Ca E0B@C@m\b1Hnb1Hnn(nn\nn1nnVHEVEV5UV5V PUVU5V,5/ ܨ &@// XEV@E v Ҩl5  ]5 ʛi қ 0PRPV 4!t7 7 0/~/Iw 0~/i j E EE DA  @ Μ ȨCs @ @7 7  ^20/~/CRTw ~/~hV 5VUV ʦp Ħkv v v585V5V& T0/~/ 0 . ,@ 5< C tE P5& !D X  5H& !D * қ 25H < @ 2@ ,B    욂 UV @5@ 5@ Қ@f К2   &n. " x  dE  d }t7 7 7 7  W E eUVEV7 | rUnxVwķ l@ FH ^@ 8 P (x4<0/~/ z ЛEEx/ ڛE > ^ D  D #@tr-pjffVw | E fP D~x|   Й| И !T ̘  `ŷZŷPŷJ r  AA ֚ ,!@@ -7ŀ @mN-PP} N[ A  &>Bx0m @7>m$N7 lb1 :m1 :mV2T:mC  A m  5@h4h@w h~/ ʟh0/~/ABCDw ~/6* w PhFh@w Щg~/ .0/~/BFRUw V~/gw ڜFhPh, w ʜbhZh@w h~/ ؟.0/~/BHJLw ~/hw Zhbhhw 4h>h@ ✇7 27 0 l0/~/(& C ֜ :C 4DEBFRUIw 6 Bw > *0/~/w , 0/~/ -V //&&###7 LJCDFLRSEZTWw ~/g5-l5  " Z U@ "& +"3u++t;0+;0+% ;P+ %;@+vE5@8 h{6hDhLh5 5-4E y 6t z s y 8w p + a7 7 0/~/ EONLw H~/n_U Y5 W  \oE0 U jq dp ^.q Xv Rq Lw Fx @x :y 4 z .@z (tz  &  U  À 70U @? |o=w B~ P6 2 P_ %  U e2Kn,X`  %K~/hk5i w hh `@U >A 4E ( D u @ fC  &f tE x.i>i>ihhhhhh  e< $ .EEExw%Ƭ-Ƙ -wEi   }.w!x. z  ֛ }. P h f V7 7 6U4x "wHRiRiZinixiiE@C7 7 ŅU@|f Ҿ ̾5@5EVU P5x0/~/ C  C -&fBFRUIw L~/i 5 ^w š(j2j *@U  2E  @ft P4 5@$ 5U@<8 J7jQ,+N5@0 7- 4 7F  yjjL Mu @fkC   e fC ECB7 @AC Κ&f@A hhhJ44%5+U+4 ? Wt|Wt| 7- 4  +wjwl&#0qltl "x  l " &# elw Rkl7J F@  w 2l fB@fCu/ 5 eJU 4 k(4 ؼkw1ڼwAм5 az ~    0/~/-& =-& <" Ex/ "BaB~XV< <   t(d))x***5 +fU B:l*&+5 m(+e, `A11SVD">l4ljx jlq k[w pp Ԥ\p&ff U@@ U i4&mNw ^// "m/1Dmkx x ljmq mk xxxxk%l4l>lPlIl[l4l>lPl[l-`75@" \ U 5 F   P W 7 @ U f B~@ @ x7 Rm0 wU@ @ t<  f?@?U/    $ h      F5 κ Ⱥ w h7    vf&f\B HEBxr5 5 / U 5 5 / lE. `5@ ʢV7x7  xV2Tx xZ2Tx xH$ 5VL f8f67 ī1$D2y ֞6Ҟ8U f5@wtP 11$ $5. wģ @ @.............U%EeEeU~5xDffp b ̍@rx..///f&| r0  18 | wL&. x &/ ^U xxxxx"rzv~jr^z^E7xxw7 ̪0xTx xZ2 x11bxxy$x/l& / F&/ 6&/ *֢EТ&c.  b&P hC   &f7e5V \lEx/W   f&f8U n5QN =:w&c.  &  &ffs re0 ~!&; d  Ef'E5U5UUQ5E7E5U V5U H57 7 5U5&&i. J  [ ; f R ` Sy 0 90Wp `  &f CU5U7 nwEE 7y7 7 F0/~/Iw ~/z ڊz E LP` bmz \z Vz P { J/{ - - w n -v Kv &D C  &fC    !    `    a   ` & &C mma6um um  #85j6 6 lulu6 v  e &&%&v @ E7 @zv*v11P(vx(v@3H$v$$vr f EH&BCfAA1AQ& V f&Ecȕ 鈇fE 툀E~鈇 x/UV0 0 5V00 e P~ 䏇 ޏw  w& &% x/ % 툀E~ n   H~&툀 툀E~   \x/  f&fv x/z/5V 5VU  @&D&L f (EG~f }.w x.  ` yf&TqXq0Tq  ! WtE  U&EU vtEU d ^B 7ww@ ,~&fEx/E 25V58  @c ): @`c*7ER`mC   ``H ``H  B! f   fee.[$RHu> k 3 ` ( T Gs:e+UE n3[ N !b!!$"""F##$g$$(%%%H&&'h'''(((E))*b**+~++;,,,U--.o..*///B000Y112R SWAPSET USR NOSWAPPlease answer Y or N.Changing the size of the workspace requires erasing the workspace. You must hn22'333;444N556_667p77%8883999@:::L;;;W<<=`==>h>>?o??@t@@!AxAA$BzBB&C{CC&D{DD$EyEE!FuFFGpGGHave already used either the SAVE or the REPLACE command to store the program if you want to preserve it. Are you ready to havjHHIbIIJXJJJMKKK@LLL1MMM!NqNNO^OOOJPPP4QQQRiRRSOSSS3TTTU`UUU@VVVWgWWWCXXXYdYYY;ZZZ[W[e the workspace erased? (Y or N):[[)\o\\\>]]] ^P^^^_^___&`h```.aoaaa2brbbb2cqccc.dlddd&edeeefWfff gGgggg2hmhhhiSiiii6jnjjjkT7 7 0/~/-V-RFRw 2~/o E 7 <  7 2 4$bb4p hfp/Bp/Kkkkk$lZllll.mbmmmm1ndnnnn-o_oooo#pSppppqAqpqqqq(rUrrrrs4s_ssss t6t`ttttu-uVu~uuuuvBvhvvv       w  z z { H{ x{ { |{@ wA7_ C%wW e %vv#wHwlwwwwwx@xcxxxxx y*yJyjyyyyyz$zBz`z}zzzzz {'{B{]{x{{{{{{|*|B|Z|r|||||||}%}:}N}c}w}}}}} Cwwww<  %       !  e w}}} ~~/~?~P~`~p~~~~~~~~~~~ "-8CNXblu~ 0CVE UU@5ȴE@JLV5@u*Ju,LEU ؊@pBeJ @ N@ <    eemm&bمfNcՅӅAх&f- mB  |5@ f&fCV 7 7 N0/~/ BFRUNESWMJKLCHVIw ~/{Գҳ D@w mB  qw72qw7a&4qwqw)Um>e<-6wNmm  |&|fEE.|4H.| F| 2 :U @ ڈ  t @@  @w w%w  4El1l.+(S2sElvwtulkjmnqx ~0/~/!2r|#7 y[?8l12[?8hqbc c_cl l   S$R  wttPEll텄SS  2Da 9   !  5 B A B   `t  xxxx or Column not in graphic regionMINC-F-Only one symbol may be printed at a time!MINC-F-Specified corners are not diagonally ow& Ε,e _cppositeMINC-F-Line must have different endpointsMINC-F-Zero is illegal as a ROLL_AREA argumentMINC-F-Argument outside terminal scrolling limitsMINC-F-First argument must be smaller than secondMINC-F-No response from terminalMINC-F-Bad row specificZ p@ # ҕ-  p s f e0RationMINC-F-Bad column specificationMINC-F-Graph number of zero not allowed hereMINC-F-Only one graph number may be in useMINC-F-Can't call REGION when in strip-chart (move) modeMINC-F-Can't turn on graph that's not in useMINC-F-Stripchart modes must be off when this routine is calledMINC-F-Cannot specify X value less than 1 with DistanceMINC-F-MINC-F-Specify only one region, pleaseMINC-F-Graph number of zero not allowed hereMINC-F-Can't display vertical lines in stX value must be less than 512 when Distance is selectedMINC-F-Distance must be specified if X is omittedMINC-F-Array length irip-chart (move) modeMINC-F-FLOATING-POINT CALL STACK OVERFLOWMINC-F-Range of WINDOW limits too narrowMINC-F-Graph number os too smallMINC-F-Single strip-chart mode cannot be on when DUAL_MOVE is calledMINC-F-Indexing not allowed in strip-chart mof zero not allowed hereMINC-F-Can't be in double strip-chart mode when using this routineMINC-F-Move option must be selecteddeMINC-F-Index array is not presentMINC-F-Number of indices is outside range 0-10MINC-F-Number of indices is too large for s if X argument is omittedMINC-F-Move option not allowed if other graph is in useMINC-F-Move option must be specified if Move pecified arrayMINC-F-Previously plotted point not foundMINC-F-Specifed number not convertable to text coordinateMINC-F-Illegaspecified previouslyMINC-F-Move and Brand cannot be specified togetherMINC-F-Move option must be specified to specify UnitsMl graph numberMINC-F-Cannot get cursor position from terminalMINC-F-Graphics routine terminated by ^CMINC-F-Lab module routiINC-F-High and Wide option must be specified togetherMINC-F-Cannot erase a currently unused graphMINC-F-Specified options innes are using the screenMINC-F-Number of copies to be made must be no greater than 50MINC-F-1ST ARRAY IN GTABLE IS NOT REALMcompatible with moving graphsMINC-F-Graph number must be zero when DUAL_MOVE has been usedMINC-F-Width + Distance must be lesINC-F-2ND ARRAY IN GTABLE IS NOT INTEGERMINC-F-Serial line number must be in range 1-3MINC-F-Specify either LP: or serial lin/~/-"--w ~/ Z |ͥw݇ fBCDpLpT`@ 4`s than 512MINC-F-Graph number of zero not allowed hereMINC-F-The Text option must be specified by itselfMINC-F-Specifed Row:  or conflicting options requestedMINC-F-Could not find service subroutine # requestedMINC-F-Notify DIGITAL: Memory pool exauta onlyMINC-F-Fewer than 8 points requestedMINC-F-More than 2048 points requestedMINC-F-Number of points must be a power ofstedMINC-F-Missing argument no. # is requiredMINC-F-Notify DIGITAL: Mark time failureMINC-F-Continuous transfer not in prog 2MINC-F-Invalid or improper arguments specifiedMINC-F-Notify DIGITAL: FFT argument failureMINC-F-Invalid or conflicting are number, but not bothMINC-F-Only one parity option may be specifiedMINC-F-Illegal baud rate specifiedMINC-F-Illegal numberress for array specifiedMINC-F-Must specify clock operating modeMINC-F-Invalid character or duplicate modes requestedMINC-F of bits specifiedMINC-F-Internal string handling error-Set front panel switch to P mode for channel # requestedMINC-F-Cannot set gain with no preamp connected to channel #MINC-F-N` p@ # ҕ-  p s f e0Rotify DIGITAL: Protection failureMINC-F-Too many response requests pendingMINC-F-Variable name required for argument #MINCMINC-F-Use array element instead of array for argument #MINC-F-No autogain channels permittedMINC-F-H-F-Previously scheduled event pending. No new requestMINC-F-No. of channels exceeds integer channel array lengthMINC-F-Data-istogram arrays must contain at least 4 elementsMINC-F-Channel or unit # not in system for the routineMINC-F-Clock too fast name array shorter than sweep length requestedMINC-F-Schmitt trigger # is already active. No new requestMINC-F-Schmitt triggfor system to respondMINC-F-Subroutine #; Clock too fast for system to respondMINC-F-Data lost--transfer rate too highMINC-Fer must be 1 or 2MINC-F-No workspace available for the string specifiedMINC-F-Time string format must be hh:mm:ssMINC-F-Ano-Subroutine #; Data lost--transfer rate too highMINC-F-Value exceeds valid range for argumentMINC-F-Subroutine #; Value exceether transfer is in progress for the array specifiedMINC-F-Too many transfers in progress simultaneouslyMINC-F-START_TIME stds valid range for argumentMINC-F-Existing display conflicts with display requestedMINC-F-Value exceeds BCD range for argumenatement must precede the time requestMINC-F-Value of argument # is outside valid rangeMINC-F-Too many arguments in statementt #MINC-F-No. of channels must match size of gain arrayMINC-F-Previous routine is already using the module requestedMINC-F-SMINC-F-Data transfer or pending service request terminatedMINC-F-Workspace contents remain unchangedMINC-F-String length musystem does not contain the module requestedMINC-F-Invalid BCD value specified in argument #MINC-F-Service subroutine request t be from 0 to 255 charactersMINC-F-Array size must exceed 2 for continuous mode transfersMINC-F-Argument 3 must be evenMINCpending. Cannot use CONTINUEMINC-F-Invalid data type for argument #MINC-F-Notify DIGITAL: Internal error trapMINC-F-Invalid-F-Argument 3 must be an integral multiple of 4MINC-F-Serial output channel # is not readyMINC-F-Fast mode collects integer da; @rAL>  "  HDfbvf~@<^Zr^z^ZjfbfbZ@ 5@V J TJEZe @  7 "21$%Z|%P|@wV D^Z^Z@@T@@A AAAAAB B*E ` 5V5- @e7w d HU $VH @ @ ք @ Ȅ@5VU V~~xf~~p-1.2345E+12 9j&%P ||B|. |m|.@ 5V   AB C D  lB x | fbb^ZZjnj Xx p Hx. @ B e Q9f&fE|x/51~b1V2Z21H1H1~V2$ 7L&&7 *V2$p @w7 1$  Q$z/5V,%|%|U \fVEpVE ކ C6U Ɔc2Ez5U @5 NvP&&7 Z2H~~V2.~Z2~~Z2111V2zP~ ~1R~ T~T~b~7 ~ ~  5U ,EVU 5 UVE UVB@ JE Np7m Z@7f\25pL-~1H~ ~ ~1H~V2T~ ~Z2T~$ Tw7~D7 . ~ ~1T~$5@0*J0,L * >.`(Z'e>7 02b1V2H2 012V2b1^2t12Z21 01$7 0 012b1V2H2 0$e3E<  ^ | |Z5n#5@Vf$f"f4f2& D7 >V2b1Z21H$J6F8U&5@ /-'5' ~ q 7y~~ Њ0/~/\~//P~j Ex/@e"-e&&e&&7 1$mX@7 7 ֢T 1T Z2T$5V)-%-P -m B @7@Ue ~.-TP87Z7B7\7 @~/~H~//~H/$@e7 77 b1~J1b1~@5 |UwPU EHBJH@ 6 52z  5B B J1$\V7 إ V V1 V V1V2 V V1Z2 V1HX V1 VX1Z2$ |~ \7 x ҃D N ƒ~^jZrz/zv~ ~xV2^2t1H//z~ ~V2^2t1H/$  6  FtxZ2N1Z2J1  }}~~d~// }} ~~//C6EyxCER@Q@ˡAAB~/"xt ( ! j @t+   ! `  wb *"/*&&*&D  ( @t       BxP 7|  :D~x| @  |  USs7` [  C  x~ zt r|  $0  VN ]V6 @ v6  ~UVE@Ę?5 !f@mE|-P|WcE    t7   77 w 2 | Ȱ  }f} 4x& E wPN7 5Vl5V#W CDH L@ &  55V 5VU@ @ 5@ 7W f ~ -r 7 Ȥb1/b1Z2V21$f&LF@p N z~ Z| l wlH D@ ̆ UV  7ޗ7]DH ą  ĆUV> T@ 67  p"wp : ` „.  #( *!C,   B bcEq$G& Ew@  Ae E@ dCeNueu5(55@ K"  f ee __3    & Ҏ be  d bȋ _   ` h PPn=%5  fe% )& (% EeF wXwe  _ b_ B be<5 : "f: b_ R _ ` b_ =Ba |2wNOT ENOUGH MEMORY FOR BASIC*KV8?NY b_ =Ba b_ĉRfR& ΋?A<I Nh -f΄ff& ΋ Y NU% M% D# C   D eR΄TjV\l^npЅrt҅hwL NONAME w: ҅ЄV^ȅXjΆ&Hf(ʈHz878574VvxXhzŋj|ˋ̆~ыΆ׋$݋&FHdf&(ȈʈFHx7 7 ފ1/~/IAw ~/| p5 FQ*+0 FE (B@xBw //5.+*+4  W3 @,   a`&*:fR5 R R5,_F5 , =  mܪw mЪ5 ҪĪ *+/- U Dv >6t 8t 1/~/w ,W3  , EW-, F „_  j=_  „ , W-, ?_ ?_ W-,W @, > T& " \    L 4  & Ѡe w F f ҕ >   8 z‰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$? d  d @  >J&zQQAA wL^YDIR V03.01AW<Bxkf ABCDEFGHIJKLMNOPQRSTUVWXYZ$%*0123456789Error reading directoryWrite errorIllegal directoryIllegal commandIllegal optionIllegal deviceOuptut file fullDevice not activeInsufficient memory@z@ ?DIR-l-     $ ( , 0 4 8 < @ D H L $r&(*0r8p:HFDABCDEFGJKLMNOPQRSVVd| r? d    515 X W dwm|n]zM h ZG p A @ >wm, PEU00 d @ 7 w %d ѕ ɕ *5 5   zw w   ]. (- 7  [D6 Files in segment [D//&&"   B  7 wm  ` e ve j e \H `u -~j r @?.%6 . H7w e%N  * ([D6 Available segments, [D in use//&R,  z  B z 6  7 e  >m  e ~ mv mj  7 V@e ?-6 $7 7 $  [D Files, [** Blocks/&&  ]  [** Free blocks/&&X  --1, 1,1,1, 7 A1,1, 4 E  w 4D -L2  Octal& D/& 0 B 0  rBʥҋB     8 $ @& e B   ҕ ҕ  P %   e% p  @@  % % @ 7v-pw F  rj^|P &^PZLVHD     %7$%c%He7  $ ww  . w  @ed    7]w F v  ȥ%Х*  @@e%   5 1 pd F ee 4   Xe  h  7 B Z , Pw P  Cå*" A@|w &F# h5å Fåå :å2 &å mDĠ Ġå*å% f  @  PDD     w| @ w@ Ƈwe % % w 7   7 7  DR w GOx erwze t|np0 wwX5Rw:w@wv ~ Ov t , -t7ft]@ @@H   PBP " ww%  57 em w xrredCȥ5 , ѕ  P w F67 4|\0  w n Vw  R Dw f F%VOw X Fӥȥ. ȥ.Ћȥ. e1 N x z w Tw N 5t5 %%HD|w &w D%%B7 + Volume ID: [S/&vr  Owner : [S/&  v  %HDvF %EOf5 e61 w   re,1 e*  H5 v C"C|r0 % 7 , Volume ID: [S/& J6r  Owner : [S/& Vv  ` `u %|\rrr @5(@|0 0@ -[D&& D# %H [N9: &0  -BAD- &J %r|  30 COMMON P(300,2) \ REM POINTS ARE KEPT HERE 40 COMMON X$,Y$,T$ 50 DIM P1(10,1),P2(5) 60 L9=1.00000E+27 \ REM LARGEST NUMBr0  ߋ*w 0Fw *F rP  \Еrr7d R- A eP wŀ @ER 70 P9=1 \ REM PLOTTER LIVES AT SERIAL LINE NO. 1 80 G8$=CHR$(29) \ G9$=CHR$(7) \ REM GRAPHIC MODE AND VECTOR COMMANDS 90 A+Ջw\fEeHw. 7E 7 A   w   H: :  9$=CHR$(31) \ REM ALPHA MODE COMMAND 100 P1(0,0)=4095 \ P1(0,1)=3124 \ REM BIGGEST X AND Y VALUES 110 E$=CHR$(27) \ REM THE ES eB` &  ѕ  ѕ w C@ |:(@ n:S:d t5g h5k \5CAPE CHAR 120 B9$=CHR$(8) \ C9$=CHR$(13) \ REM BACKSPACE AND CARRIAGE-RETURN 130 L9$=CHR$(10) \ REM LINE-FEED CHAR 140 W=20 f0f e @`0& |\p&f  @/#[@DgO150 REM GET LOW AND HIGH LIMITS SO THAT WE KNOW HOW TO SCALE 160 X8=L9 \ Y8=L9 \ REM INIT SMALLEST LIMIT TO LARGEST VALUE 170 UwSwNw2* ҕ ҕ W*ы > ʕ@ Rʕ JrelzW*ыX9=-L9 \ Y9=-L9 \ REM AND LARGEST LIMIT TO SMALLEST VALUE 180 FOR I=1 TO 1.00000E+22 \ REM FOR ALL VALUES 190 IF P(I,0)=0 THEN&Cנ0נ9 ы0@09዇0 e `W*ы ӕ0f  fe0 290 \ REM OUT IF NO MORE VALUES 200 C=P(I,0) \ X=P(I,1) \ Y=P(I,2) \ REM EXTRACT CURRENT CODE, X, AND Y 210 C1=9 220 FOR I1=-D.!-<$"-4 "1,1,1,҇1,1,1,1,1,1, w &d r5㋓ w@ R  wC0@070 ` $W:ы@ wtҕ fb-f   u 7 |pe j-fb Dw F7R7F*PPPPA -R: 0  2e0cwB% 7 8å å ( A P.&fP 5< UNUSED >&,  .[S& dV   * [** &f|v~ 5 [N9: & @ FJ 8 [**&R" f - ҕ ҕ 7   [N*: &f& "7  B  +|0   ! rp0 w7   &f5%D0[D1-&f  % &f@   10 REM PLOTS LISSAJOUS POINTS ON TEKTRONIX 4662 PLOTTER 20 REM PLOTTER WILL USE TERMINAL 1, 1200 BAUD, 8 BITS/CHAR, NO PARITYA 2,I2)=V \ REM NEW LARGEST 280 NEXT I1 \ NEXT I \ REM CYCLE THRU ALL POINTS 290 N=I-1 \ REM SEE IF WE SHOULD ASK THE USER FOR SDRAW TOP LINE 570 P2(1)=0 \ GOSUB 20050 \ REM DRAW RIGHT-HAND SIDE 580 P2(0)=0 \ GOSUB 20050 \ REM DRAW BOTTOM LINE 590 REM PCALING FACTORS 300 FOR I=0 TO 1 \ FOR I1=3 TO 4 \ REM FOR X AND Y, LARGEST AND SMALLEST 310 IF P1(I1,I)=1 THEN 430 \ REM IF ANRINT UNITS ON THE GRAPH 600 P2(0)=2 \ P2(1)=2 \ P$=STR$(P1(1,0)) \ GOSUB 20400 \ REM PRINT LOW X 610 P$=X$ 620 IF X$="" THEN Y EXPLICTLY SET, DON'T ASK 320 NEXT I1 \ NEXT I 330 IF N<1 THEN 430 \ REM IF NO POINTS, DON'T WORRY ABOUT IT 340 PRINT " DO Y650 \ P2(0)=P1(0,0)/2 \ REM PRINT X AXIS LABEL 630 FOR I=1 TO LEN(X$)/2 \ P$=B9$+P$ \ NEXT I \ REM CENTER TEXT WITH BCKSP 640 OU WISH TO SET THE PLOT BOUNDARIES "; \ INPUT A$ 350 IF POS(A$,"Y",1)=0 THEN 430 \ REM OUT IF NOT A YES ANSWER 360 DISPLAY_CLEGOSUB 20400 \ REM PRINT X AXIS LABEL 650 P2(0)=P1(0,0) \ P$=STR$(P1(2,0)) \ L=LEN(P$) 660 FOR I=1 TO L+1 \ P$=B9$+P$ \ NEXT I AR \ REGION("UPPER") \ REM SET UP FOR GRAPH 370 GRAPH(,N,P(1,1),P(1,2),3) \ REM PLOT THE INPUT POINTS 380 A%=0 \ PRINT " CR WI\ REM BACKSPACE TO MAKE ROOM 670 GOSUB 20400 \ REM BEFORE PRINTING HIGH X 680 P2(0)=2 \ P2(1)=88 \ P$=E$+"AJ90"+C9$ \ REM ROTALL SET LOWEST LIMIT TO THE LOWEST POINT " 390 PRINT " ENTER LOWEST X VALUE "; \ INPUT A$ \ GOSUB 20290 \ P1(1,0)=A 400 PRINT "TE 90 DEG 690 P$=P$+STR$(P1(1,1)) \ GOSUB 20400 \ REM PRINT Y AXIS COORD 700 P$=Y$ \ IF Y$="" THEN 730 \ P2(1)=P1(0,1)/2 \ REM ENTER HIGHEST X VALUE "; \ INPUT A$ \ GOSUB 20290 \ P1(2,0)=A 410 PRINT " ENTER LOWEST Y VALUE "; \ INPUT A$ \ GOSUB 20290 \ P Y AXIS LABEL 710 FOR I=1 TO LEN(Y$)/2 \ P$=B9$+P$ \ NEXT I \ REM CENTER TEXT 720 P$=L9$+P$ \ GOSUB 20400 730 P2(1)=P1(0,1) \1(1,1)=A 420 PRINT " ENTER HIGHEST Y VALUE "; \ INPUT A$ \ GOSUB 20290 \ P1(2,1)=A 430 IF N>0 THEN 450 440 PRINT " NO POINTS  P$=STR$(P1(2,1)) \ L=LEN(P$) 740 FOR I=1 TO L+1 \ P$=B9$+P$ \ NEXT I \ REM BACKSPACE TO MAKE ROOM 750 P$=L9$+P$ \ GOSUB 20400TO PLOT " \ STOP 450 REM NOW SCALE POINTS 460 FOR I=0 TO 1 \ REM FOR BOTH X AND Y 470 P1(5,I)=P1(0,I)/(P1(2,I)-P1(1,I)) \ REM \ REM BEFORE PRINTING HIGH Y 760 P$=E$+"AJ0"+C9$ \ GOSUB 20400 \ REM SET TO 0 DEG PRINT ANGLE 770 REM NOW PRINT GRAPH TITLE  SCALE FACTOR MULTIPLIER 480 P1(6,I)=P1(1,I)*P1(0,I)/(P1(2,I)-P1(1,I)) \ REM SCALE FACTOR NORMALIZE 490 NEXT I 500 REM DRAW B780 IF T$="" THEN 820 \ P$=T$ 790 P2(0)=P1(0,0)/2 \ P2(1)=P1(0,1)-88 \ REM TOP MIDDLE OF GRAPH 800 FOR I=1 TO LEN(T$)/2 \ P$=B1 TO 2 \ REM FOR BOTH X AND Y 230 I2=I1-1 \ C1=C1+1 \ V=P(I,I1) \ REM GET PROPER SUBSCRPT, CODE, AND VALUE 240 IF C<>C1 THEN 2ORDER AROUND PLOT REGION 510 SET_SERIAL("NONE",P9,1200,8) \ REM NO PARITY,1200 BAUD,8 BITS,TERMINAL 1 520 COUT(,E$+"AE",3,P9) 50 \ P1(1,I2)=V \ P1(3,I2)=1 \ REM SMALL LIMIT SET 250 IF P1(3,I2)=1 THEN 260 \ IF VC1 THEN 270 \ P1(2,I2)=V \ P1(4,I2)=1 \ REM LARGEST SET 270 IF P1(4,I2)=1 THEN 280 \ IF V>P1(2,I2) THEN P1(\ GOSUB 20000 \ REM MOVE TO ORIGIN 550 P2(1)=P1(0,1) \ GOSUB 20050 \ REM DRAW LEFT SIDE 560 P2(0)=P1(0,0) \ GOSUB 20050 \ REM B 9$+P$ \ NEXT I \ REM CENTER IN MIDDLE 810 GOSUB 20400 820 REM NOW PLOT POINTS 830 FOR I=1 TO N 840 C=P(I,0) \ REM ISOLATE COEM MIDDLE Y BITS 20260 P$=P$+CHR$(P1(7,0)+32) \ REM HI-ORDER X BITS 20270 P$=P$+CHR$(P1(8,0)+64) \ REM MIDDLE X BITS 20280 REDE VALUE 850 FOR I1=0 TO 1 \ REM FOR BOTH X AND Y, SCALE TO PHYSICAL SPACE 860 P2(I1)=P(I,I1+1)*P1(5,I1)-P1(6,I1) 870 NEXT I1TURN 20290 REM PROCESS LIMIT INPUT FROM USER 20300 FOR I9=1 TO 100 \ Q=POS(A$," ",1) \ REM REMOVE ALL BLANKS FROM INPUT 20310 880 X=P2(0) \ Y=P2(1) 890 IF C>2 THEN 910 \ REM OUT IF C TOO BIG 900 ON C GOSUB 20000,20050 \ REM PLOT EITHER POINTS OR LINE IF Q=0 THEN 20320 \ A$=SEG$(A$,1,Q-1)+SEG$(A$,Q+1,99) \ NEXT I9 20320 A%=A%+1 \ IF A$<>"" THEN A=VAL(A$) \ GO TO 20390 20330 S 910 NEXT I 920 STOP 20000 REM ROUTINE TO PLOT SINGLE POINTS 20010 GOSUB 20100 \ REM CREATE PLOTTER-FORMAT COORD CHARS 200ON A% GO TO 20340,20350,20360,20370 20340 A=P1(1,0) \ GO TO 20380 \ REM ASSIGN A TO LOWEST X 20350 A=P1(2,0) \ GO TO 20380 \ R20 COUT(,G8$+P$,LEN(P$)+1,P9) \ REM DO A PEN MOVE TO THIS COORD 20030 COUT("WAIT",P$,LEN(P$),P9) \ REM THEN PUT A POINT THERE EM HIGHEST X 20360 A=P1(1,1) \ GO TO 20380 \ REM LOWEST Y 20370 A=P1(2,1) \ GO TO 20380 \ REM HIGHEST Y 20380 IF A%=4 THEN A%20040 RETURN 20050 REM ROUTINE TO PLOT VECTORS 20060 GOSUB 20100 \ REM CREATE COMMAND 20070 P$=P$ 20080 COUT(,P$,LEN(P$),P9)=0 \ REM START OVER 20390 RETURN 20400 REM ROUTINE TO PRINT TEXT AT ANY POSITION ON THE BOARD 20410 Q$=P$ \ GOSUB 20100 \ REM 20090 RETURN 20100 REM CREATE PLOTTER-READABLE COORDS 20110 REM THERE ARE 12 BITS IN THE PLOT COORDS 0123456789AB 20120 CREATE PLOTTER COORDS 20420 IF P$="" THEN 20470 \ REM OUT IF COORDS WERE BAD 20430 COUT(,G8$+P$+A9$,LEN(P$)+2,P9) \ REM MOVE  REM THE PLOTTER BREAKS IT UP LIKE THIS AAAAA CC (A-C)=XCOORD 20130 REM ********************************** PEN TO COORD, GOTO TEXT MODE 20440 COUT(,Q$,LEN(Q$),P9) \ REM PRINT TEXT 20450 COUT(,G8$+G9$,2,P9) \ REM GOTO PLOT MODE, SET V BBBBB (D-F)=YCOORD 20140 REM AND XMITS THEM LIKE THIS 01DDDDD 110FFCC 11EEEEE 10AAAAA 10BBBBB 20150 REM *** 20160 GOSUBECTOR MODE ON 20460 P$=Q$ \ Q$="" \ REM RESTORE INPUT TEXT STRING 20470 RETURN 20480 REM ROUTINE TO VALIDATE INPUT VALUES 20 20480 \ IF P=1 THEN 20170 \ P$="" \ GO TO 20280 \ REM OUT IF BAD 20170 FOR I9=0 TO 1 \ Q=P2(I9) \ REM EXTRACT BIT FIELDS FROM 490 P=0 \ REM ASSUME INPUT VALUES ARE BAD 20500 IF P2(0)<0 THEN 20530 \ IF P2(0)>P1(0,0) THEN 20530 20510 IF P2(1)<0 THEN 2053BOTH X AND Y 20180 P1(7,I9)=INT(Q/128) \ REM 5 HI-ORDER BITS 20190 P1(8,I9)=(Q-INT(P1(7,I9)*128))/4 \ REM MIDDLE 5 BITS 202000 \ IF P2(1)>P1(0,1) THEN 20530 20520 P=1 \ REM INPUT VALUES ARE GOOD, SO FLAG AS SUCH 20530 RETURN 20540 END  P1(9,I9)=Q-INT(Q/4)*4 \ REM LAST 2 BITS 20210 NEXT I9 20220 REM NOW SET UP COMMAND CHARS 20230 P$=CHR$(P1(7,1)+32) \ REM 1ST BYTE ARE HI-ORDER Y BITS 20240 P$=P$+CHR$(P1(9,1)*4+P1(9,0)+32+64) \ REM LOW ORDER 2 BITS 20250 P$=P$+CHR$(P1(8,1)+32+64) \ RC 95)"; \ INPUT N 270 IF N<0 THEN 260 280 IF N>295 THEN 260 290 T$=T$+"MADE WITH "+STR$(N)+" POINTS" 300 M=2*PI/(N-1) \ REM CO 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)'; \ MPUTE MULTIPLIER 310 FOR I=1 TO N 320 X=SIN(X1*M*I+X2) \ Y=SIN(Y1*M*I+Y2) \ REM THE LISSAJOUS EQUATIONS 330 P(I,0)=2 \ REM DRINPUT 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 oAW LINES BETWEEN THE POINTS 340 P(I,1)=X \ P(I,2)=Y 350 NEXT I 360 PRINT T$ \ PRINT X$ \ PRINT Y$ 370 P(1,0)=1 \ REM MOVE TOr N' \ GO TO 130 1000 END 10 REM CALCULATES LISSAJOUS POINTS FOR TEKTRONIX 4662 PLOTTER 20 REM SERIAL I/O SETTINGS: A=3, B=2, C=2, D=3 30 PRINT "LISSJU  1ST POINT 380 P(N+1,0)=10 \ P(N+1,1)=-1.2 \ REM SET PLOT LIMITS 390 P(N+2,0)=11 \ P(N+2,1)=1.2 400 P(N+3,0)=12 \ P(N+3,2)=-1creates Lissajous figures on an interactive digital" 40 PRINT "plotter (see Chap. 4, Introduction to MiniMINC)." 50 PRINT 60.2 410 P(N+4,0)=13 \ P(N+4,2)=1.2 420 CHAIN "PLOT.BAS" 430 END  PRINT "Note that LISSJU produces a figure of almost any" 70 PRINT "frequency ratio and phase shift. However, to produce" 80 PRINT "high-quality drawings, please confine your responses to the" 90 PRINT "following ranges:" 100 PRINT 110 PRINT "1. Rati10 FOR I=1 TO 23 \ PRINT \ NEXT I \ REM -- Clear screen 20 PRINT 'FILE LIST PROGRAM ' \ PRINT \ PRINT 30 PRINT 'File name (o between horz/vert multipliers not to exceed 40:1" 120 PRINT "2. Phases of 0 to 360" 130 PRINT "3. No. of points no greater tdefault 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 han 295" 140 PRINT 150 PRINT 160 COMMON P(300,2) \ REM ARRAY FOR POINTS 170 COMMON X$,Y$,T$ \ REM PLOT LABELS GO HERE 180TO 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 PRINT " HORIZONTAL MULTIPLIER "; \ INPUT X1 190 PRINT " VERTICAL MULTIPLIER "; \ INPUT Y1 200 PRINT " HORIZONTAL PHASE ANGLE  'filemt' 140 END IN DEGREES "; \ INPUT X2 210 PRINT " VERTICAL PHASE ANGLE IN DEGREES "; \ INPUT Y2 220 T$=" LISSAJOUS FIGURE WITH "+STR$(X1)+"10 REM -----TRIG 20 REM --------PROGRAM TO CALCULATE SINES AND COSINES 30 DISPLAY_CLEAR 35 PRINT ' TRIG ' \ PRINT 40 P/"+STR$(Y1)+" RATIO " 230 X$=" MULTIPLE OF "+STR$(X1)+" - PHASE OF "+STR$(X2)+" DEG " 240 Y$=" MULTIPLE OF "+STR$(Y1)+" - PHASRINT 'This program calculates the sine and cosine of an angle' 50 PRINT 60 PRINT 'Please enter the angle in degrees (0 to 360E OF "+STR$(Y2)+" DEG " 250 X2=X2*(PI/180) \ Y2=Y2*(PI/180) \ REM CONVERT DEG TO RADIANS 260 PRINT " NO. OF POINTS TO USE (0-2)'; \ 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 D umber between 1 and ';L; 200 GO TO 160 210 PRINT 'Exit File Maintenance Program' 220 END  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)*PI 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 10 FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'FILE CONCATENATION PROGRAM' 30 PRINT \ PRINT 35 PRINT 'Output file name'; \ INapproximation (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 PUT 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 Gand 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 THEO 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$ N GO TO 260 254 PRINT 'Please enter an integer between 1 and 512' 256 GO TO 240 260 VIEW("INVISIBLE",2) 265 WINDOW("EXACT",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 END 10 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  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 RE10 REM --- APPROX 20 REM ----- Program to compute and display a Fourier series approximation 30 REM ----- To a sawtooth functAD 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 nion. 40 DISPLAY_CLEAR 50 PRINT 'The APPROX program displays a sawtooth function and' 60 PRINT 'a Fourier Series approximationE =-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 14 PRINT 'This program begins by displaying a sine wave with 1 cycle.' 16 PRINT 'When the display is complete, you can specify 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 54 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 \ 0 \ 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 casPRINT \ 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 1e (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 PRINT80 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 'AGA 'Please answer Y or N' 590 SHADE("INVISIBLE",,1) 600 ERASE_GRAPH("ALL",,,1) 610 GO TO 220 620 DISPLAY_CLEAR 630 STOP IN (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  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 graph and label axes 450 GRAPH(,,X(0),Y(0)) 455 LABEL('BOLD','time -->','amplitude') 460 RETURN 1000 DISPLAY_CLEAR 1010 END 10 FOR I=1 TO 23 \ PRINT \ NEXT I \ REM -- Clear screen 20 PRINT 'FILE INPUT PROGRAM' \ PRINT \ PRINT 30 PRINT 'Input file -2*PI,-Q,+2*PI,+Q) 270 GRID('-HLINES,-TICKS,-UNITS',2) 280 HTEXT('BOLD',2,,'FOURIER SERIES APPROXIMATION') 290 S$='sin x' 30name'; \ LINPUT F$ 40 PRINT 'At each question mark, type the next line of the input file.' 50 PRINT 'To end the file, press th0 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 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 THEN S$=S$+' ... 1/'+STR$(I)+' sin '+STR$(I)+'x' 340 ERASE_TEXT(,21) 350 HTEXT('BOLD,FLASHING',21,10,'Plotting... ') 360 HTEXGO TO 70 110 CLOSE #1 120 PRINT 'File input complete' 130 CHAIN 'filemt' 140 END T('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 S110 REM ----CYCLES 11 REM--------Program to display specified number of cycles 12 REM--------of a sine wave. 13 DISPLAY_CLEAR F  1 2 3 4 5 6 7 1234567890123456789012345678901234567890123456789012345//345678This is a sample file for MINC Keypad Editor exercises. // //` ` ` Do not erase it.` ` ` // JUNE, 196789012345678901234567890 //345678This is a sample file for MINC Keypad Exercises. // //` ` ` Do not erase it.` ` ` // 80 a SUN MON TUE WED THU FRI SAT b c +------+------+------+------+------+------+------+ d  ` JY, 1980 aSAT b c +------+------+------+------+------+------+------+ d | | | 1 | | 3 |  | 1 | 2 | 3 | 4 | 5 | 6 | 7 | e | | | | | | | | f | 4 | 5 | e | | | | | | | | f | | | | | | |  | | | | | | | g +------+------+------+------+------+------+------+ h | 8 | 9 | g +------+------+------+------+------+------+------+ h | 6 |17 | 8 | 9 |10 |11 |12 |  |10 |11 |12 |13 |14 | i | | | | | | | | j | | | i | | | | | | | | j | | | | | | | | k  | | | | | k +------+------+------+------+------+------+------+ l |15 |16 |17 |18  +------+------+------+------+------+------+------+ |13 |14 |15 |16 |17 |18 |19 | m | |  |19 |20 |21 | m | | | | | | | | n | | | | |  | *| | | | | | | |... n | | | | | | | | o  | | | o +------+------+------+------+------+------+------+ p |22 |23 |24 |25 |26 |27  +------+------+------+------+******+------+------+ p |20 |222 |23 |24 |25 |26 | q | | |28 | q | | | | | | | | r | | | | | | | | | | | | | r | | | | | | | s +------+------+------+------+------ s +------+------+------+------+------+------+------+ t |29 |30 | | | | | | u +------+------+ +------+------+------+------+------+------+------+ t * |27 |28 |129 |30 |31 | |  | | | | | | | | v | | | | | | | | w +----- | u | | | | | | | | v | | | | | | | | -+------+------+------+------+------+------+ G y, Reading, Massachusetts 3070 REM ********************************************* 4000 REM -- shell sort 4005 REM 4010 G=N 4120 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 T020 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 L \ LINPUT #1,I1$(I) \ NEXT I 164 REM 165 REM ************************************************ 166 REM -- Process file 2 w +------+------+--- ---+------+------+------+------+ JANUARY, FEBRUARY, MARCH, APRIL, MAY O 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 sorted 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 N1 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 EXT I 5050 NEXT J 5060 CLOSE 1 5070 PRINT 'File sort complete' 5080 CHAIN 'filemt' 5090 END FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'FILE SORT PROGRAM' 30 PRINT \ PRINT 40 PRINT 'Name of file to be sorted'; \ INPUT 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 9010 FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'FILE MERGING PROGRAM' 30 PRINT \ PRINT 40 PRINT 'Input first file name'; \ INP 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 ********************UT F1$ 50 PRINT 'Input second file name'; \ INPUT F2$ 60 PRINT 'How many lines represent one record'; \ INPUT L 70 PRINT 'out************************ 3010 REM -- Sort the file 3020 REM 3030 REM -- For an explanation of the shell sort see 3040 REM --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  Knuth, D.E., "The Art of Computer Programming, 3050 REM -- Volume 3 / Sorting", Addison Wesley Publishing 3060 REM -- Compan104 REM 105 REM ************************************************ 106 REM -- Process file 1 107 REM 110 IF END #1 GO TO 130 H  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 -- TheOR CRASH - THIS IS THE 1ST ONE 160 Q1$=" ENTER WINDOW LIMITS " 170 Q2$=" ENTER LEFT X COORDINATE" \ F2$="BOLD" 180 A3=L1 \ A4y 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 ******=L2 190 Q3$=" VALID RANGE IS FROM "+STR$(A3)+" TO "+STR$(A4) \ F3$=F2$ 200 Q4$=" ENTER RIGHT X COORDINATE" \ F4$="" 210 Q5$="****************************************** 530 REM -- finish off remaining file 535 REM 540 IF END #F GO TO 580 550 FOR I=1  VALID RANGE WILL DEPEND ON LEFT X COORDINATE ENTERED ABOVE" 220 F5$="" 230 GOSUB 550 240 X5=A1 \ Y5=A2 \ REM SAVE USER'S ANSTO 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 merWER 250 POINT("BRAND",X5,Y5) 260 R5%=A1 \ C5%=A2 \ REMEMBER TO SAVE THE TEXT COORDS TOO ! 270 A%=1% \ REM CHECK FOR CRASH 28ge complete' 600 CHAIN 'filemt' 610 END 0 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 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 \ L10 REM ----WINDOW 12 REM -------Program to plot damped sine wave and let the user select a 13 REM -------portion of that wave INPUT #2,I2$(I) \ NEXT I 250 GO TO 340 255 REM 256 REM **************************************** 257 REM -- Process file 1 2to 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("58 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 froUPPER") 52 PRINT 'This demonstration program plots a damped sine wave in the upper' 53 PRINT 'region and then asks you for them 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 \ LI lower and upper ends of the range' 54 PRINT 'you want to see expanded. It then plots the expanded graph in ' 55 PRINT 'the lNPUT #1,I1$(I) \ NEXT I 334 REM 335 REM ************************************************ 337 REM -- Decide which record is neower 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 xt 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 fFACTOR 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("LINEile 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 --S",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 FI 0 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 450SWERS 840 REM ## 850 A%=0% \ HTEXT(,20,1," PLEASE ANSWER YES OR NO ") 860 INPUT A$ 870 ERASE_TEXT("TEXT",18) 880 IF A$=S 490 IF A%=0% THEN 1100 \ REM OUT IF DONE 500 ERASE_GRAPH("ALL",,,2) \ GOSUB 1040 510 POINT(,X5,Y5) \ POINT(,X6,Y6) \ REMEMBEEG$("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% \ REMR TO TURN OFF BRANDS 520 GO TO 150 530 STOP 540 REM #################### 550 REM ### SUBROUTINES #### 560 REM ############# 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 USE####### 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(Q1R 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 W$))/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("TEHERE YOU WANT IT ?") \ GOSUB 830 990 IF A%=1% THEN 1010 \ REM OUT IF CORRECT 1000 PUT_SYMBOL("INVISIBLE",A1,A2) \ GO TO 1030 \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$( REM ERASE & OUT IF BAD 1010 PUT_SYMBOL("CROSS",A1,A2) \ REM NORMAL CHAR FONT IF GOOD 1020 ERASE_TEXT("TEXT",16) \ REM ERASE YA3)+" TO "+STR$(A4)+")"; 670 INPUT A1 680 ERASE_TEXT("TEXT",20) \ REM DELETE ANY ERROR MESSAGE 690 MAP_TO_TEXT(A1,0,A8,A9) \ 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_ARREM E-Z WAY TO CHECK FOR BAD COORDS ! 700 IF A1A4 THEN 710 \ GO TO 730 710 HTEXT("FLASHING",20,1," INPUT EA(21,24) 1070 WIDE_LINE("WIDE",12) \ REM HIGHLIGHT DEFINITION LINE 1080 MOVE_CURSOR(24,1) 1090 RETURN 1100 DISPLAY_CLEAR \ FROM "+STR$(A3)+" TO "+STR$(A4) 320 F5$="BOLD" \ F4$=F5$ \ REM HIGHLITE THE RIGHT SIDE MSGS NOW !! 330 GOSUB 550 340 X6=A1 \ 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 THY6=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 FORE 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 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 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 O(,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 ONE") 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$R 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 49+" 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 ANJ 1 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  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 THE\ 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  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 HAVE BOTH SIN AND COS COMPONENTS TO SHOW RELATIONSHIP TO REAL AND 36 REM IMAGINARY COMPONENTS 40 R%(J)=A1*SIN((J-1)*C1)+A2*SII 390 REGION("FULL",1) 400 WINDOW("EXACT",-63,0,64,150000,1) 410 GRAPH("SHADE",,,T(1),,,1) 420 PRINT "POWER SPECTRUM" 430 FN((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 VFT('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 THALUES 60 NEXT J 65 REM THE ABOVE LOOP CALCULATES THE GIVEN FUNCTION WHICH MEETS THE CRITERIA 66 REM FOR DATA TO BEHAVE AS A IS 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 RECONTINUOUS FOURIER TRANSFORM DOES. 70 REGION('UPPER',1) 80 WINDOW("EXACT",1,-1000,128,+1000,1) 90 GRAPH(,,,R%(1),,,1) 100 REGION('UPPER',1) 510 WINDOW("EXACT",1,-1000,128,1000,1) 520 GRAPH(,,,R1(1),,,1) 530 REGION('LOWER',2) 540 WINDOW("EXACT",1,-1GION("LOWER",2) 110 WINDOW("EXACT,-HLINES",1,-1000,128,1000,2) 120 GRAPH(,,,I%(1),,,2) 130 PRINT 'REAL AND IMAGINARY PARTS OF000,128,1000,2) 550 GRAPH(,,,I1(1),,,2) 560 PRINT 'REAL AND IMAGINARY PARTS OF REVERSE FFT OF FFT OF GIVEN FUNCTION' 570 PRIN 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 APT 580 PRINT A$ \ INPUT S$ 590 DISPLAY_CLEAR 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 DISPLAY_CLEAR 240 REGION("UPPER",1) 245 REM NOTE THAT FIRST HALF OF FFT DATA CORRESPONDS TO NEGATIVE FREQUENCY 246 REM RANGE 250CHAR_MODE("-U,-B,-R,-F") 1110 END  WINDOW("EXACT",-63,-64000,64,64000) 260 GRAPH('lines',,,T(1),,,1) 270 REGION('LOWER',2) 280 WINDOW("EXACT",-63,-64000,64,64000,2) 290 GRAPH('lines',,,S1(1),,,2) 300 PRINT 'REAL AND IMAGINARY PARTS OF FFT OF GIVEN FUNCTION' 310 PRINT 320 PRINT A$ \K _CLEAR 430 RETURN 440 GRAPH_INIT 450 RETURN 460 PRINT 'You typed an invalid terminating character' 470 RETURN 480 END  380 350 REM routine for switching names 360 S$=A$(C) \ A$(C)=A$(D) \ A$(D)=S$ 370 GO TO 230 380 END 10 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=10 REM Program ALPHA 20 REM Name sorting by alphabetical order 30 REM Create array to store unordered names 40 DIM A$(1000) LONG, B=BRIGHT') 160 HTEXT('BOLD',4,1,'[ ] CHAR_MODE routine; B=BOLD,U=UNDER,R=REVERSE,F=FLASH') 170 HTEXT('BOLD',5,1,'[ ] TEX50 PRINT "Type names after the question mark, using the format:" \ PRINT 60 PRINT "Doe, J." \ PRINT 70 PRINT 'Type "endT_INIT') 180 HTEXT('BOLD',6,1,'[ ] DISPLAY_CLEAR') 190 HTEXT('BOLD',7,1,'[ ] GRAPH_INIT') 200 HTEXT('BOLD',15,1,'Move cursor " 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$to the row containing a graphic routine.') 210 HTEXT('BOLD',16,5,'If characters such as S and E are shown with the routine,') ="" \ 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$)-32220 HTEXT('BOLD',17,5,'use only those characters as terminating characters.') 230 HTEXT('BOLD',18,5,'Otherwise, type any letter) 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 na 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 2mes 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 na70 REM ******* END OF MENU SUBROUTINE ********** 280 IF POS('SsEe',M$,1)=0 THEN 460 290 GRAPH(M$,,X(0),Y(0)) 300 RETURN 310 me 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 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_MODSEG$(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 3E(M$) 360 RETURN 370 IF POS('BbUuRrFf',M$,1)=0 THEN 460 380 CHAR_MODE(M$) 390 RETURN 400 TEXT_INIT 410 RETURN 420 DISPLAY00 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 TOL L<1I A 2[?3l[?6l(BMiniMINC BASIC V1.2 for the 11/03