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

14
Task/Draw-a-pixel/REXX/draw-a-pixel.rexx Normal file
View file

@ -0,0 +1,14 @@
/*REXX program displays (draws) a pixel at a specified screen location in the color red.*/
parse upper version !ver .
!pcrexx= 'REXX/PERSONAL'==!ver | 'REXX/PC'==!ver /*obtain the REXX interpreter version. */
parse arg x y txt CC . /*obtain optional arguments from the CL*/
if x=='' | x=="," then x= 100 /*Not specified? Then use the default.*/
if y=='' | y=="," then y= 100 /* " " " " " " */
if CC=='' | CC="," then CC= 4 /* " " " " " " */
if txt=='' | txt="," then tzt= '·' /* " " " " " " */
if ¬!pcrexx then do; say; say "***error*** PC/REXX[interpreter] isn't being used."; say
exit 23
end
call scrWrite x,y,txt,,,CC /*stick a fork in it, we're all done. */