• No registered tag exist.

10 CLS
20 LOCATE 0,0:?"タイヒ゜ンク゛シャキョウ"
30 IF INKEY()!=10 THEN GOTO 20 
40 CLS:LOCATE 0,0:?"ヤクムーロウシーシ゛ン":GOSUB 1000
50 CLS:LOCATE 0,0:?"ムークーシュウメツト゛ウ":GOSUB 1000
60 CLS:LOCATE 0,0:?"ムーチーヤクムートクイームー":GOSUB 1000
70 CLS:LOCATE 0,0:?"ショートクコーホ゛ータ゛イサツター":GOSUB 1000
80 CLS:LOCATE 0,0:?"エーハンニャーハーラーミーターコーシンムー":GOSUB 1000
90 CLS:LOCATE 0,0:?"ケイケ゛ームーケイケ゛ーコー":GOSUB 1000
100 CLS:LOCATE 0,0:?"ムーウークーフーオンリーイッサイテント゛ウムーソウ":GOSUB 1000
180 CLS:LOCATE 0,0:?"クーキ゛ョウネーハンサンセ゛ーショーフ゛ツ":GOSUB 1000
190 CLS:LOCATE 0,0:?"エーハンニャーハーラーミーターコー":GOSUB 1000
200 CLS:LOCATE 0,0:?"トクアーノクターラーサンミャクサンホ゛ータ゛イ":GOSUB 1000
210 CLS:LOCATE 0,0:?"コーチーハンニャーハーラーミーター":GOSUB 1000
220 CLS:LOCATE 0,0:?"セ゛ータ゛イシ゛ンシューセ゛ータ゛イミョウシュー":GOSUB 1000
230 CLS:LOCATE 0,0:?"セ゛ームーシ゛ョウシューセ゛ームートウト゛ウシュー":GOSUB 1000
240 CLS:LOCATE 0,0:?"ノウシ゛ョーイッサイクーシンシ゛ツフーコー":GOSUB 1000
250 CLS:LOCATE 0,0:?"コーセツハンニャーハーラーミーターシュー":GOSUB 1000
260 CLS:LOCATE 0,0:?"ソクセツシューワツキ゛ャーテイキ゛ャーテイ":GOSUB 1000
270 CLS:LOCATE 0,0:?"ハーラーキ゛ャーテイハラソウキ゛ャーテイホ゛ーシ゛ーソワカー":GOSUB 1000
280 END
1000 A=0:INPUT A:RETURN

Kidspod運営チーム2017/11/10 16:29:16

ここからプログラムを短くするには、こういう方法があります。「LOCATEをLC、GOSUBをGSB、RETURNをRTNにする」「THENを省略する」「GOSUBのたびに行っているCLS:LOCATE 0,0:を、1000行目のRETURNの直前で行うようにする」「GOSUBの引数の1000を、変数に代入しておく」。これで最後の般若心経も入るようになりますよ！

Pagetop