rmode.init

Z!COMPILED!
!do not modify this file unless you know what you are doing
	and do not forget to re-compile it!
[7[6[5[4[3[2[1 [..o 1:<q.fu..o>"lfsbcreatew' u1 fq1++4u1 zj .u2
iname:
217*857,820	.Y
336*2133,2095	..P
345*1859,1827	..Y
394*2450,2372	...J
397*196,125	...M
-3*2133,2095	pprint
-1*9,0	execute     9
-1*774,726	execute   774
:^i6|[..o :fo..o2u5  q5"g f~:..o(q5)2"n -q5u5''
 q5"l-5*q5j .(0fsword*5,0i)j q2,.fswordw'"#q5*5j' 
q3,.+5fswordw q7,.+10fsword ]..o|
q2j :l .(eg -4:k)j 3k:l 9i q1\ z+6u4 6,q4\ "n zj' :<l .-q4;
:\u2 c\+q1u3
q2+1"g q3,q2^fs^rcmacw'"#
 q2+1"e .u5[5[4[1[..o fsbcreatew :1<m3>w wfsbkillw]1]4]5q5j'"#
  q2(c\+q1u7c:x2)2"eq3u2'"#q..qm6'''>
  !COMPILED!
<=>s
10044041.U.MM.D
0FS^RMORE
fsosteco"n 36.fs:etmode '
FS RGETTY"N (FSHEIGHT-(FSECHOLINES)-1)FSLINES' @

*MINI TECO* Feature (Using Self-contained Quoted Mode)
...M<=1:<
  [2 0U2 [1 .U1 8<1:<>:;  [1.U1 %2W> [1[2
     [..O FSBCREATE 2F[LINESW
     [.M [..J Q.MU2 Q2&(-1000.)#(10000000.)U.M 1M.DMINI TECO H^V
     :<!S! FIU1 Q1-127"E ."N -D.,.^V' OS'
       Q1-3"E Q2&(-1000.)#(10000003.)M.CMINI TECO ZJ .^V OS'
       Q1-27"E 0,0A-27"E 0;'' Q1I Q1-15."E 12.FSREREAD ' .-1,.^V>
     HFX...N ]..J ].M M.D
     F]LINESW FSBKILLW ]2]1 Q2<Q1:W ]1> Q1J ]1]2
     Q.M&40000."N -1FSNOQUITW'
     1:<M...N>U.R Q.RF"L-^FEQIT"E <FIF;>' Q.R,2M.ZW'
     1FSNOQUITW H^V>,3M.Z -

Indentation without Inquiries, etc.
<=>-
MINTERNINDENT MAX
-1UINDENT MAX
 
New Line without asking.
.Y<=I
1:< .U.B  -1U.Q
  Q.M&176."N
    Q.M&1000."N I
   (FQ.H"L Q.H/8,11.I Q.H-(8*(Q.H/8)),40.I 73.I'"# G.H') 0;'
([.0 [.1 [.2 [.3 
<0,0A-12."N 0;' 0,-1A-15."N 0;' 2R>
 0FU.1U.0  Q.M&64."E ONOMUD'
 :1<:-^FLR>"N ONOMUD' .-Q.0"L ONOMUD'
 :1<:-FUU.2U.2>"N -1U.2'
 :<-^FLR 1A-;"N 0;'>"N ONOMUD' .-Q.2"L ONOMUD'
 0,(Q.2-.)A-60"N Q.2-1U.2'
 0FU.3U.3  Q.2,Q.3FU.3W
  :<.U.2 -^FLRW Q.3-.;>W Q.2J
qIndent Maxu.0
q.0"L Q.3,Q.3+8F=FUNCTION"E (Q.3+4)U.2 oagain ''
q.0u.0
(Q.0-1)"g (Q.2-Q.3-Q.0)U.3 Q.3"G Q.3R .U.2 ''
"#'
!AGAIN! Q.2"L ONORM'
 Q.2J Q.1U.B OFINIS'
!NORM! Q.0J
     !**!  <1A-40."N1A-11."N0;''C> .-Q.2"E ONEXT'   .^V
  :FI-127"E FIW Q.BJ 3U.Q OOUT' :FI-"N OFINIS'"#FIW'
!NEXT!  .,Q.1:FB 	"E OAGAIN' O**
!NOMUD! -1U.2 ONORM
!FINIS!  FSHPOSU.0 Q.1J Q.1-Q.B"E 15.I 12.I' Q.1U.B
     FQ.T"G 0U.1'"# WQ.0/8U.1 Q.0-(8*Q.1)U.0' Q.1,11.I Q.0,40.I
!OUT! ].3].2].1].0  )   0;' 
  Q.M&400."N 1M.Y<IY>  0;'
 >,Q.QM.Z  

Adjust Next Line
..Y<=k

 [1[2[3 .U1
 :<:L .U2 Q1J
   (1000,Q2F&4000000.)"N Q..0F"G-1J W^FLL !<!@> ''
   .U.B [.B M.Y M...F ].B
   1A-42."E .U2 :L .U3 0L
   (1000,Q3F&4000000.)"N 0L [.B M...F ].B ''
   Q.B,.@V
   :FI-27"N .U.B 0;'FIW>,3M.Z  

Pprint Object
..P,*pprint*<=n

 [0[1[2[3 1:<.U.B W:^FLL W^FLU0U1W
 < .U2 Q1J ^FLU0W Q2J
   :L .-Z;W .-Q0:"L 0;' .U2 Q1J
   (0,Q2F&4000000.)"N Q..0F"G-1J' W^FLL !<!@> '
   M.Y M...F
   1A-42."E .U2 :L .U3 Q2J
     (0,Q3F&4000000.)"N 0L M...F '' >>,3M.Z G

Adjust a Paragraph (Looks for @ so as not to screw up Scribe)
...J<=
1:<.u.b
[0[1[2[3[4[5 <.-Z; .-1,.+1F=

"N 0,1AF@"N 0;''L>
L 0,1A-15."E-L' .-Z"E0L'
.U1 <0,1AF ;	"L0;'C> .U2 FSHPOSU5 Q1,Q2X3
F=.T-"E 1M.X Old Prefix:   FQ.S"L' .,(G.S FSHPOSU5 .)FX3'
FQ3U4 .U0
     <-L B-.; 1AF
.@+1"GL0;' Q4F=3"N 0;'
        0,Q4+1AF ;	;>
  .U.B Q0(.U0)J
     <L .-Z; 1AF
.@+1"G0;' Q4F=3"N 0;'
        0,Q4+1AF ;	;> "N>W Q.B,.'
  .-ZU1 Q0J  <L.-Z-Q1; Q4D> 1U2 <Q0J Q2-5; %2@FA -L Q0-.:;> 
  Q0J F=.T-&(F=.T:)"N L .U0'"# Q4D'

 F=.T-"E 1M.X New Prefix:   FQ.S+1"G .,(G.S FSHPOSU5 .)FX3''
 FSADLINEF(-Q5FSADLINEW F=.T:"E Q0,Z+Q1FA'"# Q0,Z+Q1@FA' 
 )FSADLINEW
.-ZU2 Q0J <G3 L .-Z-Q2;> Z+Q2J >,1M.Z  000