2012年06月17日投稿 / 投稿者 : バイカウントメルビル / タグ : 投稿プログラム QRコード ネタ 鑑賞プログラム / 検索用→【メルビル】
さて、編集でもするか、と思ったその時、
プチコンの画面が崩壊します。
お楽しみです
プチコンmkII 向けの QR コードです。
- ACLS
- @START
- CLEAR
- DIM X(78),Y(78),OX(78),OY(78),F(78),T(78)
- L$(0)=”PetitComputer ver2.1”
- L$(1)=”SMILEBASIC 1048576 byte free”
- L$(2)=”(C)2011−2012 SmileBoom Co.Ltd.”
- L$(4)=”READY”
- FOR I=0 TO255
- CHRREAD(”BGF0”,I),C$
- CHRSET ”SPU”+STR$(FLOOR(I/64)),(I*4)%256,C$
- NEXT
- FOR I=0 TO 4
- FOR J0=0 TO 77
- IF MID$(L$(I),J0,1)==” ” THEN NEXT
- X(J1)=J0*8:Y(J1)=I*8
- OX(J1)=X(J1):OY(J1)=Y(J1)
- SPSET J1,ASC(MID$(L$(I),J0,1)),0,0,0,0,8,8
- SPOFS J1,X(J1),Y(J1)
- SPCOL J1,1,0,5,8,0
- J1=J1+1
- NEXT
- NEXT
- GOSUB @WAIT
- @LOOP
- FOR I=0 TO 77
- IF F(I)==0 THEN F(I)=RND(100)==0
- IF F(I)==1 THEN GOSUB @DOWN
- NEXT
- IF OF==78 THEN @REVERSE
- VSINC 1
- GOTO@LOOP
- @DOWN
- T(I)=T(I)+0.05
- Y(I)=Y(I)+T(I)*T(I)
- SPOFS I,X(I),Y(I),1
- IF SPHITRC(I,0,184,256,1) THEN GOSUB @HIT
- RETURN
- @HIT
- F(I)=−1
- OF=OF+1
- RETURN
- @WAIT
- IF BUTTON() THEN RETURN
- IF TCHST THEN RETURN
- GOTO @WAIT
- @REVERSE
- GOSUB @WAIT
- FOR I=0 TO 77
- SPOFS I,OX(I),OY(I),30
- NEXT
- WAIT 30
- GOTO @START
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.143 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:04 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30