> ZXConv v1.00  :Close_All:exit(): ! ctrl% 31:X%=ctrl%:Y%=X%256 (4A$=OS_GetEnv:in$="":out$="":os%=32:Win_TextIO 2=int$=type:A%=A$+" "," "):A%:in$=A$,A%-1):A$=A$,A%+1) "" out$=""):"Usage: ZXConv [-devpac|-text] [-devpac|-text] ":exit(0): P@in$="":"Input file: "in$: "Input type (Devpac/Text) "int$ ZEout$="":"Output file: "out$: "Output type (Devpac/Text) "outt$ d+int$=uc(int$,1)):outt$=uc(outt$,1)) n7int$="B":"Can't convert Basic files":exit(255): x"T":"Can't convert file":exit(255): "D":"Can't convert file":exit(255): 9in%=(in$): in%=0:"Can't open '"in$"'":exit(214): Hout%=(out$):out%=0:"Can't open '"out$"'":#in%:in%=0:exit(214):  int$="B":basic  int$="D":devpac  int$="T":text Close_All  exit(0): &outt$="T":"SetType "+out$+" FFF" exit(0): basic  devpac line%=#in%+256*#in% A%=#in%:#out%,A%:A%=13  #in%: " text ,line%=0::line%=line%+10 6!#out%,line%:#out%,line%256 @A%=#in%:#out%,A%:A%=13 J #in%: Tݤtype: t$ ^2A$,1)="-":"BDT",uc(A$,2,1))):t$=A$,2,1) h,t$<>"":A%=A$+" "," "):A$=s(A$,A%+1)) r=t$ |Close_All:*EXEC "in%=in%:in%:A%=in%:in%=0:#A% 'out%=out%:out%:A%=out%:out%=0:#A%  /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " +A$,1)=" ":A$=A$,A$-1):A$,1)<>" " =A$ ݤuc(A$): B$:A$="":="" 5B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":=B$ :ݤ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$ 0 :@exit(A%):"FX1,"+A%:quit$=quit$:A$=quit$:quit$="":os(A$) Dos%=32:Ș A% Nos%<6: *Quit X B(C) {H {h H {h * pqGrrs rpqs {۠{L `{{`{{H Ϋ{ {h`p{{{p`Q%=PAGE OLD RUN BASIC