> Shell ?in%=0:out%=0:ctrl%31,data%79:A$=OS_GetEnv:CommandLine$=A$ )quit$=cl(" -q",1):err:exit(): (Idebug%=cl("-d",0):lp$=cl("-l",1):tt$=cl("-4",1):spool%=cl("-s",0) 2spool%=cl("-s",0) < debug%= Fdebug%:"RunCommand= '"run$"'"'"CommandLine='"CommandLine$"'"'"quit$='"quit$"'"'"debug%=";debug%,"spool%=";spool%'"lp$='"lp$"'"20)"tt$='"tt$"'" Pgcl("-?",0):"Syntax: Shell (-debug) (-lp ) (-4 ) (-quit )":exit(0): ZDCallBack$="":run$<>"":CallBack$=" -quit "+run$+" "+CommandLine$ derr:exit(): n0A%=1:X%=0:ReturnValue%=((&FFF4)&FF00)256 x.ReturnValue%:"ReturnValue=";ReturnValue% "$ "A$ $A$<>42 A$<>"":A$=A$+CallBack$ os(A$):: ݤerr:::=-1 :ݤOS_GetEnv:A$,A%:X%=1:os%=((&FFF4)&FF00)256:X%-1 Jos%=32:>&FFFF:ș"GetModuleFileName",0,X%,255:A$=$$X%:run$=A$:=@cmd$ os%=32:A$=$&100 {A$=0:>&7FFF:run$=$&8100:ș"OS_GetEnv"A$,,A%:ș"OS_WriteEnv","",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ 2A$=0:?(P-3):A$=$&600 A$=0:A$=$(-&300) 7A%=A$+" "," "):run$=A$,A%-1):run$<>"":=A$,A%+1) bY%=X%256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:&FFD1:A%=X%+16:!A%?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) ="" &os(A$):A$=42:A$ A$<>"":A$  @exit(A%):"FX1,"+A%:quit$=quit$:A$=quit$:quit$="":os(A$) os%<6: *Quit " ,Hݤcl(l$,n%):l$="":I%=A$+" "," "):l$=A$,I%-1):A$=s(A$,I%+1)):=l$ 6l$=32 A$<>"":A$=" "+A$ @bI%=A$,l$):l$="":I%>0n%>0:l$=A$,A$+" "," ",I%+1)+1):A$,I%,1)<>" ":l$=l$,l$+" "," ")-1) JqI%:A$,I%,1)=" ":A$=A$,2+(A$<>32),I%-2-(I%=1)) I%:A$=A$,I%-1)+A$,A$+" "," ",A$+" "," ",I%)+l$)+1) T"A$=s(A$):n%:=s(l$) =I%<>0 ^/ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " h+A$,1)=" ":A$=A$,A$-1):A$,1)<>" " r=A$ B(C) {H {h H {h * pqrssrpqs {۠{L `{{`{{H Ϋ{ {h`p{{{p`Q%=PAGE OLD RUN BASIC