~,Ýò_VLIST
~-@%=0
~.E%=&900
~/ã T%=&482 ¸ &4F4 ˆ2
~00ç ¤DD(T%)<>0 Œòfollow(¤DD(T%),(T%-&400)/2,0)
~1íT%
~2*ç ¤DD(&4F6)<>0 Œòfollow(¤DD(&4F6),0,1)
~3*ç ¤DD(&4F8)<>0 Œòfollow(¤DD(&4F8),0,2)
~4á
~5Ýòfollow(T%,S%,F%)
~6$E%=½S%
~7ç F%=1 ñ"PROC";
~8ç F%=2 ñ"FN";
~9R%=T%+1
~:ç F%=0 ïS%
~;õ
~<R%=R%+1
~=ç ?R%>47 ï?R%:$E%=$E%+½?R%
~>ý?R%<48:ç F%<>0 ñ
~?ç ?R%=&25 € F%=0 òinteger
~@ç ?R%=&24 € F%=0 òstring
~Aç ?R%=0 € F%=0 òreal
~B!ç ?R%=&28 € F%=0 ñ"(";:òarray
~C(ç ¤DD(T%)>255 òfollow(¤DD(T%),S%,F%)
~Dá
~E
Ýòinteger
~Fç R%?1=0 ñ"%="; ($E%+"%"):á
~Gñ"%(";:òarray
~HÝòstring
~I+ç R%?1=0 ònormal_string ‹ ñ"$(";:òarray
~Já
~KÝònormal_string
~L
ñ"$=";
~Mï34
~Nç R%?5=0 ñ½34:á
~Oã L%=1 ¸ R%?5
~Pï?(L%-1+¤DD(R%+2))
~QíL%
~Rñ½34
~Sá
~T Ýòarray
~Uã D%=1 ¸ ((R%?3)-1)/2
~Vç D%<>1 ñ",";
~Wñ;¤DD(D%*2+R%+2)-1;
~XíD%
~Yñ")"
~Zá
~[
Ýòreal
~\ñ"="; ($E%)
~]á
~^ݤDD(A%)=!A% € &FFFF
ÿ