* ********************************************************* * * * * 05/17/2005 JSDIR.SPR 10:51:07 * * * ********************************************************* * * * * Author's Name * * * * Copyright (c) 2005 Company Name * * Address * * City, Zip * * * * Description: * * This program was automatically generated by GENSCRN. * * * ********************************************************* #REGION 0 REGIONAL m.currarea, m.talkstat, m.compstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() * ********************************************************* * * * * Windows Window definitions * * * ********************************************************* * IF NOT WEXIST("_1is22p7a3") DEFINE WINDOW _1is22p7a3 ; AT 0.000, 0.000 ; SIZE 19.692,96.400 ; TITLE "Enter Driving Directions" ; FONT "MS Sans Serif", 8 ; NOFLOAT ; NOCLOSE ; NOMINIMIZE ; SYSTEM ; FILL FILE LOCFILE("WHDMARB.BMP","BMP|ICO|PCT|ICN", ; "Where is whdmarb?") MOVE WINDOW _1is22p7a3 CENTER ENDIF * ********************************************************* * * * * JSDIR/Windows Setup Code - SECTION 2 * * * ********************************************************* * #REGION 1 parameters lccu_id, lcjs_id,lcaddr,lccity,lcstate,lczip lchdr = ""