Input,
Again,
Line : Str80;
- V{erb} : array [0..VMax,1..10] of Str16;
- N{oun} : array [0..NMax,1..10] of Str16;
+ V{erb} : array [0..VMax,1..5] of Str16;
+ D{oushi} : array [0..VMax,1..5] of Str16;
+ N{oun} : array [0..NMax,1..5] of Str16;
+ M{eishi} : array [0..NMAX,1..5] of Str16;
+ Prep{osition} : array [0..VMax] of Str16;
R{oom} : array [0..NMax] of integer;
P{lace} : array [0..RMax] of PlayersObjects;
RmSh : set of 0..14;
{$I Objects.PAS }{ <----- CALLS UP THE VERBS & NOUNS <*******************}
+{$I Trans.PAS }
+
+
{===================}
procedure DefaultAnswers1;
begin
begin
if(o in inven)then
if(o=74)then
- writeln('',n[o,1])else writeln('',n[o,1]);
+ writeln('',m[o,1])else writeln('',m[o,1]);
if(ropecon in inven)and(o=ropecon)then
- writeln(' ',n[o,1],'\82É\8c\8b\82Î\82ê\82½\83\8d\81[\83v');
+ writeln(' ',m[o,1],'\82É\8c\8b\82Î\82ê\82½\83\8d\81[\83v');
if(o=74)and(en('p'))then RL(174);
if(o=89)and(en('i'))then RL(321);
end;
2:if(en('b'))then RL(198) else RL(199);
29:begin RL(89);if(en('a'))then RL(200) else RL(201);end;
57:if(ropecon<>Null)then
- writeln('The rope is tied to the ',n[ropecon,1],'.')
+ writeln('\83\8d\81[\83v\82Í',m[ropecon,1],'\82É\8c\8b\82Î\82ê\82Ä\82¢\82é\81B')
else RL(133);
65:if(Prm in[59..68])then RS(84)else Line:='l';
8:RL(202);
54,67,69,73,79,80,84,87,88])and(random(3)=1)then
case random(3) of
0 :RL(407);
- 1 :writeln('\82»\82¤\81A\82±\82ê\82Í',n[noun,1],'\82¾!');
- 2 :writeln('\95\81\92Ê\82Ì',n[noun,1],'\82Ì\82æ\82¤\82¾\81B');
+ 1 :writeln('\82»\82¤\81A\82±\82ê\82Í',m[noun,1],'\82¾!');
+ 2 :writeln('\95\81\92Ê\82Ì',m[noun,1],'\82Ì\82æ\82¤\82¾\81B');
end
- else writeln(n[noun,1],'\82É\82Í\93Á\95Ê\82È\82Æ\82±\82ë\82Í\82È\82¢\81B')
+ else writeln(m[noun,1],'\82É\95Ï\82í\82Á\82½\82±\82Æ\82Í\82È\82¢\81B')
end;
41 :begin writeln('\8e\9e\82ª\89ß\82¬\82Ä\82ä\82');y:=wherey;for o:=1 to 6 do
68:if(Prm=34)then
if(SlotCon=Null)then begin RL(186);Vanish(noun);
SlotCon:=Noun;r[noun]:=Prm;end
- else Say(68,'being used')
+ else Say(68,'\8eg\97p\92\86')
else
if(noun=63)and(Prm=58)then
begin RL(337);KeyHole:=True;r[63]:=Prm;inven:=inven-[63];end
30:if(noun=70)then
if not(en('d'))then
begin Ev:=Ev+['d'];RL(69);Vanish(70);r[70]:=Prm;end
- else Say(70,'in the dirt')
+ else Say(70,'\93D\82Ì\92\86')
else Crazy
end;{of case}
if(FlagSA<>'s')then Crazy;
end
end
- else writeln('First you must have the ',n[noun,1],'.')
+ else writeln('\82Ü\82¸',m[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\82È\82ç\82È\82¢\81B')
else Crazy;
end {of case}
case noun of
57:RL(259);
60:RL(260)
- else writeln('At the last moment you decide to spare',
- ' the ',n[noun,1],'''s life!')
+ else writeln('\82 \82Æ\8f\82µ\82Ì\82Æ\82±\82ë\82Å\81A',
+ m[noun,1],'\82Ì\96½\82ð\92D\82¤\82Ì\82ð\8e~\82ß\82½!');
end
else Crazy
else RL(83);
30 :if(noun in [39,43,12,26,6,22,47,49,68,78,17,11,
50,65,73,74,80,79,30])then RL(93) else RL(94);
-54 :begin write('Would you like to SAVE your game first (Y or N)? ');
- flag := readkey;if(upcase(flag)<>'N')then SAVE else writeln('No.');
- write('Are you still sure you want to quit? ');
+54 :begin write('\8fI\97¹\82·\82é\91O\82É\83Q\81[\83\80\82ð\95Û\91¶\82µ\82Ü\82·\82©? (Y \82Ü\82½\82Í N) ');
+ flag := readkey;if(upcase(flag)<>'N')then SAVE else writeln('\82¢\82¢\82¦\81B');
+ write('\96{\93\96\82É\83Q\81[\83\80\82ð\8fI\97¹\82µ\82Ü\82·\82©? ');
flag := readkey;if(upcase(flag)='Y')then
begin RL(367);delay(999);window(1,1,80,25);clrscr;close(rooms1);
close(rooms2);close(special1);close(special2);close(line1);
if(noun=74)and(en('p'))then RL(170)
else if(noun=89)and(en('i'))then RL(335)
else begin
- inven:=inven-[noun];writeln(n[noun,1],': \92u\82¢\82½\81B');
+ inven:=inven-[noun];writeln(m[noun,1],': \92u\82¢\82½\81B');
R[noun]:=Prm;
end
else
- writeln('You don''t have the ',n[noun,1],'.')
+ writeln(m[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¢\81B')
else
begin
if(74 in inven)and(en('p'))then RL(170)else
57:if(ropecon<>Null)and not(ropecon in inven)
and(r[ropecon]<>Prm)then
if(ropecon in mov)then begin
- RL(57);writeln('\81c',n[ropecon,1],'\82¾!');
+ RL(57);writeln('\81c',m[ropecon,1],'\82¾!');
r[ropecon]:=Prm;Ev:=Ev-['u'];
if(ropecon=29)and not(flasoff)then DescribeRm;end
else RL(56)
else RL(122);
end; {of case}
-62 :begin write('You have ',Sc,' of 1000 points',
- ', giving you the rank of ');Tic:=Tic-1;
+62 :begin write('\82 \82È\82½\82Í1000\93_\92\86',Sc,'\93_\82ð\8al\93¾\82µ\81A');Tic:=Tic-1;
case Sc of
- 0..99:writeln('beginner.');
- 100..249:writeln('novice adventurer.');
- 250..399:writeln('adventurer third class.');
- 400..549:writeln('adventurer second class.');
- 550..699:writeln('adventurer first class.');
- 700..849:writeln('expert adventurer.');
- 850..999:writeln('master adventurer.')
- else writeln('dead adventurer!')
+ 0..99:writeln('\93ü\96å\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 100..249:writeln('\96`\8c¯\8f\89\90S\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 250..399:writeln('3\8b\89\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 400..549:writeln('2\8b\89\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 550..699:writeln('1\8b\89\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 700..849:writeln('\8fn\97û\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 850..999:writeln('\8dÅ\8d\82\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½!')
+ else writeln('\8e\80\82¹\82é\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½!')
end;
Attack:=False;
if(MnRm=Prm)then RL(370)
if(en('r'))and(inven<>[])then RL(87)
else begin
Vanish(Noun);inven:=inven+[noun];
- writeln(n[noun,1],': \8eæ\82Á\82½\81B');
+ writeln(m[noun,1],': \8eæ\82Á\82½\81B');
if(noun=70)then Ev:=Ev-['d'];
end
else RL(234)
end
- else writeln(n[noun,1],'\82Í\8aù\82É\8e\9d\82Á\82Ä\82¢\82é\81B')
+ else writeln(m[noun,1],'\82Í\8aù\82É\8e\9d\82Á\82Ä\82¢\82é\81B')
else Crazy
else if(en('r'))then RL(88) else
begin flag:='0';Stuff:=0;
if(Stuff+1 < 7)then
begin
vanish(o);inven:=inven+[o];Stuff:=Stuff+1;
- writeln(n[o,1],': Taken.');flag:='1';
+ writeln(m[o,1],': \8eæ\82Á\82½\81B');flag:='1';
if(o=70)then Ev:=Ev-['d'];
end
else
begin flag:='1';
- writeln(n[o,1],': You have too many objects already!');end
+ writeln(m[o,1],': \82à\82¤\8e\9d\82Ä\82È\82¢!');end
end
else RL(234);
if(flag='0')then RL(49)
Vanish(2);Sc:=Sc+10;end
else RL(46)
else begin RL(47);Ev:=Ev+['n'];Sc:=Sc+15;Vanish(52);end
- else writeln('\82 \82È\82½\82ª',n[noun,1],
+ else writeln('\82 \82È\82½\82ª',m[noun,1],
'\82ð\8fÁ\89»\82Å\82«\82é\82Æ\82Í\8ev\82¦\82È\82¢!');
42 :case noun of
if not(en('i'))then
begin RL(20);inven:=inven+[74];r[74]:=Null;Ev:=Ev+['p'];end
else RL(320)
- else Say(74,'on');
+ else Say(74,'\92\85\82Ä\82¢\82é');
89:if not(en('i'))then
if not(en('p'))then
begin RL(319);vanish(89);inven:=inven+[89];Ev:=Ev+['i'];end
else RL(318)
- else Say(89,'on your head')
+ else Say(89,'\94í\82Á\82Ä\82¢\82é')
else RL(128);
end;
52:begin RL(34);Vanish(52);end;
23:if(noun2=null)then RL(369)
else begin Vanish(noun2);Attack:=False;
- writeln('The monster grabs the ',n[noun2,1],' and eats it!');
+ writeln('\89ö\95¨\82Í',m[noun2,1],'\82ð\92Í\82Ý\90H\82×\82½!');
end;
7:begin RL(35);Vanish(7);r[52]:=Prm;Ev:=Ev+['I'];end
- else if(verb=0)then writeln('At the last moment you decide to',
- ' spare the ',n[noun,1],'''s life!')
+ else if(verb=0)then writeln('\82 \82Æ\8f\82µ\82Ì\82Æ\82±\82ë\82Å',
+ m[noun,1],'\82Ì\96½\82ð\92D\82¤\82Ì\82ð\8e~\82ß\82½!')
else RL(216);
end{of case}
else Crazy;
case noun of
1:begin;Crazy;Shots:=Shots+1;end;
2,7,8,13,27,29,32,40,51,52,63,74,77,89:begin vanish(noun);
- writeln('The ',n[noun,1],' vanishes in an explosion of light!');
+ writeln(m[noun,1],'\82Í\94\9a\94\82µ\81A\91M\8cõ\82Ì\92\86\82É\8fÁ\82¦\82½!');
if(noun=74)and(en('p'))then begin RL(232);DEAD;end;
end;
48:begin RL(222);RL(223);Ev:=Ev+['g'];p[40]:=p[40]-[48];
end;
45:RL(315);
60,56,44:begin RL(233);DEAD;end
- else writeln('\82Ü\82Î\82ä\82¢\8cõ\90ü\82ª',n[noun,1],'\82É\96½\92\86\82µ\82½\82ª\81A',
+ else writeln('\82Ü\82Î\82ä\82¢\8cõ\90ü\82ª',m[noun,1],'\82É\96½\92\86\82µ\82½\82ª\81A',
'\8d\95\82\8fÅ\82°\82½\82¾\82¯\82¾\82Á\82½\81B');
end {of shoot case}
else if(noun=34)and(noun2=Null)then RL(213)
if(Prm in[0..6,9,10,13,41..43])and(noun2 in[73,53,47])then
begin RL(306);vanish(noun);end;
if(noun2=23)then begin Attack:=False;Vanish(noun);RL(379);
- writeln(n[noun,1],' out of mid-flight and eats it',
- ' in one giant gulp!')end;
+ writeln(m[noun,1],'\82ð\83L\83\83\83b\83`\82µ\82Ä\90H\82×\81A',
+ '\91å\82«\82È\83Q\83b\83v\82ð\82µ\82½!')end;
end
- else begin writeln('The ',n[noun,1],' collides with the ',
- n[noun2,1],' but nothing interesting happens.');
+ else begin writeln(m[noun,1],'\82Æ',
+ m[noun2,1],'\82ð\82Ô\82Â\82¯\82½\82ª\89½\82à\8bN\82±\82ç\82È\82©\82Á\82½\81B');
Vanish(noun);r[noun]:=Prm;end
- else writeln('First you must have the ',n[noun,1],'.')
+ else writeln(m[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\82È\82ç\82È\82¢!')
else Crazy;
37 :if(noun=57)then
if not(noun2 in[1,15,17,22,30,46,47,50,52,72,73,79,80,83])then
if(ropecon=Null)then begin
ropecon:=noun2;
- writeln('\83\8d\81[\83v\82ð',n[noun2,1],'\82É\82µ\82Á\82©\82è\82Æ\8c\8b\82Ñ\95t\82¯\82½\81B');
+ writeln('\83\8d\81[\83v\82ð',m[noun2,1],'\82É\82µ\82Á\82©\82è\82Æ\8c\8b\82Ñ\95t\82¯\82½\81B');
if(noun2=57)then RL(48);end
- else writeln('\83\8d\81[\83v\82Í\82à\82¤',n[ropecon,1],'\82É\8c\8b\82Î\82ê\82Ä\82¢\82é\81B')
+ else writeln('\83\8d\81[\83v\82Í\82à\82¤',m[ropecon,1],'\82É\8c\8b\82Î\82ê\82Ä\82¢\82é\81B')
else RL(50)
else Crazy
else Crazy;
if not(en('o'))then
begin Ev:=Ev+['o'];RL(328); for o:=2 to 57 do
if(o in kitset)then r[o]:=Prm;end
- else Say(noun,'opened');
+ else Say(noun,'\8aJ\82¢\82Ä\82¢\82é');
3 :if(noun=39)then
if(en('o'))then
begin Ev:=Ev-['o'];RL(186); for o:=2 to 57 do
if(o in kitset)then r[o]:=Null;end
- else Say(noun,'shut');
+ else Say(noun,'\95Â\82¶\82Ä\82¢\82é');
17,28,27 :if(noun in [6,57,39,59])then RL(29);
24,11 :case noun of
39 :if(en('o'))then
if kitset=[] then begin RL(329);end
else begin RL(330);for o:= 0 to 57 do
- if(o in kitset)then writeln(' a ',n[o,1]);end
+ if(o in kitset)then writeln(' ',m[o,1]);end
else RL(331);
57 :RL(10);
73 :RL(19);
if(en('o'))then
begin Ev:=Ev-['o'];RL(186); for o:=0 to 57 do
if(o in kitset)then r[o]:=Null;end
- else Say(noun,'shut');
+ else Say(noun,'\95Â\82¶\82Ä\82¢\82é');
29,37 :if(noun=35)and(noun2=60)then begin
RL(8);Ev:=Ev+['B'];end;
26 :if(noun=35)and(en('B'))then begin RL(332);Ev:=Ev-['B'];end
if not(en('o'))then
begin Ev:=Ev+['o'];RL(328); for o:=0 to 57 do
if(o in kitset)then r[o]:=Prm;end
- else Say(noun,'opened');
+ else Say(noun,'\8aJ\82¢\82Ä\82¢\82é');
19,2:if(noun in[6,64])or(noun=Null)then
if(en('B'))then RL(9)
else begin RL(0);DEAD;end;
39 :if(en('o'))then
if kitset=[] then begin RL(329);end
else begin RL(330);for o:= 0 to 57 do
- if(o in kitset)then writeln(' a ',n[o,1]);end
+ if(o in kitset)then writeln(' ',m[o,1]);end
else RL(331);
35 :RL(12);
73 :RL(19);
43..47,49..52:if FlasOff then RL(14);
11:if(noun in [46,79])then RS(12)
else if(noun in [15,30])then RL(28);
- 38 :if(noun=46)then begin SA;writeln('It feels jagged.');end;
+ 38 :if(noun=46)then begin SA;writeln('\83M\83U\83M\83U\82¾\81B');end;
end; {of 8}
9 :case verb of
7 :RL(65);
14 :if(noun in[57,70])then begin inven:=inven+[noun];r[noun]:=Null;
if(noun=70)then Ev:=Ev-['d']
- else Ev:=Ev-['t'];SA;writeln(n[noun,1],': Taken.');end;
+ else Ev:=Ev-['t'];SA;writeln(m[noun,1],': \8eæ\82Á\82½\81B');end;
45,49 :if(flasoff)then RL(14) else moveto(14);
44 :RL(73);
24,11:if(noun=17)and not(en('u'))then RL(74)
43,48 :if(flasoff)then RL(14)else moveto(22);
44,45,47,49:RL(258);
26,27 :if(noun=26)then
- if(en('l'))then Say(26,'open')
+ if(en('l'))then Say(26,'\8aJ\82¢\82Ä\82¢\82é')
else begin RL(98);Ev:=Ev+['l'];p[23]:=p[23]+[69];end;
3 :if(noun=26)then
if(en('l'))then begin RL(171);Ev:=Ev-['l'];p[23]:=p[23]-[69];end
- else Say(26,'closed');
+ else Say(26,'\95Â\82¶\82Ä\82¢\82é');
2,52,57:if(en('l'))and((noun=69)or(noun=Null))then moveto(24)else RL(99);
24,25 :if(noun=26)then RL(151);
11 :if(noun=26)then if(en('l'))then RL(217)else RL(218)
30 :case verb of
46,58:if(en('e'))then RL(212) else moveto(25);
- 26,27,28,40:if(noun=49)then if(en('h'))then Say(49,'open') else RL(159)
+ 26,27,28,40:if(noun=49)then if(en('h'))then Say(49,'\8aJ\82¢\82Ä\82¢\82é') else RL(159)
else
if(noun in[10,76])and(verb=28)then
begin
35 :if(en('e'))then begin Ev:=Ev-['e'];RL(211);Attack:=False end;
17,0,6:if(noun=49)then RL(160);
53 :if(input=Code)then
- If(en('h'))then Say(49,'open')
+ If(en('h'))then Say(49,'\8aJ\82¢\82Ä\82¢\82é')
else
begin Ev:=Ev+['h'];RL(173);play(23,24,250);Sc:=Sc+30;
if(PanelCon<>Null)then begin r[PanelCon]:=30;Code:='R';
- writeln('Sitting inside the panel compartment is a ',
- n[PanelCon,1],'.');end
+ writeln('\83p\83l\83\8b\82Ì\89\9c\82É',
+ m[PanelCon,1],'\82ª\82 \82é\81B');end
else RL(183);
end
else RL(172);
end;
11,24:case noun of
49:begin SA;if(en('h'))then if(PanelCon=Null)then RL(183)
- else writeln('Inside the compartment is a ',n[PanelCon,1],'.')
+ else writeln('\83p\83l\83\8b\82Ì\89\9c\82É',m[PanelCon,1],'\82ª\82 \82é\81B')
else RL(184);end;
- 82:begin SA;writeln('The year dial is set to ',YearDial,'.');end;
- 24:begin SA;writeln('The day dial is set to ',DayDial,'.');end;
+ 82:begin SA;writeln('\94N\83_\83C\83\84\83\8b\82Í',YearDial,'\82É\83Z\83b\83g\82³\82ê\82Ä\82¢\82é\81B');end;
+ 24:begin SA;writeln('\93ú\83_\83C\83\84\83\8b\82Í',DayDial,'\82É\83Z\83b\83g\82³\82ê\82Ä\82¢\82é\81B');end;
16:begin RL(203);RL(204)end;
25:RL(115);
38:RL(161);
39 :case verb of
46,50,58:moveto(26);
45 :if(en('g'))then moveto(40);
- 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
+ 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'\95Â\82¶\82Ä\82¢\82é');
43 :moveto(36);
44 :moveto(38);
57 :if(noun=12)then RL(215);
40 :case verb of
46,58 :if(en('g'))then moveto(39) else RL(221);
- 26 :if(noun=26)then if(en('g'))then Say(26,'open') else RL(221);
- 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
+ 26 :if(noun=26)then if(en('g'))then Say(26,'\8aJ\82¢\82Ä\82¢\82é') else RL(221);
+ 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'\95Â\82¶\82Ä\82¢\82é');
11,14 :if(noun in[12,43,83])then RL(261);
end;
if(o in cabiset)then r[o]:=55;
if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;
end
- else Say(11,'open')
+ else Say(11,'\8aJ\82¢\82Ä\82¢\82é')
else if(SepWord='s')then RL(317);
29 :if(noun=27)and(noun2 in[45,26,11,68])and(SepWord='in')then
if not(en('k'))then
begin RL(314);play(30,32,30);Ev:=Ev-['k'];
for o:= 2 to NMax do if(o in cabiset)then r[o]:=Null;
end
- else Say(11,'shut & locked');
+ else Say(11,'\8c®\82ª\8a|\82©\82Á\82Ä\82¢\82é');
24,30 :if(noun in[26,11])then
if(en('k'))then
begin RL(324);
if(cabiset=[])then RL(339)else
- for o:=0 to NMax do if(o in Cabiset)then writeln('a ',n[o,1])
+ for o:=0 to NMax do if(o in Cabiset)then writeln(' ',m[o,1])
end
else RL(299);
end; {of 55}
25:RL(418);
21:begin;RL(140);RL(141);end;
68:if(SlotCon=Null)then RL(143) else
- begin SA;writeln('The slot contains a ',n[SlotCon,1],'.')end;
+ begin SA;writeln('\83X\83\8d\83b\83g\82Ì\92\86\82É\82Í',m[SlotCon,1],'\82ª\82 \82é\81B')end;
58:if(SlotCon=77)and not(en('x'))then
begin Ev:=Ev+['x'];Sc:=Sc+5;RS(75)end
else if(SlotCon=77)then RS(77)else RL(385)
43,57 :moveto(3);
6,17 :if(noun=57)and(here(40))and((noun2=40)or(noun2=Null))then
begin RS(16);Sc:=-500;
- Loc:='Locked Cabin';Verbose:=True;inven:=[];KitSet:=KitSet-[57];
+ Loc:='\95Â\82¶\82½\83L\83\83\83r\83\93';Verbose:=True;inven:=[];KitSet:=KitSet-[57];
n[57,1]:='plastic card';n[57,2]:='card';n[57,3]:='plastic';
- n[57,4]:='elevato card';n[57,5]:='elevato';r[57]:=76;moveto(76)
+ n[57,4]:='elevato card';n[57,5]:='elevato';m[57,1]:='\83J\81[\83h';r[57]:=76;moveto(76)
end;
33,19,2 :if(noun in[6,53,64])then moveto(3)
end;
end;
59 :case verb of
- 43..50:begin o:=random(8)+3;writeln('You travel about ',o,' miles...');
+ 43..50:begin o:=random(8)+3;writeln(o,'\83}\83C\83\8b\82Ù\82Ç\94ò\8ds\82µ\82½\81c');
if(random(4)=2)then ShRm:=13 else ShRm:=Random(15);moveto(59)end;
52,57:RL(341);
58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
if(Loc<>'Civilization!')then READLN(LINE)else repeat;until false;
if(Line='r')or(Line='repeat')then Line:=Again
else Again:=Line;
+ Translate;
gotoxy(1,23);TextColor(m3);writeln(chr_p(175));TextColor(m2);
end;