Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : TOOLKI.ZIP
Filename : TOOLS.FXP
Output of file : TOOLS.FXP contained in archive : TOOLKI.ZIP
BUTFIRST pP 4÷ þ T÷ üF÷ ¯ýþ, T÷ üFû ÷ òF÷ F÷ @Fû ÷ Uóû 8ýþ BüF÷ ¯ýþ U LIST t SKSENDBACK
TAIL ACK pO 4÷ þ T÷ üF÷ ¯ýþ- T÷ üFû ÷ òF÷ F÷ @Fû ÷ ¹Uó÷ 8ýþ Bü÷ ýþ U LIST t SKSENDBACK
ITEM ACK pO 4÷ ÷ þ ÷ üøýpü÷ øýù8 þ T÷ üF ÷ ö ýþ þ BüFF ÷ ö ¯ýþ U LIST t SKWHICHONE
I EM ACK pBUTFIRST FIRST omptATOMS tionX 4÷ þ
T÷ üø ýþ xüF÷ µ
ýùH þ T÷ üF ÷ ö ýþ T÷ ü÷ øýþ þ Bü÷ ýþ U LIST t SKCOUNT NE
BUTFIRST pDEPTH ST ^ 4÷ ÷ þ ÷ üøýpü÷ ýùJ þ if empty(&namedArray(i))ùF þ !þ þ þ
Bü÷ øýþ U NAMEDARRAYLIMIT NE
I TFIRST pMILITARY Ð 4÷ þU T÷ üFFFF÷ ø?kFF÷ øUûamòø óø 8^¯FFFFF÷ øø`kø< ød^¯øû0Æýþ %üF÷ ø?û12ýù þ T÷ üF÷ øøû00_ýþ þ %üF÷ ø?û24ýùÀ þ T÷ üF÷ øøû12_ýþ þ Bü÷ ýþ U TIME12 RAYTIME24 E
ODOMETER p+ 4÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ þ
T÷
üø ýþ
T÷ üø ýþ
T÷ üø ýþ
T÷
üø ýþ T÷ üû ýþ Fø þ Qûodometerþ
T÷ üø ýþ T÷ üF÷ Cýþ %ù¥ þ ü÷ ûsetupýùÁ þ ÷ þ ü÷ ûrollýùÜ þ ÷ þ ü÷ ûaddýùö þ ÷ þ ü÷ ûmenuýùþ ÷ þ ü÷ ûeditýù,þ ÷ þ ü÷ ûcloseýùHþ ÷ þ ü÷ ûdeleteýùeþ ÷ þ ü÷ ûrefreshýùþ ÷ þ þ Qþ Bü÷ ýþ U PARM1 RAYPARM2 E
PARM3 ER pPARM4 RY PARM5 omptPARM6 tionPARM7 FINEPARM8 eratPARM9 tickPARM10 PROARRAY sProXLOC
eYLOC
NELENGTH SEPICTSTRINGI tickEr DODOMETER
HANDLE E PSETOD ckErROLL easeADD 1 tickMENU ETUREDIT dStrCLOSE ****DEL 1 OCEDREFRESHHA þ
T÷ ü÷ ýþ T÷ üFö ýþ %ü÷ øýù0 þ Bþ þ s÷ :ü÷ ýü÷ ýþ ÷ üøýpü÷ ýù þ4 define bar i of arrayMenu prompt dtoc(&array(i))
þ% 1¦÷ ûdeactivate popup arrayMenuþ t÷ þ %üFFµ
ýùì þ T÷ üFpýþ
>÷
zü÷ ýþ þ ÷ þ Bþ U
HANDLE RAYPARM2 E
SUCCESS pGETHANDLE ARRAYDEPTHARRAYMENU XLOC FINEYLOC eratI RM9 tickRECORD NU RECORDNO oFIELDSAY eREFRESHHAN)
T÷ ü÷ ýþ T÷ üFö ýþ ÷ þ Bþ U HANDLE RAYPARM2 E
SUCCESS pGETHANDLE REFRESHOD SETOD ENU e
T÷ ü÷ ýþ
T÷ ü÷ ýþ
T÷ ü÷ ýþ
T÷ ü÷ ýþ
T÷ ü÷ ýþ
T÷
ü÷ ýþ %ü÷
/ýùi þ T÷
üû ýþ þ T÷ üF ÷ ÷ ö
ýþ %ü÷ ø ýù¡ þ
T÷ üøýþ ù¶ þ
T÷ üø ýþ þ %üF,ýùÓ þ
T÷ üøýþ ùñ þ ##þ T÷ ü÷ øýþ þ "þ] >÷ zü÷ ý÷ zü÷ ý÷ zü÷ ý÷ zü÷ ý÷ zü÷ ý÷ zü÷ ý÷ zü÷ ý÷
zü÷ ý÷ zü÷
ýþ ÷ þ Bþ U ARRAY RAYPARM2 E
XLOC SS pPARM4 DLE YLOC SHOD PARM5 ENU MAXENTRIESPARM7 eratLENGTH ickPARM9 NU PICTSTRINGPARM10 Y eARRAYDEPTHDEPTH SERECORD PTHHANDLE r DDHANDLE
ARRAYNAME XLOCATION YLOCATION RECORDNO kMAX RD TURRECORDLEN DBPICT PTHREFRESHOD : , ü÷ øýü÷ øýpü÷ øýü÷ ÷ ý.þ ÷ þ Bþ U XLOC RAYYLOC E
LENGTH pFIELDSAY ROLL SHOD 3
T÷ ü÷ ýþ
T÷ ü÷ ýþ T÷ üFö ýþ %ü÷ ûupýù þ% %ü÷ ÷
ð÷ ÷
ð÷ ø ýù} þ T÷ ü÷ øýþ
>÷ zü÷ ýþ ù þ ÷
þ þ ù!þ %ü÷ ûdownýùî þ %ü÷ øýùÛ þ T÷ ü÷ øýþ
>÷ zü÷ ýþ ùê þ ÷
þ þ ùþ' ÷ züûunderstand commands to rollýþ þ þ ÷ þ Bþ U COMMAND AYPARM2 E
HANDLE pPARM3 AY SUCCESS D GETHANDLE RECORD ESMAX 7 eratARRAYDEPTHRECORDNO BEEPERROR DUNNO ROR FIELDSAY HEDIT SEM
T÷ ü÷ ýþ %ü÷ ø ýù3 þ T÷ üFö ýþ ÷ þ ùB þ ÷ þ þ Bþ U HANDLE AYPARM2 E
RECORD pSUCCESS GETHANDLE FIELDEDIT BEEPERROR ADD 7 erat
T÷ ü÷ ýþ T÷ üFö ýþ %ü÷ ÷
ýùk þ T÷ ü÷ øýþ
T÷ ü÷ ýþ ÷ þ
>÷ zü÷ ýþ
>÷ zü÷ ýþ ùz þ ÷
þ þ Bþ U HANDLE AYPARM2 E
SUCCESS pGETHANDLE ARRAYDEPTHMAXENTRIESRECORD PTHFIELDEDIT DEPTH EPTHRECORDNO HBEEPERROR DEL O ROR ®
T÷ ü÷ ýþ T÷ üFö ýþ %ü÷ ø ýùþ %ü÷ ÷ ýùå þ) &array(record) = &array(arrayDepth)
%üF÷ fûCýù þ &array(arrayDepth) = ""
ùÃ þ# &array(arraydepth) = { / / }
þ T÷ ü÷ øýþ
>÷ zü÷ ýþ ùþ %üF÷ fûCýùþ &array(arrayDepth) = ""
ùIþ# &array(arraydepth) = { / / }
þ T÷ ü÷ øýþ T÷ ü÷ øýþ
>÷ zü÷ ýþ
>÷ zü÷ ýþ þ ùþ ÷ þ þ ÷
þ Bþ U HANDLE AYPARM2 E
SUCCESS pGETHANDLE RECORD PTHARRAYDEPTHARRAY PTHDEPTH EPTHRECORDNO HBEEPERROR FIELDSAY CLOSE ROR x
T÷ ü÷ ýþ T÷ üFö ýþ, ü÷ øýü÷ øý&pü÷ øýü÷ ÷ ýþ Q3ûodometerþ `üFRýþ 3þ Qûodometerþ Bþ U HANDLE AYPARM2 E
SUCCESS pGETHANDLE XLOC D PTHYLOC DEPTHLENGTH PTHODOMETER HFIELDEDIT A Føþ %üF÷ fûCýùF þ T÷ üF÷ \ýþ ü÷ ýü÷ ý<÷ Vü÷ ýþ 9þ ùx þ T÷ üî ýþ ü÷ ýü÷ ý<÷ þ 9þ þ ÷ üøýpü÷ ýù
þ8 if &array(doIt) = tempSpace .and. doIt <> recordùþ0 ÷ züû$Allow you to enter duplicate fields!ýþ ÷
þ Bþ þ þ &array(record) = tempSpace
÷ þ Fø þ Bþ U
G NDLE AYARRAY E
TEMPSPACE LENGTH LE XLOC D PTHYLOC DEPTHPICTSTRINGDOIT PACE ARRAYDEPTHDUNNO ROR FIELDEDIT FIELDSAY I ELDSAY Hª %ü÷ ø ýù þ %üF÷ fûCýùR þ. @xloc,yloc say left(&array[record],length)
ù| þ" @xloc, yloc say &array[record]
þ ù þ ü÷ ýü÷ ýgüF÷ \ýþ þ Bþ U RECORD AYARRAY E
XLOC PACE YLOC H LE LENGTH PTHGETHANDLE ¿ -7ü÷ ÷ ýþ
%üF6
ýùI þ* ÷ züûknow where to find your handleýþ þ þ
T÷ ü÷ ýþ
T÷ ü÷ ýþ
T÷ ü÷ ýþ
T÷ ü÷
ýþ
T÷ ü÷ ýþ
T÷
ü÷ ýþ
T÷ ü÷ ýþ
T÷ ü÷ ýþ Büeýþ U DHANDLE AYHANDLE E
DUNNO ACE ARRAY LE ARRAYNAME XLOC NDLE XLOCATION YLOC PACE YLOCATION RECORD OR RECORDNO MAXENTRIESMAX DSAY HLENGTH Y ERECORDLEN ARRAYDEPTHDEPTH E
PICTSTRINGDBPICT ON ALERT ION Í 4÷ ÷ ÷ ÷ ÷ ÷ ÷ þ T÷ üF÷ Cýþ) s÷ :üøýüøýpüøýüøAýÉüøýÅ.þ sI÷ Éüøýþ %üF÷ CûnullýùÕ þ T÷ üF ÷ ö ýþ s÷
÷ \ü÷ ýüøýüøýþ) 1¦÷
÷ ûDEACTIVATE MENU answerMenuþ þ %üF÷ CûnullýùHþ T÷ üF ÷ ö ýþ s÷ ÷ \ü÷ ýüøýüøýþ) 1¦÷ ÷ ûDEACTIVATE MENU answerMenuþ þ %üF÷ Cûnullýù»þ T÷ üF ÷ ö ýþ s÷ ÷ \ü÷ ýüøýüø ýþ) 1¦÷ ÷ ûDEACTIVATE MENU answerMenuþ þ t÷ þ ÷
z÷ üø ýüø ýþ %üF÷ µ
ýùþ üøýüø
ýgü÷ ýþ þ %üF÷ µ
ýù,þ üøýüø
ýgü÷ ýþ þ %üF÷ µ
ýùUþ üøýüø
ýgü÷ ýþ þ
T÷ üø ýþ xü÷ ø ýù þ tI÷ þ %üFFvµ
ýùþ
T÷ üøýþ þ þ u÷ þ <÷ þ