> ArcProd + Prod remote server, Arc Basic version  (C)1992 J.G.Harston (! ctrl% 30:X%=ctrl%:Y%=X%256 2OSWORD=&FFF1:OSBYTE=&FFF4 <ș "OS_GetEnv" A$ F$a=A$," ",1+A$," ",1+A$," "))) P'A$=A$,a):ȕ A$,1)=" ":A$=A$,2): ZA A$,"-?"): 220,"Syntax: *ProdPS (.)) ()": d2num%=A$:a=A$,"."):a:num%=num%*256+A$,a+1) nnum%=0:num%=&FFFF x6num%:A$=A$,1+A$," ")):ȕ A$,1)=" ":A$=A$,2): A$="":A$="PRINT" A$=A$+6," "),6) 5?X%=&80:X%?1=&9F:X%!2=num%:$(X%+4)=A$:X%!10=&FFFF  ' ?X%=&80:A%=&10: OSWORD: ?X%=0 $ A%=fx(&32,0,0): (A%&80)=0 A%=0: 'ݤfx(A%,X%,Y%)=((&FFF4)&FF00)256