動かん・・・（ﾟДﾟ）助けろやー

10 Cls
20 a=0:b=0:c=0:d=0:e=0
30 locate 10,2:print"超ちんけでマニアなクイズ！"
40 locate 10,4:print"このページはエグゼ形式です"
50 locate 10,6:print"　1　を入力するとはじまります"
60 locate 10,7:print"頑張って高得点を目指しましょう"
70 locate 10,8:print"点数が高いほど変人です"
80 locate 1,1:print b:locate 3,1:print"点"
90 locate 10,14
100 Input "番号を入力して下さい->",a
110 if a=0 then goto 10
120 if a=1 then goto 1000
130 if a>1 then goto 10
1000 cls
1110 locate 12,2:print"第一問　学校法人が使用するドメインは？"
1120 locate 10,4:print"1　co.jp"
1130 locate 10,5:print"2　ne.jp"
1140 locate 10,6:print"3　ac.jp"
1150 locate 1,1:print b:locate 3,1:print"点"
1160 locate 10,14
1170 Input "番号を入力して下さい->",c
1180 if c=0 then goto 1000
1190 if c>4 then goto 1000
1200 if c=1 then goto 1240
1210 if c=2 then goto 1250
1220 if c=3 then goto 1260
1230 goto 1000
1240 cls:goto 1500
1250 cls:goto 1500
1260 cls:b=b+10:goto 1500
1500 cls
1510 locate 12,2:print"第ニ問　次のうち実行形式はどれ？"
1520 locate 10,4:print"1　.lzh"
1530 locate 10,5:print"2　.zip"
1540 locate 10,6:print"3　.exe"
1550 locate 1,1:print b:locate 3,1:print"点"
1560 locate 10,14
1570 Input "番号を入力して下さい->",d
1580 if d=0 then goto 1500
1590 if d>4 then goto 1500
1500 if d=1 then goto 1540
1510 if d=2 then goto 1550
1520 if d=3 then goto 1560
1530 goto 1500
1540 cls:goto 2000
1550 cls:goto 2000
1560 cls:b=b+10:goto 2000
2000 cls