PRINT
PRINT "２を"
DIM bn$(7)

5 LET bn$(1)="1 倍すると"
  LET bn$(2)="２倍すると"
  LET bn$(3)="３倍すると"
  LET bn$(4)="４倍すると"
  LET bn$(5)="５倍すると"
  LET bn$(6)="６倍すると"
  LET bn$(7)="END"
   
   
  LOCATE CHOICE(bn$):k
  IF k=7 THEN GOTO 70
  IF k=1 THEN GOTO 10
  IF k=2 THEN GOTO 20
  IF k=3 THEN GOTO 30
  IF k=4 THEN GOTO 40
  IF k=5 THEN GOTO 50
  IF k=6 THEN GOTO 60
   
10 PRINT "  １倍すると ２ です。"
   GOTO 5
20 PRINT "  ２倍すると ４ です。"
   GOTO 5
30 PRINT "  ３倍すると ６ です。"
   GOTO 5
40 PRINT "  ４倍すると ８ です。"
   GOTO 5
50 PRINT "  ５倍すると １０ です。"
   GOTO 5
60 PRINT "  ６倍すると １２ です。"
   GOTO 5
70 PRINT
END



######################################################################



PRINT
PRINT "第１問： 陸地面積が最小の県は？"
PRINT
DIM bn$(4)
LET C=1 
10 LET bn$(1)="佐賀県"
   LET bn$(2)="滋賀県"
   LET bn$(3)="香川県"
   LET bn$(4)="END"
   LOCATE CHOICE(bn$):k
   IF k=4 THEN GOTO 300
   IF k=1 THEN GOTO 20
   IF k=2 THEN GOTO 30
   IF k=3 THEN GOTO 40
20 IF C=2 THEN GOTO 120
   IF C=3 THEN GOTO 220
   PRINT "     佐賀県ではありません。"
   GOTO 10
30 IF C=2 THEN GOTO 130
   IF C=3 THEN GOTO 230
   PRINT "     不正解。琵琶湖は滋賀県の面積の１７％程度です。"
   GOTO 10
40 IF C=2 THEN GOTO 140
   IF C=3 THEN GOTO 240
   PRINT
   PRINT "     正解です。讃岐うどんで有名な香川県です。"
   PRINT
   LET C=C+1
   PRINT
   PRINT "第２問： 海のない県は？"
   PRINT
   GOTO 10
120 PRINT "     佐賀県ではありません。"
    GOTO 10
130 PRINT
    PRINT "     正解です。琵琶湖を持つ滋賀県です。"
    PRINT
    LET C=C+1
    GOTO 200
140 PRINT "     香川県ではありません。"
    GOTO 10
200 PRINT
    PRINT "第３問： 磁器で有名な県は？"
    PRINT
    GOTO 10
220 PRINT
    PRINT "     正解です。有田焼で有名な佐賀県です。"
    PRINT "   磁器は、陶器よりガラス質を多く含みます。"
    PRINT "   ガラス質になるほど、素地が水を吸いにくくなります。"
    PRINT
    GOTO 300
230 PRINT "     滋賀県ではありません。"
    GOTO 10
240 PRINT "     香川県ではありません。"
    GOTO 10
300 PRINT
    PRINT "お疲れさまでした。"
    PRINT
 END