Rez Finite PB オリジナルバージョン

Rez Finite PBはアップデートして Rez Finite PB+になりましたが、ステージデータを収納したため、サイズが大きくなりました。

オリジナルバージョンはサイズが小さくノーマルPB-100に収まりますが、ウィルス登場がランダムでした。

オリジナルバージョンについても、ここに保管しておきます。

[P0]

5 VAC:PRINT "RezFinitePB"

10 C=1:$=" \DT\CIO\DI":FOR J=300 TO 0 STEP -1:PRINT CSR 8;J;

15 E$=KEY:IF E$="" THEN 45

20 P(C)=-P(C):IF E$<>"3" THEN 35

25 C=C+1:IF C>6;C=1

30 GOTO 60

35 C=C-1:IF C<1;C=6

40 GOTO 60

45 A=.1:B=0:FOR I=1 TO 6

50 IF P(I)<0;PRINT CSR I;"*";:B=B-P(I):A=A+1:P(I)=0

55 NEXT I:D=D+B^A

60 PRINT CSR 1;:FOR I=1 TO 6:F=P(I):IF F<0;F=4

65 PRINT MID(F+1,1);:IF F=0;IF RAN#<.05;P(I)=1

70 P(I)=P(I)*1.1:IF ABS P(I)>=4;P(I)=0

75 NEXT I:PRINT CSR C-1;"<";CSR C+1;">";

80 NEXT J:PRINT:PRINT "Score";INT D:STOP