BRAVE SAGA Trailer

BRAVE SAGA Trailer

Program List for PB-100

BRAVE SAGA Trailerのプログラムリスト
※上記プログラムリストは、マウスの右クリックで“名前を付けて画像を保存”すると、原寸大(660×665pixel)で見ることが出来ます。
 

Program List for PB-SIM


[P0]
10 VAC:$=" AUTHOR:HIE ":W=19
20 FOR I=0 TO 11:PRINT CSR I;MID(I+1,1);:GOSUB 620:NEXT I
30 W=99:GOSUB 620:GOSUB 470
40 $=" STARRING ":W=1
50 FOR I=5 TO 1 STEP -1
60 PRINT CSR I;MID(I,1);CSR 11-I;MID(11-I,1);:GOSUB 620
70 NEXT I:W=99:GOSUB 620:PRINT
80 $=" ¥CL as :PRINCESS ":GOSUB 520:GOSUB 530
90 GOSUB 620:PRINT
100 $=" j as :MAGICIAN ":GOSUB 520:GOSUB 530
110 GOSUB 620:PRINT :PRINT CSR 3;"and...";
120 W=49:GOSUB 620:W=99:PRINT
130 $=" o as :PLAYER   ":GOSUB 520:GOSUB 530
140 GOSUB 620:W=49:PRINT
150 $="  ¥OM  _iAi_    ¥CLj o .¥DT''"
160 FOR I=1 TO 5
170 PRINT CSR 0;MID(6-I,I);CSR 12-I;MID(6,I);
180 NEXT I:GOSUB 620
190 FOR I=0 TO 1:PRINT CSR 2;MID(18+I,1);:NEXT I
200 C$=MID(5,6):GOSUB 620:X=2:W=9
210 FOR I=0 TO 3:B$=MID(20+I,1):X=6+I:GOSUB 540:NEXT I
220 B$="A":GOSUB 540:B$="¥BX¥BX¥BX¥BX¥BX":X=7
230 FOR I=1 TO 3:GOSUB 540:NEXT I:C$=MID(6,6)
240 FOR I=1 TO 7
250 PRINT CSR 7-I;C$;CSR 9;MID(15,3);:GOSUB 620
260 NEXT I:B$="SaveMe>":W=49:X=2:GOSUB 550
270 PRINT CSR 0;MID(6,12);:W=9:X=9
280 FOR I=0 TO 3:B$=MID(15-I,3):GOSUB 550:NEXT I
290 P$="o":Q$="¥CI":W=49:X=2:GOSUB 560
300 W=4:FOR I=1 TO 3:GOSUB 570:NEXT I
310 FOR I=1 TO 4:PRINT CSR 0;MID(6+I,5);:GOSUB 570:NEXT I
320 W=49:GOSUB 620
330 $="Welcome,brave   warrior.":L=8:X=4:W=9
340 FOR I=0 TO 2:P=I*8+1:GOSUB 580:NEXT I:W=19:GOSUB 620
350 $=" POWERED BY CASIO PB-100":L=12:X=0
360 FOR I=0 TO 1:P=I*12+1:GOSUB 580:NEXT I:PRINT
370 GOSUB 470
380 $=" will be       released ":W=49
390 GOSUB 590:GOSUB 600
400 $="  in 2014.  "
410 GOSUB 590:PRINT :GOSUB 620
420 $=" Enter the world to start your"
430 PRINT CSR 11;$;
440 $=" new adventure!            "
450 PRINT $;
460 GOSUB 620:PRINT :GOTO 10
470 $="BRAVE SAGA"
480 FOR I=1 TO 10
490 FOR J=11 TO I STEP -1:PRINT CSR J;MID(I,1);:NEXT J
500 FOR J=10 TO I STEP -1:PRINT CSR J+1;" ";:NEXT J
510 NEXT I:GOSUB 620:RETURN
520 FOR I=5 TO 0 STEP -1:PRINT CSR 0;MID(I+1,6-I);:NEXT I:RETURN
530 FOR I=2 TO 10:PRINT CSR 12-I;MID(7,I);:NEXT I:RETURN
540 PRINT CSR 6;C$;CSR X;B$;:GOSUB 620:RETURN
550 PRINT CSR X;B$;:GOSUB 620:RETURN
560 PRINT CSR X;P$;:GOSUB 620:RETURN
570 FOR R=1 TO 0 STEP-1:PRINT CSR X;P$(R);:GOSUB 620:NEXT R:RETURN
580 FOR J=0 TO W:PRINT CSR X;MID(P,L);:NEXT J:RETURN
590 FOR I=0 TO 11:PRINT CSR I;MID(I+1,1);:NEXT I:GOSUB 620:RETURN
600 FOR I=0 TO 11:PRINT CSR 11-I;MID(24-I,1);:NEXT I
610 GOSUB 620:RETURN
620 FOR J=0 TO W:NEXT J:RETURN
630 "BRAVE SAGA Trailer"
640 "2013/11/30"
650 "AUTHOR:HIE"

1 2 3 4 5 6 7

PAGE TOP