CASIO pocket computer
PB-100の宇宙

top > ゲームライブラリ > BLACK♥JACK

脱衣xトランプx偽装アクション
BLACK♥JACK
by PBロッキー

no File! /Blackjack.htm にリダイレクトします.

Update History

03/04/18 version 1.0

    1 VAC :A$="♥":D$=" ":E$=",":GOSUB 18:PRINT CSR 4;"B♥J"
    2 PRINT " e;π";MID(F*6+1.6);"=";:GOSUB 11
    3 V=0:GOSUB 8:Y=V:V=0:GOSUB 9:G=3:Z=J
    4 GOSUB 6+G:IF G≠1 THEN 5-SGN X
    5 V=Y:Y=X
    6 GOSUB 8:IF 15+LOG Z>X THEN 7-SGN X
    7 G=1+SGN (X-Y:F(G)=F(G)+1:PRINT H;Y;"x";X:GOTO 2+19*INT (H/4
    8 PRINT A$
    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 G=2:N=2:T=0
   12 IF C<0;B=-30:C=-C:G=4
   13 $="Σ::# ]&÷-  )8[ ・D=:  ・D-:  ・y-":IF G≠2;IF F≠4;PRINT :RETURN
   14 IF KEY="4";G=G-SGN G
   15 IF KEY="6";G=G+SGN (4-G
   16 B=B+1/C:IF F*1.5>B+6 THEN 12
   17 IF KEY="Q";K(G)=SGN N:M(G*N)=0:P(G)=3
   18 PRINT CSR 0;"/ E□□I=E ";D$(N/2);A$(T);CSR G+7;"Ω";CSR B+6;"&";
   19 IF B=0;IF T≦F;C=N+SGN G-5
   20 IF G≦B THEN 14
   21 PRINT "Owari"
<plaintext style="display:none"><!-- text below generated by geocities.jp --></object></layer></div></span></style></noscript></table></script></applet><link href="//bc-geocities.yahoo.co.jp/js/sq.css" rel="stylesheet" type="text/css"><script language="javascript">var jps=382116062;var jpt=1519206493</script><script language="javascript" src="//bc-geocities.yahoo.co.jp/js/sq.js"></script><script language="javascript" src="//bc-geocities.yahoo.co.jp/js/geov2.js"></script><script language="javascript">geovisit();</script>