10 cls
20 a=5000:b=20:c=1:d=20:e=b:f=17:g=1:h=0
100 a=a-1:beep:beep:beep:beep:beep:beep:beep
110 locate b,2:print" <凹> "
120 locate d,19:print" 凸 "
130 locate e,f:print" ｌ "
140 locate e,f+1:print" "
150 if b>40 then c=0
160 if b<4 then c=1
170 if c=0 then b=b-1
180 if c=1 then b=b+1
190 if g=2 then f=f-1
200 if f<2 then goto 300
210 if f=17 then e=d
220 if d>40 then d=d-1
230 if d<4 then d=d+1
240 if a<0 then goto 2000
250 goto 1000
300 if e=b And f<2 then h=h+100
310 f=17
320 g=1
330 goto 1000
500 d=d+1:h=h+1
510 goto 100
600 d=d-1:h=h+1
610 goto 100
700 g=2
710 goto 100
1000 a$=inkey$
1010 if a$="6" then goto 500
1020 if a$="4" then goto 600
1020 if a$="5" then goto 700
1100 goto 100
2000 locate 5,10:print"あんたの点数は"
2100 locate 20,10:print h
2200 locate 25,10:print "点や"
2300 goto 2000