fun Ġtest Int Ġ() Ġ: ĠString Ġ{ ĊĠĠĠ Ġval Ġr 1 Ġ= Ġ 1 Ġu pto Ġ 4 ĊĠĠĠ Ġif ( r 1 . end Ġ!= Ġ 4 Ġ|| Ġr 1 . is Re versed Ġ|| Ġr 1 . size Ġ!= Ġ 4 ) Ġreturn Ġ" int Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 2 Ġ= Ġ 4 Ġu pto Ġ 1 ĊĠĠĠ Ġif ( r 2 . start Ġ!= Ġ 0 Ġ|| Ġr 2 . size Ġ!= Ġ 0 ) Ġreturn Ġ" int Ġnegative Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 3 Ġ= Ġ 5 Ġdownto Ġ 0 ĊĠĠĠ Ġif ( r 3 . start Ġ!= Ġ 5 Ġ|| Ġr 3 . end Ġ!= Ġ 0 Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 3 . size Ġ!= Ġ 6 ) Ġreturn Ġ" int Ġdownto Ġfail " ĊĊĠĠĠ Ġval Ġr 4 Ġ= Ġ 5 Ġdownto Ġ 6 ĊĠĠĠ Ġif ( r 4 . start Ġ!= Ġ 0 Ġ|| Ġr 4 . end Ġ!= Ġ 0 Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 4 . size Ġ!= Ġ 0 ) Ġreturn Ġ" int Ġnegative Ġdownto Ġfail " ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ } Ċ Ċ fun Ġtest Byte Ġ() Ġ: ĠString Ġ{ ĊĠĠĠ Ġval Ġr 1 Ġ= Ġ 1 . to Byte () Ġu pto Ġ 4 . to Byte () ĊĠĠĠ Ġif ( r 1 . end Ġ!= Ġ 4 . to Byte () Ġ|| Ġr 1 . is Re versed Ġ|| Ġr 1 . size Ġ!= Ġ 4 ) Ġreturn Ġ" byte Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 2 Ġ= Ġ 4 . to Byte () Ġu pto Ġ 1 . to Byte () ĊĠĠĠ Ġif ( r 2 . start Ġ!= Ġ 0 . to Byte () Ġ|| Ġr 2 . size Ġ!= Ġ 0 ) Ġreturn Ġ" byte Ġnegative Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 3 Ġ= Ġ 5 . to Byte () Ġdownto Ġ 0 . to Byte () ĊĠĠĠ Ġif ( r 3 . start Ġ!= Ġ 5 . to Byte () Ġ|| Ġr 3 . end Ġ!= Ġ 0 . to Byte () Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 3 . size Ġ!= Ġ 6 ) Ġreturn Ġ" byte Ġdownto Ġfail " ĊĊĠĠĠ Ġval Ġr 4 Ġ= Ġ 5 . to Byte () Ġdownto Ġ 6 . to Byte () ĊĠĠĠ Ġif ( r 4 . start Ġ!= Ġ 0 . to Byte () Ġ|| Ġr 4 . end Ġ!= Ġ 0 . to Byte () Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 4 . size Ġ!= Ġ 0 ) Ġreturn Ġ" byte Ġnegative Ġdownto Ġfail " ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ } Ċ Ċ fun Ġtest Short Ġ() Ġ: ĠString Ġ{ ĊĊĠĠĠ Ġval Ġr 1 Ġ= Ġ 1 . to Short () Ġu pto Ġ 4 . to Short () ĊĠĠĠ Ġif ( r 1 . end Ġ!= Ġ 4 . to Short () Ġ|| Ġr 1 . is Re versed Ġ|| Ġr 1 . size Ġ!= Ġ 4 ) Ġreturn Ġ" short Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 2 Ġ= Ġ 4 . to Short () Ġu pto Ġ 1 . to Short () ĊĠĠĠ Ġif ( r 2 . start Ġ!= Ġ 0 . to Short () Ġ|| Ġr 2 . size Ġ!= Ġ 0 ) Ġreturn Ġ" short Ġnegative Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 3 Ġ= Ġ 5 . to Short () Ġdownto Ġ 0 . to Short () ĊĠĠĠ Ġif ( r 3 . start Ġ!= Ġ 5 . to Short () Ġ|| Ġr 3 . end Ġ!= Ġ 0 . to Short () Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 3 . size Ġ!= Ġ 6 ) Ġreturn Ġ" short Ġdownto Ġfail " ĊĊĠĠĠ Ġval Ġr 4 Ġ= Ġ 5 . to Short () Ġdownto Ġ 6 . to Short () ĊĠĠĠ Ġif ( r 4 . start Ġ!= Ġ 0 . to Short () Ġ|| Ġr 4 . end Ġ!= Ġ 0 . to Short () Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 4 . size Ġ!= Ġ 0 ) Ġreturn Ġ" short Ġnegative Ġdownto Ġfail " ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ } Ċ Ċ fun Ġtest Long Ġ() Ġ: ĠString Ġ{ ĊĊĠĠĠ Ġval Ġr 1 Ġ= Ġ 1 . to Long () Ġu pto Ġ 4 . to Long () ĊĠĠĠ Ġif ( r 1 . end Ġ!= Ġ 4 . to Long () Ġ|| Ġr 1 . is Re versed Ġ|| Ġr 1 . size Ġ!= Ġ 4 . to Long ()) Ġreturn Ġ" long Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 2 Ġ= Ġ 4 . to Long () Ġu pto Ġ 1 . to Long () ĊĠĠĠ Ġif ( r 2 . start Ġ!= Ġ 0 . to Long () Ġ|| Ġr 2 . size Ġ!= Ġ 0 . to Long ()) Ġreturn Ġ" short Ġnegative Ġlong Ġfail " ĊĊĠĠĠ Ġval Ġr 3 Ġ= Ġ 5 . to Long () Ġdownto Ġ 0 . to Long () ĊĠĠĠ Ġif ( r 3 . start Ġ!= Ġ 5 . to Long () Ġ|| Ġr 3 . end Ġ!= Ġ 0 . to Long () Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 3 . size Ġ!= Ġ 6 . to Long ()) Ġreturn Ġ" long Ġdownto Ġfail " ĊĊĠĠĠ Ġval Ġr 4 Ġ= Ġ 5 . to Long () Ġdownto Ġ 6 . to Long () ĊĠĠĠ Ġif ( r 4 . start Ġ!= Ġ 0 . to Long () Ġ|| Ġr 4 . end Ġ!= Ġ 0 . to Long () Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 4 . size Ġ!= Ġ 0 . to Long ()) Ġreturn Ġ" long Ġnegative Ġdownto Ġfail " ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ } Ċ Ċ fun Ġtest Char Ġ() Ġ: ĠString Ġ{ ĊĊĠĠĠ Ġval Ġr 1 Ġ= Ġ' a ' Ġu pto Ġ' d ' ĊĠĠĠ Ġif ( r 1 . end Ġ!= Ġ' d ' Ġ|| Ġr 1 . is Re versed Ġ|| Ġr 1 . size Ġ!= Ġ 4 ) Ġreturn Ġ" char Ġu pto Ġfail " ĊĊĠĠĠ Ġval Ġr 2 Ġ= Ġ' d ' Ġu pto Ġ' a ' ĊĠĠĠ Ġif ( r 2 . start Ġ!= Ġ 0 . to Char () Ġ|| Ġr 2 . size Ġ!= Ġ 0 ) Ġreturn Ġ" char Ġnegative Ġlong Ġfail " ĊĊĠĠĠ Ġval Ġr 3 Ġ= Ġ' d ' Ġdownto Ġ' a ' ĊĠĠĠ Ġif ( r 3 . start Ġ!= Ġ' d ' Ġ|| Ġr 3 . end Ġ!= Ġ' a ' Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 3 . size Ġ!= Ġ 4 ) Ġreturn Ġ" char Ġdownto Ġfail " ĊĊĠĠĠ Ġval Ġr 4 Ġ= Ġ' a ' Ġdownto Ġ' d ' ĊĠĠĠ Ġif ( r 4 . start Ġ!= Ġ 0 . to Char () Ġ|| Ġr 4 . end Ġ!= Ġ 0 . to Char () Ġ|| Ġ! r 3 . is Re versed Ġ|| Ġr 4 . size Ġ!= Ġ 0 ) Ġreturn Ġ" char Ġnegative Ġdownto Ġfail " ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ } Ċ Ċ fun Ġbox () Ġ: ĠString Ġ{ ĊĠĠĠ Ġvar Ġr Ġ: ĠString ĊĊĠĠĠ Ġr Ġ= Ġtest Int () ĊĠĠĠ Ġif ( r Ġ!= Ġ" OK ") Ġreturn Ġr ĊĊĠĠĠ Ġr Ġ= Ġtest Byte () ĊĠĠĠ Ġif ( r Ġ!= Ġ" OK ") Ġreturn Ġr ĊĊĠĠĠ Ġr Ġ= Ġtest Short () ĊĠĠĠ Ġif ( r Ġ!= Ġ" OK ") Ġreturn Ġr ĊĊĠĠĠ Ġr Ġ= Ġtest Long () ĊĠĠĠ Ġif ( r Ġ!= Ġ" OK ") Ġreturn Ġr ĊĊĠĠ Ġreturn Ġ" OK " Ċ }