10 REM Create four screen files from LHDATA
   20 REM by Steven Flintham
   30 REM
   40 REM Version 1.00
   50 REM
   60 REM Wednesday 10th April 1991
   70 REM
   80 REM Arrangement is:
   90 REM SCR1 SCR2
  100 REM SCR3 SCR4
  110 :
  120 MODE 0
  130 VDU 29,0;-1024;
  140 PROCdraw
  150 *SAVE SCR1 FFFF3000 FFFF8000
  160 VDU 29,-1280;-1024;
  170 PROCdraw
  180 *SAVE SCR2 FFFF3000 FFFF8000
  190 VDU 29,0;0;
  200 PROCdraw
  210 *SAVE SCR3 FFFF3000 FFFF8000
  220 VDU 29,-1280;0;
  230 PROCdraw
  240 *SAVE SCR4 FFFF3000 FFFF8000
  250 END
  260 :
  270 DEF PROCdraw
  280 LOCAL chan%,byte%
  290 CLS
  300 chan%=OPENIN("LHDATA")
  310 REPEAT
  320 byte%=BGET #chan%
  330 VDU byte%
  340 UNTIL EOF #chan%
  350 CLOSE #chan%
  360 ENDPROC