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

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/Hello-world-Graphical/REXX/hello-world-graphical-1.rexx
View file

@ -1,16 +1,13 @@
/*REXX (PC/REXX) to display a message in a window (which is bordered). */
/*REXX (PC/REXX) to display a message in a window (which is bordered). */
if fcnpkg('rxwindow')¬==1 then do
say 'RXWINDOW function package not loaded.'
exit 13
end
if pcvideo()==3 then normal= 7
/*REXX (using PC/REXX) to display a message in a window (which is bordered). */
if fcnPkg('rxWindow') ¬== 1 then do
say 'RXWINDOW function package not loaded.'
exit 13
end
if pcVideo()==3 then normal= 7
else normal=13
window#=w_open(1, 1, 3, 80, normal)
call w_border window#
call w_put window#, 2, 2, center("Goodbye, World!", 80-2)
call w_border window#
call w_put window#, 2, 2, center("Goodbye, World!", 80-2)
/*stick a fork in it, we're done.*/
/*stick a fork in it, all we're done. */

47
Task/Hello-world-Graphical/REXX/hello-world-graphical-2.rexx
View file

@ -1,26 +1,29 @@
/*REXX pgm shows a "hello world" window (& another to show how to close)*/
parse upper version !ver .; !pcrexx='REXX/PERSONAL'==!ver |'REXX/PC'==!ver
if \!pcrexx then call ser "This isn't PC/REXX" /* is ¬ PC/REXX ? */
rxWin=fcnpkg('rxwindow') /*function around?*/
if rxWin\==1 then do 1; 'RXWINDOW /q'
if fcnpkg('rxwindow')==1 then leave /*function is OK. */
say 'error loading RXWINDOW !'; exit 13
end
top=1; normal=31; border=30; curpos=cursor()
width=40; height=11; line.=; line.1='Goodbye, World!'
w=w_open(2,3,height+2,width,normal); call w_border w,,,,,border
helpLine="press the esc key to quit"
helpw=w_open(2,50,3,length(helpLine)+4,normal)
call w_border helpw,,,,,border; call w_put helpw,2,3,helpLine
/*REXX program shows a "hello world" window (and another to show how to close)*/
parse upper version !ver .; !pcrexx= !ver=='REXX/PERSONAL' | !ver=='REXX/PC'
if ¬!pcrexx then call ser "This isn't PC/REXX" /*this isn't PC/REXX ? */
rxWin=fcnPkg('rxwindow') /*is the function around?*/
if rxWin¬==1 then do 1; 'RXWINDOW /q'
if fcnPkg('rxwindow')==1 then leave /*the function is OK.*/
say 'error loading RXWINDOW !'; exit 13
end
top=1; normal=31; border=30; curpos=cursor()
width=40; height=11; line.=; line.1= 'Goodbye, World!'
w=w_open(2, 3, height+2, width, normal); call w_border w,,,,,border
helpLine= 'press the ESC key to quit.'
helpW=w_open(2, 50, 3, length(helpLine)+4, normal)
call w_border helpw,,,,,border; call w_put helpW, 2, 3, helpLine
call w_hide w, 'n'
do k=0 to height-1
_=top+k; call w_put w,k+2,3,line._,width-4
_=top+k; call w_put w, k+2, 3, line._, width-4
end /*k*/
call w_unhide w; esc='1b'x
do forever; if inkey()=esc then leave; end
call w_close w
call w_close helpw
if rxWin\==1 then 'RXUNLOAD rxwindow'
parse var curpos row col
call w_unhide w
do forever; if inKey()=='1b'x then leave; end
/* ↑ */
call w_close w /* └──◄ the ESCape key.*/
call w_close helpw
if rxWin¬==1 then 'RXUNLOAD rxwindow'
parse var curPos row col
call cursor row, col
/*stick a fork in it, we're done.*/
/*stick a fork in it, we're all done. */