■ＰＢ Ｍｅｍｏｒｉａｌ■
著作制作…………よなぷー
制作年月日………２０１６年３月２６日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
P0
1 $="RestStdyTranSketTalkGrooDate":IF G≧0;IF FRAC SQR L=0 THEN #1
2 PRINT:PRINT K;-L;:IF G<0;PRINT ":ZZZ";:GOTO 4
3 GOSUB #2:PRINT:GOTO H*90
4 GOSUB #8:G=G+INT(RAN#*2+2:L=L+.5:IF L=13;K=K+1:L=1
5 PRINT "Stress";G;:GOSUB #8:IF G≧30;PRINT "Down!":G=-6
6 FOR J=0 TO 5:IF A(J)≦0;A(J)=0
7 NEXT J:IF K=4;IF L≧3.5 THEN 9
8 GOTO 1
9 PRINT "Sotugyo!":H=0:FOR J=1 TO 6:M=0:IF T(J)≦29 THEN 55
20 IF J=1;IF A≧40;IF F≧20;M=1
25 IF J=2;IF B≧40;IF C≧20;M=1
30 IF J=3;IF C≧40;IF D≧20;M=1
35 IF J=4;IF D≧40;IF E≧20;M=1
40 IF J=5;IF E≧40;IF B≧20;M=1
45 IF J=6;IF F≧40;IF A≧20;M=1
50 IF M=1;$="@&ΩμΣ↑":PRINT MID(J,1);:H=H+1
55 NEXT J:G=-6:L=3:$="*Happy●End!*":IF H=0;PRINT "●●Bad●End!";:END
60 PRINT ":Suki!!","Get";H;"●Girl":GOSUB #7:END
90 G=G-15:C=C-2:E=E-1:PRINT "S";G;"K";C;"U";E;:IF G≦0;G=0
100 GOTO 4
180 A=A+4:D=D+2:F=F-2:PRINT "G";A;"Z";D;"Y";F;:GOTO 4
270 C=C+4:E=E+4:D=D-2:PRINT "U";C;"K";E;"Z";D;:GOTO 4
360 B=B+4:E=E-1:PRINT "B";B;"K";E;:GOTO 4
450 D=D+4:F=F+1:A=A-2:PRINT "Z";D;"Y";F;"G";A;:GOTO 4
540 F=F+4:D=D+1:E=E-2:PRINT "Y";F;"Z";D;"K";E;:GOTO 4
630 PRINT "Dareto";:$="@Msz&MarΩYkrμSykΣArs↑Hrk-NO-":GOSUB #2
640 M=H:IF H=7 THEN 1
650 PRINT:IF A(H-1)≦14;PRINT MID(H*4-3,4);":Kyohi!";:G=G+5:GOTO 4
660 PRINT "Dokohe";:$="KoenYuenBowlDobtEigaKarkEvnt"
670 GOSUB #2:J=3:PRINT:IF H=7;IF FRAC(INT L/4≠0 THEN 1
680 IF H=7;$="HanamiPool●●C.Tree":PRINT MID(6*INT L/4-5,6):N(M)=0
690 $="FumnFutuGoodNice@&ΩμΣ↑":IF H≠7;J=INT(3*FRAC(10↑H*SIN M*π
700 PRINT:IF N(M)=H;J=0:PRINT "MaeNiKita!"
710 N(M)=H:PRINT MID(16+M,1);":";MID(J*4+1,4);:T(M)=T(M)+J
720 GOTO 4
P1
10 $="HatumodeClassGaeBunkasai@&ΩμΣ↑":PRINT MID(SQR L*8-7,8)
20 H=0:FOR J=1 TO 6:IF T(J)≧8;PRINT MID(24+J,1);:T(J)=T(J)+4:H=1
30 NEXT J:IF H=1;PRINT ":Nice!"
40 L=L+.5:GOTO #0
P2
3 H=1
6 PRINT CSR8;MID(H*4-3,4);
9 IF KEY="Q";H=H-SGN(H-1:GOTO 6
20 IF KEY="W";H=H+SGN(INT(LEN($)/4)-H:GOTO 6
30 IF KEY="-";RETURN
40 IF KEY≠"6" THEN 9
50 PRINT:PRINT "Stress";G,"Gakuryoku";A,"Bijutu";B
60 PRINT "Undo";C,"Zatugaku";D,"Konjo";E,"Yosi";F:GOTO 6
P7
10 FOR M=0 TO 5:PRINT CSR5-M;MID(1,M+1);CSR6;MID(12-M,M+1);
20 J=SIN COS TAN π:NEXT M:RETURN
P8
10 FOR N=0 TO 150:NEXT N:PRINT:RETURN
P9
10 $="*PB●Memorial":GOSUB #7:STOP:VAC:K=1:L=4:GOTO #0
著作制作…………よなぷー
制作年月日………２０１６年３月２６日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
P0
1 $="RestStdyTranSketTalkGrooDate":IF G≧0;IF FRAC SQR L=0 THEN #1
2 PRINT:PRINT K;-L;:IF G<0;PRINT ":ZZZ";:GOTO 4
3 GOSUB #2:PRINT:GOTO H*90
4 GOSUB #8:G=G+INT(RAN#*2+2:L=L+.5:IF L=13;K=K+1:L=1
5 PRINT "Stress";G;:GOSUB #8:IF G≧30;PRINT "Down!":G=-6
6 FOR J=0 TO 5:IF A(J)≦0;A(J)=0
7 NEXT J:IF K=4;IF L≧3.5 THEN 9
8 GOTO 1
9 PRINT "Sotugyo!":H=0:FOR J=1 TO 6:M=0:IF T(J)≦29 THEN 55
20 IF J=1;IF A≧40;IF F≧20;M=1
25 IF J=2;IF B≧40;IF C≧20;M=1
30 IF J=3;IF C≧40;IF D≧20;M=1
35 IF J=4;IF D≧40;IF E≧20;M=1
40 IF J=5;IF E≧40;IF B≧20;M=1
45 IF J=6;IF F≧40;IF A≧20;M=1
50 IF M=1;$="@&ΩμΣ↑":PRINT MID(J,1);:H=H+1
55 NEXT J:G=-6:L=3:$="*Happy●End!*":IF H=0;PRINT "●●Bad●End!";:END
60 PRINT ":Suki!!","Get";H;"●Girl":GOSUB #7:END
90 G=G-15:C=C-2:E=E-1:PRINT "S";G;"K";C;"U";E;:IF G≦0;G=0
100 GOTO 4
180 A=A+4:D=D+2:F=F-2:PRINT "G";A;"Z";D;"Y";F;:GOTO 4
270 C=C+4:E=E+4:D=D-2:PRINT "U";C;"K";E;"Z";D;:GOTO 4
360 B=B+4:E=E-1:PRINT "B";B;"K";E;:GOTO 4
450 D=D+4:F=F+1:A=A-2:PRINT "Z";D;"Y";F;"G";A;:GOTO 4
540 F=F+4:D=D+1:E=E-2:PRINT "Y";F;"Z";D;"K";E;:GOTO 4
630 PRINT "Dareto";:$="@Msz&MarΩYkrμSykΣArs↑Hrk-NO-":GOSUB #2
640 M=H:IF H=7 THEN 1
650 PRINT:IF A(H-1)≦14;PRINT MID(H*4-3,4);":Kyohi!";:G=G+5:GOTO 4
660 PRINT "Dokohe";:$="KoenYuenBowlDobtEigaKarkEvnt"
670 GOSUB #2:J=3:PRINT:IF H=7;IF FRAC(INT L/4≠0 THEN 1
680 IF H=7;$="HanamiPool●●C.Tree":PRINT MID(6*INT L/4-5,6):N(M)=0
690 $="FumnFutuGoodNice@&ΩμΣ↑":IF H≠7;J=INT(3*FRAC(10↑H*SIN M*π
700 PRINT:IF N(M)=H;J=0:PRINT "MaeNiKita!"
710 N(M)=H:PRINT MID(16+M,1);":";MID(J*4+1,4);:T(M)=T(M)+J
720 GOTO 4
P1
10 $="HatumodeClassGaeBunkasai@&ΩμΣ↑":PRINT MID(SQR L*8-7,8)
20 H=0:FOR J=1 TO 6:IF T(J)≧8;PRINT MID(24+J,1);:T(J)=T(J)+4:H=1
30 NEXT J:IF H=1;PRINT ":Nice!"
40 L=L+.5:GOTO #0
P2
3 H=1
6 PRINT CSR8;MID(H*4-3,4);
9 IF KEY="Q";H=H-SGN(H-1:GOTO 6
20 IF KEY="W";H=H+SGN(INT(LEN($)/4)-H:GOTO 6
30 IF KEY="-";RETURN
40 IF KEY≠"6" THEN 9
50 PRINT:PRINT "Stress";G,"Gakuryoku";A,"Bijutu";B
60 PRINT "Undo";C,"Zatugaku";D,"Konjo";E,"Yosi";F:GOTO 6
P7
10 FOR M=0 TO 5:PRINT CSR5-M;MID(1,M+1);CSR6;MID(12-M,M+1);
20 J=SIN COS TAN π:NEXT M:RETURN
P8
10 FOR N=0 TO 150:NEXT N:PRINT:RETURN
P9
10 $="*PB●Memorial":GOSUB #7:STOP:VAC:K=1:L=4:GOTO #0
コメント