From: kako@nagara.info.gifu-u.ac.jp (Eiji Kako)
Newsgroups: comp.sys.handhelds
Subject: command.bas for SHARP PC-E500
Keywords: PC-E500
Date: 11 Aug 92 01:49:28 GMT


This is Tiny Command-line Processor for SHARP PC-E500.

---- 8< -------- 8< -------- 8< -------- 8< -------- 8< -----
begin 644 command.tar
M'YV0+EX &$BPH,&#"!,J7,BPH4.$("+>F @"0,09-V3<J!@1Q(P8,3AV'!D1
M1L0:,FC$L!$#(XT9'6G(F&'#XL.;.'/JW,FSI\^?0(,*'4JT:,. 8]ZT:1/&
M#1D78L+,,4I5:$<;6$5BU"C2(\BN(VW,D&$2!$J5+#'""!G1ALP9-JO*G4NW
MKMV[>/-2#7EBR),F38(X(>)"2) I$>V4D0,BAHNU$<7D 5'$Q9(P:]Z 0*&D
MB8PK1YRD4!##Y! FB'6<+A)$"@@=44CT&()$"HG-,VBD4&U[=NW;*%J.)@N"
M"1'9(HR(B'@"!!TT:>: B YB3!TY<LJXH0."C)PTBA7,, E%2A(G5$"(H'(^
M2XLA0Z" L++8,600DBE;QOQ&A (:)@71@PTUU$"3"E 44<02()@@A!%$Q##$
M"C+48 .""C+H((0Q"+%"@@LV^&"$02A0@TE"]+#A$## H%H/1DA1Q&8PI+""
M$"T$T4*%-NC01 \XEF@#>>:AIQX54 2A@P@[(%$$%K<%L8,(+3#I))0@"#$E
M""YTR>1YZ:& 0I IO%!:2BJ45F9I4RXAA'\W!(B<"#J4!V9QQ^V@PWE05)&>
M"#XP&00)"N!@4A)&@#!H#R(L1X633H 0IP(YF'3$$U-4(00(*K1V!&U+D-8B
M")=2\02GM!4Q1*@@'9KHHB(8-D420S@**:=/)D$%:<0AJBARN5)A:Q&1JA L
M:>.!X"NL1"0AQ;#%-BL%LC4H^RIR?D&1!;2H0D$:@-;^RBB207"K KFDG0B"
MG4:*X!=@@A$!@A-/I&?$$U4,Y@*=I9XZZ4HF&8N%KCH02P1I<7(J[9Z)"C$G
M"(\2FZ5LQI&P IW^Q6!HN.8=@005P#G,0@PI,+HDQ+<Z#*3%(OS@\LLNN_!R
MQI5.O/(*M-D& @P*D&72O:XET4-(IA8G\9@D[ ;%$TO,B,*&1<A@Q I)I,#"
M84-LUD02QVTF<A(CI[";$T^FET3/I:W+](Q0M\B""3 ,\?9X;QM1Q-LP"($W
M$6^?6/?=<.MM @Z"RX##WW@+3K<)0<SP-A$TX(U#S\0MW;2(=I>&-PQXYX"W
MW'#7\'81D9M@A!%XHVY"#(##4'H0AYL@0Q"(!SXWYX,[;@+D/2=K.=L/1HU[
M$(7';G?B;^>@.@PW] RN$T;TX.(2TO>L[N^81WWX$BQPSK,,0X(P1!!,,)%]
MBSTG3#V(&@9ON [4+[%"##H(R'[VL_>\\;(\^!#@8(KJGPQ0)C%V_:D(V'F#
M'/A5KU/EYGLU@Q6=@*:LH4'L5#&00?UD,RB<_68S]WM:\ I$-;'I@&Q8,)MX
M1K6L'@PP8I'R5?1, D./@*L(J)F1 5_3+QOR[",F@5X/H#>_.A4I/8/:@7B(
M$SWHM>!.*(#>"V:0 A7,@&$@F"$!([5#'$Y!AT=43T28))YD];!"/P17#R>5
MFY"H(#Y85%FC=+#&- Y0"=+3 06%1K13,8%82-N-K[9V'*2Q &PD8Y08:XC'
ML^4&)BA486ZJY2L\TO!60XB!;!RF&AE0[#@76Y)X:&"#<"G!?UL4GR9[0$@2
M&#(&+%!""TC62=FTTI!*F!\+_NB$0+9 ":/)S48R*9N<N3(W-B*F!VV# F36
MTC?,1";./+G,8^IFE#@ 0=.RL#,6N.L)VA(!SC1Y,5.)<PC4Y)<+XG3.WP2'
MBJ/, 64&(QYUG2M)1KR3"%3 3Q6 X(OI(1>G^ND?FA!)GTYXPQW4TZ0G16E*
M56HHEK2TG"[M:P=0'%..U@0#-*G)3#!HTYO$D[ =BJ )8< #0Z\4LO>D *)6
M<FB6MF31+QD)!4, J4=K!%*1%G1CV^PF)_GD)_6TH 6!VH'#Q%,S7\F16R8=
MGQ.&@,-]T;&!DN(9@%QEM$BIK%HU) *06F %\FU&!"80I\-2X,49B;6LYG-8
MFCI*@_^D#0D]@"(17D @ ]E@-S_**!%:@ 05])4F9>+1;IC0@\$6]K V:$$3
M5,"C_U0NC")P0AD6&E,L:90(+Z529V]#42YY:0=[/1,-?+HE'8" :3_83!9>
M(!K_O$1.>75"G])# OHM"SE.X%;"VAJN0?5/!-M2% "-ZX,AZ*R&M_T/N+#7
M-MW%@':FXYN#=LF")K  ":HAG_E,=SHBX*!@]*2!/3T%*AT\]3_A8ZR+]FC!
MHO'R5_])V""Y!IQ!'3)LBEQ.O(HCO50R]FPTV%@DE85%^::R!J7Y3\U4ULK-
M^)<)NKSOH%K A-&<"+=_- +(+$R"7<[2PVF3$16J( 4GF(@X;W32JG1P'$;Y
MQT FD:\>GQ"T^OI18H,R$;CVVS44^!>1)<.8<N7EX!H>V$3J6G 2&ES@L'Z2
M9:*TD$F>$*DB2$$*/"855M_8!")X>5HU2!@X)0;*064QS$1%(F)&$ ,3 54V
M<0:!*U<2-A/5[#28FI$.N$R9+X>YASP;$E>QIC7^;F8))88ER5+0/Q,@X72I
M)+.9OZP EBQZ"EE#0851 &D6R"!LE/:!I4=50TV?N=.]>A6H&UWD4CMNTI5&
M @Q*V>HAE/G58OETJ$==ZLCA6M6Z)MJM7,UIMPB;UL IM>B.;>FT]?K7S597
M$"+4 T:+VM&D+K'G)ET_(LB@V[/^=JTCS3ER;WL&Z!XVN$L-$E1W.GS;EL(4
MNAVA%6Q;!I2UD+^), /#%H@FG=;OJXB@;QX$(94FQ5=ZGI"H)A2A"3S>UE6+
MUJI.;XP)3]@V")H @C:7.-]34,TF+>9<$L21!,?EUA!D$QN<L=PVG:X9??O8
MU<W,7&EKVPS48C"UJETMW:.>^7_)+64%Q(D\06\;[N+V-K+4+F]5!QT,M%MO
MT[5.<$(0G0DPXO2T43=X6(<;W[8-RW]?C>!OZSH,Q#X#T"D/;\W+B&G$>SZ>
MW<",6)W4#<#%;"D,NLN&=@VB=2"C3%E<4B=RNKIZV'&]6/[RF,^\YB^/%*4P
MQ2DN(,,;QK#YO%PE*Q;Q2$8VDGJOA*3U(P'81LR2DI6T)$YL 8%;P!>7TOO^
M]\ /OO"!CX0G7.&"(*C"%Q6@@)$$@3MF2(,<YD '%H @#V^H PC:4 ?J@X -
M;P@#&9P#'>G 00YO.(,<PM &YV@&^]>AS(==(+XWN,$-91@#=^#/F")\N/D=
MT13CQW_KDC5WD ;/ 0)SL!AI$ 9L4!UA( 9L4 ;61P=Y  =E$!$@MVW?U 0G
MDP;;H1GRYS8@(( @4 =P '[B!X 1\1S4<7[IMW[M9P;HUWY0D#5TH!G^-RH'
MF( 6" <@> 81D2W<]"Z!H2^RHBA5@ 5<PGPCD01F\'WA1P9E0 85>($9"((1
M(07YPB4=\7 PV 9PP!TH0 28T@)LD 9K4 8I (%N@!\9N(#:X0).V!%9D'UN
M>((+J(!*D8%)L10"*!U2 0)F\ 9L 'YW, =T.!(LV!AM*"NT,A(MT!'900?7
M\88YF"6'02N-* -M&"PD,8D1,0?LEX&#"(E#T(A45'+.0A(@((H*B 8*=7UX
MZ :E*!UO$(71-X'2H87/X8?7D1W;T1W2EW\Y* =YT(BZ(3[@Q$V2V!%) 0>3
ML8MET(@UT(8"%8H= 079 0=AD!W)]T6NT1JL48+2007KYP9SD ;:P1W<&(/L
MIRC9$0:$J$"-Z(KXV!%,,0;0@7_5\094" (PJ'[LIXC*X@9P4 ?<L8YZD(&Y
M6(+S2'\H4 =N@(#WF(_X2!TAL09I 'XM(!ET4 ;T-QIAT8954 7$XA=F]HH=
M007E-QV"^(9E@ <A*0>V^(!_^'E/L2X*68+X 8+?.(T=F85N<)$821($:!W8
MT8[$F!WZIT!YL(@=<0,F605FII(S HNDV :F*!TGF9)/8&9U&!$F. =]" (S
M69,W^8^ Z!32@09AH!APJ!W=40:* 7X8^!3,YY)-L0:T6 <AH !?=SMO@P.Z
MPSLS 767 S56QSC%<W6"<W=PTSPI$40S!#_5@T9JLYCNLSW=TST]$S[C4SY]
MESXFL3X9TB##MYJLV9JN^9JP&9NR.9NT69NV>9NXF9NZN9N\V9N^^9O &9S"
(.9S$69S&"9S#
 
end
---- 8< -------- 8< -------- 8< -------- 8< -------- 8< -----



--
Eiji-Kako
Dept. Electronics and Computer Engineering, Gifu University, Japan
E-mail: kako@fem.info.gifu-u.ac.jp