این چه زبونیه؟!!
سلام میشه یکی بگه این به چه زبونی نوشته شده؟
########################################
FUNCTION conv(s1,j)
########################################
DEFINE s1,s2 varchar(255)
DEFINE i,j int
LET s2=''
for i=1 to j
if s1[i]='{' then let s2[i]=' ' continue for end if
if s1[i]='}' then let s2[i]=' ' continue for end if
if s1[i]<ascii(128) then let s2[i]=s1[i] continue for end if
case s1[i]
when ascii(128) let s2[i]=ascii(48) exit case
when ascii(129) let s2[i]=ascii(49) exit case
when ascii(130) let s2[i]=ascii(50) exit case
when ascii(131) let s2[i]=ascii(51) exit case
when ascii(132) let s2[i]=ascii(52) exit case
when ascii(133) let s2[i]=ascii(53) exit case
when ascii(134) let s2[i]=ascii(54) exit case
when ascii(135) let s2[i]=ascii(55) exit case
when ascii(136) let s2[i]=ascii(56) exit case
when ascii(137) let s2[i]=ascii(57) exit case
when ascii(138) let s2[i]=ascii(160) exit case
when ascii(139) let s2[i]=ascii(220) exit case
when ascii(140) let s2[i]=ascii(191) exit case
when ascii(141) let s2[i]=ascii(194) exit case
when ascii(142) let s2[i]=ascii(198) exit case
when ascii(143) let s2[i]=ascii(198) exit case
when ascii(144) let s2[i]=ascii(199) exit case
when ascii(145) let s2[i]=ascii(199) exit case
when ascii(146) let s2[i]=ascii(200) exit case
when ascii(147) let s2[i]=ascii(200) exit case
when ascii(148) let s2[i]=ascii(129) exit case
when ascii(149) let s2[i]=ascii(129) exit case
when ascii(150) let s2[i]=ascii(202) exit case
when ascii(151) let s2[i]=ascii(202) exit case
when ascii(152) let s2[i]=ascii(203) exit case
when ascii(153) let s2[i]=ascii(203) exit case
when ascii(154) let s2[i]=ascii(204) exit case
when ascii(155) let s2[i]=ascii(204) exit case
when ascii(156) let s2[i]=ascii(141) exit case
when ascii(157) let s2[i]=ascii(141) exit case
when ascii(158) let s2[i]=ascii(205) exit case
when ascii(159) let s2[i]=ascii(205) exit case
when ascii(160) let s2[i]=ascii(206) exit case
when ascii(161) let s2[i]=ascii(206) exit case
when ascii(162) let s2[i]=ascii(207) exit case
when ascii(163) let s2[i]=ascii(208) exit case
when ascii(164) let s2[i]=ascii(209) exit case
when ascii(165) let s2[i]=ascii(210) exit case
when ascii(166) let s2[i]=ascii(142) exit case
when ascii(167) let s2[i]=ascii(211) exit case
when ascii(168) let s2[i]=ascii(211) exit case
when ascii(169) let s2[i]=ascii(212) exit case
when ascii(170) let s2[i]=ascii(212) exit case
when ascii(171) let s2[i]=ascii(213) exit case
when ascii(172) let s2[i]=ascii(213) exit case
when ascii(173) let s2[i]=ascii(214) exit case
when ascii(174) let s2[i]=ascii(214) exit case
when ascii(175) let s2[i]=ascii(216) exit case
when ascii(176) let s2[i]=ascii(157) exit case
when ascii(177) let s2[i]=ascii(32) exit case
when ascii(178) let s2[i]=ascii(32) exit case
when ascii(179) let s2[i]=ascii(32) exit case
when ascii(180) let s2[i]=ascii(32) exit case
when ascii(181) let s2[i]=ascii(32) exit case
when ascii(182) let s2[i]=ascii(32) exit case
when ascii(183) let s2[i]=ascii(32) exit case
when ascii(184) let s2[i]=ascii(32) exit case
when ascii(185) let s2[i]=ascii(32) exit case
when ascii(186) let s2[i]=ascii(32) exit case
when ascii(187) let s2[i]=ascii(32) exit case
when ascii(188) let s2[i]=ascii(32) exit case
when ascii(189) let s2[i]=ascii(32) exit case
when ascii(190) let s2[i]=ascii(32) exit case
when ascii(191) let s2[i]=ascii(32) exit case
when ascii(192) let s2[i]=ascii(32) exit case
when ascii(193) let s2[i]=ascii(32) exit case
when ascii(194) let s2[i]=ascii(32) exit case
when ascii(195) let s2[i]=ascii(32) exit case
when ascii(196) let s2[i]=ascii(32) exit case
when ascii(197) let s2[i]=ascii(32) exit case
when ascii(198) let s2[i]=ascii(32) exit case
when ascii(199) let s2[i]=ascii(32) exit case
when ascii(200) let s2[i]=ascii(32) exit case
when ascii(201) let s2[i]=ascii(32) exit case
when ascii(202) let s2[i]=ascii(32) exit case
when ascii(203) let s2[i]=ascii(32) exit case
when ascii(204) let s2[i]=ascii(32) exit case
when ascii(205) let s2[i]=ascii(32) exit case
when ascii(206) let s2[i]=ascii(32) exit case
when ascii(207) let s2[i]=ascii(32) exit case
when ascii(208) let s2[i]=ascii(32) exit case
when ascii(209) let s2[i]=ascii(32) exit case
when ascii(210) let s2[i]=ascii(32) exit case
when ascii(211) let s2[i]=ascii(32) exit case
when ascii(212) let s2[i]=ascii(32) exit case
when ascii(213) let s2[i]=ascii(32) exit case
when ascii(214) let s2[i]=ascii(32) exit case
when ascii(215) let s2[i]=ascii(32) exit case
when ascii(216) let s2[i]=ascii(32) exit case
when ascii(217) let s2[i]=ascii(32) exit case
when ascii(218) let s2[i]=ascii(32) exit case
when ascii(219) let s2[i]=ascii(32) exit case
when ascii(220) let s2[i]=ascii(32) exit case
when ascii(221) let s2[i]=ascii(32) exit case
when ascii(222) let s2[i]=ascii(32) exit case
when ascii(223) let s2[i]=ascii(32) exit case
when ascii(224) let s2[i]=ascii(217) exit case
when ascii(225) let s2[i]=ascii(218) exit case
when ascii(226) let s2[i]=ascii(218) exit case
when ascii(227) let s2[i]=ascii(218) exit case
when ascii(228) let s2[i]=ascii(218) exit case
when ascii(229) let s2[i]=ascii(219) exit case
when ascii(230) let s2[i]=ascii(219) exit case
when ascii(231) let s2[i]=ascii(219) exit case
when ascii(232) let s2[i]=ascii(219) exit case
when ascii(233) let s2[i]=ascii(221) exit case
when ascii(234) let s2[i]=ascii(221) exit case
when ascii(235) let s2[i]=ascii(222) exit case
when ascii(236) let s2[i]=ascii(222) exit case
when ascii(237) let s2[i]=ascii(223) exit case
when ascii(238) let s2[i]=ascii(223) exit case
when ascii(239) let s2[i]=ascii(144) exit case
when ascii(240) let s2[i]=ascii(144) exit case
when ascii(241) let s2[i]=ascii(225) exit case
when ascii(242) let s2[i]=ascii(225) exit case
when ascii(243) let s2[i]=ascii(225) exit case
when ascii(244) let s2[i]=ascii(227) exit case
when ascii(245) let s2[i]=ascii(227) exit case
when ascii(246) let s2[i]=ascii(228) exit case
when ascii(247) let s2[i]=ascii(228) exit case
when ascii(248) let s2[i]=ascii(230) exit case
when ascii(249) let s2[i]=ascii(229) exit case
when ascii(250) let s2[i]=ascii(229) exit case
when ascii(251) let s2[i]=ascii(229) exit case
when ascii(252) let s2[i]=ascii(237) exit case
when ascii(253) let s2[i]=ascii(237) exit case
when ascii(254) let s2[i]=ascii(237) exit case
when ascii(255) let s2[i]=ascii(32) exit case
end case
end for
RETURN s2
END FUNCTION --CONV--
########################################
پاسخ با نقل قول
نقل قول: این چه زبونیه؟!!
