■ＰＢ　ＳＴＲＥＥＴ■

　著作制作…………よなぷー
　制作年月日………２０１７年６月７日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………１５６８ステップ
　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
　※「●」はスペース一個です。
　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。


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