aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Show-ASCII-table/ALGOL-W/show-ascii-table.alg Normal file
View file

@ -0,0 +1,10 @@
% generate an ascii table for chars 32 - 127 %
for i := 32 until 32 + 15 do begin
write();
for c := i step 16 until i + ( 16 * 5 ) do begin
writeon( i_w := 3, s_w := 0, c, ": " );
if c = 32 then writeon( "Spc ")
else if c = 127 then writeon( "Del " )
else writeon( code( c ), " " )
end for_ach
end for_i.