Category : Pascal Source Code
Archive   : GSDB21.ZIP
Filename : GSDBDATA.NDX

 
Output of file : GSDBDATA.NDX contained in archive : GSDB21.ZIP

% -SECTION+LABEL UNIT GS_KeyI UNIT GS_Pick YUNIT GS_Scrn eUNIT GS_Strng UNIT GS_Wind CUNIT GS_dB3Wk UNIT GS_dBFld UNIT GS_dBTab UNIT GS_dBase UNIT GS_dBFld UNIT GS_dBTab UNIT OBJECT GS_Wind_Objt OBJECT GS_dBFld_Objt OBJECT GS_dBase_DB ^RTNS AllCaps RTNS Append RTNS Append_dBTabl RTNS Blank ?RTNS Build_dBTabl MRTNS Check_Func_Keys NRTNS Check_Func_Keys RTNS Choose_dBTabl RTNS 
RTNS GS_Wind_SetColors RTNS Init
RTNS MemoWidth RTNS RelWin RTNS StrLogic RTNS WaitForKey % -SECTION+LABELRTNS Init
RTNS MemoWidth RTNS RelWin RTNS WaitForKey % RTNS Close 5RTNS Create ORTNS DateGet fRTNS DatePut 3RTNS Delete RTNS EditString RTNS FieldAccept 8RTNS FieldAppendScreen
RTNS FieldDisplay RTNS FieldDisplayScreen RTNS FieldGet UNIT 'DATA Prev_Record LDATA RecChanged )DATA RecNumber .DATA Tabl /DATA Top_Record 1DATA Wait_CR OBJECT DBTabl_Pick_Obj )DATA RecNumber .DATA Tabl /DATA Top_Record 1DATA Wait_CR OBJEC]RTNS GS_Wind_SetFgMode \RTNS GS_Wind_SetIvMode DRTNS GS_dB3_Create RTNS GetRec RTNS Index 6RTNS IndexTo RTNS Init DRTNS GS_dB3_Create RTNS GetRec RTNS Index 6RTNS IndexTo RTNS :RTNS NumberGet hRTNS NumberPut %RTNS Open 7RTNS Pack &RTNS Pick_dBTabl (RTNS PutRec *RTNS RelWin %RTNS Open 7RTNS Pack &RTNS Pick_dBTabl (RTNS PutRec *RTNS
DATA AddRec BDATA AddRecOK DATA BoxName EDATA DBFNdxActv 2DATA DelFlag DATA File_EOF DATA GS_KeyI_Chr DATA GS_KeyI_Esc XDATA GS_KeyI_Fuc "DATA Kbd_Esc .DATA Tabl OBJECcRTNS StrNumber 9RTNS StringGet iRTNS StringPut dRTNS SubStr _RTNS TrimL `RTNS TrimR 4RTNS UnDelete 0RTNS WaitForKey _RTNS TrimL `RTNS TrimR 4RTNS UnDelete 0RTNS  RTNS InitWin !RTNS Init_dBTabl PRTNS LogicGet gRTNS LogicPut ;RTNS MemoGet =RTNS MemoGetLine <RTNS MemoLines >RTNS MemoWidth 7RTNS Pack &RTNS Pick_dBTabl (RTNS PutRec *RTNS #DATA Kbd_PgUp HDATA LastFldDec IDATA LastFldLth KDATA LastFldNam JDATA LastFldNum GDATA LastFldTyp $DATA Next_Record )DATA RecNumber .DATA Tabl /DATA Top_Record 1DATA Wait_CR OBJEC
RTNS FieldPut RTNS FieldUpdateScreen FRTNS Find ARTNS FindNext_dBTabl @RTNS Find_dBTabl WRTNS GS_KeyI_GetKey RRTNS GS_Pick_Item_Sort RTNS GS_Pick_Line_Item RTNS GetRec RTNS Index 6RTNS IndexTo RTNS QRTNS GS_Pick_Row_Item TRTNS GS_Scrn_HideCursor SRTNS GS_Scrn_SetCursor URTNS GS_Scrn_ShowCursor ZRTNS GS_Wind_GetColors [RTNS GS_Wind_SetColors \RTNS GS_Wind_SetIvMode DRTNS GS_dB3_Create RTNS GetRec RTNS Index 6RTNS IndexTo RTNS DATA Kbd_Esc DATA Next_Record OBJECT DBTabl_Pick_Obj RTNS Choose_dBTabl RTNS FieldGet RTNS GS_Pick_Line_Item
RTNS GS_Wind_SetColors RTNS Init
RTNS MemoWidth RTNS RelWin RTNS WaitForKey % RTNS GS_Pick_Line_Item % -SECTION+LABEL+RTNS Reset_dBTabl ,RTNS Scan_dBTabl -RTNS SetWin VRTNS SoundBell aRTNS StrDate bRTNS StrLogic cRTNS StrNumber 9RTNS StringGet _RTNS TrimL `RTNS TrimR 4RTNS UnDelete 0RTNS