■ＴＥＲＡ■

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


P0

1 GOTO 6

2 IF KEY="Q";E=E-SGNE

3 IF KEY="-";E=E+SGN(10-E

4 J=J+1:GOSUB #M:IF 3>M THEN 2

5 STOP:L=L+K:GOTO 7

6 PRINT "TERA","HI";U:A$="゜":B$="○":C$="O":D$="()":L=0:E=5

7 J=0:K=6:M=1:T=5:GOTO 2


P1

1 PRINT:PRINT CSR10;K;CSRE;"_";CSRF;A$(J);CSRG;A$(J);CSRH;A$(J);

3 IF J≦3;RETURN

5 M=M+.1:J=0:IF E≠F;IF E≠F+1;IF E≠G;IF E≠G+1;IF E≠H;IF E≠H+1 THEN 9

7 GOSUB #3

9 F=INT(RAN#*11:G=INT(RAN#*11:H=INT(RAN#*11:RETURN


P2

1 IF RAN#≦.3;T=T+SGN(10-T

2 IF RAN#≧.7;T=T-SGNT

3 PRINT:PRINT CSR10;K;CSRE;"_";CSRT;"□";

4 IF J=1;P=E:PRINT CSRE;"!";

5 IF J≦3 THEN 8

6 R=SGN(P-T:J=0:IF R≠0;FOR Q=T+R TO P STEP R:PRINT CSRQ;"-";:NEXT Q

7 IF E=P;GOSUB #3

8 IF KEY≠"6";RETURN

20 FOR Q=0 TO 2:PRINT CSRE+1;A$(2-Q);:NEXT Q

30 IF E+1=T;PRINT CSRT;"×";:M=M+.2

40 RETURN


P3

10 PRINT CSRE;"*";:K=K-1:IF K≧1;RETURN

20 PRINT "SC";L;:IF L≧U;U=L