Program p1;

  Const

    Start_Y=35;
    End_Y=435;
    Partial_Count=300;
    Angle_Tan=2.2;
    Lasting=8000;

  Var

    Start_Time:longint;
    Start_X:integer;
    End_X:integer;
    i:integer;

  Begin

    Randomize;
    assign(output,'output.txt');
    rewrite(output);
    for i:=1 to Partial_Count do
      begin
        Start_X:=trunc(8+random*370);
        End_X:=trunc(Start_X-((End_Y-Start_Y)/Angle_Tan));
        Start_Time:=trunc(153240+(179640-153240)*random);
        writeln('Sprite,Background,Centre,"SB/d.png",320,240');
        writeln(' M,2,',Start_Time,',',Start_Time+Lasting,',',Start_X,',',Start_Y,',',End_X,',',End_Y);
        writeln(' S,0,',Start_Time,',,0.1');
      end;
    close(output);

  End.

Program p2;

  Const

    interval=50;
    lasting=300;
    n=39;
    scale=0.38;
    start_x=10;

  Var

    i,j,cx:integer;
    st,et,t1,t2,t3,line,t4,t5,t6:longint;
    charsize:array[1..27] of integer;
    linesize:array[1..6] of integer;
    Lyric:array[1..39] of string;
    cc:char;

  Begin

    assign(output,'output.txt');
    rewrite(output);
    assign(input,'Charsize.txt');
    reset(input);
    for i:=1 to 27 do
      begin
        readln(charsize[i]);
        charsize[i]:=trunc(charsize[i]*scale);
      end;
    for i:=1 to 6 do
      begin
        readln(linesize[i]);
      end;
    close(input);
    assign(input,'Lyric.txt');
    reset(input);
    for i:=1 to 39 do
      begin
        readln(Lyric[i]);
      end;
    close(input);
    assign(input,'data.txt');
    reset(input);
    for i:=1 to 39 do
      begin
        readln(t1,t2,t3,line,t4,t5,t6);
        st:=t1*60000+t2*1000+t3-450;
        et:=t4*60000+t5*1000+t6-450;
        cx:=start_x;
        for j:=1 to length(Lyric[i]) do
          begin
            cc:=Lyric[i][j];
            writeln('Sprite,Foreground,TopLeft,"SB/L/2/',cc,'.png",0,0');
            writeln(' M,2,',st,',',st+lasting,',-30,',linesize[line],',',cx,',',linesize[line]);
            writeln(' S,0,',st,',,',scale:0:4);
            writeln(' F,2,',et,',',et+lasting,',1,0');
            st:=st+interval;
            et:=et+interval;
            if cc<>'`' then cx:=cx+3+charsize[ord(cc)-ord('A')+1] else cx:=cx+3+charsize[27];
          end;
      end;
    close(output);
  End.

Program p3;

  Const

    startx=553;
    starty=276;


  Var

    midax:integer;
    i:integer;
    startt,y,cy:longint;
    sc,sc2:real;
    out1,out2:text;

  Begin

    assign(out1,'output1.txt');
    rewrite(out1);
    assign(out2,'output2.txt');
    rewrite(out2);
    randomize;
    y:=starty;
    for i:=0 to 50 do
      begin
        midax:=startx-5+trunc(10*random);
        startt:=57240+i*100;
        y:=y-trunc(random*4)-2;
        cy:=y;
        writeln(out1,'Sprite,Background,Centre,"SB/c.png",0,0');
        writeln(out2,'Sprite,Background,Centre,"SB/c.png",0,0');
        sc:=0.10+i*i/2500;
        writeln(out1,' C,0,',startt,',,192,192,192');
        writeln(out2,' C,0,',startt+150,',,248,248,248');
        while cy>50 do
          begin
            sc2:=sc*0.75;
            writeln(out1,' M,0,',startt,',,',midax,',',cy);
            writeln(out1,' S,1,',startt,',',startt+600,',0,',sc:0:3);
            writeln(out1,' S,2,',startt+600,',',startt+1650,',',sc:0:3,',0');
            writeln(out2,' M,0,',startt+150,',,',midax,',',cy-2);
            writeln(out2,' S,1,',startt+150,',',startt+750,',0,',sc2:0:3);
            writeln(out2,' S,2,',startt+750,',',startt+1650,',',sc2:0:3,',0');
            cy:=cy-40;
            startt:=startt+1800;
            sc:=sc*(1.12+i/70)*(random/15+1);
            midax:=midax+trunc((i-12)*sqrt(i)/7);
          end;
      end;
    close(out1);
    close(out2);
  End.

74
69
70
69
51
51
68
68
30
41
71
47
91
66
68
63
68
66
69
64
67
76
118
70
70
54
54
60
115
170
225
280
335

2 32 490 1 2 35 340
2 33 090 2 2 35 490
2 33 420 3 2 35 640
2 34 140 4 2 36 090
2 35 340 1 2 37 740
2 35 490 2 2 37 890
2 35 640 3 2 38 040
2 36 090 4 2 38 040
2 36 540 5 2 38 040
2 37 740 1 2 40 140
2 37 890 2 2 40 290
2 38 040 3 2 40 440
2 40 140 1 2 42 540
2 40 290 2 2 42 690
2 40 440 3 2 42 840
2 40 890 4 2 43 740
2 41 190 5 2 43 740
2 41 640 6 2 43 740
2 42 540 1 2 44 940
2 42 690 2 2 45 090
2 42 840 3 2 45 240
2 43 740 4 2 46 140
2 44 940 1 2 47 340
2 45 090 2 2 47 490
2 45 240 3 2 47 640
2 46 140 4 2 48 540
2 46 440 5 2 48 840
2 47 340 1 2 49 740
2 47 490 2 2 49 890
2 47 640 3 2 50 040
2 48 540 4 2 50 490
2 48 840 5 2 51 240
2 49 740 1 2 51 840
2 49 890 2 2 51 840
2 50 040 3 2 51 840
2 50 490 4 2 51 840
2 51 240 5 2 51 840

SHOW
US
ALL
AGAIN
THAT
OUR
HANDS
ARE
UNCLEAN
THAT
WE`RE
UNPREPARED
THAT
YOU
HAVE
WHAT
WE
NEED
SHOW
US
ALL
AGAIN
`CUZ
WE
CANNOT
BE
SAVED
`CUZ
THE
END
IS
NEAR
NOW
THERE`S
NO
OTHER
WAY