Hi,
I would do it the other way around. First check for "HBA" in vers$, if
it is that then you're on SMSQE and you can use the return from the
MACHINE function to find out what machine you're on.
Wolfgang
> On the other hand; would it be safe to presume; for all Systems;
> if SCR_XLIM is not present; the default screen resolution is used ?
>
> my reason is a simple system info
> depends on
> Exists_bin
> scrxlim_cde
>
> CLS
> PRINT
> IF EXISTS ("EMU_VER$") : PRINT " SMSQmulator"
> IF EXISTS ("QPC_EXIT") : PRINT " QPC2 "&QPC_ver$
> IF EXISTS ("UQLX_RELEASE$"): PRINT " UQLX "&UQLX_RELEASE$
> smsqe% = 0 : min% = 0 : tk% = 0
> IF "HBA" INSTR VER$ : smsqe% = 1
> IF "JSL1" INSTR VER$ : min% = 1
> IF EXISTS ("ED") : tk% = 1
> IF smsqe% : PRINT " SMSQE " &VER$ (1)
> IF min% : PRINT " Minerva ROM "&VER$ (1)
> IF NOT min% AND NOT smsqe% : PRINT " ";VER$ &" ROM"
> fr_mem%=FREE_MEM/1024
> IF fr_mem% > 1024:PRINT " "&FDEC$ (fr_mem%/1000,4,1) &" Mb free"
> if fr_mem% <= 1024:PRINT " "&fr_mem%&" Kb free"
> if tk% and not smsqe% : PRINT " Toolkit2 enabled"
> IF EXISTS ("HIS_USE") and not smsqe% : PRINT " History enabled"
> IF exists ("PINFO") and not smsqe% : PRINT " Pointer enabled"
> IF EXISTS ("RAM_USE") and not smsqe% : PRINT " Ramdisk enabled"
> xx%=512:yy%=256
> IF EXISTS ("SCR_XLIM"):xx%=SCR_XLIM :yy%=SCR_YLIM
> IF EXISTS ("SCRXLIM") :xx%=SCRXLIM(0):yy%=SCRYLIM(0)
> PRINT " Screen "&xx%&"x"&yy%
>
> Markus
> _______________________________________________
> QL-Users Mailing List
>
_______________________________________________
QL-Users Mailing List
