fork(4) download
copy 
  1. program test;
  2.  
  3. {$MODE DELPHI}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. function CalcCRC(Data: string): string;
  9. var
  10.   CRC: byte;
  11.   i: integer;
  12. begin
  13.   CRC := 255;
  14.   for i := 1 to Length(Data) do
  15.     CRC := CRC xor byte(Data[i]);
  16.   Result := IntToHex(CRC, 2);
  17. end;
  18.  
  19. var
  20.   Data : string;
  21. begin
  22.   Data := '1;0$e21S&0D28.29/28.29/';
  23.   Data := StringReplace(Data, '&0D', #13, [rfReplaceAll]);
  24.   Writeln(#27 + 'P' + Data + CalcCRC(Data) + #27 + '\');
  25. end.
Success #stdin #stdout 0s 432KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
P1;0$e21S
28.29/28.29/D9\
https://ideone.com/tMjhBc
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!