■ＰＢ ＳＴＲＥＥＴ■
著作制作…………よなぷー
制作年月日………２０１７年６月７日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
P0
4 GOTO 65
8 IF KEY="W";Y=Y-SGNY
20 IF KEY="A";X=X-SGNX:Z=-1
25 IF KEY="D";X=X+SGN(9-X:Z=1
30 IF KEY="X";Y=Y+SGN(2-Y
35 PRINT CSR0;MID(T*10+1,10);CSRX;A$(Y);CSRJ;D$(K);
40 IF N=1;PRINT CSRL;D$(M);
45 IF KEY="-";W=X+Z:IF ABS(W-4.5≦5;PRINT CSRW;A$(Y);:GOSUB #7
50 GOSUB #N:IF Q≦8 THEN 8
55 GOSUB #8:PRINT "●●●CLEAR!";:GOSUB #8:G=G+1:U=U+H:IF G≦5 THEN 70
60 PRINT "●ハCOMPLETE!",CSR4;"FIN.":G=1:GOTO 70
65 PRINT "●PB●STREET","HI";I,"BY●";V$:G=1:Z=1:U=0
70 $="゜○o'・,":FOR W=0 TO 5:A$(W)=MID(W+1,1):NEXT W
75 J=9:L=0:H=9:N=1:Q=0:PRINT "●●STAGE";G;:GOSUB #8:GOSUB #9
80 X=5:T=0:GOSUB 98+G:GOTO 8
99 $="/クス/クク/スス/スククク/ススス/クスク/ククク/ススス":RETURN
100 $="/=≠/≠=/==/≠≠/□□□/[][]/□□□□/[]/":RETURN
101 $="≦-_≦TT≦_-≦_-_≦TTT≦-_-≦_#_#_#_#":RETURN
102 $="≦-+-≦I□I≦-+-≦I□I≦-++-≦+--+≦I□I":RETURN
103 $="/<◆>/<◆>/◆◆/<><>/◆◆#n#≦△△≦△△≦/":RETURN
P1
10 GOSUB #5:GOSUB #3:P=INT(RAN#*5:IF P≦1;IF X≠L;L=L+SGN(X-L
20 IF P=2;M=M+SGN(Y-M
30 RETURN
P2
3 IF G≧3;R=SGN(X-J:S=S+1
6 GOTO G*9
9 K=Y
10 GOSUB #5:IF ABS(J+R-4.5>5;R=-R
11 J=J+R:RETURN
18 K=K+1:IF K=3;K=0
19 IF J=X THEN 9
20 GOTO 10
27 IF S≦3;K=INT(RAN#*3:RETURN
28 IF S≦5;RETURN
29 IF R=0 THEN #5
30 FOR W=J+R TO X STEP R:PRINT CSRW;D$(K);:NEXT W
31 J=X:GOSUB #5:S=0:GOTO #4
36 GOSUB #5:IF S≦3 THEN #3
37 IF S≦5;RETURN
38 S=0:IF J=X THEN #5
39 P=J:FOR W=J+R TO J+R*3 STEP R:IF ABS(W-4.5≦5;PRINT CSRW;"@";
40 IF X=W;J=X:K=Y:GOSUB #5
41 NEXT W:J=P:RETURN
45 GOSUB #5:IF S≦5 THEN #3
46 S=0:IF X=J;RETURN
47 FOR W=J TO J+R*2 STEP R:IF ABS(W-4.5≦5;PRINT CSRW;D$(K);:J=W
48 GOSUB #5:NEXT W:RETURN
P3
10 P=INT(RAN#*5:IF P=0;J=J+SGN(X-J
20 IF P=1;K=K+SGN(Y-K
30 RETURN
P4
10 J=9*INT(RAN#*2:RETURN
P5
10 IF J=X;IF K=Y;PRINT CSRX;"■";:H=H-1:GOSUB #9
20 IF N=1;IF L=X;IF M=Y;PRINT CSRX;"■";:H=H-1:GOSUB #9
30 IF H≧1;RETURN
40 PRINT "SCORE";U;:IF I>U;END
50 STOP:PRINT "HI●SC!":I=U:INPUT "NAME",V$
P7
1 IF W=J;IF Y=K;PRINT CSRJ;"*";:Q=Q+1:K=INT(RAN#*3:S=0:GOSUB #4
2 IF N=2;RETURN
3 IF W=L;IF Y=M;PRINT CSRL;"*";:L=9*INT(RAN#*2:Q=Q+1:M=INT(RAN#*3
4 IF Q≦2;RETURN
5 IF T=2 THEN 20
6 PRINT CSR0;MID(T*10+1,10);CSRX;A$(Y);
7 IF KEY≠"D" THEN 7
8 T=T+.1:IF INTT≠T THEN 6
9 Q=0:IF T≦2;GOSUB #4:L=J:GOTO #4
20 N=2:J=0:R=1:T=0:GOSUB #8:PRINT CSR4;"BOSS";:GOSUB #8:GOSUB #9
30 $="ΣΣΣP○b'・,THΩ↑←↓":FOR W=0 TO 2:D$(W)=MID(G*3-2+W,1)
40 NEXT W:$="/●●/●●/●●/":RETURN
P8
10 FOR W=0 TO 99:NEXT W:PRINT:RETURN
P9
10 PRINT CSR10;H;CSR10;":";:RETURN
