脱衣×トランプ×偽装アクション
Black♥Jack
by PBロッキー

バージョンアップ履歴

バージョン 1.2.0

プログラムリスト

542ステップです．

1 VAC :A$="♥[":E$=" ":F$=".":GOSUB 18:PRINT CSR 4;"B♥J"
2 PRINT " ᴇ⁻;π";MID(B*5+1,5);"=";:GOSUB 11
3 V=0:GOSUB 8:Y=V:V=0:GOSUB 9:C=3
4 GOSUB C+6:IF C≠1 THEN 5-SGN X
5 V=Y:Y=X
6 GOSUB 8:IF X-FRAC V≦Z+15 THEN 7-SGN X
7 Z=SGN (X-Y:B(EXP Z)=B(EXP Z)+1:PRINT D;Y;"×";X:GOTO 2+19*INT (D/4
8 PRINT "♥";
9 W=1+INT (RAN#*13:J=W:I(LOG J)=10:I(J)=11.1:V=V+J
10 U(V/22)=SGN FRAC V*(V-10.1:X=INT V:PRINT W;X;
11 C=2:N=2:T=0
12 IF H<0;G=-30:H=-H:C=4
13 $="Σ:: ]&÷! ]&÷- )8[・D=: ・D=: ・y-":IF C≠2;IF B≠5;PRINT :RETURN
14 IF KEY="4";C=C-SGN C
15 IF KEY="6";C=C+SGN (4-C
16 G=G+1/H:IF G+5<B THEN 12
17 IF KEY="Q";K(C)=SGN N:M(C*N)=0:P(C)=4
18 PRINT CSR 0;"/ □□ I=ᴇ ";E$(N/2);A$(T);CSR G+5;"&";CSR C+6;"Ω";
19 IF INT G=0;IF B≦T;H=SGN C+N-5
20 IF INT G≦C THEN 14
21 PRINT "Owari"

変数表

行番号マップ