PASCAL : PROGRAM ASCII (AMERICAN STANDARD CODE for INFORMATION INTERCHANGE)

Another program iseng sekaligus nostalgia plus asah otak kembali yang penulis buat. Nah, program ini penulis kasih nama Program ASCII VIEW saja, Ok! Kelemahan dari program ini ialah ada beberapa karaktek yang tidak terlihat.Sebenarnya dapat di atasi dengan melakukan pengaksesan langsung ke video memory (Untuk jenis video memory VGA alamatnya segB800:offset).

Tetapi jika langsung melakukan akses video memory untuk teknologi sekarang penulis rasa sudah sangat tidak relevan lagi, dikarenakan masalah hardware serta operating system. So, mungkin di lain kesempatan, penulis mempunyai waktu untuk memberikan sample pengaksesan langsung video memory dengan OS DOS.Source code di bawah ini penulis buat dengan memakai Borland Turbo Pascal 7 serta telah di coba.

Program ASCII_LIST;
Uses Crt;

Procedure Layar;
Var X,Y : Integer;
Begin
   TextBackground (Blue);
   TextColor (White);
   Clrscr;
   GotoXY (12,2);
   Write ('ASCII - AMERICAN STANDARD CODE for INFORMATION INTERCHANGE');
   For X := 1 To 80 Do
   Begin
      GotoXY (X,3);
      Write (#205);
      GotoXY (X,24);
      Write (#205);
   End;
   For Y := 3 To 24 Do
   Begin
      GotoXY (1,Y);
      Write (#186);
      GotoXY (80,Y);
      Write (#186);
   End;
  {7 13 19 25 31 37 43 49 55 61 67 73}
   X := 7;
   While X < 74 Do
   Begin
      GotoXY (X,3);
      Write (#209);
      GotoXY (X,24);
      Write (#207);

      For Y := 4 To 23 Do
      Begin
         GotoXY (X,Y);
         Write (#179);
      End;
      Inc (X,6);
   End;

   GotoXY (1,3);
   Write (#201);
   GotoXY (80,3);
   Write (#187);
   GotoXY (1,24);
   Write (#200);
   GotoXY (80,24);
   Write (#188);
End;

Procedure DoAscii;
Var X,Y,I : Integer;
Begin
   X := 2;
   I := 0;
   While X < 75 Do
   Begin
      For Y := 4 To 23 Do
      Begin
         If I < 256 Then
         Begin
            GotoXY (X,Y);
            Write (I:3);
            GotoXY (X+4,Y);
            Write (Chr(I));
            Inc (I);
         End;
      End;
      Inc (X,6);
   End;
End;

Begin
   Layar;
   DoAscii;
   readln;
end.

***** SEMOGA BERMANFAAT *****