IMD 1.17: 21/02/2009 16:44:44 AS-H732A-BC MINIMINC/BASIC DEMO V1..1 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 DEMONSTRATE 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 TMz G z Gdz G@yz GdZz= GYzdz f iT~v G<u~v GT : dGeZVD N4 >4 Ea a a* *e 5a ,0p`Rp`Tp]]5 v G R`;v G2dv( Gc v Gc v Gc v Gc v Gc vGc vGc v Gc tvG&C% ys% Gysd &CsS xev f Xv ov Gzv f e}  {Lex  &k!  +  &\!  &j!  r  &g!  K  x|&  &h!  &i!  6o &+(  R@  0(2  c tvGc tvG     iuU@p ` L[?  A׌2 U  Eť ť` ׌_N1ť ť ť W    ߕ N&' ߕ N UW &' wD? (e,}$ebZ U  Z e<_e,}e"  (:VlllllrrF6e<&  ( c    e2  ec 4  e&c 7 |e&,^% & h  7 zA"CN%\%&    \B`  e*&&f   w$=     \ \   \e  \\xe* le*  @STARTSw 0 & 77 @%  @ %   `&\\ e* e*6 6 &  f 6A   7 ?BOOT-F-I/O error vߋtȋ | xE  e  v  6N\D C %     @  f&\@A & &Te*CBf @ E   E `   @5e  &  @  @ CaT \B a@ CaB a   C B 5CA aC`B \@A & &pe*f Qf KN @@?=e  ! C Dv DDC D@ C @ % ` `   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 & dG F  `$) `e0e05h+DbAb?`+7`v (e < ee0!!2+5?`V+7`@ f 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 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-Ov <@ `D fHT fHTHT  HT HTpHT% HL xHT xHT5 &}@HT__  - 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 Е:ͥ: ( ͥ.* wJerlay read error 5A K ) +U@\& l 7 fe ?KMON-F-Fatal halt鈇 aWw w eD w4 el ! s @r  wJ|D\f`|dP|D. 3 Ez %z ͋ ( B d  5$f >,( ""@"5@8eAbw   Da(D`D` Rvpbdͥ,͋jg, 7  e|  %@AefFuu  ( T X \E $ H .5 !? 2" cef E  7 7| lwr  wa PO e @e`  e !`%Ԃ  f W +,e( (wv'@7$e '  I 6ww% ? !͇  @  7w r`wawLͥ  ͥ& 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 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  @ʕ*  #ͥ.P J  v%* @.*SSTIN   DID IN RE LI   @P  .ͥ*ͥ%  ee@a ȕa P  w7  n7 E  2wwR e ы wae  @CONTNSUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 8 $ w=u  V7fe e LMG,7 0w:U, 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   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$? 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 ӋC X DEBN!!  N! 6 N! *ͥ/͜AN wwJwͥ) ͥ, ͥ ͥ+͋EK]w  ۇf: N LW 1vELW! 5 `1   P$ & w f 5  H(e   2 : W ͋ w V P   . \  T5!f w Zd $PPw Nw Dw 2 w 2  rw E MfeBfeX, e_ l_? `BaJa$T@\Z^X`b FJ VT<W2 Z 7 H3zN  Q f *8,QF7 2#@SD Og,e  "V  \0p^Xr2\ 2" eJe" aa C @ @ ,0*5 # #e`#w d %    `C KSdKU b$`CE($U@ ?MON-F-Illegal call to USRNo deviceDirectory I/O errorBad FetchOverlay errorDirectory overflowIllegalg, _#" ^ ? B 7 T 63 f7 Kaes S w ^  r77  : `97Device full D ,   &` 7File not found W,W=ac~,6 "0d @(F*&  " 5 @ < < N52g,.7͋X7xIllegal commandͥ/N : U@ Rͥ.   6 7Illegal device+5$ ͋*@ q"@  l͊  UU@ Z  wT XU$7  7 * 7?CSI-F-鈀 U@tUf Nw0& dć W[ W]   7 * 5,7 JE$(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$  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   U@UӋˋ5Q E %=%< D  "% % 5(ŀD   &7    '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    &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 fileIlle }w ~ Xw }w  <e. ~ P 7 I G4 6&(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 www wF }w  F " V" SP  F &m eg z3 ?  & &+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  w w n    Hw  $en@׭} w  w  wb u D < 5DQQ QWYC!Pb"M S U# w T : ` , |e ez}]vUHUHͥ: tH.TECeB hw RE SN S D D   DI   B  OA P ͥ: ' ''PPw PYHXZHK@IMZeDPP PJ`@ePPPP5O IT P AL       P  F P z2dv@^UA!!@:ER#SY:HELP.COM#"F@^A#?HELP-F-File not found HELP.COM #HKEX'YHXZHKGAMZ $ Ow |dww#www D  u  18  (/ HL HEHDHCMhP HN hw V w   fw  8 z JW  h 8" " !edC  ww  w ^w B  u  / '  A DC WO  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 Jwgal 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 dateIwww ` @ : 3 g *RGWWQYCTNw  w u   @KNILm&戕 wV ե/@ ;ae6  <@ /  ,+w  evf D!%  R`W!+&&   e f   & f&SLIN SO W RF4FMADIO LIE ww7 m eB`  DZT͋D ,̕/w  w7z7 DI CAL OEXS   CODIR CW  CO  LIx A Def  e_!,ee   e %  eae8 PAL P W BOLIN DEXMAb"&e2  e % L (Loaded) (Resident) , =   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    u    !SOWW @L GP   HEHD@C A DEA`NOGIGw < wb "feHB¥[L <e ы e wRUN B`RTMS CmFmOMhP HNUVGM  NwJw `~ 췊@wN F ee!  ͥ:fe wͥ:w g #  Y  " "" AK   7A""wO SLIE DI CLIPAL W LIN AL OSO F4F##DG`/RU w $  Jw, 0 @•Mw  ɕ • %e ee e  e鈁(@      oe- @& 8w`"  * VC! ׭! fw&W@7  X5 Lwfߋ* vw &ʋU f? ``?  N!%7 Z"".=60 .WORD ."..V2.PSECT.ENDC/2. -1 + 8 ^O100000 .WOR@ D INT - ..ENH DC .WORD ^O34P 0S &F x<%e*:;"@ "ة""`*>'L*.'D*V"^*l"" g*lYS::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$PTBYTr   jv g dx dK( dP<2 d d dqA d Xh dj7 dZj& d8j dkjj8|# dkjK d|*<< dd*J- dk*dF T` N*zDz&q q8HKr8H *`jRKjnKjr2Ljt#Njv-Kjx(-NjzNj|Kj~7hMjM*p62gj<2gj B <> BR xINT:: JSR %5,@$INPTR .WORD ^C<*^O40>&^O340W@K vxev f '|Qv f [q`v f zv f zkQx% f }]v f kQrv- kQ8v4 %v f yK.IF NDF $SYSDV.ASECT. = 52.GLOBL END .WORD <END - STRT> .WORD .WORD .PSECT.IFF$SYDSZ == .%v f Udv f 'L .L 9f z f  |&"F 2PW@fW@'<X.GLOBL` $INPTR.IIF Bh <> RTS %7.IpIF Npqz f 8rz f z f Mz f z f `Yz f xdz f z f  z f   _# B  ? $JB 7& D 63 f7 B.-E ``eE5 E /Kο Kz, Mz XkQ (<Kaes S w ^ 5Sw I3W2Wl Ew C $ A!EE P &$Do you want RP11/RPR02 or RP11/RP03 disk support [Y/N] (N)? N)?DP/Y=N )?RFEΒE? *# ?w  D%7 pЕȕ e 0E & &&& P/D=1,1,8 40xO<44޻r< ee? *  Uw(w &fmw )B e E '@@ ޻Oh 8&~Kp: ŭL f el BBE/aw z"Ba5lafw \CRC!  BC 5aW *J Q!Ej(A W   *`Be 7^Ee5h3 w w Dw  0w ( xDPPPH (a(fECew EN   FEUw 5@!eBB ` ? w~Elme&f w | Q$ 7 &w w  Be$B    *   t] 1@5 Ӌ7 ʋ7 w87 ֩ ҩEwdQ$mfw  d  & r 87 @Ŋ5$ߋfM7 2 5@ 17777|-C xteh^waZaejw`w`eZ 7-D7   @e_@ 8VW p3EZW!z 5 1  p $ѝїB" ( w    $ . עGEQ E %=%< D  "% % 5rŀ׭WU\ \  T5!f w  $PPw Jw w n w n  w xEW2  7 <|  *",CИBwB @'  7  e  O  $d  N&r7N d@ Q f *A,lQ7 N4#@\D #w J Og,eV  7  T `97Device full ^ ,  $ &` 7File not found W,W=͋W7xI,0*5 # #e`#w  %    `C KSdKU b$`Cg,llegal commandͥ/N : U@ lͥ.   P 7Illegal devicet w7  |xw ,e & Ε,e V,e 7  j,e & Ε,e ,eU b7 \Tfn` 76 0 *&-U 7 U@$ : 0 0   ww w - w fw  Hc 5w  w : : w :  &w : ; w ; w x`V fK$ 6 0   0   C   wDU%w B@ @ @`w &@`    0W  x 7 Z az<1I A 2[?3l[?6l(BMiniMINC V1.1  &B 7:7 7/, 7$--3 $ -FE  D@  Please enterToday's date: Current time: Incorrect date, correct format is dd-mmm-yy Incorrect time, correct format is hh:mm:ss JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-<u~% DATE TIME DATE TIME v<zBJZbwNmmg w87? ,e & Ε,e ,e    @e E7w    w w` D "7e7R m & N & w ( @ e@W [eW $e c    J waF 7D w v: ZT " 7 w 4wwewBC e wW"6@5m f A N  %  ѥ  Y  N w   @"? p7 fw 7 ^  m  &`  .    ~2 Vw 4tw Dw t-w Qt w z twlwR Initialization is complete; found Bad blocks @m7  17 Tw w te N  l w P( de^ee # e7cE `7!\wL PeA# # #e4:6 v  7 l &fe>B @& fE@ B  x_ _ t_ ~_  _  8_   *͋ww( P $B w~7s ŝԋXVwTDR  `D<:: C f`B   _  ,eee( " h & & ? d2ɕe $7  j G ͋w^  T WWw 7 v   H  8 ee  w h & ˇ/ 5h0ɋwLB `ыB ɋɋB  ew N%w ,  Bw    " - w R AeB`w > ^  w *eAeB`w   :w& 2ЋЋЋe 7AIw @` \f wn  7 r  BP  SY1 owner is: SY1 volume id is: @@   @ A  @ A @ A @ A    e0 ~ w @ eߥ*wZ w\ e H   E>w!U %  Օ0N UUU  m  w@ 8 720 ( ߋ*wL ww~ f w  \%   wd BwB@`7  wd w g%r  N a flB `X fT, L B e7:  #wwa&  $ 6@m27 PD@ M-w w e  7`  . 4    w w 2hw *= P  6 ׭!7 w7.737 ( '7 wKHAEwBh?<96309-\*g's$! 5 H^H鈀+wT@鈅Proceed with initialization (Y or N)? Device SY may not be i 7w 4-w 2  V  DB 8] B&B7 H  Օnitialized. Current owner: Current volume id:? MUTIL V03.03 ?UTILITY-F-?UTILITY-W-RebootError writing directory UU  4%] ՝՝՝%Օ.e  @ z *7*" BBad directory blockIllegal commandInstall volume to be initialized in SY, and press RETURNDisk unusable. Too many bad blocksUwHardSoftBad Blocks Type Filename Rel Blk ?DUP-I-No bad blocks foundThere were no bad blocks found 5<Error in formatting diskVolume owner name may not be 'DIGITAL'Unable to initialize volume with owner name 'DIGITAL'Unable tow^ 4׭0 0&-,7-ww 7 w pw(  p w t   t &? 7; V  n  b  Z  6  specify 'DIGITAL' as owner nameCopies of the following files may be faulty:Insufficient memoryError reading directoryErrorw D T7   5=   )5%7 w  w T in system areaTarget volume must be newly initialized.Not enough useable space on volumeRead errorWrite errorDirectory fulw 0 w &f&f~  f &RTȋ lCannot write SY: while FG loadedIllegal deviceDevice not activeIllegal directoryIllegal contiguous fileToo many bad blockȝp0 &De"$& &e\7 sIllegal optionCannot /S SY: if indirect file openUnmarked bad blockFile not foundInput truncated at six charactersInput te" #" #" ,   veAȋ runcated at ten charactersInput truncated at twelve charactersDevice in useUninitialized volumeOutput device not specified;  ` P7z7tDIGITALA, wewewewewae/ dT 'dDK: is defaultNo swap file on boot volume, ZNRBVKHFSICTUOYLXW -@eeW#@ x w v^ tw\Output file name is already in useX`pz Pxh; do you want to erase its current contents (Y or N)?x׭ %U55eI55  %: X!}<}; z|:  w r5. l\^NwN $ w87 B m7( w7 7  & Ε,e  ĥ%,_hjXX ɥɥemfew"em w r 7P gw Trew~ wvew X l RRR v 7 :6B m &$ H7 m   f   T e T@. : d w ^ \ w w JHw Dwe@7 87rb Cw  ] hԝԝԝ~e ԕ. N򷊆 r7x w w = %CR%T1Hww .r7\e7R w 8=e #m8#[7- w Hw wTw = 0e 2ew 2@ $  !@w vw r@w w v@ P  ` sw jt   ? \ 6户L4/ Fb w rJe e <w.-,ba%w w r?7 w T ѭы @ <w 7, e7 %@ T  e e1,w  De 7B5-dm|&m% `mf r@l `:  ew e|eDECRT11A$ D ȭew 0@ `  TC``B7H%Lw e *% ~ 4 @w w rtw w :7  ׭ww 7%0@ wU@$U$TA Nw JWADeh 6fw* w * (ww 7 wDo you want to duplicate another volume (Y or N)?Re-install system volume iw xw 0Hw *wԕ E$E@$ & & ȋ  5w  bRT11n SY0, and then press RETURNInstall volume to be duplicated in SY0; install initialized, empty volume in SY1,Are you ready (Y A ߋtv ?BOOT-F-No boot on volume Type new Volume id:Type new owner name:or N)?7 vp7 j @e 0 4  %`w>(e  @n &g鈀?EDITOR-&:鈀&@鈀[?8l[?8h ( (@ɋ (;B RD \ T   p   \w TwR7 q 4 Q+ Jf &g鈀  0 9 f e 0`[H[24B#5[132C[6n[ ɋ ; f R(0   鈀  &^e@W X ҇7 17   W  W W Ww f& e    8! ' z 7   !Pp V!M    7 *w   鈰 wO 7 D7  beicd V-  L  6-j  X `7 |+wx !g  *'V Z7 7 7 7 7 07 +  Bɋ@ &  ^ x w&7   n7 $$7  6  *5 *  U@E@ 7 (BW  @     5 E U w A Zaz < ы  j  7 7 7 7 07  7 80+ 4$ B : 7 *7  $wW 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  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 ,~C %0  Ee/  "2BRbr#3CScs$4DTdt%5EUeu&6FVfv'7GWgw(8HXhx)  z x  p7 P7 4Z+ & 7 g^  wRf&& 5^5 jfN NmNbu`@d7 @^@  A 7 @a v 7 f`DAbu- DA`u A fAb @fd @^ Ba j 7 Xu`fu-`/ DAf W  ^ʋ  lX@ u^h V@^ 56 ʇuh^ҋKA^7 zN !R=eu eAa@$  u^D%5 ^  Ba@m7 4z `R@  ``B    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 !DE . ن '  \\ Al  e X\ ^& X0 ~$ e@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   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 9IYiy*:JZjz& R ([  ,; @ H  fW B ?dd duz u Hp pp 0  um u"AB5  @m u @ŀ" R  u u 5  ,u| u~    S S  m Az7 Hueu .7 +w7 +w7  u Au u A A;BB 0BB "3BB"  *@,kZs{(0a(B(0d(B(0`(B(0i(B(0c pp 0  u ABA"bu um"7 @,w`7 6',wV7 ,A,wL7 AA u "4 /Au  (B[K[[J M[H[J &A` u  W W   u`u @  䂁 u`A7 f+w f&&BBm"5bbu  @,Hppp 0  um"u7 Z,w7 AAmBnBmCC  f w! 7 |+w7 w5 5uu="  $5 ,Ca #7 +w7 v"0  Y \ Y  @, ppp 0  uABAm"Ru u"u-5B B  X %55 5 u5 5 5 @ 5   R L W-" > 8  @, pp0  eE `uu 7 y,w7 ݐ,w7 ݪ,w"&U $ , 2  V * N@  *u- } @ @ *u- } @ N *EU  ,5fnۀ 7 , . 숁  w /   & (f # & (= @ * u-e&u (@5 * *     `C !ee!m@a7 @,0 툀''&) u-e&u (u @   :   "@  &   8 ' ' :6 t6 *Aa @,p7 ., '7 @,' 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- $huj(  "&(f &  55& |$  pointer corruptF-WRFWD- Block overrunF-WRFWD- Bad block numberF-WRFWD- Not enough dataF-RDBKW- No space to read intoF-WRBKW & (!k7P$D$E&>$^&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 ##"e! ePe"Pj3h3|3z U $ <u!\+ 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#@ pB`"ʊ@ҋput fileF-Cannot proceed; owner is 'DIGITAL' for output volumeF-Non directory device illegal for outputF-Unable to check volu R F L΋ ++"  w F v"me ownerF-Unable to trim output fileF-I/O Error while trimming outputz|   N"? DW=W? A @ @)鈇& f,; ,4t@,(-B@,0  (eE  7 ى-7 -7 |-DIGITAL7  B  H7 4 (  de0  נ0ѕ  ѐ 'd  l & ZۀYy7 &'B'$$$$Be @,p   1   @,'A@,'0 6D B  B BE@,p00 &N@, p00 `7 .7 &.?& -* &t*鈀t*UPJՇEPBՇF-Incorrect screen siz  V & eN t RD \RD ^&&Af  J"Kv v&f&  D\f&̋$TT&  e\ \.V\?\.V\x& & e:  STMT  5 Eť1 ť+ť$ 3 Tť0 H̋  <̋s  Ş@{s @ s ツ̋\\ \ \ \& \\\\&\\\\ \\\\\ \m 54 w + f3! ,f$ f nH5$\\&\\\\\\&\ & eN  興STOP -- ||| 11 Floating underflow6 Output convert  RDZ~&$3R3~3D3Ze &.S3`D Z~^\&\\&\ sion error4 Computed goto out of range 12 Floating zero divide2 Integer zero divide3 Compiler generated error16 Wrong nf B % % e@ ( B`  ` A@^   A ^”E umber of arguments 13 Sqrt of negative number1 Integer overflow 10 Floating overflow5 Input conversion error14 UndefinedeBCIE `-    D E A@D D e0bb %- ҕ* V ^  exponentiation operation15 Log of zero or negative number7 Incompatible object modules553 List directed I/O syntax error= p U   U J0 `5 ,r@E d t6~3 Dt61 Illegal memory reference20 Invalid logical unit number21 Out of available logical unitS22 Input record too long23 Har~  ^t~3 r3 p3 X 3\e\e\e\e\e\e\g\g\g\\\\\\\\dware I/O error?63 Illegal instruction trap24 Attempt to read/write past end of file25 Attempt to read after write26 Recu\\ \ \& \ \ \& \\%\%\%\%\%\'\'\'\ ' ' \\%f&\J\rsive I/O not allowed-45 Incompatible variable and format types27 Attempt to use device not in system31 No available I/O ch e:   낃 (   3 E`E& N U%@U\N E\N MEP\֋\܋\\ȋ\0 %twP\\\&\\\&\\\"wz?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789fromin routine "" line ?Err & \ \ \\\\\\PH\PPw^  ^  e d  p (PC= e*  e*  @%  @ %   `&\\pgV `b Xw b& e\& e\&&&e\&e\&&f& $ annel28 Open failed for file29 No room for device handler$36 Bad file specification string,44 2nd record request in ENCODE & &v    E5@ߋ*3 pr 5U3 rpw` /DECODE 32 Fmtd-unfmtd-random I/O to same file!33 Attempt to read past end of record"34 Unfmtd I/O to TT or LP%37 Random acc  ;3  ,FF3 F V {` `3 V3 Tl ,FFBFFess read/write before define file&38 Random I/O not allowed to TT or LP'39 Record larger than record size in define file(40 Rx R p  3hAsd T `  N  ZT `Q DMB ";  C  @ equest for block larger than 65535)41 Define file attempted on open unit#35 Attempt to output to read only file30 No room foB   D \w $𮉳V& D D  3 V3   3 F  `P B3 \ ~@r buffers*42 Memory overflow compiling object time format.46 Infinite format loop+43 Syntax error in object time format149 E  rExn H3I \sJ FsL% 8sN DL׬I( R%RNndfile on random file/47 Attempt to store outside partition048 Unit already open@64 Virtual array initialization failureA65 N @ 3`"  ,     JœH @ & %NVirtual array mapping errorB66 Unsupported OPEN/CLOSE keyword or optionC67 Unsupported OPEN/CLOSE keyword or option351 InconsR W w    D >& & EF    w jf  w RDR%istent OPEN/CLOSE statement specifications250 Keyword value error in OPEN statementD68 Direct access record size error0 Non-% $J J N ꇁ   Е `CBД  SD @` f$FORTRAN error call %c s ыs e |e3*^5@5#E 5m5 ҕ   mU d & 35 5  Xf&, f35nȋ~ 5*4& 5t z L` @UfABΥ D%# ы Cʋ ɋR  ֥ @4- 6pt4r&朢d 6  5@a3 s 5@ DB  "R  D f  Հ e  C b @` ` Z@9/ $#@ 3@3 r3 p3!  #p   3 3&4 4-45@.-& f ffffU*@ e @@@ @Ћ @& ͥNffU*@ e@E4   4&vC j5EUe  & 4-2 .CABåDR  åɋݕRCABы åݕ ѕ 7 6% & N' '& & * u @ 3 PA$&eW!$ |%'& f@! t`$# B    ` ׮PU ׮PU, U1 0 555U U& &3 @&&5¥.  , &@ #& 5ff@ & 5 EE 爄 '` " & % r d `# ' ' & ''''''' h  '','~ h ",Mxdxd z.0!&% HELP-F-Error in Help line processing  HELP% HELP-F-Help file not in proper format HEL'a,'z Z 'p t'$ ' '^''& 'F '': ' Z' ' ^' '('') ' 'F P-F-Cannot open Help file! HELP-F-Error in reading Help file' HELP-F-Default Help file has bad format) HELP-W-Default s'' '[' _'B~` 8 - _' %. ' 'P'> ' ` 1> 'X x 3 & % r 4> 'ystem Help file not found- HELP-F-Error opening user-supplied Help file $No help for topic cZ !6 & % r d `#: ' & ( ' '" ( ( (' (B'B '(Z > & & r d `#A'^' (B  ' ^' ' (2''Z !F ' ' ' '' ' ( 'H&''Z !J 'F ''`!3sS333J3Ԁ   & ?& r d `#N ' (' ' (' & j& ' (H 'r  ' ' H ' ' ' H 'd "U & _' _'x ' '& ' ' ' 'P((` "]> 'h f"_ & m& r `> (Z "b & & & _':r c> (h "e & & r  &zhd `#l ' ' ( '''X o ' ' (' '' ' ( 'q'''''' h `#t '6'> 'Z 2#w 'F ''#x '&:  f&f&  e `e& e eB% N"Q$B(< U   EP U  dUP$+ @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.>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 printednext, 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.! *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`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" only be duplicated, not used.Do you wish to duplicate this diskette (Y or N) ?wRemove distribution diskette from drY/BOOT SY1:PDMNSJ.SYS SY1: R ATCYN6 !Announce the verify pass. DIR/BAD/FILES SY1: R ATCYN7 !Wrap it up. ive 0 and store it safely.SET USR NOSWAP SET TT SCOPE INS SP LOAD SP INS LP ASS PD1 HLP R MTITLE R DATTIM @DATTIM R ATCYN3 @STARTS  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: COP# llegal 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 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 &M׭ ]n]je x ]w  ˇ7&] ]eX]^e-w  eZ  e0??  e   G`5C5;ff \ ( 'F+U oCP2w_ZPIP V06.01 deleted:copied/ee    w- Uw b U  w- bUe emH  &Z deleted:renamed:copied: Files to ? ?PIP-F-Check sum error Device full Device in use Error reading directoryLibrary f -Z 1 .  ]"    ^xw w ,eW!we 5R Q4SZMX ALL ile not copied Too many output filesFile not found Illegal output file File sequence number not foundIllegal deviceIllegal commandIllegal delete Illegal directoryIllegal option combinationIllegal optionIllegal use of wildcards Illegal rename I$   ewf    "  鈇PPPPEL]RE0 W- @ W w X2w R4׭ 5 p0 wf& A ww  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 :       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  NW#% > f v ww  8 ee | 7 47 *7 * ȝz0 `ߋ*w  w  "~] w  ( 7 (     LZ  4 w   v]| v $ l ee f5 wb,z, *& x"", 0 ,77 z jw 0 p p *W  B w׭    . 7 ^@ X   @ eP efe Np% f & \ע.פ/ H    ע  &׬    e  jL  ` ? ɕe & tp& ˇ/ 5&ɋw*B `ыB ɋɋB  W#G "W#> z;b r7f&  r-T0 "  N   ew Qw&E B?7(w0-!< #HЋ鈂 n( z&0  *w P+舀w < 6&0 ЋЋe 7ZAIN @ 7  w @` R f ~w 7  ߋ*F  5 W l+͋+*@E@E f #5  w ߥ*w w em>fm."m"7 Be 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> w( @ %ee0f6e.    W.W: B ѕ ɕ&fe>B @& fE@@ B @ @@M_ B_ $_ _  B_  _ 鈇'& %Y&f   Cנ/D נ/ נ.!  f   _  _  _ B_ B,e`eTeN( "2. & t& & wp w 8e N   w l eee # e7lcE `7!w emf A N  %  ѥ YnMw>w? +A# #p #e6 v N&fH @`" B ,%w& 7 . '$t X  00ȕ @ \ pPw *8  &B o D e 7 , ͋w w>   : B w7 ŝ ԋn l wj D%@ KrGo%@%@<7 9 65; (4$ #  %@w.~7 xh  zZ R P P C hf`B   : 7 0   W ͋wn  d WWw 7 v   $  `X7 t7 L<X7 2 ~  D ,p t  I    ee   fw %w f > - 6 . w w0  w%%VO5*p   wh0 wj wVewPewJewDew>ww *(    w   wf Dw P Е= n AeB`w 86w . Е=eAeB`w :t &f&f~  f NPxȋ ȝp0 & 4  BP   @: Ie 8 ( . $ F   (  (  ,  &  7 De"$& &e\7 e" #" #" 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 Օ0N UUU  m r w: 2r 7,* "| w|    7`  7`D   T  w  @e E7w   fl `X fT L B e7: p #w8wFw vw  w w   !7e7b mZ waV 7T w :J fw" 7.w Bww=L P$  6 ׭!7J w7.737 ( '7 &ew BC e wW"4@  @"? ~7 tw 7 l  m  `&`   & w~ V!( e@W [eW $e c    "7 x  N z  8 2 hw 8w Vw 8wD ( @m67 VN .*17 >7,5/Ep 5wDw   Fz5' ing directoryBad directory blockIllegal commandInsufficient memoryError reading directoryError in system areaDirectory notD ew  RT11̕AeeDECRT11A #  ȭew R zeroedDevice fullRead errorWrite errorDirectory fullCannot write SY: while FG loadedIllegal deviceDevice not activeIllew 7 ^ X׭8w.wrwVw "h wV  h w 2w wgal directoryIllegal contiguous fileToo many bad blocksIllegal optionCannot /s sy: if indirect file openUnmarked bad block w  w  $e!ԕD%B1 3)w w |% 7 w Z t~w ~File not foundInput truncated at six charactersInput truncated at ten charactersInput truncated at twelve charactersDevice i'w vw <w 6w 0Xw X4w w w w w w7z%l@ 8w @n useNo RT-11 vol idFile existsOutput device not specified; DK: is defaultNo swap file on boot volume, ZNRBVKA +U@$U$DNA 8w 8ADe6N w 1E$E@$e R& & HFSICTUOYLXWV( ~vnzȋ  5w S 2VOL1RT11A HDR1ZEROED.ZZZ RT11A 00010000000100 00000 00000 000000DECRT11AEOF1D %: X!}RT11A ߋtv ?BOOT-F-No boot on volume <}; z@: Hw jw HN mD |7!?N B@e->5a  ~?a* wpw * w b L 52ww &w 6?K ѭы @gw 7 e7Hv% pw tw LD d:w02m07 vw ! * % -?a 6 , v?<9630-*'+$:![j| < w:\@ D 6 e e| j$ ?  "w ͋w>w>  x^鈀+wf@鈅 are you sure?/Init/Copy/Squeeze/Vol id changeForeground job ew4Dw`m7  A w   " w 8 ` loaded,continue?Insert system disc,Are you ready? Owner name Vol id? DUP V03.04C ?DUP-F-?DUP-W-RebootError writxrRjh" ww^ w@ w  " wd   R w(  ?0a pw?ahmb?^  %   b > wmt($` - \w 6le e ^wwba%>w w t6$\`1,w4  r` vV & w*D $ F w    dww ~-Jf De 7Bwf-m&m% 8`m @ *`@ `  nC``B7r% @ 2   wB Ȃ     n ww` 7vw e T% 8@ "@4 @w w z6tw $ fnw\ww ^-w  ^" FD *[B&B\T7 N   Օ  Lw 9w L_ , 6-2((  & e7p -w Bx7 v7 UU  % B՝՝՝%Օ.e  @ 0 7 Bwe 0 4  %nw$ex r N@n7 d7 ^\ 4P& Ε,eXHardSoftBad Blocks Type Filename Rel Blk ?DUP-I-No bad blocks found 2 |w yw |~   &t    ĥ%,_hjXX w  >Yzdz-@, e w& w ww"w"5w5w=܋ Hw Nw = %CR%T1fw 67ze7p w p=e #mV#Y7-(wdw B= & xRe N:ew $0@ $  !@w T:w L6@w hw Z:@ P  ` sw 68  ? ~ 户n h ) 2'>'N'\'j'v'~'''' 8&f&f < &f&f  &f&f \ l 0( 1( Ew U,e & Ε,e t7n,e ,e &Tt,e & Ε,e&f&f B &f&f   < sf&f&wl A e V T  470,e < 7  e$0 L-7 @  PQ%5@    5@  x Jv s&@5&E&fe>B @& fE@G܋ B G$G3G5GEGFgMgQgUgYzg\x555%~57 R1 j&tE P%@5@ 5  *x% 5 J %5 g_|oc|oj|ok|op|ovM|}|||u|L||ށ_ G_ JH_  L T L &@&&E H    x7 `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_ 6 4 B 7 b1$$  |fWtE v`f&f&Hp_ Hp_ Hq_ Hr_ HPr_ Hjr_ Hr_ Hr_ Hr_ Hvs_ Hs_ H0t_ HDt_ Hu_ Hu_ H4v_  ``EEC`WtE tE z y 7 1$y 7 b1$H:v_ HBv_ HRv_ HVv_ Hv_ Hv_ Hv_ Hv_ H w_ Hw_ H:w_ H>w_ H`w_ Hx_ Hy_ H>y_ eE:NE 2; UBe 5"UE5@U*+0 E@5 U*+H:z_ H{_ H2{_ H |_ N~o_ No_ T~o_ Tvw_ TZx_ Z~o_ `~o_ f|_ fX_ l}_ r|_ r2_ 0 E 7 7 7 E75N(@N(DN(HN(LN(PN(T5 UxUtU@$ x|_ ~|_ ~|_ |_ }_ |_ ⁶%%%%%%%%%%&&&*&2&:&B&J&T&^&f&n&x&&&&&&&&&&&'''(' x 5R' #*+ (E E7~ v7 7 w  UXew  v t >E6f*  P@UB  vf&\& & \5 f@j(U&f&Av D a5U%  1 [$ A  x$   !   w!   H \ 0  ,e ]$,6  ~  ~ C B ~  ~ &. b52wPPE A 7w 5     :;y@鈂 F 7 : 6e*&W 58h|<h|h| E  E $5 8E@E: VJ5@&&7 1$.6BN[?1h>[?7l[?7h> p { 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- ,   ey,<~7 7 7 *7 (7 7 "7 7  : 4$,U@$ "   $7 7 5, A- H   e3 > >WWQ  3Q@ыC ʥee < p;y GRAPHICS CONTEXT WILL NOT BE SAVED@yPBCDLCoD3h|@@@D&   Ee0E " e7 ^D7 T>*>>e7 0 *e*   5 @5 e u+u*u-u,&& eL e  L  E, 5 , H*-W  & F> 0 6  > . f>   j. 0 f4  5 T(&ua&f&& W ы WWW W eQQe WW>0 # .   E u5 F w ?@ wfEe0U@ Wы   B B5Bm =< < :&P+P*P-P,5 * \fEe0@ABCf !Cw D  eAmJu AJ AmJu  uJ!ࡐ, )x*))@H=A@@A=P=X=A=@HA=@H@:A=@:A=@H@H==A=@H@K@KA=@H==@K====11@H=@H@H====@H==***==@@A=@HA9@>@A=@H@@9A@H@9A@>@H==,H=@H@:A=@H==A=@H@11@1@@@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 %   &f&DE] ۼ//~/-N6     ;y* &fD@@    @ f&\pf\ 7  \ r7  \&&f   22  22Ȑ@ J  fp `{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 wHPRr[ 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[?7lDLCoD3h|DLC D3 z|DDoD s|98  \& \\r1@\[?\ e7   ?U?*@ڪA& & & & & D&&e n))n)n)@H=@@A=@:A=@H@:@:A=@H@:@2A=@HA=@HA=@H@:@:A:A:A=- $ " "< 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 #@  @6  V2866 6 #?%-0 @ ׳f&& @׳1A B<"<p0 w]0d"< 0 6<0 ;鈱 5@f& Z2161V26f&f& Z26Z21Z21Z21Z21Z2116116   \7f& \ e  U@$E@$ f&7 1 C3  v   B K툇爎d &\>:L]L?ƪ@D g C_  fW & @&&&& 7Z217b17V217Z21V211V2t71z7Z27e\&wL41>w> wt6 w. w& & w w w w w w*w"w\w`ꈇ\;@\ \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 . ѕ 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 % p w>)  D *zNNPN:PQhPBaBBm WX WR wW!TBD*2DwE  e"  R ^w6 .x ,u rK  JWBW?!hf e&&  eeҤ%  פ   ҥ   BWo3WwBBmʵ 5Jww) 6ʵ C,@*1W%3  *WWf, އ z  GDAT3+ WW! f.f D PB)) B6N:6 6  J5@ >W-: -   5  >#%> @:  ~9 ߇@*WC,1 @,ʵwD  nD ޵.5 *. Re,Cנ"נננe: U@ :U @: + Ce 5@ N 5  R  8  : 3 .3e ננננ BzJKDJfJJ`J@J:J !f. w& *e*5 , e (6  BV %  %  <v<6 6   5 , dԬ 7 ў1Z217 121 7 ў1V217 1213  & Zw JwT     &7 f5`F5` = & &AT Pu/&P& = &  !& Β *#WW  e5 .Jf ڇ)#%  $ B, :&)f@  5E"  1U҃!& Β`# e  `e e e0 6W 67 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/ .. R  J  fe 2 f. V   11e ewfv   `:%  *U*5 , ɲDw` & & &  & 6 &w&3zRvVvVV T fP% 8  w W W w0 6w| & u 5>5 RW> D  f  - $wr a` 0w& 4[wi x[ \w FUB3BBmf@ @ע ˋ> "C ˋ/CӤˋӤפ ר f pC = *\Z44U \wOM  [\\w., x[ #\> 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х BC N W1 7AmW$ ( W Ww @ @R   ע ע,ˋe ĒW W $C" Cm  "KAmw 47 (Cנננ 53) $ WC"  " Cm .f BBBc55 W "Շ W ʇ f* , ^ ,WW   נ . 3  ī{& WWWp& 7d eW  w|e 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 `& -0  @*WWUU5! BJ E WWC!#3@`e  ^ J e eeҔ fA>5 Be em   `eJ%w %  U5~h&59 Xf.  U  j UJ,D " w &f& +-N  * 5 , U* , W-*5 *,  K)BBBmE \`5eA( h@ KebU 8 2&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*  <ѥ <   ʵ 4 x3Bʵ u,u*1B 3 B *u,B .  * u,W3)1 *!7  <@@  @#W @, 5:f ,]v WfU a3@, 4D1^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 "   3& r3    E% :@ BB0WWfы f 3& # ` fA> Be @ҁe U>5*,f C @& |',5 ,3 5 R3 E% `u`WWQBe wl:DJ Ef&ɋWWU FE` `Ble C1 5 *.5. Re, V&&& CJ 1 >&&B1  ε˵ ˵s u:Cѐѐ@ 7wJ,& w N Ku & >& % -ѕѕ  -  " v  > w,>> N  w  W #w   : D  s  $) 45 RAC w " 7W-f 5 5 wG fAN@@5 @mѕѕ@ w",e< C "e & C w>ѕf eCm HA# 5"N5N Dw u 0  Rwj3 D# "  @B"""" @ 5 ""  Hʂ ǂ    A Zaz 7 & AJBJ Nu H$ @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   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 2 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 # Tw5H& L   ‹W  "   @@R& T W & l\ *DJ EA ( fb ``  WW36 WW vv:<U n-- Wf<}:3U 2` Ҕ  mAL @ AW W0܇W9قw@ ч Bt  Ѥ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 3 ULL/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 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 loHELPbb,b~brbxbbcccLdNda@$bzaPע ҔHz2dvZw fd 5  /  E Z@EeH @EeH 6-JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-HÕ/ eѐ 0f tjf j KSw d t5 Rf .w drc DP 35; .F  <  D @    >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 d4 rray 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 \gq50w ©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  gw"@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&e overfillsRRESEQ has an invalid statement number or intervalQReached RETURN without executing a GOSUB statementPWorkspaceS( ­f2f4 D7 /b1V2$ 2Ɠ5   5    Or 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 volumew w !x ڥQx ԥx5  lAe"~5@:J6LE5UV5@ @ @ B]VEEopiAn earlier statement already defined the functionhFile channel is not in the range 1 - 12gArray has invalid descriptionEAnother virtual array is using the channelHI7IoIIIJ:J_JJJJ*K=KuKKKK5LcLLLLM9MYMMMMNMNNNNO:OVOOOO PfEOF error in compiled program; use program stored with SAVEeValue of FILESIZE expression too large or less than -1dInvali7PgPPPPQMQrQQQQ,RYRRRR#SXSd file namecOPEN statement for file channel prohibits transferbSorry; the statement is invalid in immediate modeaEarlier a5  5U 5Aw ll@E 5 U VE&7 m@m   ~ȩU 6n  fB  d @z/5V C D . \  rB !4|5@d:|  7 1$Z@ W C @m-2$ &`fEtWt PmmZm(:@E vEPVUD  6 z   r5 ,Aa~5 5  2 8w2  ` ҙ B @  J ƨ7 55 m@mw@@*@  @E ޙ Υgq ȥq ¥q57 &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 Ҩl1t4nV2t/1nJn rn  nHnHnrn nnZ21HnnnZ21Hnrnnw 0A3l^Z^b Tr NOr Hr Br w l~/ //~/  HVUTw (~/lw m(m @P ^ tCE!(  &&ff7 *1$ @#=  @ أp57 <7 : //~/FLUw ʣ~/RmmmA&/0@4  @ ޗ@ @ 0E f  Ex/5V @&/@/Z/ &}p7 7 //~/n7 ֵ n n1 n n* ~ d3s t Zas7f&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~////////////$ 2=q$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   *v $v 5w7 |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 6 m  5@ v ĜUTUU   7 Ժ/|i1H/$mZ`mbm|dE Λ * ħgw w:> @$ @, 5 N0/~/`!6* w PhFh@w Щg~/ .0/~/BFRUw V~/gw ڜFhPh, w ʜbhZh@w h~/ ؟.0/~/BHJLw ~/hw Zhbh ]5 ʛi қ 0PRPV 4s7 7 0/~/Iw 0~/i j E EE DA  @ Μ Ȩr @ @7 7  ^20/~/CRTw ~/~hV 5VUV ʦOp Ħ#v Qv }v585V5V& T0/~/ 0 . ,@ 5< C tE P5& !D X  5H& !D * қ 25H < @ 2@ ,B    욂 UV @5@ 5@ Қ@f К2   &n. " x  dE  d 5t7 7 7 7  W E eUVEV7 N| rUnxVwķ l@ FH ^@ 8 P (x4<0/~/ z ЛEEx/ ڛE > ^ D  D #@tr-pjffVw V| E fP D~xN|   ЙV| И !T ̘  `ŷZŷPŷJ r  AA ֚ ,!@@ -7ŀ @mN-PP} N[ A  &>Bx0m @7>m$N7 lb1 :m1 :mV2T:mC  A 7 az ~    0/~/-& =-& <" Ex/ "BaB~XV k*&+5 Pm(+e, `A11w pp p&ff U@@ SVD">l4ljx jlq k[U i4&ZmXw // hHm/-`7*5@" \ U 5: 4F   1Dmkx x ljmq mk xxxxk%l4l>lPlIl[l4l>lPl[lP W 7 @ ZU f B~@ Ʒ@ 7 Hm0 wпU@@ ֣t<  f?@?U/  P J$ f    . ( D5  w* hʋ   Z U@ "& +Bw > *0/~/w , 0/~/ -V //&&###7 LJCDFLRSEZTWw ~/g5-l"3u++t;0+;0+% ;P+ %;@+ >+ a7 7  T0/~/ EONLw ~/n<7 7 (b0/~/ &Ww \~/g. . H R ܜ @ޭ w >h4h@w h~/ ʟh0/~/ABCDw ~/vE5@8 h{6hDhLh5 5-4E dy s Xz s x v p r |r v2x pwhw 4h>h@ ✇7 27 0 l0/~/(& C ֜ :C 4DEBFRUIw  jLq dNp ^p Xv Rq Lw Fx @hx :y 4y .y (,z  &  U  À 7~/hk5i w hh `@U >A 4E ( D t @ 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 J7j2,+/5@0 7- 4 7F  yjjL u @fkC   e fC ECB7 @AC Κ&f@A hhhJ44%5+U+ +ww&fCu/ 5 eU 4 #0qltl "x  l " &# elw Rkl7J F@  w 2l fB@|k$4 \V|kw1wA5<  t(d))x***5 <+fU8 G~f }.w @x.  J;yf& qq0 q  ! WtE  U&EU tEU B 7w\w@ t~&fEx/E z5V5 `  uf&fB HEBxq5 5 / U 5 5 / lE. `5@ V7~x7 T bxV2Tbx bxZ2Tbx bxH$ 5VL f8f6827 1$D2y 68U fڼ5@ҼwDtP 11$ $5. w  @ @.............Uꞗ%EeڞEeUƞ5Dffp b @rhx..///f&^| Fr0  18 c| w&. x &/ ^URjxxxxx"rzv~jr^z^E7xrxw7 0`xT`x bxZ2 bx11b`xpxx$x/lN& / F&/ 6&/ *E&c.  b& hC   &f7ܢe5V \lEx/W   f&fU 5 \wڢ&c.  &R  &ffps re0 ~!&; d  Ρ EoE5U5UUQ5E7A>E5U V5U H57 7 5U5&&i. J к [ ; f R  L y 0 90Wp `  &f CU5U7 wҜEE\ Ԗx7 @7 > 0/~/Iw Ж~/Nz( "zz * ^E  -V -R w  u ޜv &D C  &fC    !  CVE UU@5E@J޴LV5@u*Ju,L*EU @pBeJ @ N@ ꉀ  `    a   ` & &C mma6Pum Nu Ċ5@ ԉf&fCV 7 H7 F 0/~/ BFRUNESWMJKLCHVIw ȕ~/F{ މD@Vw 8_U Y5 W  \VoE0 U0U @? 4o=w ~ P~ 2 P_m  #856 6 lpulu6 v  e  %  U e2Kn,X`  %KP` %z Uz z z z&&%u @ E7 0@zuu11Puxu@3Hu$ur f EH&BCfAA1AQ& &Ecȕ 鈇fE 툀E~鈇 x/UV0 0 5V00 e P~ , &w2  w& &% x/ % 툀E~ n   H~&툀 툀E~   \x/  f&fv x/z/5V 5VU > &D&L f (E9 vwtulkjmnqx Ƌ0/~/f!2*|#7 ڔy[?8l12[?8hqbc c_cl l   S$R  wttPEll텄SS  2Da  @c ): @`c*7ER`mC   ``H ``H  B! f   fee.[$RHu> k 3 ` ( T Gs:e+UE n3[ Nop$E$p.p $E Y Npp 88yHBP U$ SET USG n1W{> !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 J0/~/-V-RFRw z~/o E 7 <  7 2 4$o hp/o/Kkkkk$lZllll.mbmmmm1ndnnnn-o_oooo#pSppppqAqpqqqq(rUrrrrs4s_ssss t6t`ttttu-uVu~uuuuvBvhvvv       w P 蠄z ⠬z ܠz ֠z Р,{ ʠF{ Ġt{@ 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~ Z0<    eemm&bمfNcՅӅAх&f- mB /~/-"--w ~/ȷ  <{ͥw% fBCDpLpT`@ 4`mB  qw72qw7a&4qwqw)Um>e<-6wNmm    !  5 B A B   `t  xxxx{{fEE{4H{ { z U P@ " D ` :t @@  @w w%w  4El1l.+(S2sEl: s than 512MINC-F-Graph number of zero not allowed hereMINC-F-The Text option must be specified by itselfMINC-F-Specifed Rowe number, but not bothMINC-F-Only one parity option may be specifiedMINC-F-Illegal baud rate specifiedMINC-F-Illegal number or Column not in graphic regionMINC-F-Only one symbol may be printed at a time!MINC-F-Specified corners are not diagonally o of bits specifiedMINC-F-Internal string handling errorw& Ε,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 specificZo@ #> ҕ- o 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; pending. 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 or conflicting options requestedMINC-F-Could not find service subroutine # requestedMINC-F-Notify DIGITAL: Memory pool exauta onlyMINC-F-SIZE is less than or equal to 8MINC-F-SIZE is greater than 2048MINC-F-SIZE is not a power of 2MINC-F-Wrong nstedMINC-F-Missing argument no. # is requiredMINC-F-Notify DIGITAL: Mark time failureMINC-F-Continuous transfer not in progumber of arguments or improper argument defaultMINC-F-YOU BLEW IT BRYANMINC-F-Both "F" and "R" may not be specifiedMINC-F-Bress for array specifiedMINC-F-Must specify clock operating modeMINC-F-Invalid character or duplicate modes requestedMINC-Foth REAL and IMAG must be at least as large as SIZEMINC-F-SIZE must be greater than or equal to REAL,IMAG, & PSPECT arraysMINC-Set front panel switch to P mode for channel # requestedMINC-F-Cannot set gain with no preamp connected to channel #MINC-F-N-F-SIZE must be positive`o@ #> ҕ- o 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 evenMINC< ~1H~ ~ ~1H~V2T~ ~Z2T~$ Tw7~D7 v ~ ~1T~$5@0*J0,L r~~~~'e>7 2 b1V2H 1V21^2t1Z21 1$7  1b1V2H $e3E@rAL>  "  HDfbvf~@<^Zr^z^ZjfbfbZ@ 5@  TEZe h@ \ 7 j1$%Z|%PD|wV ^Z^Z@@T@@A AAAAAB BrE 5V5- @eܮ7LwJ 6U lVH ,@ @  @ @5VU ޅ~~0X~~(l-1.2345E+12 9"&%P* 4|BA|. :|mG|.@ T5V   AB C D  B x Ȅ4 fbb^ZZjnj x  x. B e E քrU EEVUVfVEV n@ V @ * ~r  w&fffEx/ w B BUV b\ TNDV5@l53 ZuXZ+H > 6 .@ &@5T Sӕ D~B #C5V   D ҃ &E5V@BXCZ5XuZ U@ V&fB@ @D  25@3CP%.&&f DU@PEL  uu @U X@U L5 X5 ZEU z@ b@N * V@ PEUVN ]V6 @ v6  ~UVE@ ?5 !f@mE|-֗P|WcE   V N  wPN7 5Vl5V#W CDH @ n  55V 5VU@ f@ @5@> 7XW l&fQE &&7 -E  &&7 }Z21$7 &&7 V2$n07 Φ1$`-ff&f| ؈ 7~7~x/&V&5w,%&7 ئ ~H~ ~H~~~VՕ.7 b11xZ2x}}$%ՕE+ -  r ``MA x>Q9f&fE|x/51~b1V2~Z2~1H~~1H~~~1~V2$ 7L&&7 rV2$( @w7 V1$  Q$z/5V,%h|%h|U fVEpVE & :CؗU c2Ez5U 5 NvP&&7 (Z2H~~~V2.~Z2~~Z21~1~~1V2z~ ~1 ~ T~T~~7 ƥ ~ Ș 5U tEVU 5 UVE UVB@ J`E p7m Z@7\25X(L-N= @ TT T5.ԝv TԕHmE ЅT̕  ҄P ʄ 4@ Ƅ ^ Ė ĖZ5#5@Vf$f"f4f2& D7 V2b1Z21H$68Un5@h/-d'5X' V~ fgq `x~~ 0/~/\~//P~ Ex/@e"-e&&e&&7 ʦ1$LmHH@X@77 TƁ Ɓ1TƁ ƁZ2TƁ$5V)-%-֔P -m B @7ؕ@Ue ~~-P~7Z7B7\7 ~/~H~//~H/$@e7 77 Zb1~1b1~@5 ĕUwJU ΃EHBJH@ ~ X5z” h B5`B >B@ 1$V7  1  1V2  1Z2 1H 1 1Z2$ |~ \7 BJ  2 ~ȁҁ^jZrz/z.~ @~xV2^2t1H//zN~ `~V2^2t1H/$  6  itxZ21Z21 |~~r}~p~~//|~~T}~z~b~//C6EyxCE @Q@ˡAAB~/~~~~~x̲ pҲ ! j @t+   !   wb ȇ*~~~/~~~~~~~~  ( @t     h b HBxP ^7DV| Z D~xN| @@ P *V| * USs7 B[  6C  x~ ± rV| ̆  $0   7 PL  7@7hd`wVP 2 V| `  B |} |x& E7 ز7 ֲ &1/~/IAw f~/| 5 Q*+0 FE pB@xBΫw ް//5.+*+f ~ - 7 b1/b1Z2V21$f&@p N z~ ZV| Pwl\ VPm$Jw Dm>5 6 \*+/- U ꪇ xv s t B 1/~/4w H  ,W3  , EW-, F z_  j=_  z , W-, ?_ ?_ W-,W @,  CTRLC & RCTRLC? RND? ABS? SGN? BIN? OCT? LEN? ASC? CHR$? POS? SEG$? VAL? TRM$? STR$? PI? INT? DAT$? CLK$? D/~/U@ *+~/-݇ 5@  5P z_35 =_  zf,& N&# _B  % t@eD B dbB bE B     e_ t aE*_ t& * ,@ *_ &  *+}<} 'E5\L.+5p" Le *+0  lU  0  , z_  &      0  ` , z_  `  ,_ @*+} ғu@F(N(+HF(N(+PF(N(+DF(N(+LF(N(+TF(N(+*+ 05  `  ,_   zB bp,_ \WZ VWT P ` z *@@,-7 .*&7 (Z(vnZ($we7 HCK # 0 - * ce<ece:`eҢ :  <  : %5,5 *_ 3 LWJ F `f*f,W> : ` z.  #( *!C,   B bcEq$G& Ew@  Ae E@ dCeueu5(55@ K"   ee __3 `   & Ҏ be  d aȋ _ `  ` 8PPn=%5  fe% )& (% EeF bwwe  _ b_ tB be<5 : "f: b_ R _ t ` a_ =Ba ėw$NOT ENOUGH MEMORY FOR BASIC b_ =Ba b_|Rf & ΋?A<I N`  P-ff& ΋ Y NU% M% D# C   D eR@ "F$O<&W>t(`v*,: qw NONAME w >v"LȆކ̈2@Pf878574.0w 2}"J4L6Ɔ8Ȇ܆:ކ<>އ@BʈD̈F0H4  W3 @,   a`&*:fR5 R R5,_F5 , = Ë2>Jȋ@NL΋PdNՋfzPOPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? TAB? SYS? RCTRLO? ABORT? TTYSET?? QRSVVd| rT& " \    L 4  & Ѡe w F f ҕ >   8  Octal& D/& 0 B 0  rBʥҋB     8 $ @& e % % @ 7v-pw F  rj^|P &^PZLVHd  d @  >J&zQQAA wL^YDIR V03.01 W<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:HFDABCDEFGJKLMNOP@ |r0 % 7 , Volume ID: [S/& J6r  Owner : [S/& Vv  ` `u %|\rrr @5(@|0 0d    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 B   ҕ ҕ  P %   e% p  @@ -D.!-<$"-4 "1,1,1,҇1,1,1,1,1,1, w &d r5D     %7$%c%He7  $ ww  . w  @ed -f   u 7 |pe j-fb Dw F7R7F*PPPPA -R:    7]w F v  ȥ%Х*  @@e%   5 1 pd F ee 4   Xe  h  7 B Z , Pw P  Cå*" A@|w &F#%5å 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 , ѕ |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"CA p0 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 PARITY-[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 z 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=㋓ w@ R  wC0@070 ` $W:ы@ wtҕ fb1 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 20  2e0cwB50 \ P1(1,I2)=V \ P1(3,I2)=1 \ REM SMALL LIMIT SET 250 IF P1(3,I2)=1 THEN 260 \ IF V&,  .[S& dV   * [** &f|v~ 5 [N9: & @ FJ 8 [**&R" f - ҕ ҕ 7   [N*: &f& "7  B  + W r# r | rB 260 C1=C1+1 \ IF C<>C1 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 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$=BORDER 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) 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 CO\ COUT(,E$+"AN",3,P9) \ REM ENABLE AND RESET PLOTTER 530 COUT(,E$+G8$,2,P9) \ REM GO INTO GRAPHICS MODE 540 P2(0)=0 \ P2(1)=0 DE 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 I1C  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) \ REM 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 RE10 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 TURN 20290 REM PROCESS LIMIT INPUT FROM USER 20300 FOR I9=1 TO 100 \ Q=POS(A$," ",1) \ REM REMOVE ALL BLANKS FROM INPUT 20310creates Lissajous figures on an interactive digital" 40 PRINT "plotter (see Chap. 4, Introduction to MiniMINC)." 50 PRINT 60 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 1STD E 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 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  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)=-1.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 AD 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 approximationumber 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-2*PI,-Q,+2*PI,+Q) 270 GRID('-HLINES,-TICKS,-UNITS',2) 280 HTEXT('BOLD',2,,'FOURIER SERIES APPROXIMATION') 290 S$='sin x' 30 0 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 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 functF 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 =-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 name'; \ LINPUT F$ 40 PRINT 'At each question mark, type the next line of the input file.' 50 PRINT 'To end the file, press the 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 G  (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 an 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 ********************d 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************************ 3010 REM -- Sort the file 3020 REM 3030 REM -- For an explanation of the shell sort see 3040 REM --10 REM -----SHUFFL 12 REM---------Program to randomly permute test items 20 DIM D$(20) 30 DISPLAY_CLEAR 35 PRINT ' SHUFF I 456 PRINT \ PRINT 457 PRINT 'The permutations are:' \ PRINT 460 FOR I=1 TO P 500 REM SWAP ITEMS TO RANDOMLY PERMUTE ORL' \ PRINT 100 PRINT 'Program to randomly permute a set of items' 102 PRINT 'The item set consists of six words describing MIDER 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 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 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 yoenter 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' GOu 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 I 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 entF 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','easyer any character string for each item' 207 PRINT 'Terminate the character string by typing the RETURN key' 208 PRINT 210 PRI-to-learn','expandable' 910 DATA 'friendly','versatile','portable' 1000 END NT '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$(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 I) 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$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='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  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 REM280 390 REM 392 REM subroutine to permute test items 394 REM 400 PRINT 410 PRINT 'How many permutations do you want to see ********************************************** 76 REM -- Input the file into the workspace 77 REM 80 IF END #1 GO TO 140 90H NPUT #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 f10 FOR I=1 TO 23 \ PRINT \ NEXT I 20 PRINT 'FILE MERGING PROGRAM' 30 PRINT \ PRINT 40 PRINT 'Input first file name'; \ INPile 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 --UT F1$ 50 PRINT 'Input second file name'; \ INPUT F2$ 60 PRINT 'How many lines represent one record'; \ INPUT L 70 PRINT 'out 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 -- Theput 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 y 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 ****** 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 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 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 L167 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 fr \ 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 om 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 \ LGO TO 4020 4155 REM 4160 REM ********************************************* 4165 REM 4170 PRINT 'Name of output file to hold INPUT #2,I2$(I) \ NEXT I 250 GO TO 340 255 REM 256 REM **************************************** 257 REM -- Process file 1 2sorted 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 N58 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 froEXT I 5050 NEXT J 5060 CLOSE 1 5070 PRINT 'File sort complete' 5080 CHAIN 'filemt' 5090 END 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 \ LII 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(" 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 HLINEUPPER") 52 PRINT 'This demonstration program plots a damped sine wave in the upper' 53 PRINT 'region and then asks you for the(,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 lower and upper ends of the range' 54 PRINT 'you want to see expanded. It then plots the expanded graph in ' 55 PRINT 'the lR 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 49ower 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 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 450FACTOR 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 490 IF A%=0% THEN 1100 \ REM OUT IF DONE 500 ERASE_GRAPH("ALL",,,2) \ GOSUB 1040 510 POINT(,X5,Y5) \ POINT(,X6,Y6) \ REMEMBES",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 FR TO TURN OFF BRANDS 520 GO TO 150 530 STOP 540 REM #################### 550 REM ### SUBROUTINES #### 560 REM #############OR CRASH - THIS IS THE 1ST ONE 160 Q1$=" ENTER WINDOW LIMITS " 170 Q2$=" ENTER LEFT X COORDINATE" \ F2$="BOLD" 180 A3=L1 \ A4####### 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=L2 190 Q3$=" VALID RANGE IS FROM "+STR$(A3)+" TO "+STR$(A4) \ F3$=F2$ 200 Q4$=" ENTER RIGHT X COORDINATE" \ F4$="" 210 Q5$="$))/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("TE****************************************** 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 FROM "+STR$(A3)+" TO "+STR$(A4) 320 F5$="BOLD" \ F4$=F5$ \ REM HIGHLITE THE RIGHT SIDE MSGS NOW !! 330 GOSUB 550 340 X6=A1 \ 10 REM ----WINDOW 12 REM -------Program to plot damped sine wave and let the user select a 13 REM -------portion of that wave 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 FORJ REM 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 \ 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 THCHAR_MODE("-U,-B,-R,-F") 1110 END E 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 O1 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 NE") 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$\ 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 +" 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 ANHAVE BOTH SIN AND COS COMPONENTS TO SHOW RELATIONSHIP TO REAL AND 36 REM IMAGINARY COMPONENTS 40 R%(J)=A1*SIN((J-1)*C1)+A2*SISWERS 840 REM ## 850 A%=0% \ HTEXT(,20,1," PLEASE ANSWER YES OR NO ") 860 INPUT A$ 870 ERASE_TEXT("TEXT",18) 880 IF A$=SN((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 VEG$("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% \ REMALUES 60 NEXT J 65 REM THE ABOVE LOOP CALCULATES THE GIVEN FUNCTION WHICH MEETS THE CRITERIA 66 REM FOR DATA TO BEHAVE AS A  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 USECONTINUOUS FOURIER TRANSFORM DOES. 70 REGION('UPPER',1) 80 WINDOW("EXACT",1,-1000,128,+1000,1) 90 GRAPH(,,,R%(1),,,1) 100 RER 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("LOWER",2) 110 WINDOW("EXACT,-HLINES",1,-1000,128,1000,2) 120 GRAPH(,,,I%(1),,,2) 130 PRINT 'REAL AND IMAGINARY PARTS OFHERE YOU WANT IT ?") \ GOSUB 830 990 IF A%=1% THEN 1010 \ REM OUT IF CORRECT 1000 PUT_SYMBOL("INVISIBLE",A1,A2) \ GO TO 1030 \ 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 APXT",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_ARK T 580 PRINT A$ \ INPUT S$ 590 DISPLAY_CLEAR 70 REM ******* END OF MENU SUBROUTINE ********** 280 IF POS('SsEe',M$,1)=0 THEN 460 290 GRAPH(M$,,X(0),Y(0)) 300 RETURN 310 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 250 WINDOW("EXACT",-63,-64000,64,64000) 260 GRAPH('lines',,,T(1),,,1) 270 REGION('LOWER',2) 280 WINDOW("EXACT",-63,-64000,64,64010 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 R00,2) 290 GRAPH('lines',,,S1(1),,,2) 300 PRINT 'REAL AND IMAGINARY PARTS OF FFT OF GIVEN FUNCTION' 310 PRINT 320 PRINT A$ \ 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  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 THESTOP 100 REM ***DISPLAY-MENU SUBROUTINE****** 110 DISPLAY_CLEAR 120 ROLL_AREA(21,24) 130 HTEXT('BOLD',1,1,'[ ] GRAPH routine 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 ; S=SHADE, E=EXACT') 140 HTEXT('BOLD',2,1,'[ ] BARGRAPH routine; E=EXACT ') 150 HTEXT('BOLD',3,1,'[ ] DISPLAY_MODE routine; L=I 390 REGION("FULL",1) 400 WINDOW("EXACT",-63,0,64,150000,1) 410 GRAPH("SHADE",,,T(1),,,1) 420 PRINT "POWER SPECTRUM" 430 FLONG, B=BRIGHT') 160 HTEXT('BOLD',4,1,'[ ] CHAR_MODE routine; B=BOLD,U=UNDER,R=REVERSE,F=FLASH') 170 HTEXT('BOLD',5,1,'[ ] TEXFT('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 THT_INIT') 180 HTEXT('BOLD',6,1,'[ ] DISPLAY_CLEAR') 190 HTEXT('BOLD',7,1,'[ ] GRAPH_INIT') 200 HTEXT('BOLD',15,1,'Move cursor 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 REto the row containing a graphic routine.') 210 HTEXT('BOLD',16,5,'If characters such as S and E are shown with the routine,') GION('UPPER',1) 510 WINDOW("EXACT",1,-1000,128,1000,1) 520 GRAPH(,,,R1(1),,,1) 530 REGION('LOWER',2) 540 WINDOW("EXACT",1,-1220 HTEXT('BOLD',17,5,'use only those characters as terminating characters.') 230 HTEXT('BOLD',18,5,'Otherwise, type any letter000,128,1000,2) 550 GRAPH(,,,I1(1),,,2) 560 PRINT 'REAL AND IMAGINARY PARTS OF REVERSE FFT OF FFT OF GIVEN FUNCTION' 570 PRIN 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 2L ="" \ 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$)-32) 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 name 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 TO_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 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 "end" 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$