Category : C Source Code
Archive   : RXGRAPH.ZIP
Filename : TGRAPH.REX

 
Output of file : TGRAPH.REX contained in archive : RXGRAPH.ZIP
trace
arg mode
if mode='' then mode=4
if fcnpkg(rxgraph)=0 then
do
parse source . . myself .
queue rxgraph
queue rexx myself mode
exit
end
save_mode=get_mode()
if get_mode()=6 then max_x=640-1
else max_x=320-1
save_scrmethod=scrmethod(b)
if mode<4 | mode>6 then exit
call set_mode mode
call set_background 1
call set_pallette 0
do i=1 to 3
if mode=4 then color=i
else color=1
j=i*5
str='('j','j') attr='i
call scrwrite j+1,j+1,str,,,color
call drawbox j,j,j+length(str)-1,j,color
end
pull
if mode=4 | mode=5 then
do
call set_background 2
call set_pallette 1
pull
end
call set_mode save_mode
call scrmethod save_scrmethod
exit


  3 Responses to “Category : C Source Code
Archive   : RXGRAPH.ZIP
Filename : TGRAPH.REX

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/