100 DEFine FuNction SMODE$
110  LOCal ch,scr,loop
112  LOCal mode$(4,11)
130  RESTORE 230
140  FOR scr=1 TO 4 :READ mode$(scr)
150  scr=1
160  REPeat loop
170   ch=FOPEN('con_'&mode$(scr))
180   IF scr=4 OR ch>0 : EXIT loop
190   scr=scr+1
200  END REPeat loop
210  CLOSE#ch
220  RETurn mode$(scr)
225 :
230  DATA '800x600a0x0'
240  DATA '640x480a0x0'
250  DATA '640x350a0x0'
260  DATA '512x256a0x0'
265 :
270 END DEFine SMODE$