EXIT FOR
（ステートメント）
FOR～NEXTからの強制脱出を行ないます。
EXIT FOR
FOR～NEXTから強制的に脱出し，FOR～NEXT文の次の命令に移ります。
|
DEFINT li1, li2, li3, li4, li5, li6, li7, li8, li9
|
|
|
DO WHILE li1 > li2
|
'前判定反復を行ないます。
|
|
IF li1 = 4 THEN EXIT DO
|
'li1 = 4の場合、DO～LOOPから脱出します。
|
|
FOR li3 = 0 TO 5
|
'FOR～NEXTの処理を5回繰り返します。
|
|
FOR li4 = li5 TO li6
|
'FOR～NEXTの処理をli5の値を1ずつ加算し、li6にな
'るまで繰り返します。
|
|
FOR li7 = 1 TO li8 STEP 2
|
'FOR～NEXTの処理を1から2ずつ加算し、li8になるま
'で繰り返します。
|
|
IF li2 = 2 THEN EXIT FOR
|
'li2 = 0の場合、FOR～NEXTから脱出します。
|
|
DO WHILE li2 < li9
|
'前判定反復を行ないます。
|
|
GOSUB *samp2
|
|
|
li9 = li9 + 1
|
|
|
LOOP
|
'li2 < li9になるまでGOSUB *samp2文を呼びます。
|
|
NEXT li7
|
'繰り返します。
|
|
NEXT
|
'繰り返します。
|
|
NEXT
|
'繰り返します。
|
|
li9 = 0
|
|
|
DO
|
'後判定反復を行ないます。
|
|
GOSUB *samp2
|
|
|
li9 = li9 + 1
|
|
|
LOOP UNTIL li9 < 5
|
'li9 < 5になるまでGOSUB *samp2文を呼びます。
|
|
LOOP
|
'繰り返します。
|