Struc Wsio_Area Command DB WSIO_OPEN Start_Row DB 1 ; Start of screen ROW Start_Col DB 1 ; Start of screen COLUMN End_Row DB 24 ; End of screen ROW End_Col DB 80 ; End of screen COLUMN Screen_Attrib DB 0 ; Attrib used to fill the screen, 0 means do not change it Field_Attrib DB 0 ; Attrib used to fill the field, 0 means do not change it Input_Select_Attrib DB 0 ; Attrib used to indicate input or selection Error_Attrib DB 0 ; Attrib used to indicate input error Mouse_Support DB 0 ; Support Mouse, if present, 0=no, 1=yes Select_Field_Nr DB 1 ; Cursor positioned at Active Window field nr Select_Field_Occur_Nr DB 1 ; Cursor positioned at Active Window field occur Select_Field_Position DB 1 ; Cursor positioned at Active Window field position Screen_Changed DB 1 ; Screen changed, 0=no, 1=yes Cursor_Position_Row DB 0 ; Cursor to be located/was located at screen location row Cursor_Position_Col DB 0 ; Cursor to be located/was located at screen location col Name_Address_Hi DW ? ; Screen Name Address HIGH Name_Address_Lo DW ? ; Screen Name Address LOW Text_Address_Hi DW ? ; Text Address HIGH Text_Address_Lo DW ? ; Text Address LOW Attrib_Address_Hi DW ? ; Attribute Table Address HIGH Attrib_Address_Lo DW ? ; Attribute Table Address LOW Keys_Address_Hi DW ? ; Valid Keys Address HIGH Keys_Address_Lo DW ? ; Valid Keys Address LOW Enter_Address_Hi DW ? ; Enter Emul Keys Address HIGH Enter_Address_Lo DW ? ; Enter Emul Keys Address LOW Field_Address_Hi DW ? ; Field Area Table Address HIGH Field_Address_Lo DW ? ; Field Area Table Address LOW ends ; Wsio_Area Struc Wsio_Field Start_Row DB 1 ; Rel. Start of field ROW, NULL=End Start_Col DB 1 ; Rel. Start of field COLUMN Size DB 1 ; Field size Occurs DB 1 ; Nr of occurrences Offset DW 0 ; In case this field is part of a table, we add this value to get to the next element within the table Modifiable DB 0 ; 0=Protected 1=Modifiable Mouse_Sensitive DB 0 ; 0=No, Any other valye is the key to be emulated Edit DB 0 ; 0=External 1=Any 2=Nrs 3=Letters 4=Nrs+Letters 5=Nrs+Letters+@#$ 6=Filemask 7=Hexadecimal 8=Tabable 9=Date/Time Blank DB 0 ; 0=Anywhere 1=Trailing 2=None Uppercase DB 0 ; 0=Upper 1=Upper+Lower Backspace DB 0 ; 0=Emulate left cursor, 1=Destructive backspace, 2=Restore character from data source field Digits_Before DB 0 ; Digits before dot, max. 15 Digits_After DB 0 ; Digits after dot, max 3 Negative DB 0 ; Can the number be negative Decimal_Point DB "." ; Decimal point character Date_Time_Format DB 0 ; Date Format, 0=dd, 1=mm 2=yy, 3=ccyy, 4=yymm, 5=yymmdd, 6=ccyymmdd, 7=ddmmyy, 8=ddmmccyy, 9=hh, 10=mm, 11=ss, 12=tt, 13=hhmm, 14=hhmmss, 15=hhmmsstt, 16=ccyymmddhhmmsstt Field_Changed DB 0 ; Field changed, 0=no, 1=yes Data_Address_Src_Hi DW ? ; Field Data Source Address HIGH Data_Address_Src_Lo DW ? ; Field Data Source Address LOW Data_Address_Obj_Hi DW ? ; Field Data Object Address HIGH Data_Address_Obj_Lo DW ? ; Field Data Object Address LOW Attrib_Address_Hi DW ? ; Attribute Address HIGH Attrib_Address_Lo DW ? ; Attribute Address LOW Keys_Address_Hi DW ? ; Valid Keys Address HIGH Keys_Address_Lo DW ? ; Valid Keys Address LOW ends ; Wsio_Field