MSX-BASICでWindows?

| コメント(2) | トラックバック(0)

 漁っていてちょっと笑ったのでコピペ。MSXネタばかりでついてこられない方すみません(*´−`)

10 'Windows
20 COLOR 15,4,4:SCREEN 2,0:DEFINT A-Z
30 SPRITE$(0)=CHR$(128)+"@0<"+CHR$(30)+CHR$(28)+CHR$(10)
40 X!=256/2:Y!=192/2:PLAY"V15":GOTO 60
50 SOUND 7,&B111001:PLAY "C64"
60 DX=RND(1)*200+56:DY=RND(1)*142+50:SX=RND(1)*(256-DX):SY=RND(1)*(192-DY)
70 LINE (SX     ,SY   )-(SX+DX  ,SY   +2),15,BF
71 LINE (SX     ,SY+DY)-(SX+DX  ,SY+DY-2),15,BF
72 LINE (SX     ,SY   )-(SX   +2,SY+DY  ),15,BF
73 LINE (SX+DX-2,SY   )-(SX+DX  ,SY+DY  ),15,BF
80 LINE (SX+3,SY+3)-(SX+DX-3,SY+DY-3),4,BF
90 LINE (SX+4,SY+4)-(SX+9,SY+9),15,B
100 LINE (SX,SY+11)-(SX+DX,SY+11),15
110 KX!=SX+6-X!:KY!=SY+6-Y!
120 KX!=KX!/2:KY!=KY!/2
130 X!=X!+KX!:Y!=Y!+KY!
140 PUT SPRITE 0,(X!,Y!),14
150 IF ABS(KX!)<.01 AND ABS(KY!)<.01 THEN 50 ELSE 120

こんだけ。
次々とWindowを開きまくるWindows?みたいなプログラムです。ヤフーヽ(o`ω´o)ノ

イメージ作るのが面倒な方のために作りました。bcd.zip(約5KB)先日のYS2の曲も入れてあります。

トラックバック(0)

トラックバックURL: http://www.boiscreative.com/blog/mt-tb.cgi/1662

コメント(2)

試してみようと思ったけど、自分でソース入力するのメンドーです。
セーブしたディスクイメージをうpよろ。

こんなに短い、1画面プログラムに満たないソースすら、入力できない身体になってしまいました……。

TiltleGirl
illustration:壬生夏生

アーカイブ

Powered by Movable Type 4.25
http://www.jspeed.ne.jp/
boiscreativeをフォローしましょう
WebMoney ぷちカンパ

このブログ記事について

このページは、boisが2009年5月11日 14:51に書いたブログ記事です。

ひとつ前のブログ記事は「ちょっとtestします」です。

次のブログ記事は「懐かしの16連射」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。