home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
flash-c1.zip
/
TCSETS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-02-11
|
1KB
|
51 lines
program sets(input,output);
const
NUM_SETS = 2;
SetNames : Array[1..NUM_SETS] Of String = (
' 1 - valid char set ',
' 2 - terminating char set ');
Tbl : Array[1..NUM_SETS] Of Set Of 0..255 = (
{- VCSet -}
[32..255],
{- TCSet -}
[ 9, { Tab }
13, { Enter }
15, { Shft-Tab }
68 ] ); { F10 }
Var
SetArray1,
SetArray2 : Array[1..32] Of Byte;
i,j,k,l,m : Integer;
Begin
for j := 1 To NUM_SETS Do Begin
Move( Tbl[j], SetArray1, 32 );
FillChar( SetArray2, 32, 0 );
For i := 1 To 32 Do Begin
l := 7;
For k := 0 To 7 Do Begin
If (SetArray1[i] And ( 1 Shl k ) <> 0) Then
SetArray2[i] := SetArray2[i] Or ( 1 Shl l );
l := l - 1;
End;
End;
Writeln('/* Set',SetNames[j],' */');
for k := 0 to 3 do begin
for l := 1 to 8 do
Write(SetArray2[k*8+l]:3,',');
writeln;
End;
writeln;
writeln;
End;
end.