2014年4月24日投稿 / 投稿者 : スルメ / タグ : 投稿プログラム mkII専用 QRコード 非実用ツール
P○4のホーム画面をちょっと再現
ここまでやったらやる気なくした
うまくやったら、P○4もどきになりそう。
プチコンmkII 向けの QR コードです。
- ’P○4モト゛キ
- ’コレウマクヤレハ゛OSモト゛キニナルカモネー
- ACLS:CLEAR
- GCLS 4
- DIM B$(100),R$(100)
- BREPEAT 2,30,2
- BREPEAT 3,30,2
- @1
- READ A
- IF A<=-1 THEN @2
- READ C,B$(CNT1),R$(CNT1)
- SPSET CNT1,A,C,0,0,0
- SPOFS CNT1,128+(CNT1*16),128
- CNT1=CNT1+1
- GOTO @1
- @2
- LCS=-1
- FM=6
- GOTO @3
- @4
- FOR I=0 TO CNT1-1
- IF I<CS THEN X=128-((CS-I)*16)
- IF I>CS THEN X=(128+16)+((I-CS)*16)
- IF I==CS THEN X=128:SPSCALE I,200,FM ELSE SPSCALE I,100,FM
- SPOFS I,X-16,96-8,FM
- NEXT
- RETURN
- @3
- TTT$=MID$(TIME$,0,5)
- IF !(VAL(MID$(TIME$,7,1))%2) THEN TTT$=MID$(TTT$,0,2)+” ”+MID$(TTT$,3,2)
- LOCATE 32-5,0:?TTT$;
- LOCATE 18,15:?LEFT$(B$(CS)+” ”*32,15);
- ’LOCATE 18,16:?LEFT$(R$(CS)+” ”*32,15);
- LOCATE 0,0:?”P○4 モト゛キ”;
- CS=CS+(SGN(BUTTON(1) AND 8)-SGN(BUTTON(1) AND 4))
- IF CS<0 THEN CS=0
- IF CS>=CNT1 THEN CS=CNT1-1
- IF LCS!=CS THEN GOSUB @4:LCS=CS
- VSYNC 1
- GOTO @3
- @DT
- DATA 13,3,マネーマネー!,
- DATA 36,3,コッイーン!,
- DATA 42,3,アッチッチ!,
- DATA 81,2,ウォリャアアア!,
- DATA 131,5,アオオニ,
- DATA -1
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)