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