8-Bit Software Online Conversion

SCRGEN : Convert screen - Listing

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