W き •グラフィックス

- - - R AM32K 日以上 -

— DQQO^ —

高崎一義 •野 □岳夫

グラフィックス j と rDC 2 本立です 0 2 本とも、キティ •レコードのアルパム『みゆきメモリアル (LP

•38MS 0056/57、テープ，38C S 0056)j に収» されているもの 0 すでに LP、テープをお持ちの方

も多いでしょう。

みゆきちやんフアンで MS X マガジンフアン、なんていう人は今すぐトライ。ただし、脱明をよく読んでくださいね 0

みゆき •グラフィックス (RAM32 キロパイト以

このプログラムを実行するためには R AM 容量が 32 キロパイト以上必要です〇 16 キロバイト実装のマシンをお持ちの方は、拡强 RA M カートリツジなどで R A M を 32 キロバイトまで拡强してから入力を開始してください。

これは r みゆき j の主人公を描くプログラムです。画面は 4 パターン。ひとつの画面を描き終ると実行が止まりますから、 [ItopI 以外のキーを I 回だけ押してください。画面がクリアされ > 次の絵を描き始めます。 4 画

•入力方法

入力について特にむずかしい点はありませ | んが、データ文の入カミスには十分注意して \

ください。特にカンマとピリオド (顿点)

RUN | RETURN | で実行します。あとは最初に脱明したように、描き終わると実行停止、 I STOP 丨以外のキーを押すことによつ t j 次の面へ進む、という動作になります。 I

ものを、そのままプリントアウトし、したものです。うまく _ しない場合は入カミスの可能性が非

常に大きいので注意して入力

■Syntax error が出てし i つた場合、文法の誤りだけではなく、索激の SL カツコの政ユーザー峨の定義

チツクしてください 0 ■Illegal function call の粉、：ラー行だけでなく、その行で使用

■基本的に Syntax error と Illegal function call の場合、部では質 M にお答えいたしません。

DOORS

(RAM16 キ a パイト feLbiW)

若松みゆきと鹿烏みゆきはドアだらけの部屋にとじ込められています。あなたは若松みゆきを搡つて周囲のドアのどこかに明れている若松真人を探さなくてはいけません。鹿島みゆきも彼を探しています。若松みゆきは先に彼に出合うことができるでしょうか。 •入力方法

このブログラムは RAM が 16 キ〇バイト以上実装された M S X マシンならどのマシンでも動^します。％ # て始まるリマーク文;^ いくつかありますが、入力がめんどうな人は * だけ入力しておいて下さい。その行すベてを消してしまうとエラーが出る場合があります。また I 68(Mt~I 800 行の長いデータ文は間違いのないよゲに。

•実行方法 _

RUN 「RETURN] て案行を開始します。

実行を開始すると *Wait only 7-seconds f/0 ! の表示に統いて、ゲームフイールドと若松みゆきの顔があらわれ ^ 指承に従ってスペース | キーを押すとゲーム開始です。

カーソルキーで若松みゆきを動かし、ドアの前（きちっと場所をあわせて）でスペース j キーを押します。チャイムが鳴って、もし若松真人がいればウエディングマーチが流れあ I なたの勝ち。ただし、コンピュータが動かし j ている鹿島みゆき力洗に彼を見つけてしまう j と負けです。

スペースキーを押すタイミングは； 3 ンビ g 一夕との競争です。鹿島みゆきがチャイムを鳴らしている M はあなたがスペースキーを押しても受けつけられません。

画面が白くなるのは鹿島みゆきがチャイム j を押した時で、黒くなるのは若松みゆき（あなた）がチャイムを押した時です。

❷

みゆ吉 •グラフイツクス

みゆ去 •グラフイツクス

1,12.3,11.3

2110 DATA 12.3,11 .5,12.4,11 .5,12.3,11 .6,12.5,11 .5,12.6,11 .7,12.6,12.2,12.7,12.3 2120 DATA 12.7,11 .7,12.6,11 .5,12.4,11 .4,12.4,11 .1 ,-1 ,-1 ,12.4,12.6,12.4,12.7,12.5 ,12.7

2130 DATA 12.7,12.3,12.5,12.5,12.4,12.6,-1 ,-1 ,12,13.2,12.4,13.1 .12.5,13.12.9,12. 9

2140 DATA 12.9,12.9,-1 ，- 1 , 12 .5 , 13 .8 , 12 .5 , 13 .9 , 12 .8 , 13 .95 , 12 .9 , 13 .7 , 12 .7 f 13 .8

,150 DATA 12.5,13.8,-1 ，- 1 ,6.2,12.8,6.1 ,13-5,6.5,14.2,7.5,14.7,8,14.8

2160 DATA 8.7,14.7,8.7,14.4,8,14.1 ,7.7,14.2,7,14,6.6,13.5,6.2,12.8

2170 DATA -1 ，- 99, 5, 5,-1 ，- 1

2180 SCREEN2 , 2 : RESTORE320

2190 A$=A$+A$+A^+A$ :A^=A$+A$+At

2200 FORI= 日 T023 : PDKE&HEA0® , 日日 SPOKE&HEA01 ,32+1 : A$=USR <A$) sNEXT

2210 VY=0 sVX*0 : GOSUB2750 : VY=19 sVX=0 :GOSUB2750 s V Y =0 s V X =208 : GOSUB2750 sVY=19 s VX=208 : GOSUB2750

2220 RESTORE320 s G0SUB2 1 0 2230 RESTORE2820 S60SUB2780 2240 A^= " 0F090FCS90F090F09 "

2250 IFINKEY 和"" THEN2250ELSESE=SE+1 : GOTO 180

2260 SCREEN2 , 2 : RESTORE 日 1 0

2270 A$=A^+A$+A^+A$+At :A$=A^+A$

2280 FORI=6TO15sPOKE&HEA00,88sPOKE&HEA0i ,32+1 : A$=USR(A$) : NEXT

^290 POKE&HE A00 , 0 : POKE&HE A0 1 , 32 : Z$= " 4444444444444444 n :Z$=Z$+Z$+Z$+Z$ :Z$=Z$+Z 拿： Z 拿 =USR(Z 拿） sZ 本 =USR(Z$> :Z$=USR(Z$) sZ*=USR(Z$>

2300 Z*=" 4455445544554455" :Z^=Z4：+Z^+Z$+Z$ :Z»=Z«：+Z$： :Z»=USR (Z$) :Zt=USR(Z$) : Z$=USR( Z*) :Z*=USR(Z$)

2310 Z " 5555555555555555 " :Z^=Z^+Z$：+Z$+Z^sZ^=Z^+Z^r Z ^=USR < Z* ) : Z$=USR(Z$) :Z$=USR( Z#) sZ$=USR(Z$)

2320 "5577557755775577" s Z$=Z*+Z^+Z$+Z$ : l^=T$+2* s Z^=USR'< Z^) :Z$=USR(Z$) :Z$=USR(

Z 拿） :Z$=USR(Z$)

2330 Z *= " 7777777777777777 n sZ^=Z^+Z»+2^+Z^:Z^=Z$+Z$sZ «=USR ( Z 4： ) :Z$=USR(Z$) :Z$=USR( Z$) sZ$«USR(Z$)

2340 Z 和" 77FF77FF77FF77FF":Z$=Z$+Z$+Z 本 +Z$:Z$=Z“Z$:Z$=USR<Z 幻 :Z$=USR(Z$) : Z$=USR< Z*> : Z$=USR<Z$)

2350 POKE&HEA0® , 0 : POKE&HE AO 1 , 53 : Z#= " 77FF77FF77FF77FF M : Z$=Z 本 +Z$+Z 掌 +Z 拿： Z 拿 =Z 多 +Z 章： Z 拿 =USR(Z$) :Z$=USR<Z$) : Z$=USR(Z$) :Z$=USR<Z 本）

2360 Z 和" 777777777777777 7" :Z$=Z •本 +Z$+Z：f+Z 章： Z 章 =ZI+Z 本： Z$=USR<Z$> :Z$=USR(Z$) : Z#=USR( Z$) : Z 本 =USR<Z$〉

2370 Z*=" 5577557755775577" :Z^=Z^+Z^+Z$+Z$:Z^=Z$+Z«sZ^=USR(Z^) :Z 和 USR(Z 幻：Z$=USR( Z 本）： Z$=USR(Z 拿）

2380 LINE (84 , 160) - ( 184 , 191 ) , 15 ,BF : GOSUB 210 2390 CIRCLE (128, 178) ,5 , 1 1 :PAINT ( 128 , 178) ,11

みゆ $ •グラフイツクス

2400 RESTORE2870 : GOSUB2780

2410 • READSX , S Y , A 本 s POKE&HEA00 ,SX: POKE&HEA01 , &H39: A$=USR(A$)

2420 A$= " 0F090F090F090F09 "

2430 • FLOWER

2440 I F I NKE Y 拿 = " THEN2250E し SESE=SE+ 1 s GOTO 180 2450 SCREEN2 , 2 : RESTORE 1 270

2460 A$=A$+A$+A^+A^+A»+A^+A«+A$+A*+A*+A^+A$+A$

2470 F0RI*2T023 :POKE8<HEA00 ,72 sPOKE&HEACl ,32+1 : A^=USR(A$) sNEXT

2480 1=32 sFORJ=0TD3 :POKE8<HEA00 ,0 sPOKE&HEAOl , I :Z$=" 6666666666666666" : Z^=Z$+Z*+Z$ : Z$=Z^+Z*s Z$=USR ( Z$) : POKE&HEA 00,208 : Z 和 USR < It)

2490 POKE&HEA00 ,0 :POKE&HEA01 ,1 + 1 s Z$= " 6688668866886688 " : Z^=Zt+Z$+Z$ :Z$=Z^+Z» sZ«=U SR(Z$) : POKE&HEAO® , 20 日： Z^=USR < Z 章）

2500 POKE&HEA00 ,0 : POKE&HEA01 ， 1+2 : Z$= "日日日 888888 日 88888 8" sZ$=Z#+Z$+Z$ sZ$=Z$+Z» :Z$*U SR(Z$) SPOKE&HEA00 ,208s Z$=USR ( Z 多〉

2510 POKE&HE A00 , 0 : POKE&HE A0 1 , 1 +3 s Z " 8899889988998899 M s Z4：=Zt+Z^+Z$ s Z*=Z*+Z$ : Z$=U SR(Z$) :POKE&HEA00 ,208 sZ$=USR (ZC)

2520 POKE&HEA00 ,0 :POKE&HEA01 , I +4 : Z«= " 9999999999999999 " :Z^=Z$+Z$+Z$ :Z«=Z^+Z^ sZ$*U SR(Z$) : POKE&HEA0® , 208: Zt=USR <Z$)

2530 PQKE&HE A00 , 0 s POKE&HEA0 1 , 1 +5 s " 99FF99FF99FF99FF " s Z$=Z^+Z#+Z* s Z*=Z*+Z$ s Z$=U

SR ( Z 奉〉 : POKE&HEA00 ,208s Z$=USR (Z*)

2540 1=1+6 :NEXT 2550 GOSUB 210 2560 RESTORE2960 : G0SUB278®

2570 A$= " 0F090F090F090F09 "

2580 ^ FLOWER

2590 IF I NKE Y 拿= " " THEN2250ELSESE=SE+1 : GOTO 180 2600 SCREEN2 , 2 : RESTORE 1 790

2610 A 拿多 +A$+A 本 +A$+A$+A^+ A$ + A 多 + A$+ A 本

2620 LINE(0, 24)-(255, 47) , 12 ,BF :LINE (0 ,72) - (8® ,95) ,2 ,BF :LINE ( 180 ,72) - (255 ,95) ,2,B FsLINE (0,120) -(8®, 144) ,3 ,BF sLINE < 180 , 12®) - <255 , 144) ,3,BF 2630 FORI =8T023 s POKE&HEAO0 ,80 : POKE&HEA01 , 32+1 : A$=USR (At) sNEXT

2640 POKE&HE A00 ,176: POKE&HEA® 1 ,55 :A^=USR ( A^) : A$=RIBHT^ ( A$： ,96) : POKE&HEA0 1 ,54 s POKE &HEA00 ,208 : A$=USR <A$)

2650 A$-STRING$ (16,"0") : F0RI=4T016 : POKE&HEA00 ,225 : POKE&HEA01 , I : A$：=USR (A*) sNEXT 2660 POKE&HEA00 , 233: POKE8<HEA0 1,13: A^=USR (At)

2670 GOSUB 210:Z^=,,froT<^T あり於う" +CHF^ < 129)

2680 OPEN "grp:" AS# 1

2690 F0RI=4TQ16 sPSET (225 ,1*8) , POINT (255,1*8) :PRINT#1 ，MID$ ( Z 本， 1-3 ， 1 > sNEXT 2700 PSET<233,104) , POINT (233,104) sPRINT#l ,n，' " : CLOSE 2710 RESTORE2980 s 6DSUB27 日®

2720 A$= " 0F090F090F090F09 "

2730 7 FLOWER

❾

みゆ吉 •グラフイツクス

DOORS

S r.P™lN0 sC0L0R15 »4 !CLS : keyoff : locate

0 CLE AR300 , &HE8FF s D I MF ( 1 7 ) ,P(17) .KF<17) ! !0 ONERRQRGOTO1880

10 P0KE&HF85A , I NT (TIME/256) : P0KE&HF85B ,T] 0 DATA24,8,24,40 ,24,72,24,104,24 ,136,56.

190 DEFUSR=&H 1 56 : OPEN" GRP s"AS#l

200 GOSUB1 450s GOSUB 1810: GOSUB1 320

210 INTERVAL OFF

220 WB=&H 44

230 DEFUSR1=&HEA0®

240 GOSUB 1 570: GOSUB 1 650

加，1,3 刊聊1 旧， ⑽ ，如山侧磁 m 270 GOSUB 1 570: GOSUB 1150: GOSUB 1 650

ITE6 ^62!62) <3® ,30> » 1 »3 spUTSPRITE4 , (62 ,30) , 1 ,4 sPUTSPRITES , (30 ,62) , 290 * I F I NKE Y i= '• " THEN22

3?S : ぼぽぽ，1 ，細 TSPRITEB， (62,62) バ，S

33» - /IfInKeJ；^.：THEN26, 山9: PU 賊丨删，叫ぬ）山 10

ヴ UTSP ミ ITE0 ,<X,Y),11,0 rPUTSPRITEl ,<KX,KY),6,1 : KP«0 : PP»d

3vS ぼ：％ぼ= ば0 RI=0TO17:P ⑴〜け- SEX> =■

380 / GAME1

1 ，254 * S0UND8 ,13s0NI NTERVAL= 1 0GOSUB 1420:1 NTERVAL ON 4101 FTURN*1 THENGOTO430ELSEGOTO450

=: ぽ? =ミ;搵= 亂 □N!TURN=TURN.-1!SOTO410 GOSUBl^GD^I^13*0 !G0SUBUS0 !IFP<FLAB> THEN530ELSE460

DORSS

490 S0UND7,&B1 11 101 1 1 sS0UND8,&B 00011101 : SOUND 13,2: S0UND6 , 50

500 LINE<24, 8)-(215,167) ,4,BF

510 PUTSPRITE0, (X,Y> ,11 ,0

520 BOTO420

530 • WIN

540 LINE<24, 8)-(215,167) ,6,BF

550 FORI=0TO5sSQUNDI ,0 :NEXT :S0UND7 ,248

560 PUTSPRITE1 , <X-24,Y) ,3,2

570 Z1$="T1 20S 1 3M1 00 し 1 204CCCC2 . CCCC2 . CCCE4EEEE4EEEG4GGGG4GGG "

580 Z2$= T 1 2®S 1 3M 1 13¢ し 1 203R2CEG04C4R203CEGD4C4R203CEG04C4RC403CEG04C4CEG"

590 Z3 和" T120S13M100 し 1204 RRRRRRRRRC4CCCC4CCCE4EEEE4EEE"

600 Z 4$= " し 1 2Q5C204B4 ■ F#8A4GR6FR6DR6 し 32CDCDCDCD し 24CDC し 1 603804 CM 610 Z5$=" E2D#4 . D#8E403BR6AR6AR6G2 "

620 Z6$= " 03A2B2E4ER6FR6FR6E2 "

630 Z7$«="L1 2DR603GR6L8E02G03CE604CEG "

640 Z8 拿 ="GR6GR 604 El"

650 Z9»="FR6FR6G1M 660 ZA$=" E4D8.E1 6D2C2"

670 ZB$=HA4A4G2G2"

680 ZC«*"F4F4F2E2"

690 PLAY Z 1 拿, 12% ,Z3«： PLAYZ4$, Z5$, Z6$ : PLAYZ7^, Z8 多 ,Z9*: P し A Y , Z5 本, Z6 多 _*PLA Y Z A 多 , ZB 拿,

700 PUTSPRITE2, (88,56) , 1 ,3 :PUTSPRITE3 , ( 120 ,56) ,1 ,4 :PUTSPRITE4 , (88 ,88) ,1 ,7sPUTSPR

ITE5,< 120,88) ,1，日

710 WB=&H66 : GOSUB1240

720 BOTO840

730 ' BEATEN

740 LINE(24, 8)-(215,167) ,11 ,BF 750 PUTSPRITE1 , (KX-24,KY) ,3,2 760 PUTSPRITE0,(KX,KY) ,6,1 770 S0UND7 , 255s S0UND8 ,13: S0UND9 , 1 3

780 AZ 拿 = V 1 3T240L8O4BBB-FF#AA#BAA#O5DD#FF#FDD#FF#AA#BAA#O<bDD#F#16M 790 AY^="V1 3T240L8O4RF#DD#O3BA#O4DD#DD3BA#AA#AFF#DD#O2BA#ABA#FF#D#16"

日 00 S0UND7 ,252 sPLAYAZ^ ,AY$

810 PUTSPRITE2, (88,56) ,1 ,3 sPUTSPRITE3 , ( 120 ,56) , 1 ,4 :PUTSPRITE4 , (88 ,88) ,1 ,9sPUTSPR I TE5, (120,88) ,1,10 820 WB=&HBB :6OSUB1240 830 IFPLAY(0)THEN830

840 PRESET <16, 180) sPRINT#l , "<PUSH Space-Key to Start >n 850 A^USRl (0) : IFPEEK (&HEA75) < >5THEN850 860 BOTO270

❿

DOORS

900 ONZGDTO920 , 930, 940 , 950, 960

920 X=X-(N0TX>183) *8 s 60101020

930 X=X+ (N0TX<25) *8 : GOTO1020

940 Y=Y+ (N0TY<9) *8 SGOTO1020

950 Y=Y- <N0TY >134) *8 : GOTO 1020

960 IFNOT ( ( (X=240RX=184) AND( ( Y-8) MOD32=0) )C

970 FORI=0TO17 r IFX* ( Y-l ) =F ( I ) THENFLA6=I : NEX 980 RETURN

990 PLA Y " 1 32o4g+ag+gg+o5c+ed+c+d+c+cc+eg+ " 1000 SCREENS SPRINT " Now you've tried to open

< (Y=80RY=136) AND( (X+8) M0D32=®)

1040 IF (KX=DX) AND (KY«DY ) THEN1090 1050 KX=KX+ (KX >DX ) *8 - (KX<DX ) *8 1®60 KY«KY+ (KY >DY ) *8 - (KY<DY ) *8 1070 PUTSPRITE1,(KX,KY) ,6,1 1080 RETURN

1090 PUTSPRITE1,(KX,KY) ,13,1：G0SUB

3 LINE(24,8)-(215,167) ,15,BF 8 S0UND7 B 11110111 sSOUNDB ,8<B0 8 LINE(24, 8)-(215,167) ,4 ,BF

,0 KD=INT (RND(1)*18) :IFKF(KD) THEN 1150 RESTORE : FORI*0TOKD : READDX ,DY : next r0 RETURN

>0 ， KNOCKING OPERATION 切 INTERVAL STOP: SOUND 7,254 10 SOUND0,0: SOUND 1 , 0 0 PLAY-V13" s PLAY " 12400582 M5000A4F2 "

0 IFPLAY(0) THEN 1220 10 RETURN 0 7 HADA-SUB

® A$= " CC33CC33CC33 " : : A$=A$+A$+A$-f-A$

? ^RJ：?IO14!POKE&HE900^96!POKE&HE901 ,1 ：A*=USR5(A^) : NEXT 0 A 和 9F" : A$=A^+A# :A$=A$+A^ s At=A$：+AS：：A$=A*+A$ : A$=A$+A^+A^

DOORS

3 FOR I =9T0 1 4 s POKE8<HE900 , 96 : PGKE8<HE9lZi 1 , 1+32 :At=USR5 (A^) : NEXT 9 VPOKE&H2E00 + 1 02 , WB : VPOKE&H2E00+ 103,WB Zl VPOKE&H2E00 + 1 43 ， WB : VPOKE&H2E00+ 101 ,WB 9 RETURN 0 7 BGM-subr .

2t DIMM® (90) ,M1 (90)

0 FQ#=55:FA#=2^(1/12) sFC#= 199670®#

2t FORI=9TO90 sTP#=FC#/ 16/FQ# : M0(I) =TP#M0D256 sMl (I) =TP¥256 : FQ=FQ#*FA# : NEXT 0 S0UND7 , 248: S0UND8 ,13: SOUND0 , ® : SOUND 1 ,0 0 RESTORE 1 38® : ON I NTERVA し = 1 0GOSUB1 420

0 DIMMA(31> ,MB<31) sFORI=0TO31 : READX :MA < I ) =M(fl ( X ) :MB(I)=M1 (X) sNEXT 0 DATA43,45,47 ,48,50,49,5® ,47,48,30 ,52,53,55,54 ,55,52 0 DATA53,57,50,53 ,47,50,43,47,48,52 ,43,48,40 ,43,36,40 0 11=31 s RETURN 0 11=11+1 sIFII=32THENI 1=®

0 SOUND® tMA(II) : SOUND 1 ,MB(II) : RETURN 0 STOP

a DATA 12,233 ,42 ,73 , 128 , 126 ,214 ,48

B DATA 254,16 ,56, 2, 214, 7, 35, 7, 7, 7, 7 ,79, 126, 214, 48, 254,1 Zl DATA 177 ,235 ,42 ,0 ,233 ,119,35,34 ,0 ,233 ,19,235,16,218,2

1 550 DAT A 000 0 1 ACB3F471 3EB22 日 CE92 A 00007 E0000D630FE 1 03802 D 60723070707074 F7E 0000063

1600 GOSUB1760

1610 X=24 : Y=8 sKX=184 :KY=136

1620 Q=&H 1800+35 sFORI=0TQ4 sVP0KEQ+I*4*32 ,2 : VPOKEQ+ ( I 1630 F0RI = 1T05 sVP0KEQ+I*4 , 2 s VPOKEQ+ 1 *4+608 , 2 -.NEXT 1640 RETURN 1650 ' MIYUKI-UP

1 660 POKE&HE900 , &H60 s POKE&HE901 , &H38 s RESTORE 1 680

DOORS

1670 FOR I =0TO8 s READA^ s A*=USR5 < At ) : NEXTsRETURN

?^^^F3F7FFFFFFFFFFFFf：FFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F3 1690 DAT AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8FCFEFEFFFFFFFFFFFFFFFFFFFFFEFE 1700 DAT A7D 78383 C 1 C 1 C3C3C3C3E1E 1 F0F0F0700A0A0E0C 000080800 1 200000 C80E0E0F3 1710 DAT A5B5 171610101 0303040 F0F1 F2F4F8F0FFEFCFCFCFCFEFEFFFFFFFFFEFCF8F0C0 DATA 7078393 C1C1 C3C3C3C3E 1 E 1 F0F0F 0700E0F0 1 000000 日 0800 1 1 0E000C80E0E0F3 DATA7BF 1 日 90 10101 0303070 F0F1F2F 4F8F0FFEFCFCFCFCFEFEFFFFFFFFFEFCF8F0C0

口調ぽ==;蹀= 雖鹊謅黠

1760 RESTORE 1780: POKE&HE900 ， 0 •_ POKE&HE90 1 ， &H38 1 770 FOR I =0TQ2 : READA* : A$=USR5 < A$ ) : NEXT: RETURN

00 =HS======== ■喆

?2®® REs?SR^fl4rFDFCEC6024242®22301B0C07F0F8FCFEFEFFEF07474303070E9C20C0

1810 RESTORE 1840 1 820 POKE&HE900,0： POKE&HE90 1 ， &HEA 1 830 READAt : A$-USR4 (A$) : GOTO 1 830

i^CB^2B^05783275EftC9^00F2F"SDlC7i97D792?7?!i9l?I^83281005CB6F2S0B05CB672M

3C398EATA47EACD96EA215AEACD96EACDAE®0D8C7B520FBC900ei00600047E8®CDA2007ES0FE0DC82

1890 RETURN 1900 ********************* 1910 *

1920 * PROGRAM sT .NOGUCHI

1930 *

(以上 1980 行まで）