10REM Grabber
   20Station=1
   30DIM osword 20
   40ON ERROR OFF
   50CLS
   60PROCgrab(&2800,&7800):PROCgrab(&2800,&7800)
   70ON ERROR GOTO 40
   77PRINT$&2800
   80INPUT LINE "Ready? "Z$
   90ON ERROR OFF
  100Command$=$(&2800)
  120OSCLI($&2800)
  130GOTO 40
  140DEFPROCgrab(from,end)
  150osword?0=&81
  160osword?1=0
  170osword?2=Station
  180osword?3=0
  190osword!4=&FFFF0000 OR from
  200osword!8=&FFFF0000 OR end
  210osword!12=&FFFF0000 OR from
  220X%=osword MOD 256:Y%=osword DIV 256
  230A%=16
  240CALL &FFF1
  250ENDPROC