]u1PLF10 RMFRALIAS NZTLEX COM'M LBR jiPLF CMDPLF DZC$amPLF-RAMDCMD RCPREG LIB REG COM#hZRENA COM+zRS COMJS COMbdT COMwLW PLF - A librarian's contribution to the library field. Files in PLF10.LBR: 1PLF10.RMF This file - Read Me First. Thanks to Terry Smythe for the idea of using a '1' as the first character in a "read me" file filename, a much better solution than '-' to allow it to float to the top of a directory. PLF.CMD PLF alias for use with floppy systems. Either this or the following should be inserted in your ALIAS.CMD. PLF-RAMD.CMD Longer, more complex alias, recommended for hard or RAM disk operation. Prints in a more automatic fashion. PLF.DOC Short doc file. ALIAS.NOT Longer discussion of PLF's innards and techniques used in its creation. Replete with general tips on writing aliases (especially on saving command line buffer space), discourse on using shells inside command scripts, the ZCPR3 registers, looping techniques, recursive aliases, and other assorted Z33 musings. M.LBR Contains help file PLF. T.COM Patched version of TYPEL36 used in PLF*.CMD to type M.LBR for help message. S.COM Permanently quieted version of SHVAR.COM, renamed. RENA.COM Terry Hazen's RENAMZ.COM. Thanks, Terry! RCPREG.LIB Specially hacked LIB for use with Z33RCP assembly to make one's RCP-resident REG command not display anything on the screen. REG.COM Permanently quieted version of REG.COM for those who don't use REG in their RCP. RS.COM Permanently quieted RESOLVE.COM. LEX.COM Bob Peddicord's LBREXT22.COM, library file extracter. vALIAS.NOT$ ( T098N &Jd2)0A'H P "AeLVi2L"1 ;'CI/4NsyȀa9FPԵ]Ewr$O`ua$vJ!qGGTw)JIQ` qhw!A*RճND4޷uI7gک`Oi'Ù1"fFMVV7o҄K]f bhVDUGiȠ6)6۽gߗ-i93GA]JqmdU97IfU+|nwJsrH&wR̹!@5T ]1Jz2A`L̅ʞ1h3t.͙TAD}|"l\\BE'@i 2\xe5N2fAؑX >CNݚ6!_ 89Ow5A5@`)g+!8,R\Cr, 9$|O g1߁~p 'V.XJ g QEbdx4.a<&duM/Ϳ3|QtY-$cHa UryKBD7xX]91Ed!tq(`qERZtwrT"捉d8ef'Sdɰ'$)#*JR懫)hF<3QA+vٻ<`ͨaX1 0Fi3*)]|PrZ 16JaQmJY`)+!w좊vG=eZk!_`Nr a4"R*B@Фk)6fa+WS FϠk$$L蝞.&'Gxal1G.e *obʲZkM|=tRR36P!& T w5pJA.)V@t9n3rUӢ.;fY`sl6r^lܔX܋itPpUVP&9eV USx4Ua O]J s,ՈNZz[g3cLeu45U]MzjPͩ8 ׋!լg ,!B@T9? \cId9M{6dƩ(8kmZ?7d guyU̽0Q@h"m] E,J 8[Uz g R9Y-I2ADЕf?sOw/hϙvh>t, dgY(S˓D >Z\B%(8=D̮y0O96Tpvͧ&AL;|e W|ٞ%zo/%UWAFmc[ 3Tgyk7}jD53.KO rJ2w iV0L7huOTܿD73-R8}(4wl&p'ֺXpA'CE/f[3GS*=R?W? K&wwzrre]N`n^DZ1/r$'2#c1L%K1|C0e.IN42R#OTT1QFj%j3lmK%b0Hd]uo*AF?d,3q+8BDPF(l8VE%U xe aca)dpZ0!HQ!pI`E @.jZrS[AO05a-Su$r'.xD CCr+1O.}orf5?1TRTzӂC UvZ,FƛTQa~xcSrT72"N1"1R1&`)1qWb>&Ar0 eE`(bI7AlC_R1.BEBsl}Avv0|(WX ~E-"HaQ>P65$T mUOUP!.T*fdkӰkgҺ.xHZ=u'7~:RH 4w5ckYQ-Zބ 5R+)CmIV%]@:1@iXfJh: .:'rHqV@?9ysI|D !`c镗z%yY9 fv'R~%bFq!$J6vRn 3)>[sA!f)Ac 1Ib>1K⏃)YE E0OVQ ST9,>(H;Ġ  5Up/C.+b(ֈaBfdŲ1;U"pF-0*D2.0K,3Î4 RR md؆ByR^EZPGvhcPr#(.#?!I )(MCMC5Ι*P^0?gG(Η0U$(PPVb?TJzM0GH@ /hǥ> AVT)"QC!|!s4?')i q (J2iqQX:Qzgxdž*5;a=)?yDJԃs'D%']H"@uQTf%wxdFQt!$'a`"qZpO_Dg:*G2WxQxAv grH0a\2 1N!?bA$%q+}51jJHijR%@!S9ƙWqlvuvQCE5"9Qz=A.[hM6wK^3"Vno'__  Cs~:6'x%$!qgEk#@n" h`e -rZX;!h5.z!f2 YםE"@/AOsu{qW8*45Bp-ahR(ىPjG578^z7˷!DRdv!(Q|тp*0I{߬w 4C+@QUO@y(;}QTT+bѸRMXtR (R T%R+ !ku9KNnȯ9gSw"ETXq&}xO,Jh S*-Af!%m4'6ƞZ.b-/Gt1HC A!.O>75z$Yr'r}!+EhB)#A9Jp'"-(8]~E19(f|Rw[xaUH1c  1:;e(񩷈}XZ;NWȌ'#˾gPd;+$繬0 #2NzaüJ! ܨ"OxD\U+y"9"e$R4]G/&\^ta+akjb(v繤(f`>]K2q!O l)d14-&wk: }&Ns :S!~#bx=)PeO[,-cé!FW6N VMP zk `0Ռ=#lP p$@|*!lRY؝AwF $2'r8nK7/i |OԅtɱIl< Z@'R.K~ƐwƸS[B3}V 3|ҘPp|:{ݿ1Mih1j&O]W-bսaգ+blkPgRl9IHtDC1VǓ=!+'EI/u'рq!ptvn)RNO|ȼ>+<qTO+fC "ۮQ *mB'#8^ӉhY)'"2R-3dwjo5"Z2&fAkp/piFPB/ˆ>dgd>Pl{}PlTccVmcy*Ț FFtҺQQkG){GY4F_Tс,{?`/am1\D77~UR gd0l-?P97X{;a 4CFH#'2/7=r" <dҕ呕a^/\&c.}BJAOiiDeh1'aO!y͑#P0'v.VfVU4}g?w(%kdHxtJZs?IMhJ 7Y z<<2B}F`CjvdǦXnVor3ܴ]|FJ'^mz;H_T{4:܄"Oߋ܏ggǒd4܏)Y Gi.>sajp$Iv27<=1OTTI1K\q`$gkpCG'q(o/C ~㵙0RDb0).Oy3A8kMT12/q,413z81MR hGZ1@Ciiv܅Z7U}mOp1TqQ B.6rx<ܐc37+y,wQe$:y2-,@2\nq6ay?j`NKԴE (rSL-Mh{# AxOZR>)E'5@Xįj&Dy!Da3e5y0o7U 2q1{()rD-(cJH" l++t#UBr%7ÇNXu5eugX Mh6W&JRc>"+fg۵dTR{x{ޞ>Q;!Tu!"?d,SCvDS;M~\b2 Qg&'s#be~6퍎N4!%Q2PL L |gÛ/pUfV$O:PBqP;DQY1U)w"b]q}$yP-O"ȼŏgW`'PCYT(D?OdB\26ٯ(PAaHFX {qc#H_?gJ0P# 86'r QJ; z>Lv"xWB sC)6IkP@1035Ӌqllҏ<&3RG6P9X.&6@*MbT"j Z&]C? A@ J_FPҸݧ;WVẅ́&`kELb+,ܘL- "GJtP;C_T>SkUJP3ॏ2JGmR5zU =-Pm89>[Tb#lv`/ /3Fls9KVT6skmp-%amwK#cwT)7IΚ>o$ag8A69"NIDr`MQq#6HY@ZŒB#21uk5ng!,MW{ZP$"bB·-;}P6HU|~\:w?`3XU+91 Ekrg)͠YEV5c2AAX:R"O`E @0C M b?b|F,d2iV N1Fjb꿝`RVka Px.!c YPh($|b =5y!{/4ֺv{*XG,b*tJSTZ#ecBws=h_{ N&R:_-R{[qB׈&{iV>\sW m‚.dJ_>o/ V94#q:-Fd-;;!-wUsyڍvUCEۅci7]ƣ95sLkw++y.sjyVbat 2iCR0S|~C3sH`O NTk{NmSPN8 %xYs5ca~A~=t[_/8"era2S'a3ZzC,G+0&)=rggdB0%+WtsGD [J)rq2->{leNI")XOZ ΘV1G8*tH[s@e>@kql騑M}a}n[N~MABgߵ;3s HuAku|5]ް3Y"a$X9>#8gPsr-oKQtK(nobmN߿R_wO^v.X1.l':$`)Zs(1u24a9Vk}kQ'&Fz&ټӹ&yáIP':N>4e[u++"ly^p̘!/qf*ӨbxT8e8ٻDU;FGY`9^3Eǣk(zio1G8eP:cd(~?"pA puVYsleɰHJAi`gĂ\_so[r"'kn|@-QAUf@( hd%B<qc$fYv9UNǦ?jgtJ!unvHa\x_C""ۘ#we s&/H6˲4C!:~x?>)Rb1v].#1,<FRh<:Ef rjF 2 bqkW_W.!Ǔ5)ѧNq1IST87aC>BmaIƦ%{-<&(zqa; c >^v_,c˗N/'P& d(6@3N@)(|_hxx._xД40p'Ipu9rFR,#OKXx؏ZXڵ$4)".d1)p!/Jg>'p`o,\ SVerNC".D37+-$8[AedtWzW7-/]p?ɔ!+m$6$8f $)4as"k)g_u">66hC w!˺XCs6,+s[ "=+6>8uC]ְ3Fs'!<aPw&1B{Ųz!/ jcHOQr`cNhoCjsGܦ142?̆Ib/.qT5SgVWqǣ$C';HgF)r1Cϱ2wH5*AOBͳ)+ 8f QPDE13";1AvA2%KU8U]v`Da6e4aQq ' m2x׾/FN_+>c(: Gs\41uD8A6C >YS&.p2GJBmt#?Sk&B\DoQy95"W7+<͵N>ͽ."q# TH#\8u4;)$-XQIb/H6n2\f+X26h"mJӈIgzZTlTZK? d,aK,K,K,K,hHcF(F1y`hCfDF.W/{}\8x˳qOS#V"/5NkBm`((/vVwfiOHm6XwOh?Mk$)ѥt8ID9;HS-ce|_\Iwhn72-|P"Q`06Jѥ?a@:45Xe>O#$fRp:*Sk{Q(sTrTCi43r/Ca6I~A"/; zVi7]ƣ'qc'j0 &2<>}\5(1=#оs\ND4mlnqPMfN6"bJN #TUM1]8-aB1+b\K!  DkqD!Q˔B6m1ڄE YRo2jNP$A `"@nP!BA3hap=q6(TQ1z?]{끉OSP)xU0dӺL z?r˚(D'W *CИ'PB邮AZZ>P@'w| yrRf{Qrc&{` +lKfTwQq_)BL.i6*A2}QL5q H'{P5Q}\X\RWkC3p;n.3$=#b˝` 'D҉`ޘϣst2O;J!{Pυxm& fta.dHÁW*!1v#aHݙ1OQlqsRC " qܷx&sHfu.2%G{u/4{u/4dpeRK7\;j΢~N|j΢~N? Hqu@47^➢~N|➢~Nz$[Ƕؙz)WxAY0#5Z? :;J%Q%\1z F$!w? yJ,9Z1"OV\}21y;BgzR'u=n}=!y)>+!O,^O51$@ײf)s& C>ɶ8'O4`CQH1鐰sVf#:uAT:Y[d.H܍TqVhǥwc~C!7.e --1<#oI)8(fM. ivm983~faM^۾&팀F}f%q+Y8v -GP-%5c[6Z^ixm-95HJק s[Rq 8fE 0f""AU{"P#)S @\}NUl|.>:Bmt7R/4my$m} %H˛uPfm}{uPfmuGm{~U=m{#+"Tdj%S=vY Tv׻vճ04muA)Y ۾%R0z#F?[.>-AF2x9{|ַǥ##eycp%`'>xx5iؖ]%Bw2#':K_/2fiqMԍwm!X{Pd#dX[IƦ:O(2ZQp',EX2).o<1-^p[I FR#XSn7H{x$qpo]wXډͺ$0-sA=2/\xJHxXlzBcX'bpcHe-pf]C-zvl6"QZ_Dp gU2*&[mf+t:AQS90<ҕ#`g6"DXVWS<-)w1!+޷>N7:˝RaPa+ Pb$1m(qM1p$J=^!Kp]^![+p!1O޶3|=1?WگT9> K4mҸk?",s:2Ŭ$Z=1)&f= .Z[X7Gֱ#4jn(f!; ks4eHAFW=hP"GaϜdYA6s􉖨O?cb?p j#5uI,UNK!'&~E0HwC3%W6ÑS]fBbm18R>DbIp<#*a1ASh9C`)Xx5L]R8҈vTY%YTb9Q`'v.VK QǶMJ#!.8jaNH:$-iu{o67v6wbl'ѷf /y I1gƖMW~1[3N1uOO(xs ıV}PR[ױxa]Il*i"z#]#GD؋a-a؎RgqJe9EFS]>E4R8!dkϭ1tTvBn| cYHŃT#!:qwAa=>l3`9H Ŗ=hn/XЪ YE ޓ".s%%5hؒMP%\ux11OStD9q+ n/ WuI5"R\'? ';Y:OTORZN9h`xeeh?k.O'Ƭa-$807(+It,Np'(~A"NAuPxj%VLL >5WN.S{!!딄]=m!Nz\!tE&q%óh+($EZ"57%c蚆hR Po48TiڙA>($!?c/f!騤C"(e"16"Ef O쟒>Bm#7C#*8FRl{pnG-20֌@Ey !/WB $'6մ˷m_źҺ2%Kݷ^~.q!_˛u/GV #vճ7\m[3n2Һ2%Kj΢~ Tz˖/m[3Jbu vճ;z++"T)/U[!{˝l*_/4\➢~۾r~Ar1G_"ۏ@r!?#'{CMo[a:#.?։Wa@d.医rhH3P@2B@dΊ 4U%.6h8ֶ!7:Ml&[@u{I")VVzؑ9vÜfʄ:4ks3۳^ˣhWkaM2ry 1F-m5Ytmb?!wdߊ7mS-MW7?2*b8s.!a$;6V?-AaS K!jQ>x8/xhL5I ѕ*R 60fؽ/=҆b Pm;a]dr[*T@fTTkx ' RzrQBEP LA/ Z3ENVs1v* = !]w#w ͝ "t."fG.|2j"p:ڢʢjڢʢ/G2xg"r2kg"v![t*t}>>:~p LbrExtract, Version 2.2 Syntax: LBRE dir:library dir:afn1,dir:afn2,... o Options: U - Unsqueeze/Uncrunch squeezed/crunched files â8<*~P /U/R RUMp Invalid Option: < Ä>2^#*>BA ͞ Cb!? (*p Library File  p Not Found{ɯ2_*~(́ >B~, >2`#"9͞  (A ͞ CdKb͋ !KfO E!_(:a(5*f~ Ip No Files Found for  :`ʢçp Buffer Overflowâ"h|:_=(2_*h~ :`ʢ2`çKb͋ ͛ ( p Not Found :^(:Q(2]}2(*p7+l ѷ{ :k :xGͩ[rKd͋ x[r p Disk Fullp Bad File+! {/<(G>͉KlB%DͩKd͋  Kb͋ e !>? #>2a+!>BKd͋ ;  +́ >p File:  :Q(Z(*:^($l !5!4!:Q  p ---> KdxA<y p : (.p File exists, overwrite? (y/n)ͻ ̀ Y  > *r"l*p"n>22]+"y`i"{!N#F!͵ ͔( # x *{6!~ :#[y ?( '#*{:_<2_:j8S{  OF##(#s#r#(,(y(x ,(~#w ( ( = LBR2vN Z:xɯ2y2x͞ y2z~2w: 3#:v((J ( :v :y ѯ2x~2w:w . # :z:x͆ * >?#?͆ #!x4 (s# G~A8@0b2y#~ ~ ( 8#~  O ͧ 052z-R  ( #( #(  =2z2y~!8=_.:,<>ȷ;ɯ~͆ (# 8Wy888 8 8Oy70 ?ɯ  > ͞ y.' ,' -' 0 *{)^#V*{~*{^#V#~ѷ"{>>!6#͞ CK͋ Y X   OG! s#r#6!  (  < < = <  <(  w ^ F#"##( ###*#~#fov ~#(7 ( < ( ( (  y( yG>GO> < _ > <> < >.<  <&d* & * / 6 00<|.,0g} @(> 7~(̀ w#j q w#Wr# x a{_~?(O#!}($.Copyright (c) Steven Greenberg 8/31/86 201-670-8724. May be reproduced for non-profit use only..">0g">(gR"|gs!u[R"ͼͦv ͦ(> >>>7{ɯͦ ͦͦͦͦ )|SJe͹!>8 *::(Je͹*9Q:gk~ >2*:~UV|g^z ͹|g~͂|g~2g:gOD~(|0g~( G|gn``ͮr|gs|gqK Cx>2!8ͦWͦ2::::_ ͦ_:Wz?!"͒!< *T]>w6@>*w}eo0 $: :g:G}/< OT]>(*:GzGK>Y+|0gr|gsBO ,L}Z8 90)))))l ]ͻSP}ͭ!>8 *::( <2SP}ͭ*:@{('Y!"2ͻ> 2>2>24e:g*9Q:gk~ >2*> 2:2~UV|g^z ˪ͷ|g~͂|g~2 *:g:w|gs|gw*#"#:'2:< (2>2:G:O!{y2z={((ͦ7OK88( OCͰCɷ(=G2y2yͰ>CͰ> 2!< !2*T]66 *T](6*6G͊L~(.[r|gs:gyg"[:W|0G>2x͊L~( : V|gn:gn ".*|[:Gr|gs|gp]))))o{g:g#["!͉!  UCopyright (c) Steven Greenberg 6/28/86 201-670-8724; may be copied for non-profit use only."s1/!x[*3v 3( >7{ɧ 3(88>>3O3Ga* ͭͭ x B3O3!!!!G:G6,q,p,(y/,w,,3G7* 33i88 (OGɷ( =GyG>G!͉ dWPLF Ư * PLF - Process Library Files by Rick Charnes (10/87) SYNTAX: PLF [DIR:]LIBNAME PLF is a multi-purpose library alias utility used to type, extract, or print up to three uncompressed, squeezed or crunched individual files from inside a library in a single pass from its internal command line. After it loads, PLF will present you with a directory of the specified library and prompt you for the file(s) to view, extract, or print. You may specify from one to three filenames, and wildcards are acceptable. To view, enter either '/T' or '/V' and then the filenames as parameters, separated by a space. Enter '/E' to extract, and 'P' to print. For printing, PLF will extract your file(s), print and then erase them. After this operation, you will again be presented with a directory and an opportunity to repeat the operations. CTL-C to abort when done. PLF $zif ex $d1$u1:$:1.lbr;llf $d1$u1:$:1; p2 $d1$u1:$:1;else;if nu $:1;or eq $:1 //;t a0:m plf;else;echo ^M^Jt%>here is no ^[)%<$:1.lbr%>^[( on %<^[)$d1$u1:^[(.^M^J;zif P2 $zzif;reg s0 6; p3 $1 $'FILE(S) TO VIEW/EXTRACT/PRINT: ';zif P3 $zzif;if eq $2 /r;reg s0 4;else;if ge $2 /t;lt $1 $:3.$.3;reg s0 5;zif;rs p$$r0 $1 $2 $d3$u3:$:3.$.3 $d4$u4:$:4.$.4 $d5$u5:$:5.$.5;zif P4 $zzif;if ~co x.$.3;lex $1 $d3$u3:$:3.$.3;rena $d3$u3:$:3.$.3 $d3$u3:$:4.$.4;else;echo ^M^Jc%>ompressed files cannot be renamed.;sak /p3;fi;llf $1; p2 $1;zif P5 $zzif;if ~nu $:4;lt $1 $:4.$.4;if ~nu $:5;lt $1 $:5.$.5;zif;llf $1; p2 $1;zif P6 $zzif;;echo;lex $1 $3 u;if ~nu $:4;go $1 $4 u;if ~nu $:5;go $1 $5 u;zif; P7 $1 $2 $:3.$.3 $:4.$.4 $:5.$.5;zif P7 $zzif;if eq $:2 /e;llf $1; p2 $1;else; p8 $1 $-2;zif P8 $zzif;if ~co x.$.2;print $2;if ~nu $:3; $0 $1 $-2;fi;llf $1; p2 $1;else; p9 $*;zif P9 $zzif;print $:2.* i;era $:2.* i;if ~nu $:3; P8 $1 $-2;else;llf $1; p2 $1;zif vPLF.DOC$ Po:Qi2raD FH(T$$$UHB TEr Aq '  Z- qRRD@KVQ jܐ # @o1Ng10b9NGl HXts%JF@C4aM@`/へ$. * <G*I)L !]O)%")Dr뀐 ' = 0 & Cܤb@PRs|HzCHP`Q &oֵSDPA!uXIx0IMC R W GQtBusCš 0 }X6}etF$rHn~A MuQYeGsGDaIa@!GBZehavFA~1mfAiEcFQ\zfAΚCIaG -zεGE^!F}ZeTQc-6\!֨Z$sGZV -iء[Cr),g'^8A*^c)$C`ya`²WWOiش>q  08Υ_jJD"jaІBLy(( saA% %[rB)gd-S@Ԝۼaٍ0-vTO :21( hQ.֏ #sa{Cp0Аd+HG g|lL[Fho A({3<3GI&4BKeD:_!,꩑5jݥ@=# Ǝ PR0 B0"B10%IPSc.pgFdU\_iS*@ZL3&MV|,3MqGIUe I)amLX-f%+8?_儤V[ @ ‚fH$rD?f}*a1 1+B':`œeeͨ)aҔpaEO4k17mI96sgyP6SɦҨR}p[d?L/~H;8Cr7$;ILQ%srJEik4rh8f FE!L Y¨n> 9&?+>{.*Bh6K4 @THIsBM)bpa ZLm!Y:T-Ht9{ *;A d9_>v3VlQ1G)!a4(ӡb7=V"^}WDFS-&0^ ځF -]JGV7RI 긝Z#!gʍ4's.<ˀ<;k)(>N B̗^ sG T MR_!H ˓0p|JPD98%̑+7ɱ,ҨnmcBԬHc:nU]8ʹfZ@A AT'4|:_>gM5SL@S[G<4rm @(O/L@Fa$#&r* ӴyĢI& %aw%5i0cMԁrD^520 x>*g=CƆ=C lABGRbH+'&|pR;,UIBIB)7AӅTQ!:umtۓ$; WA&(RLNbe+x'T;23%'ns k%Y )B(a #.z1zir+%&XxP)v@K 'Þ`:HNu vu#QPu $J81k$! "Ecb37T%-7-ZZ<\Tb?J5q.RXjŞN*ߡJ1e aS'E!JpC}5YvOk~TU,cSD0iJ\ +ШU{ v6cJqP)DK V` hw*+P3eE5X'9C$Q:1D8sy92Zt$e\FB3HI+{ZemV,N=7&Cu'HI(]rw)@-,rXXsZo**x`>y{pn';pD׷5jXɈLP No߬:hp *DC!L eY)q`yAAq>#JBsͨ_QO+ʡhxm]&<},3~t)s/t ,YI-@IDh"δ4|y`W3N@4 >3j/؜@t{Y^Pb$!h}S=gB]gj@)L9WˡQ}@(@1Q2`-4@8*Uv[V>VR*us֐1404V0SOS}H=>vj #'0C>m00@j%S`s=ep ֝ko]sNśPLF $zif ex $d1$u1:$:1.lbr;llf $d1$u1:$:1; p2 $d1$u1:$:1;else;if nu $:1;or eq $:1 //;t a0:m plf;else;echo ^M^Jt%>here is no ^[)%<$:1.lbr%>^[( on %<^[)$d1$u1:^[(.^M^J;zif P2 $zzif;reg s0 6; p3 $1 $'FILE(S) TO TYPE/EXTRACT/PRINT: ';zif P3 $zzif;if eq $2 /r;reg s0 4;else;if ge $2 /t;lt $1 $:3.$.3;reg s0 5;zif;rs p$$r0 $1 $2 $d3$u3:$:3.$.3 $d4$u4:$:4.$.4 $d5$u5:$:5.$.5;zif P4 $zzif;if ~co x.$.3;lex $1 $d3$u3:$:3.$.3;rena $d3$u3:$:3.$.3 $d3$u3:$:4.$.4;else;echo ^M^Jc%>ompressed files cannot be renamed.;sak /p3;fi;llf $1; p2 $1;zif P5 $zzif;if ~nu $:4;lt $1 $:4.$.4;if ~nu $:5;lt $1 $:5.$.5;zif;llf $1; p2 $1;zif P6 $zzif;;echo;lex $1 $3 u;if ~nu $:4;go $1 $4 u;if ~nu $:5;go $1 $5 u;zif; P7 $1 $2 $:3.$.3 $:4.$.4 $:5.$.5;zif P7 $zzif;if eq $:2 /e;llf $1; p2 $1;else; p8 $1 $-2;zif P8 $zzif;if ~co x.$.2;print $2;if ~nu $:3; $0 $1 $-2;fi;llf $1; p2 $1;else; p9 $*;zif P9 $zzif;echo ^M^J* p%>lease wait *;reg s1 0;if eq $.2 m?c;s p mac;reg p1;else;if eq $.2 d?c;s p doc;reg p1;zif; p10 $*;zif P10 $zzif;if eq $.2 zzz;s p ;reg p1;else;if eq $.2 u?d;s p upd;reg p1;else;if eq $.2 z?0;s p z80;reg p1;else;if eq $.2 i?f;s p inf;reg p1;zif; p11 $*;zif P11 $zzif;if eq $.2 n?t;s p not;reg p1;else;if eq $.2 l?b;s p lib;reg p1;else;if eq $.2 h?s;s p his;reg p1;else;if eq $.2 m?g;s p msg;reg p1;zif; p12 $*;zif P12 $zzif;if reg 1=0;s p * i;fi;rs print $:2.%p$$|era $:2.%p;if ~nu $:3; P8 $1 $-2;else;llf $1; p2 $1;zif  page ; RCP-REG.Z80 ; ;Section 5J ;Command: REG ;Function: Manipulate Memory Registers ; ;Forms: ; REG D or REG <-- Display Register Value ; REG Mreg <-- Decrement Register Value ; REG Preg <-- Increment Register Value ; REG Sreg value <-- Set Register Value register: ld de,fcb1+2 ; Pt to first arg ld a,(de) ; Get possible digit call regptr ; Pt to register dec de ; Pt to command ld a,(de) ; Get command cp 'S' ; Set? jr z,rset cp 'P' ; Plus? jr z,rinc cp 'M' ; Minus? jr z,rdec ; SHOW REGISTER VALUES rshow: xor a ; Select register 0 ld b,a ; Counter set to 0 in B call regp2 ; HL pts to register 0 rshow1: ld a,b ; Get counter value cp 10 ret z ; Exit if done call print db ' Reg',' '+80h ld a,b ; Print register number add '0' call conout call print db ' ','='+80h push bc ; Save counter push hl ; Save pointer call regout1 ; Print register value (no error flag setting) pop hl ; Get pointer pop bc ; Get counter inc b ; Increment counter ld a,b ; Check for new line cp 5 ; New line after fifth register display call z,crlf inc hl ; Pt to next register jr rshow1 ; INCREMENT REGISTER VALUE ; HL PTS TO MEMORY REGISTER ON INPUT rinc: inc (hl) ; Increment it jr regout ; Print result ; DECREMENT REGISTER VALUE ; HL PTS TO MEMORY REGISTER ON INPUT rdec: dec (hl) ; Decrement value jr regout ; Print result ; SET REGISTER VALUE ; HL PTS TO REGISTER ON INPUT rset: ld de,fcb2+1 ; Pt to value ld b,0 ; Init value to zero rset1: ld a,(de) ; Get next digit inc de ; Pt to next sub '0' ; Convert to binary jr c,rset2 cp 10 ; Range? jr nc,rset2 ld c,a ; Digit in c ld a,b ; Multiply old by 10 add a,a ; *2 add a,a ; *4 add a,b ; *5 add a,a ; *10 add a,c ; Add in new digit ld b,a ; Result in b jr rset1 rset2: ld (hl),b ; Set value regout: ; Entry point with setting of error flag if seterr ; Set error flag ld a,(hl) ; Get register value ld (z3msg+6),a ; Copy into program error flag endif ; ** THE FOLLOWING 'RET' INSTRUCTION KEEPS DISPLAY QUIET WHEN CHANGING ; ** AND SETTING REGISTER VALUES. Thanks to Howard Goldstein for ; ** this tip. - Rick Charnes ret ; AVOIDS GOING TO 'REGOUT1:' ; ** PATCH DONE ** - rc regout1: ; Entry point for not setting error flag call print ; Print leading space db ' '+80h ld a,(hl) ; Get register value ld l,a ; Value in HL xor a ld h,a ld de,100 ; Print 100's ld b,80h ; Set flag to print leading space for zero jp decdsp3 ; Display three digits and return ; SET HL TO POINT TO MEMORY REGISTER WHOSE INDEX IS PTED TO BY HL ; ON INPUT, A CONTAINS REGISTER CHAR ; ON OUTPUT, HL = ADDRESS OF MEMORY REGISTER (REG 0 ASSUMED IF ERROR) regptr: ld b,0 ; Init to zero sub '0' ; Convert jr c,regp1 cp 10 ; Range jr nc,regp1 ld b,a ; Value in b regp1: ld a,b ; Value in a regp2: ld hl,z3msg+30h ; Pt to memory registers add a,l ; Pt to proper register ld l,a ld a,h adc 0 ld h,a ; Hl pts to register ret ; ; End RCP-REG.Z80 ers add a,l ; Pt to pro Z3ENV* Ϳ͢K!]~ h/h#ʡDxMP;S0h:hz No Registers Available REG - Set/Display/Increment/Decrement Registers REG Syntax: REG Dr or REG r <-- Display Reg r REG Mr <-- Minus (Decrement) Reg r REG Pr <-- Plus (Increment) Reg r REG Sr val <-- Set Reg r to val where "r" may be 0-9 for the regs or # to select all regs#~#ʡͿwO Reg x0 = yTwͅ x̒x £0:0GG Invld Reg ID: x#~#Ϳ!mO͌Å!mOy͌x á#~#(Ϳw=͌Åw=͌x *á#~#MͿw<͌w<͌x Oáͱs~#j͢0xo|g~͢0xo|gw*"~#fo*(~"~00 bk)))_zW#{~#H 2 ͟  $$( y yG>GO> >Ydl l0v n_yˆʈ> {y0{> >    >^@O*. l0v n_yˆʈ6Z3ENVRENAMZ /PIORSQ*1234567>m6 This program requires a Z80 processor! * ###~Z̔(2!9"E1E!~ 0 ##~/ ? ':L 8.O:$ %6 Ignoring: > E xz< x8 x2ay2b!~=(#  :L8͸z$:L0_:b:a!#>z_8 ( > ͛ !h !:_:2::$ &6 Renaming !6 to !:6 !(x~## !H ~( :&:&(>2c:&():c ":$µ6 - No attribute matchõ:P0 !9 ͻ #6 - New name same as old name!!; ͻ :$µ6 - Duplicate!õ[ :Kõ:$(6 - Ok :(!d4!; !; ~w怶w# :^*M+"M|:$    R R6 User abort:$ :(*d :aG:bO|:Z * ~[Gs#r *E!~#~#=( (+C :Lz<2L~!8 = ##6#:L̈́O!O o~#foos#rG:L(=2LOx(o  ͛  ~#:((.( ( 7* ^#V#~(~(##ͻ ( 7F#N!~A8 ѯ7:8:8 yxѯ7ͮ~ T~#.("*(!89 ~#.(!8*>?  ~ ~#.(*( !8 >? 7 > ͛ ;! ͛ !͡ ,;:='"ͮ  #> >.> !H ? ~ (#= F+N<##3>.E ~#E  x@E y 8 >1E 0E >:E :ͽ8K!͛ !+ !:# ! ~w# ^>8!:9>ɯɯ2I2J͐8q>2I! ~~w()>2J:  :$ K6 - R/O!T >Ͳ ^.: (: ":$ !6 - Exists!T >Ͳ  O7mmm_ XY ;!Ͱm=Շo&͐ͫ#*f "f*M#"M*ʹ <=ͫ# 2:29:͐ͫ:w *.*(< ~#E _:" 76 Delete? (͒ Y :(6 - Rename? (͒ Y > Ͳ 7 G> G> G> E 6   '< < d<  < }0E 6 File*d| }(6 s6 Renamedʹ 8 }o|gy (> E y0E 6 ERROR: < |< >2K 7>9~0a{_ O~#( x{_zW~O# w* "~#fo O w ( h Z3ENV * ͱ i go9"! ""!~u#_Ww!͟ ~/u?u>2!"!*~$ O ( % ; (#( .| =̑*͍ R Command Line Overflow ͑*"#~%!> l ~C( #~#C +(*4 !ͬ( .*~~:=2*s#r#"ѯ=:<2*+V+^" G!\~((#xx$1234567890<>;:,.=-[]"_ a Resolve command line -- the following flags are interpreted: Flag Meaning ---- ------- % Shell variable name. $R Register number. (n = 1-9) $D Current drive letter. $U Current user number. $F System File name. (n = 1-4) $N System File, name only. $T System File, extension only. $| Substitute command separator (;) ù#~  >$F('N(WT(wD\UjR||O͑>$ #~(& (!1~ #0>.C#>$+~#~( (1~ #0##~( (1~ #C#1850͑GO_* R~ (#x#~ ##~|+>;A ͷ ##~0Gx ͷ #=i SH VARROOT:("M C͐6 *6͛   *Ϳ ( G K6 >*!-~ ( ~ (  : =S2*~([2 #ɯ =: ͬ("R >RDM: =*>+~# >: =M C͐6 ͛  W 9 (:*>[R%($D! [Ϳ xG K6 2G H :G 4ͤͤ4>+#> + ʠM x2P y2Q 4 G~AeҠ2P #ʒ; ڠ; ڟ#hŸQ O  ڠҠ2Q :P G:Q O=_ #¹ îOG=~ ! =_.:,<>ȷ;ɯ~4 #; 8 Wy8 8 8 8 8 O y70 E ?7p e ~#\ a B wB 0xo|g~ œ G~ʭ #Ÿ ×  ~; >; ~#  6× s#r~# =* ^#V* ~#fo~#fo~* .~* G* ,~* "~#fo* -~* ^#V#~ѷ* (~*  ^#VM |ʮ ~ʮ M $ʢ G#~#$ʓ OÓ " d  0  _y {y0 {w#w l d  > d  d   W d d T d g ~#ʻ ʥ Ϳ ʒ ʗ ʗ ʛ l l l yl l yG>GO> ± l   >^ @ O*.  24  25 / :4 _:5 _ Y X OGHu W͖ H͋ W͖ r# x– ~#ʬ Ϳ ʠ +~#ʬ Ϳ ° ì O ! # y  a{_* } $. 2* Z3ENV * 6  ͫ Not Wheel - Aborting ɯh!~<_Ww:]/(?ͫ SHVAR - Define/Redefine/Delete a Shell Variable Syntax: SHVAR variable text <-- to Define/Redefine SHVAR variable <-- to Delete SHVAR <-- to List Variabless* ͭ":] (0z?(#ͫ *** File write error *** =h**~ *ͫ --- No shell variables defined --- ͫ Shell variables: --Name---+---Definition----- [}|~ C\!w6[o(g6~#T ͫ = 446C ~#(T x 4 4~==ݾ6ͫ [more]C ͫ  *" #! !> ͞ ~( #~# + ( !H(!!H(! G!~#xx<>;:,.=-_ ~2~2NF i`^V#.x yYP͖0++͖##8 ++|8 }8 ͪ++ R0 KB.i`R0.og^#V^#V wz+ w{i: = *>+~# >: -H("R >RDM=: =SF*~([F #ɯ =SH VARROOT:(" C h *6< Q *$0(͑ Kh >*! ͛~  : = C=h < ͡ ̓ (<*>[R%($D!##[ͳ x͑ K=h !& ͛~  2PQ&:P= ͭ "ͭ =>4#&> 4͍ʩ x2Yy2ZͧG~Anҩ2Y#ʛDکʈDڨ#q¨O کҩ2Z:YG:ZO=# ÷OG=~ !=_.:,<>ȷ;ɯ~=#DAWyAAAAAOy70 N?7d ͵w*: /F##x_*: .~*: G*: ,~*: "~#fo*: -~*: ^#V#~ѷ*: (~*: )~#fo~*:  ^#V |3 ~3  $' G#~#$ O ": w ͞ ͖ d >e ͖ d ͖ d ^ ͡ ͖ ͖ ʞ ͖ ͱ ~#    ö ö ö yʶ ö yG>GO> T  ö > T > T T T T T T T >^T @T *. P O*. c Y X OGHͧ W Hͽ W r# x ~# +~# O !  # y  a{_*+ }) $.- 80   !!!!}o|g!5 ͖0"'(j"6" ~ j"0"~ J 8COMOBJLBROV?ARCBADSYS??#INTREL?RLEXE) )ĝ@ >2/=Y+2/=Y+!9" 1 ͇ !Fʕ#~$_+~# _+6##~N6ʇL‹2^ 2:•2^ K! |2` ͘`i"g :] ͇ * >2] ~ ͇ X 1 :22: 2f :=2e !i  ~2_ x 9x!:h G҉y?ʉ1:g O6#҉́:_ ¹#  !j ! !r 6L#6B#6Ri A ¬2a :|2d ! s ®! (~2b 2 èi s ® !        :a <2a G:b Ÿ͇ Member file not found in LBR directory N  ##~#ʃ~#foi "® vX X !>(!͍͇) }i ! s } w# g:` a̓^̓N ! ~N ʇ ͺʥN ¥N åͯ>2c ::e =2e ͇[more] N ͇ :2e >ʥ:d <2d ¥͇ TYPEL aborted - maximum number of lines exceeded. Please use XMODEM to transfer file to your system. N :c G͝2c ì> :c <2c #:` Š!j !r i A ¬:|s !͇ Unable to type - empty file? N  ~#. J?9B#N#B͇ Can't type a .~#d͇ file! N ! ~ì͇ Drive/user out of bounds N ͇ No such file on disk N  >? #G:^ x_7 &>2c : &:f =2f &: 2f > 7͇ LBR directory may be damaged - aborting N ͇ No member file name specified. ͇ Member file is 0k - cannot type. N ͇ Cannot read file N ͇ No ambiguous file names allowed ͇ TYPEL v3.60 universal single-file lister Usage: TYPEL [du:]fn[.ft] [fn.ft] Examples: TYPEL MDM722 MDM722.IQF types member file in LBR TYPEL TEST.AQM types normal file TYPEL F4:TEST.BQS accepts ZCPR drive/user TYPEL FOO.ASM $N $N option=not paging TYPEL BAR.ZOT $L $L option=LST: device If 1 argument is supplied, single file is typed. If 2 arguments, TYPEL assumes first arg is type LBR and attempts to type LBR member. Typing TYPEL without argument starts interactive mode. You can enter individual filenames or RETURN to stop. d:] ³* 0f3xG3x0:R3 f30O:f3>0f3y*{3w+"{36 *{32Ow+ ʏ3 3~3w+ ~3Ô2 2 2 * " "   " N  "  8 ͺ File has illegal decode size. Aborting." |_  s#r# s#r#* +; !Z Š _* :` € ̓! w#" b * ͇ ERROR - Checksum error in file N ~N ##ú |}* * ~#" * " " ͯi ͯ * " * > 0 0 go͇ Premature EOF on file... aborted.N : j =2 : ͌ ‡ ͌ } >==2 : 2 : O: ¥ 0 O>=2 yO!Ҵ ##^#Vzʓ y2 z> {/!" " " ! > 6#= ! " ɀ > G6G>2 2 $կ ~#:0 ,ʋ !ڋ  ~AI AD <2 #~:ʌ ?a 2 #~:ʌ A G~#: 0A A OxGc x A 2 Ì ~:“ #~,ʞ !Ҷ  >?£ : G: O> ~. # é é * >? # # >  * ~! =_.:;,<>ɾH) 9 # x, = ?ͯT >U ͯT ͯT N ͯMG7> J> J:> @ ʝ2 @O ʄ7@ u77\4^4!H=: @O~ʥ7 #Ù7!ɷ #"?~(w/"@i2 ,7w+2@2@GO> #Ò #### # #>^#@#*. O*. 2O*.F2 2z:_:_ @Y X OG!"|}*"}o|g"}o!}o|g 7;*a{_! s#r#6!"|}*"}o|g"}o!