[SAMPLE22] SAMPLE

10 REM SAMPLE22
100 PRINT "X の Y 乗を求めます"
110 ON ERROR GOTO *ERRORMES
120 *START
130 INPUT "X:";X:INPUT "Y:";Y
140 IF X=0 THEN ERROR 250
150 Z=X^Y:PRINT X;" の ";Y;" 乗は ";Z;"です"
160 *RETRY
170 INPUT "もう一度やり直しますか(Y/N)";A$;PRINT
180 IF A$="Y" OR A$="y" THEN *START
190 ON ERROR GOTO 0
200 END
210 *ERRORMES
220 IF ERR=250 THEN PRINT "定義されません"
230 IF ERR=6 THEN PRINT "オーバーフローです"
240 RESUME *RETRY