89/08/31 03:38:29 くろ 暗算（ひき算）用ｿﾌﾄ(From STS)
ＳＩＧ−ＳＴＳから、はすみさん紹介のソフトです。使用機種はＭＳＸ２ですが
腕に自信のあるかたは他の機種へ対応させてみて下さい。
制作された方は、
学過研の八木沢先生。
-------------------------------------------------------------------------
このプログラムは特徴は、”でか文字” 文字データは、他のプログラムでも
活用することが出来ます。
ＴＶ黒板用、個別指導用、休み時間の子どもの遊びにも使えます。
-------------------------------------------------------------------------
とコメントがありました。
…………………………………………………………………………………………………
100 '*********************
110 ' ｶﾞｸｼｭｳ ﾌﾟﾛｸﾞﾗﾑ
120 ' 2ﾈﾝ 100ﾏﾃﾞﾉﾎｽｳ
130 ' (MZ-1500ﾖﾘｲｼｮｸ)
140 ' 1987.9.25
150 ' by K.YAGISAWA
160 '*********************
170 FOR I=1 TO TIME/1000:A=RND(1):NEXT I
180 SCREEN 5,0,,,1,0
185 KEY OFF:OPEN "grp:" FOR OUTPUT AS #1
190 N=0:T=0
200 ' ---- ﾓﾄﾉｶｽﾞ ----
210 CLS:M=INT(RND(1)*99)+1
220 LINE (65,8)-(180,86),2,BF
230 M1=LEN(STR$(M))
240 B=83:C=23:IF M1=2 THEN B=107
250 FOR I=1 TO M1-1
260 A=VAL(MID$(STR$(M),I+1,1)):GOSUB 1000:B=B+45
270 NEXT I
300 ' --- A ---
310 P=INT(RND(1)*99)+1
320 IF P>M THEN 310
330 LINE (5,110)-(93,190),13,BF
340 M1=LEN(STR$(P))
350 B=10:C=125:IF M1=2 THEN B=33
360 FOR I=1 TO M1-1
370 A=VAL(MID$(STR$(P),I+1,1)):GOSUB 1000
380 B=B+45
390 NEXT I
400 ' --- + ---
410 LINE (118,125)-(126,165),15,BF
420 LINE (102,141)-(142,149),15,BF
500 ' --- B ---
510 LINE (151,110)-(250,190),10,BF
520 CIRCLE (200,135),20,8,4.9,3.6
530 CIRCLE (200,135),15,8,5,3.5
540 LINE (203,150)-(197,154),8:LINE -(197,170),8
545 LINE -(203,170),8:LINE -(203,155),8
550 LINE (183,144)-(187,140),8
560 PAINT (183,140),8,8
570 CIRCLE (200,180),5,8
580 PAINT (200,180),8,8
600 ' --- ｺﾀｴ ﾆｭｳﾘｮｸ ---
610 K=M-P:M1=LEN(STR$(K)):KT$=""
620 B=160:C=125:IF M1=2 THEN B=182
630 A$=INKEY$:IF A$="" THEN T=T+1:PRESET (200,20):PRINT #1,T:GOTO 630
640 A=VAL(A$):GOSUB 1000:B=B+45
650 KT$=KT$+A$:IF M1=2 THEN 680
660 A$=INKEY$:IF A$="" THEN T=T+1:PRESET (200,20):PRINT #1,T:GOTO 660
670 A=VAL(A$):GOSUB 1000:KT$=KT$+A$
680 IF T>1000 THEN 700
690 FOR W=1 TO 500:NEXT W:IF K=VAL(KT$) THEN N=N+1:GOTO 200
700 ' --- ｻｲﾃﾝ ---
710 CLS:PRESET (30,80):PRINT #1,"=== ｱﾅﾀﾊ";N;"ﾓﾝ ﾃﾞｷﾏｼﾀ ==="
800 IF N<3 THEN PRESET(80,120):PRINT #1,"ﾁｮｯﾄ ﾋﾄﾞｲﾈ":GOTO 900
810 IF N<5 THEN PRESET(80,120):PRINT #1,"ﾓｳｽｺｼ ｶﾞﾝﾊﾞﾚ":GOTO 900
820 IF N<8 THEN PRESET(80,120):PRINT #1,"ﾏｱﾏｱ ﾌﾂｳﾀﾞﾈ":GOTO 900
830 IF N<11 THEN PRESET(80,120):PRINT #1,"ﾅｶﾅｶ ﾔﾘﾏｽﾈ":GOTO 930
840 IF N<16 THEN PRESET(80,120):PRINT #1,"ｲﾖ ! ｽｺﾞｲﾈ":GOTO 930
850 IF N<20 THEN PRESET(80,120):PRINT #1,"ｴﾗｲ! ｸﾗｽｲﾁ":GOTO 930
860 IF N<25 THEN PRESET(80,120):PRINT #1,"ｻｽｶﾞ ｽ-ﾊﾟ-ﾏﾝ":GOTO 930
870 IF N>25 THEN PRESET(80,120):PRINT #1,"ｽｺﾞｲ ﾁｮｳｼﾞﾝﾙｲ":GOTO 930
900 ' ---
910 PLAY "T200L64O3A8RA8RA8RF2G8RG8RG8RE2A8RA8RA8RF2G8RG8RG8RE2"
920 GOTO 950
930 PLAY "T120L12B16R64BO5CD16R64D16R64CO4BAG16R64GAB16R64B8A64R64AR16B16R64B"
940 PLAY "O5CD16R64DCO4BAG16R64GABA8G64R64G4"
950 PRESET (40,180):PRINT #1,"ﾓｳｲﾁﾄﾞ ﾔﾙﾄｷﾊ (Y)ｦ ｵｼﾃﾈ "
960 A$=INKEY$:IF A$="" THEN 960
970 IF A$="N" OR A$="n" THEN CLS:END
980 CLOSE #1:GOTO 170
1000 ' --- ｽｳｼﾞ SUB ---
1010 ON A GOSUB 1100,1200,1300,1400,1500,1600,1700,1800,1900
1020 IF A=0 THEN 2000
1030 RETURN
1100 ' -- 1 --
1110 LINE (13+B,45+C)-(13+B,10+C):LINE -(9+B,10+C):LINE -(13+B,C)
1120 LINE -(19+B,C):LINE -(19+B,45+C):LINE (9+B,45+C)-(23+B,50+C),15,BF
1130 PAINT (17+B,2+C),15,15
1190 RETURN
1200 ' -- 2 --
1210 LINE (B,20+C)-(B,6+C):LINE -(6+B,C):LINE -(26+B,C)
1220 LINE -(32+B,6+C):LINE -(32+B,25+C):LINE -(12+B,42+C):LINE -(32+B,42+C)
1230 LINE -(32+B,50+C):LINE -(B,50+C):LINE -(B,42+C):LINE -(24+B,20+C)
1240 LINE -(24+B,10+C):LINE -(22+B,8+C):LINE -(10+B,8+C):LINE -(8+B,10+C)
1250 LINE -(8+B,20+C):LINE -(B,20+C)
1260 PAINT (2+B,12+C),15,15
1290 RETURN
1300 ' -- 3 --
1310 LINE (B,16+C)-(B,6+C):LINE -(6+B,C):LINE -(26+B,C)
1320 LINE -(32+B,6+C):LINE -(32+B,18+C):LINE -(29+B,24+C):LINE -(32+B,28+C)
1330 LINE -(32+B,44+C):LINE -(26+B,50+C):LINE -(6+B,50+C):LINE -(B,44+C)
1340 LINE -(B,35+C):LINE -(8+B,35+C):LINE -(8+B,40+C):LINE -(10+B,42+C)
1350 LINE -(22+B,42+C):LINE -(24+B,40+C):LINE -(24+B,28+C):LINE -(18+B,28+C)
1360 LINE -(18+B,20+C):LINE -(24+B,20+C):LINE -(24+B,10+C):LINE -(22+B,8+C)
1370 LINE -(10+B,8+C):LINE -(8+B,10+C):LINE -(8+B,16+C):LINE -(B,16+C)
1380 PAINT (2+B,12+C),15,15
1390 RETURN
1400 ' -- 4 --
1410 LINE (20+B,C)-(28+B,50+C),15,BF
1420 LINE (B,30+C)-(32+B,38+C),15,BF
1430 LINE (20+B,C)-(B,30+C):LINE (20+B,12+C)-(9+B,30+C)
1440 PAINT (16+B,10+C),15,15
1490 RETURN
1500 ' -- 5 --
1510 LINE (B,C)-(32+B,C):LINE -(32+B,8+C):LINE -(8+B,8+C)
1520 LINE -(8+B,17+C):LINE -(26+B,17+C):LINE -(32+B,23+C):LINE -(32+B,44+C)
1530 LINE -(28+B,50+C):LINE -(6+B,50+C):LINE -(B,44+C):LINE -(B,35+C)
1540 LINE -(8+B,35+C):LINE -(8+B,40+C):LINE -(8+B,40+C):LINE -(10+B,42+C)
1550 LINE -(22+B,42+C):LINE -(24+B,40+C):LINE -(24+B,27+C):LINE -(22+B,25+C)
1560 LINE -(6+B,25+C):LINE -(B,20+C):LINE -(B,C)
1570 PAINT (2+B,2+C),15,15
1580 RETURN
1600 ' -- 6 --
1610 LINE (32+B,12+C)-(32+B,6+C):LINE -(26+B,C):LINE -(6+B,C)
1620 LINE -(B,6+C):LINE -(B,44+C):LINE -(6+B,50+C):LINE -(26+B,50+C)
1630 LINE -(32+B,44+C):LINE -(32+B,26+C):LINE -(26+B,20+C):LINE -(8+B,20+C)
1640 LINE -(8+B,10+C):LINE -(10+B,8+C):LINE -(22+B,8+C):LINE -(24+B,10+C)
1650 LINE -(24+B,12+C):LINE -(32+B,12+C)
1660 LINE (8+B,30+C)-(10+B,28+C):LINE -(22+B,28+C)
1665 LINE -(24+B,30+C):LINE -(24+B,40+C)
1670 LINE -(22+B,42+C):LINE -(10+B,42+C):LINE -(8+B,40+C):LINE -(8+B,30+C)
1680 PAINT (12+B,2+C),15,15
1690 RETURN
1700 ' -- 7 --
1710 LINE (B,16+C)-(B,C)
1720 LINE -(32+B,C):LINE -(32+B,16+C):LINE -(20+B,40+C):LINE -(20+B,50+C)
1730 LINE -(12+B,50+C):LINE -(12+B,40+C):LINE -(24+B,15+C):LINE -(24+B,10+C)
1740 LINE -(22+B,8+C):LINE -(8+B,8+C):LINE -(8+B,16+C):LINE -(B,16+C)
1750 PAINT (12+B,2+C),15,15
1790 RETURN
1800 ' -- 8 --
1810 LINE (B,20+C)-(B,6+C):LINE -(6+B,C):LINE -(26+B,C)
1820 LINE -(32+B,6+C):LINE -(32+B,20+C):LINE -(29+B,24+C):LINE -(32+B,28+C)
1830 LINE -(32+B,44+C):LINE -(26+B,50+C):LINE -(6+B,50+C):LINE -(B,44+C)
1840 LINE -(B,28+C):LINE -(3+B,24+C):LINE -(B,20+C)
1850 LINE (8+B,30+C)-(10+B,28+C):LINE -(22+B,28+C)
1855 LINE -(24+B,30+C):LINE -(24+B,40+C)
1860 LINE -(22+B,42+C):LINE -(10+B,42+C):LINE -(8+B,40+C):LINE -(8+B,30+C)
1870 LINE (8+B,10+C)-(10+B,8+C):LINE -(22+B,8+C)
1875 LINE -(24+B,10+C):LINE -(24+B,18+C)
1880 LINE -(22+B,20+C):LINE -(10+B,20+C):LINE -(8+B,18+C):LINE -(8+B,10+C)
1890 PAINT (12+B,2+C),15,15
1895 RETURN
1900 ' -- 9 --
1910 LINE (B,24+C)-(B,6+C):LINE -(6+B,C):LINE -(26+B,C)
1920 LINE -(32+B,6+C)
1930 LINE -(32+B,44+C):LINE -(26+B,50+C):LINE -(6+B,50+C):LINE -(B,44+C)
1940 LINE -(B,38+C):LINE -(8+B,38+C):LINE -(8+B,40+C):LINE -(10+B,42+C)
1950 LINE -(22+B,42+C):LINE -(24+B,40+C):LINE -(24+B,30+C)
1955 LINE -(6+B,30+C):LINE -(B,24+C)
1960 LINE (8+B,10+C)-(10+B,8+C):LINE -(22+B,8+C)
1965 LINE -(24+B,10+C):LINE -(24+B,20+C)
1970 LINE -(22+B,22+C):LINE -(10+B,22+C):LINE -(8+B,20+C):LINE -(8+B,10+C)
1980 PAINT (2+B,12+C),15,15
1990 RETURN
2000 ' -- 0 --
2010 LINE (B,24+C)-(B,6+C):LINE -(6+B,C):LINE -(26+B,C)
2020 LINE -(32+B,6+C)
2030 LINE -(32+B,44+C):LINE -(26+B,50+C):LINE -(6+B,50+C):LINE -(B,44+C)
2040 LINE -(B,6+C)
2050 LINE (8+B,10+C)-(10+B,8+C):LINE -(22+B,8+C)
2055 LINE -(24+B,10+C):LINE -(24+B,40+C)
2060 LINE -(22+B,42+C):LINE -(10+B,42+C):LINE -(8+B,40+C):LINE -(8+B,10+C)
2070 PAINT (2+B,12+C),15,15
2090 RETURN
松下村塾 Yicin-Net
■もどる
