[Pascal] Wprowadzanie symboli ASCII

0

Chciałbym stworzyć taką oto rameczkę:

writeln('____________________________');
writeln('| |');
writeln('| MENU |');
writeln('|
__________________________|');

Ale zamiast tych kresek chciałbym mieć znaki ASCII które się tak jakby łączą, nie ma przerw między nimi jak z tymi, z których składa się ta moja rameczka. Wiem że mozna to robić w ten sposób:
write(chr(201));
Ale widziałem jak mój kolega robił tak, ze wpisywał te znaki jak każdy inny (przez klawiaturę tak samo jak 2 d f s, dzięki czemu łatwiej jest budować te rameczki). Nie mam z nim kontaktu a chciałbym wiedzieć jak się wstawia takie znaki do programu.

0

trzymając alt(lewy) naciśnij na numerycznej części klawiatury 192, 193, 194, 195, 196 i.t.d.
uruchom
var c:char; begin
for i:=char(128) to char(255) do writre(ord(i):3,char(i):5);
end.

0

A mam jeszcze jedno pytanie. Ten sam kolega skonstruował takie menu że do menu głównego wracał poprzez funkcję EXIT (z funkcją CASE - 4 u niego to był exit). I nie mam pojęcia jak to zrobił. Może wy wiecie? To znaczy wiem jak się robi funkcję CASE ale u mnie exit działa tak samo jak halt, bo w sumie nie ma do czego wracać. Jak skonstruowaćtakie menu?

0

Może zapytaj się tego kolegi?

0

to znaczy że musi mieć do czego wracać. pętla w pętli procka w procce.
//edit

a dokładniej np tak

proc p2
begin
repeat
menu2
item:=readkey
case item of
1
2
3:exit
end
until 1=2
end

//albo bez exit
proc p2
begin
repeat
menu2
item:=readkey
case item of
1
2
end
until item=3
end


proc p1
begin
repeat
menu1
item:=readkey
case item of
1
2:menu2
end
until item=3
end

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.