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 : Z$=USR :Z$=USR(Z$) : Z#=USR( Z$) : Z 本 =USR 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 , =■ 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 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 , 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- 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 - (KXDY ) *8 - (KY0 ， 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 ,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 * 1940 * GRAPHIC DATAsK.TAKASAKI * 1950 * «. 1960 * (C) 1984 NEPTUNE-SOFT * 1970 * * 1980 *************************** (以上 1980 行まで）