/***********************************************************************/
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
arg Chno page
/* validate channel and page */
tltx = 'com1:'
config = 'teletext.inf'
displayfile = 'teletext.pag'
'{at}del' displayfile
freqs = charin(config,1,82)
page = insert('0',page,0)
page = insert('0',page,2)
page = insert('0',page,4)
page = x2c(page)
'{at}mode com1:9600,n,8,1>nul'

 call InitHardware
 call ChannelSelect
 call PageRequest
 call PageRead

 EXIT 0

InitHardware:

 RC=stream(tltx,'c',open)
 RC=call charout(tltx, '0081'x)
 if charin(tltx) \= '01'x then
  do say 'Problem....!!!'
  exit 1
  end

Return

ChannelSelect:

 RC=call charout(tltx, '82'x)
 RC=call charout(tltx, substr(freqs,ChNo*2,2))
 RC=call charin(tltx)

Return

PageRequest:

  RC=call charout(tltx, '8300'x||page||'10101010'x)
  RC=call charin(tltx)
 do 15
  RC=call charout(tltx, '8400'x)
  if charin(tltx) = '01'x then do
   /*say 'got it!'*/
   RC=call charout(tltx, '8700'x)
   say 'RC =' c2x(charin(tltx))
   leave
   end
  else call SysSleep 1
   /*else do
    call charout tltx, '850000'x
    say charin(tltx,,40)
    end*/
  end

Return

PageRead:

 call charout tltx, '8600'x
 x=charin(tltx,,960)
 call charout displayfile,x
 x=charin(tltx,,2)

Return

--- GoldED/2 2.50.Beta4+