program assciiViewer;
USES CRT;
var i,n:integer;
begin
CLRSCR;
for i := 1 to 255 do
begin
IF I < 255 THEN
write(i,' : ',char(i), ', ')
ELSE
write(i,' : ',char(i));
READKEY;
end;
end.
setelah itu anda harus menekan enter untuk kode selanjunya. Dengan Output sebagai berikut:
selamat mencoba y :- D
Continue reading...