Filename: くみたて   0 REM ┏━━━━━━━━━━━━━━━━━━━━━━━┓ 1 REM ┃  PC−6001      Val 1,0 ┃ 2 REM ┃                       ┃ 3 REM ┃ りっほ゜うたい くみたて  フ゜ロク゛ラム ┃ 4 REM ┃                       ┃ 5 REM ┃ システム・・・PC−6001 ほんたい   ┃ 6 REM ┃        PC−6042K CRT   ┃ 7 REM ┃        PC−6082 カセットテレコ┃ 8 REM ┃ 1983年 6月  5日   by H.T ┃ 9 REM ┗━━━━━━━━━━━━━━━━━━━━━━━┛ 10 REM ********しょきせってい********* 20 SCREEN 1,1,1:CLS 30 CLEAR 200:GOTO 5000 990 REM ****** 1は゛んめ の え ****** 1000 SCREEN 4,2,1:CLS 1010 LINE(40,110)−(240,110),1 1020 LINE(10,140)−(210,140),1 1030 LINE(120,80)−(30,170),1 1040 LINE(170,80)−(80,170),1 1050 LINE(40,110)−(10,140),1 1060 LINE(190,110)−(160,140),1 1070 LINE(240,110)−(210,140),1 1080 LINE(120,80)−(170,80),1 1090 LINE(30,170)−(80,170),1 1100 SCREEN ,,2:PLAY”l64o4co5c” 1490 REM ******2は゛んめ の え****** 1500 SCREEN 4,3,2:CLS 1510 LINE(90,60)−(140,110),1,B 1520 LINE(40,110)−(240,110),1 1530 LINE(10,140)−(210,140),1 1540 LINE(40,110)−(10,140),1 1550 LINE(190,110)−(160,140),1 1560 LINE(240,110)−(210,140),1 1570 LINE(30,170)−(80,170),1 1580 LINE(90,110)−(30,170),1 1590 LINE(140,110)−(80,170),1 1600 SCREEN ,,3:PLAY”l64o4co5c” 1980 REM ******3は゛んめ の え****** 1990 SCREEN 4,4,3:CLS 2000 LINE(90,110)−(30,170),1 2010 LINE(140,110)−(80,170),1 2020 LINE(110,40)−(110,140),1 2030 LINE(140,10)−(140,110),1 2040 LINE(10,140)−(110,140),1 2050 LINE(40,110)−(110,110),1 2060 LINE(140,10)−(110,40),1 2070 LINE(140,60)−(110,90),1 2080 LINE(40,110)−(10,140),1 2090 LINE(30,170)−(80,170),1 2100 LINE(90,60)−(90,110),1 2110 LINE(90,60)−(110,60),1 2120 SCREEN ,,4:PLAY”l64o4co5c” 2500 REM ******4は゛んめ の え****** 2510 SCREEN 4,2,4:CLS 2520 LINE(140,110)−(80,170),1 2530 LINE(90,110)−(30,170),11 2540 LINE(30,170)−(80,170),11 2550 LINE(110,40)−(110,140),1 2560 LINE(140,10)−(110,40),11 2570 LINE(140,10)−(140,110),1 2580 LINE(140,60)−(110,90),11 2590 LINE(90,60)−(110,60),111 2600 LINE(90,60)−(90,110),111 2610 LINE(90,110)−(110,110),1 2620 LINE(60,140)−(110,140),1 2630 LINE(60,90)−(60,140),1 2640 LINE(60,90)−(90,60),1 2650 SCREEN ,,2:PLAY”l64o4co5c” 3000 REM ******5は゛んめ の え****** 3010 SCREEN 4,3,2:CLS 3020 LINE(140,10)−(110,40),1 3030 LINE(110,40)−(110,140),1 3040 LINE(140,10)−(140,110),1 3050 LINE(140,60)−(110,90),1 3060 LINE(60,90)−(90,60),1 3070 LINE(60,140)−(110,140),1 3080 LINE(90,60)−(110,60),1 3090 LINE(140,110)−(110,140),1 3100 LINE(90,60)−(90,90),1 3110 LINE(60,90)−(110,90),1 3120 LINE(60,90)−(60,140),1 3130 SCREEN ,,3:PLAY”l64o4co5c” 3490 REM ******6は゛んめ の え****** 3500 SCREEN 4,4,3:CLS 3510 LINE(60,90)−(110,90),1 3520 LINE(60,90)−(60,140),1 3530 LINE(60,90)−(90,60),1 3540 LINE(60,140)−(110,140),1 3550 LINE(140,60)−(110,90),1 3560 LINE(90,60)−(140,60),1 3570 LINE(140,60)−(140,110),1 3580 LINE(110,90)−(110,140),1 3590 LINE(140,110)−(110,140),1 3600 SCREEN ,,4:PLAY”l64o4co5c” 4000 REM ****** ミューシ゛ック ****** 4010 A$=”V9L8T92o4ea4bo5c+4de8.r16e16.r32e4.” 4020 A1$=”V9L8T92o5f4r8f4.e2r8ed4r8d8r8dc4dc8r8co4b4r8b8r8ba2a” 4030 B$=”V8L8T92o4ea4ea4bo5c+8.r16c+16.r32c+4.” 4040 B1$=”V8L8T92o5d4r8d4.c2r8co4b4r8b8r8ba4ba8r8ag+4r8g+8r8g+a2a” 4050 C$=”V8L8T92o4a4r8g4.g2r8gf4r8f8r8fe4ee4.e4.e4.o3a2a” 4060 PLAY A$,B$ 4070 PLAY A1$,B1$,C$ 5000 REM ******** メニュー ******** 5010 SCREEN 1,1,1:CLS:CONSOLE,,0,0:LOCATE 0,0 5020 PRINT ”        >−−−− メニュー ー−−−<     ” 5030 PRINT ” ▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲” 5050 PRINT ” ▲   1 ・・・・・・・・・はし゛め から       ▲” 5060 PRINT ” ▲                            ▲” 5070 PRINT ” ▲   2 ・・・・・・・・・2は゛んめの え から   ▲” 5080 PRINT ” ▲                            ▲” 5090 PRINT ” ▲   3 ・・・・・・・・・3は゛んめの え から   ▲” 5100 PRINT ” ▲                            ▲” 5110 PRINT ” ▲   4 ・・・・・・・・・4は゛んめの え から   ▲” 5120 PRINT ” ▲                            ▲” 5130 PRINT ” ▲   5 ・・・・・・・・・5は゛んめの え から   ▲” 5140 PRINT ” ▲                            ▲” 5150 PRINT ” ▲   6 ・・・・・・・・・かんせいす゛        ▲” 5160 PRINT ” ▲                            ▲” 5170 PRINT ” ▲   7 ・・・・・・・・・おんか゛く た゛け     ▲” 5180 PRINT ” ▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲”; 5190 I$=INKEY$:IF I$=”” THEN 5190 5191 SCREEN 4,2,1:COLOR ,,2 5192 SCREEN 4,3,1:COLOR ,,2 5193 SCREEN 4,4,1:COLOR ,,2 5200 ON VAL(I$) GOTO 1000,1500,2000,2500,3000,3500,4000