安全オファー67を証明するために、

1＃ - * -コーディング：UTF- 8 - * -
 2  クラスのソリューション：
 3      DEF StrToInt（自己、S）：
 4          、N = LEN（S）
 5          であれば、n個の== 0 ：
 6              戻り 0 
7          isNegative =   Falseの
 8          もし S [ 0 ] == ' - ' ：
 9              isNegative = Trueの
 10          RET = 0 
11          のための I における範囲（N）：
 12              のC =のS [I]
13              もし I == 0および（c == ' + 'またはc == ' - ' ）：
 14                  続行
15を             場合 C < ' 0 'またはc> ' 9 ' ：
 16                  リターン 0 
17              RET = RET * 10 +（ ORD（C） - ORD（' 0 ' ））
 18          リターン -Ret 場合 isNegative 他のRET
 19          ここで＃ライト・コードを