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:"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' :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 : HFX...N ]..J ].M M.D F]LINESW FSBKILLW ]2]1 Q2 Q1J ]1]2 Q.M&40000."N -1FSNOQUITW' 1:U.R Q.RF"L-^FEQIT"E ' 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 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 "N>W Q.B,.' .-ZU1 Q0J 1U2 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 Z+Q2J >,1M.Z 000