GOTO - [制御] |
||||||
… 指定行へのジャンプ
GOTO 行番号|*ラベル
GOTO 100
GOTO *LOOP
指定した行番号かラベルにジャンプします。
(サンプル1)
REM 944BASIC '入力待ちの例'
REM 無限ループで入力を待つ
*LOOP
SYNC
LOCATE 2,2
PRINT 'キー入力またはペンタッチがあるまで、待機します。'
REM 入力があるかどうかを判定
IF (INKEY)+(PEN) THEN CLS: LOCATE 2,2: PRINT '終了します!': WAIT 2: GOTO *BREAK
GOTO *LOOP
*BREAK
PRINT 'さようなら・・・'
END
(サンプル2)
REM 944BASIC 'GOTOの悪い見本'
F=0
*ST
GOTO *L1
*L3
IF F>4 THEN GOTO *FN ELSE GOTO *ST
*L2
IF F=2 THEN GOTO *L1 ELSE GOTO *L3
*L1
IF F=0 THEN PRINT 'スパゲッティはいかが?' ELSE PRINT 'GOTOで行ったり来たりを繰り返し、ぐちゃぐちゃにからまったプログラムを俗に「スパゲッティ」と呼びます。'
F=F+1: GOTO *L2
*FN
KEYWAIT
END
GOTO - [制御] |