Ich habe es mal probiert. Das Umschalten funktioniert hier zumindest einwandfrei. Nur zurück mag es nicht klappen. Aber zumindest ein kleiner Anfang.
DEFINTL "A-Z"
REM var = long
REM var% = word
CLEAR 0
CLEAR FRE(0)-100000
REM GEMDOS (Super,32,0)
XBIOS (Resol%,88,-1)
XBIOS (Old_Phys%L,2)
Buffer%L= MEMORY(77824)
REM GEMDOS (Buffer,72,77824)
XBIOS (Mon%,89)
Image%L=Buffer%L+1024
IF Mon%=2 THEN
XBIOS (,5,L Image%L,L Image%L,3,%100110011)
PRINT "VGA"
WAIT 2
ELSE
XBIOS (,5,L Image%L,L Image%L,3,%11)
PRINT "RGB"
WAIT 2
ENDIF
XBIOS (,5,L Old_Phys%L,L Old_Phys%L,Resol%)
FRE Buffer%L
REM GEMDOS (Ret,73,Buffer)
REM GEMDOS (,32,Super)
REM EDIT
END