PASCAL

Berikut ini adalah sebuah contoh kode pada pascal yang dapat menampilakan kode asscii dari 1 sampai 225 sejumlah tipe data string.

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: