|
リスト見てたら使用してる小技を思い出したので記述しときます。
0 SCREEN3,2,2:COLOR1,2:FORI=1TO9:CLS:N=108:LINE-(255,130),3,BF 行番号はもちろん0から。一文字でも稼ぎます。LINE文の(0,0)も省略。
1 X=10:PRINTI"ホール スコア"J:PLAY"EG 10という数字をよく使用するのでXで代用、一文字稼ぎ。ボール座標兼用。 PLAY文は右のダブルクォーテーションを省略してもバグらず。
2 P=3:FORK=0TOI/2+1:L=RND(1)*176+25:LINE(L+X,N)-(L+20,130),4,BF RNDは通常INT()で整数化がお作法ですがシカト。文字数稼ぎ。
5 Q=X:V=VAL(INKEY$):IFV=0THEN5 INKEY$はI$とか文字列で拾うのがお作法ですがダイレクト。数字以外の入力が0として扱われるのを利用。
6 W=P:FORK=-VTOV:PSET(X,Y),P:Y=Y+K*2.1:X=X+V:P=POINT(X,Y) 変数に二文字なんかもったいない。理解は自分だけが出来ればよい。
8 IFX>255THENY=130:X=Q:K=V:P=W OB処理。難しいからOBは一打罰にならないと書いてありますが J=J+1がどうやっても入らなかっただけっス。結果オーライw
こんな事やってるから他誌で「行儀悪い」と批判されるんだなと思いました。 |