Fomat winisis

BPICT(('CLOUD'),16),{cl4,fs30,B,I,'CSDL : '(db),CL1,'       Th­  ViÖn Tr­êng THCS An HiÖp'}/box (10),'BiÓu ghi sè :'MFN(6),##MPL,cl2'- ChØ sè ph©n lo¹i  : ' /,{ qc{ ul,cl1,'  'v161,"+"v171 ,  '  '} cl15'.                                                       .' / ,cl1 '  'v181 cl15' .                                                       .' } /,

,mhl,{cl2 '- Tªn s¸ch   : ',cl0 V2,cl4 " = "v29," : "V3,  } if p(v7) then /cl2'- T¸c gi¶      : ' fi cl0 V7+| , |/ ,

cl2 '- XuÊt b¶n   : ' if p(v4) then cl0 V4," .-  "v8^a,"; "v8^c," .-  "v8^d"..."," : "v9^a,"; "v8^b," : "v9^b,"; "v9^c," .-  "v9^d"..." else cl0 v8^a,"; "v8^c," "v8^d"..."," : "v9^a,"; "v8^b," : "v9^b,"; "v9^c,"  "v9^d"..." fi ,

if a(v22) then ", "v10/,cl2 '- Trang khæ  : '  cl0 v11^a," ; "v11^b

  else ", "v10/,cl2 '- Trang khæ : ' cl0 v11^a," ; "v11^b fi ,/cl2"- Tïng th­  : " d12,cl0 v12, if p(v12) then / fi, cl2 "- Phô chó : " d15, cl0 v15 if p(v15) then / fi, if p(v22) then   cl2 "- TËp : "d22,  cl0 (v22(5)/) fi,if p(v24^k) then /cl2 '- Sum TËp   : 'cl0 v24^k / fi,

if (p(v27) and nocc(v27)>2) then cl2 '- Phßng ®äc :   ' ,cl0 V27[1]'.'(v27[2..]+| ; |) / else  cl2 "- Phßng ®äc :   " d27,cl0 (v27+|.|) if p(v27) then / fi fi,

 if (p(v271)  and nocc(v271)>2) then cl2 "- Phßng m­în : "d271, cl0 V271[1]'.'(v271[2..]+| ; |)/ else cl2 "- Phßng m­în : "d271, cl0 (v271+|.|)  if p(v271) then / fi FI,

 if (p(v274)  and nocc(v274)>2) then cl2 "- Phßng thiÕu nhi : "d274, cl0 V274[1]'.'(v274[2..]+| ; |)/ else cl2 "- Phßng thiÕu nhi : "d274, cl0 (v274+|.|)  if p(v274) then / fi FI,

 if p(v14) then  if p(v14[1]) then cl2 '- Gi¸ tiÒn : 'cl0 v14[1] / fi, if p(v14[2]) then cl2 '- Sè b¶n : 'cl0 v14[2]fi,fi/