Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / CITIES.SPR < prev next >

Wrap

Text File | 1992-11-13 | 14.3 KB | 452 lines

DO CASE CASE _WINDOWS * ********************************************************* * * * * 11/13/92 CITIES.SPR 15:18:01 * * * ********************************************************* * * * * Author's Name * * * * Copyright (c) 1992 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.currarea = SELECT() * ********************************************************* * * * * Window definitions * * * ********************************************************* * IF NOT WEXIST("cities") OR WTITLE("CITIES") <> "CITIES" DEFINE WINDOW cities ; AT 3.000, 20.000 ; SIZE 13.385,53.000 ; TITLE "1988 Cities Population" ; FONT "MS Sans Serif", 8 ; STYLE "B" ; FLOAT ; NOCLOSE ; SHADOW ; NOMINIMIZE ; SYSTEM ; COLOR RGB(0,0,0,,,,) ENDIF * ********************************************************* * * * * CITIES Setup Code - SECTION 2 * * * ********************************************************* * #REGION 1 DO SETCITY && in GETLESS.PRG Choice = 1 * ********************************************************* * * * * CITIES Screen Layout * * * ********************************************************* * #REGION 1 IF WVISIBLE("cities") ACTIVATE WINDOW cities SAME ELSE ACTIVATE WINDOW cities NOSHOW ENDIF @ 2.385,22.667 GET cities.state ; SIZE 1.000,24.200 ; DEFAULT " " ; FONT "MS Sans Serif", 8 @ 3.538,22.667 GET cities.pop88 ; SIZE 1.000,20.600 ; DEFAULT 0 ; FONT "MS Sans Serif", 8 @ 4.692,22.667 GET cities.pop80 ; SIZE 1.000,20.600 ; DEFAULT 0 ; FONT "MS Sans Serif", 8 @ 5.846,22.667 GET cities.rank ; SIZE 1.000,9.800 ; DEFAULT " " ; FONT "MS Sans Serif", 8 @ 5.846,13.000 SAY "Rank:" ; SIZE 1.000,5.833, 0.000 ; FONT "MS Sans Serif", 8 ; STYLE "B" @ 2.385,13.000 SAY "State:" ; SIZE 1.000,5.833, 0.000 ; FONT "MS Sans Serif", 8 ; STYLE "B" @ 3.538,5.500 SAY "'88 Population:" ; SIZE 1.000,14.333, 0.000 ; FONT "MS Sans Serif", 8 ; STYLE "B" @ 4.692,5.500 SAY "'80 Population:" ; SIZE 1.000,14.333, 0.000 ; FONT "MS Sans Serif", 8 ; STYLE "B" @ 9.692,3.000 GET Choice ; PICTURE "@*HN Next;Prev;Top;Bottom;Quit" ; SIZE 1.692,7.667,1.000 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "B" ; VALID _qaq0wsnld() @ 1.308,14.500 SAY "City:" ; SIZE 1.000,4.333, 0.000 ; FONT "MS Sans Serif", 8 ; STYLE "B" @ 1.308,22.667 GET cities.city ; SIZE 1.000,24.200 ; DEFAULT " " ; FONT "MS Sans Serif", 8 @ 0.692,3.000 TO 8.384,48.167 ; PEN 1, 8 ; STYLE "24" IF NOT WVISIBLE("cities") ACTIVATE WINDOW cities ENDIF READ CYCLE ; ACTIVATE _qaq0wsovr() ; DEACTIVATE _qaq0wsowc() RELEASE WINDOW cities SELECT (m.currarea) #REGION 0 IF m.talkstat = "ON" SET TALK ON ENDIF IF m.compstat = "ON" SET COMPATIBLE ON ENDIF CASE _DOS * ********************************************************* * * * * 11/13/92 CITIES.SPR 15:18:07 * * * ********************************************************* * * * * Author's Name * * * * Copyright (c) 1992 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.currarea = SELECT() * ********************************************************* * * * * Window definitions * * * ********************************************************* * IF NOT WEXIST("_qaq0wsq53") OR WTITLE("_QAQ0WSQ53") <> "_QAQ0WSQ53" DEFINE WINDOW _qaq0wsq53 ; FROM 3, 20 ; TO 11,71 ; TITLE "1988 Cities Population" ; FLOAT ; NOCLOSE ; SHADOW ; NOMINIMIZE ; SYSTEM ; COLOR SCHEME 10 ENDIF * ********************************************************* * * * * CITIES Setup Code - SECTION 2 * * * ********************************************************* * #REGION 1 DO SETCITY && in GETLESS.PRG Choice = 1 * ********************************************************* * * * * CITIES Screen Layout * * * ********************************************************* * #REGION 1 IF WVISIBLE("_qaq0wsq53") ACTIVATE WINDOW _qaq0wsq53 SAME ELSE ACTIVATE WINDOW _qaq0wsq53 NOSHOW ENDIF @ 1,17 GET cities.state ; SIZE 1,14 ; DEFAULT " " @ 2,17 GET cities.pop88 ; SIZE 1,8 ; DEFAULT 0 @ 3,17 GET cities.pop80 ; SIZE 1,10 ; DEFAULT 0 @ 4,17 GET cities.rank ; SIZE 1,9 ; DEFAULT " " @ 4,11 SAY "Rank:" ; SIZE 1,5, 0 @ 1,10 SAY "State:" ; SIZE 1,6, 0 @ 2,1 SAY "'88 Population:" ; SIZE 1,15, 0 @ 3,1 SAY "'80 Population:" ; SIZE 1,15, 0 @ 6,3 GET Choice ; PICTURE "@*HN Next;Prev;Top;Bottom;Quit" ; SIZE 1,8,1 ; DEFAULT 1 ; VALID _qaq0wsr7c() @ 0,11 SAY "City:" ; SIZE 1,5, 0 @ 0,17 GET cities.city ; SIZE 1,10 ; DEFAULT " " IF NOT WVISIBLE("_qaq0wsq53") ACTIVATE WINDOW _qaq0wsq53 ENDIF READ CYCLE ; ACTIVATE _qaq0wsovr() ; DEACTIVATE _qaq0wsowc() RELEASE WINDOW _qaq0wsq53 SELECT (m.currarea) #REGION 0 IF m.talkstat = "ON" SET TALK ON ENDIF IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDCASE * ********************************************************* * * * * _QAQ0WSNLD Choice VALID * * * * Function Origin: * * * * From Screen: CITIES, Record Number: 10 * * Variable: Choice * * Called By: VALID Clause * * Snippet Number: 1 * * * ********************************************************* * FUNCTION _qaq0wsnld && Choice VALID #REGION 1 SELECT 2 DO CASE CASE Choice = 1 IF RECNO() < RECCOUNT() SKIP ELSE WAIT WINDOW NOWAIT "End of File Encountered" ENDIF CASE Choice = 2 IF RECNO() > 1 SKIP -1 ELSE WAIT WINDOW NOWAIT "Beginning of file encountered" ENDIF CASE Choice = 3 GO TOP CASE Choice = 4 GO BOTTOM CASE Choice = 5 QuitIt = .T. CLEAR READ ENDCASE SHOW GETS RETURN .T. * ********************************************************* * * * * _QAQ0WSOVR Read Level Activate * * * * Function Origin: * * * * From Screen: CITIES * * Called By: READ Statement * * Snippet Number: 2 * * * ********************************************************* * FUNCTION _qaq0wsovr && Read Level Activate * * Activate Code from screen: CITIES * #REGION 1 DO SetCity && In GETLESS.PRG * ********************************************************* * * * * _QAQ0WSOWC Read Level Deactivate * * * * Function Origin: * * * * From Screen: CITIES * * Called By: READ Statement * * Snippet Number: 3 * * * ********************************************************* * FUNCTION _qaq0wsowc && Read Level Deactivate * * Deactivate Code from screen: CITIES * #REGION 1 CLEAR READ RETURN .T. * ********************************************************* * * * * _QAQ0WSR7C Choice VALID * * * * Function Origin: * * * * From Screen: CITIES, Record Number: 25 * * Variable: Choice * * Called By: VALID Clause * * Snippet Number: 4 * * * ********************************************************* * FUNCTION _qaq0wsr7c && Choice VALID #REGION 1 SELECT 2 DO CASE CASE Choice = 1 IF RECNO() < RECCOUNT() SKIP ELSE WAIT WINDOW NOWAIT "End of File Encountered" ENDIF CASE Choice = 2 IF RECNO() > 1 SKIP -1 ELSE WAIT WINDOW NOWAIT "Beginning of file encountered" ENDIF CASE Choice = 3 GO TOP CASE Choice = 4 GO BOTTOM CASE Choice = 5 QuitIt = .T. CLEAR READ ENDCASE SHOW GETS RETURN .T. * ********************************************************* * * * * _QAQ0WSOVR Read Level Activate * * * * Function Origin: * * * * From Screen: CITIES * * Called By: READ Statement * * Snippet Number: 5 * * * ********************************************************* * FUNCTION _qaq0wsovr && Read Level Activate * * Activate Code from screen: CITIES * #REGION 1 DO SetCity && In GETLESS.PRG * ********************************************************* * * * * _QAQ0WSOWC Read Level Deactivate * * * * Function Origin: * * * * From Screen: CITIES * * Called By: READ Statement * * Snippet Number: 6 * * * ********************************************************* * FUNCTION _qaq0wsowc && Read Level Deactivate * * Deactivate Code from screen: CITIES * #REGION 1 CLEAR READ RETURN .T.