PRINT
PRINT "自動販売機で１００円のジュースを買う。"
PRINT "今、あなたは１００円玉１個と５０円玉２個を持っています。"
PRINT
LET y=0
10 INPUT PROMPT "コインを１個入れてください。  ( 100 OR 50 ） ":x
   PRINT
   IF x=100 THEN
      LET y=y+x
      IF y=100 THEN
         PRINT "ジュース１本をお持ち帰りください。"
      ELSEIF y=150 THEN
         PRINT "ジュース１本とおつり５０円とをお持ち帰りください。"
      END IF
      GOTO 20
   ELSEIF x=50 THEN
      LET y=y+x
      IF y=50 THEN GOTO 10
      PRINT "ジュース１本をお持ち帰りください。"
   ELSE 
      GOTO 10
   END IF
20 PRINT "ありがとうございました。"
   PRINT
   PRINT "これでプログラムを終了します。"
   PRINT
END