R-09-21-86##ALERT COMELSEG COM7ENDIFG COM%gGOTOG COM sGSUB20 COM &GSUB20 DQCO IFG COMlY !9"1 U!x> #P=!+|E*ALERT (C) E.Gans 06/30/85 << Type any character >>X$s19**  0###"^#V""25q8 :<( { *6*[s#r̀2*"~(: #~ #&#o0$~( ((#># #~("">2*Ⱦ#IFGENDIFGTED$GSUB20 not in memory$ERROR - ABORTED$ɪ!!8080 CPU?${ͅ; DCON Debugger$| }*|(=g.x( ~#bx( { ~#o}o0s1** ###"^#V""!$"!m~ ("# R##~ K*+~08?G0;5A 69!]~ (,08:82*"~#(R*#]:< G *608 0 GyOO#~y(G*"x(  :<(*[s#r Ⱦ# {Y*"~(: #~ ##o0$~( :((#># #~(!"">2Improper command$Format: GOTOG [#c] 1<=n<=255 cmdno 1<=c<=f count$GSUB20 not in memory$TED$:ʚ"s1=O!~=# ʚ ~;(F^(_& y= 0a? x %!"~ x >*{(7$ # (~# x {_0x i## (~xS># S~{S^ $ # S~}((| > % # S~AS[S ~ >>> # (S # (J(~? !"!3""> x~& y= !`"@ # ( ~ (# > !e2|\$(?{e^ ,B>W,Bx( {_0x=,B~ wi8^(z,B~1:?0O!~((# ~ ( @(#,B~^7?,B~^,B~^7?,B~^8 {>,B~;({(< $( (^ ,B~(}(| > ~ >>,B~i ,B~ ,B~>,B~X>(B| > > $ 8\ ,B~XX^ ,B~X>,B~X> \!a{˯ɯ!w#w#w!R"*|222222,^,VS. ^#V"K""*"22 2\2z0R[RR*"","7"<""*)")*^"^*T"T*v"v*""#"*""N"o*d"d*b"b*v"v*""0"s"*"*"""*""D! ""!K!#s#r{ GSUB v2.0 (c) Eric Gans 09/20/86 Form 1: gsub =[?;]cmd1;{..}cmd2; [&] Form 2: gsub subf [vars] [@] [?] [&] {file inpt} ^ch=CtlCh |=CR ~=await input %ch=lc $ch=lit &=chain ?=Quiet Vars: @=NUL @@=use default SUB file: Vars $1-$9 $n^default^ \=killCRLF ;=comment See GSUB20.DOC Command error ++ ABORTED ++$ SUB file error ++ ABORTED ++$SUB!~_#y {< :<  :8s1 <(v*~ ͑#~(l 2#"{ ͮG#~ <O #~<}"{*~#" ͮ͑ 2*"**#s#r͑{ !3" w#w#w=2#ɯ2!" "4>23:O#~#"O ABORTED :$GSUB TERMINATED$vGSUB.DOCm  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]o^_`abcdefghijklN|{O\2~X,7;;NJw'=}oJ.87(#[ιK%Kf&IšK|vrrY%s%g K&)L|Ā3,7]5lj&mvC3D ; $<]; {8?X`숯*hwI$8?X`>P():oZLM%8tgepWZ|JvNB3 {9><^ _{ gIƥ ޴G#Ay-)QRF l&A5a(Zm$9A&>z=Ý\gԴ Z@ %gO>fK)1(h|™I8CTJg[atZ7@jFWbURF&ufQ+hԚ[Jɮ$(%ROխ0PٮeRZӽKO/+d p<,7oiP Z{ehi]M Ӧ%3Iggo=~ޠuaE l)>%;%|gTI;4J^>ڎ83iOux`pJM̌6F%Y; %3̰=SUMvg+41vTiI6ޠwIJ>McJKeΛ0{tvWilF$?Z*kMBmr{%al4I`YNs=&; ӤđOiiMdThW*1IvH僰{vxWiFF*kM3FK>MeNOqtvo'{%&e*oj ARO%Xno :Dx *-67sZKOkUS$Y[ ֤9Vx53vv.Ehm83iM[؈ZQ$a Q^5t- Ti6}/ uNOaM3^qޥ$-.0Ig褳q>pέ5%/PyS?Qe:GgfxG_DJoS2Jh@%sc_\[.3ƅ(b 6 LetZ;g,i)ٙIM)7< zRYޙD'l$Y]j|Jv T4z MPJۀBK3jZD;F&IְEM<ɩ&wItXno:3Ç 4I?&΢eJ. y \?;k̅|퓓.r0^d}%|ʛ[JM]8>5Sfg68eN%PւZ":Z3pF-ݜ`X K3Aŷ؞;ufZf< h-Td` t$]`4IX$̌I+k4Gka굪D[INkO[^MKeBvBAcSi% %0 %|)imYbA 7mk4&ΨDhgw83itMN2!Pٮ $Y]`7=J7speiTA-U-ՊF<+OSm)љ%;3it-.iv1:kmZ+gfm3M2@ɻ7ZjN@o#Q'gfhhIawlyF%{vu޴$g2jaZR: 6gAQ6 F%:oZ36%;ݹ<.%D[I)g\t؞}J {K.y)}yEյgzܻ$Q'*u޴GU>%s*u޴]9SDZH>(ΐ=&(S)QZs<9_Kz McKgKĨDiO^v7-*F* G.ct)1i UDl+sv7m`Wٰ.5wðGɣK cк0I~.[FVtI0 ]J,%OL&QBv(C3*:o@e*Nkg|< kJ683͇lDZUBoSLx6OmIkjvf(qM%_[at)ݪxS>֠&l>g@kv7-Y3FǛ{%Q҂W2s83x*u޴.%&ѶM% 83ij$)\`*iaѻ$tZ0 7QDMNB3J.ݪRbmTFMTR%rĨDiz*u޴xEkALZ 9#0(ymT65Mvv.Eh+>%;; F5,7oPvӪm荢&j$Y$J^noRE*ׯ ZV.IX涉`':k%Gyո(xZVD ^%ǎ k5J#ڀ. %eTu޴i axWr7Gct~&D&vOFWWiOU+3FK.U}ݻU} T$QGZR: KImS xJNvxA X:S h-\ HIT%BS)YkIsF?DՙɎOW>IT% DP$YTi0ETS7v0AW2 \ٮUj\g]:30 7M1*HvxAH*gZ]5q$6EJlyU5KJ7χK>>IpYhéfFP0+`t)!F%`KD %k-`9ڪ(. LSW֭Ak1XqDظ{d7̅\,4SzܶONn&''_''7ݾo>nި$e*ѥbT"mkhnB{TPٮe3?9oZJSz|"xV2gWٰƳsuobh]$?Gka:W+%=9y7-bT";G_Ā7-aiNknMK h-D MbU+rۈۈ3FנPrʚ&IsZGSl7I.n#>N%dG{0:YnoǛ5LXEkw13i6J~`cGhU \:?MmRT0M7(-%WuGG 6t~Gd3PreΛ3j!qiRGI`#}ZhBɭIʑO %|Gz$# apmCQxZ}|jC3]h33z;\77Z}M7@W7]JQJ~d|@k7IlyzEk[|t~#1pe6u)Q#Ak#F%:3c8v >dgo=}5h-TiIPrɛ/7%GxEkALZlyӒFatZՔl Z ɚ;;M4#J.KĨDi 2ѫ9֠Pٮ%9#.%&ѶM%j(m%\]M𦥓LwaRb*f2C%_ 0:aq~k ⫚Ti隠LަdGis%oh|]MgԴs>{&4>9d{sC0~-J4>Qٮ%9#kp=5A2:Ss^%P%ps(I@-Sua\ZԢPYl&:3N$zu8%R3s]ΨDmeILEGwa9bAɣKjEo#UAZW+рZyoZ?6(i)Xh466Qɭ w2 dwހ6dgT$ph]$?G %|eNi Z LVa Z UT"77pF%.yE\=w8K ւI2̆5%36(ji]$?F36Q>J%Jɣ5_iS3(F]JQ\+65bT"mq(h-\`: τѥigC$%NkgZF_Dvh-Q>/ڡD饋XCJ.ub3`*3g33ְyjѥT'-+u޴0m^ S]'FWh-i=Z %;OTiIPrV}]J0m*ɩD=w>67sQZ(GIϞPrZK]5Z XsoZ"̻M1:k?G2\M%{v1LSW|XDaW%{{EߡopFFdXCjyVK~|wv(>9ÇKf=?GWrGYKdasl UQւ3*3Fq,j)Yk#g3r D;cR h-;@k@Ҝ;Q(*-L0؞D[I6^Z"LE}`cGJڙU`nFoQjIIbtZs%^ɧzZHN%8/y TɪILZ̚-*on) 66Cwk tsIsTAOR Ɩqƒ9ZK,C85:JЦ,} IPY&G_Āh5ZBE 8u^;1*J4>Qٮ ^9gtZ;a].Yhܻ1qƣl۾ÍG;'7K]Jۘî5xå; BE̚(8s$1VfΨ!9#֎oZU!)yQ6m_}ab&l̑ V,޴ՁRre+䒗O^ueʢ 3NkI=L+3NtSuد]^6QfASzaFQKl ܻ$d͌iM`$Y]`n*o/̅wL7 ͔kS45quj)ג5a8>S2B3,4Sfr-5qujp MIkjZRYR,4S*on)kL%h-.%H*at)EhFMYh\gKy}i֕_8_r[=lĨDiւۣPٮ%9#88%BPy: hMFM^%ǎ k5JꣂZٹ7-Z7Z $gf؞ׯ ]@}Nkg@ka,n|Jv mZR T>j)yq~kvmDh]X -SUM.9u @7I;J>8<}eF3Y,7lyӒldA _7涁J/,4Sf9e4quThS%kV4qM|FWO+=ӤD/^(RFWeoZVk!4Si)Zf5f K vNU"sPyäQpMxf2i,M\#z6  h%W>Ț(tS r{>Ӛ;;J.y_ڸ'U K.yހufָPK(b`g"޴8OLE߁3Fa:d~2qfwT>Zv.>9OߘJ5=ZHۃBɛɫls(D ;gCk!V,,U-*Pro#T73 8Ɲ%7߶QB`+'''Va,.P^aFA-+ ZK$I Jp褳qoZH*I=|1D׊Q&΢ع<}c*u R)%W ޴IZs4ęO)ZZ`rJvF%D;ÙI@ k &ZudJm%0V46|tO0mgpʚ`P3F!FV"jm\1:D; &o=+%Ek㦛~dr{ Mj M$X7sعxaJ KӚMoZ;3Ě4'X53|dMl6J;K\X%ʫEi`iih㔒G5hgwVrq|93 M<9~Or+I;ΰXno)K? Z+涡)j 8C'5$[һt4AXno_spxxuʚw9wj(d.»K_['Nj'E%/`d*u޴`|'`0M7`vJ>5\uxr|nyx8?X<9rgp> ;#Kg*F'h$?5I0MNB3kI&Q*iNk<\]M wov %^%uy(Z I*MiF5ggLXetZSD$gM,%\2m.p|nyX;[ iY,Q}Px(I ^]J*533[@$0F*Fv-%Oz<̬m=[ FPCm[åaSr+D1ZWiQ?oFA`-%7AZlQ#x6ŧBeΛ6 %̅w[ lK h- :oZƦ& >uIj*LPALM% p)贆5Xh-.%D=h-\ٮ T1ʮ$kfc _Iد;QgMG\r[ h_л$a"p=K&R!Nk\hO'13΅̬/SgM\;;{QFw$@K:\ _rS51Q hDcK.A-ZK%5SgMGAc#HS5l.]JL3 Z %;yuր5(bj-M=N ~-Pٮ䠱 LR?Mr\BeMY hldX{)1PѥT3R5*)\S\)o8><^0 6Z)YR*u޴ѥT3R5*-MɎZ8rgp19G.Pm𦅹m tɰKg*r{DW 3Pr'sZ"Z{5.l.'&{;z}Ph Z %o$: s+Aka IXudǀP7sZh=\:愕Ԣ`r|L%kHn%[)@֤9rFFeŠ`95Sg hld(+w&p|5rz:WwI .33lg3n%8?X̬:oӦoViyu?=Sc@9SٮN  7*%W֨wifNAeF]JL|Ekw1(TZ(NK]MKrF`n.%PrbPd">zS rz*u޴>`ƹo8et)1J3R5*-T6F40m涡2F`K6m_}ZJ(yqYײ|oHeΛ`ɧ.!4U ֔< ]&Z :oӦu %m[ ,ְ8?X@ 7݄V->0JJ6>MKTi%lc;Qg&; *Wg 'Y; .]M .`n*QZ|U:3C-N:kpD'lOɕ:o΀ zqu:t80i;;)]MQlcT5*ΨDKBeΛ6 {9%;SLM%|]'FΠޠwI0m]UJ6RI>·K^,8s. i:k|bfox<$k'khPmb'aqkf h-\tS`{J3R5 _ Ti1M7Ȧ٤k2,޴pSYm, ٣u3vE-;|o`wgnZkn)ɭk9iİ&(MZ7s86φK>>IpdޝR 3.J=KRd͊7LTeΛ60E ZsKlcFBTjѥ#S!޼$?2Z&ϥ-uU;[.S3+|5:oZ!J<~W 3.qLSWCe;Z+R Fk1D1Zf5T7MM\ Jy:Ld1g%pdh8{…_N&HirO=%k~2-YRY gO)IAjofB$>-yfθͅ_OdfjZuʮ¦ T7A]JLŴqSa&iO6&r{ DI6(c-m %s!7A"Úil.xY5A $7M5.J>}RUkɚU3v5?kF3W+rOEHըpuK^Y,79ɎOW>ji&T>r2:dW+ab#waXTQJi`Dv;l%̅>}Zrɗ_vd\&ΰޠwIJ1Z3oZ&UŨqQRF6EkD:JimOmx:gv1** M 0###"^#V"":] N(k:m  d)@:]A(*E(7M(< ͋96*"~(C #~(@(_##o0$~( ># #~("">2*Ⱦ#X {>:]N( D(U  !m^#!!yo0$^#V IFGELSEGENDIFGTED$ ERROR - ABORTED$No filename/drive/user entered $Not a legal option (A,E,M,N or Z) $ERROR - Skipping both IF and ELSE clauses $Null filename$ ambiguous$ exists$ missing$ zero/missing$= current drive$= current user$: TRUE$: FALSE$GSUB20 not in memory IFG v2.0 (c) Eric Gans 09/20/86 IFG/ELSEG/ENDIFG/GOTOG v2.0 are designed for use with GSUB v2.0 GOTOG [#c] n=cmdno c=ct $NAEMZDU