Beijing Paradise BBS Backup

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

/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / GEN3D2.ZIP / SAMPL23D.SPR < prev next >

Wrap

Text File | 1995-02-01 | 8.9 KB | 330 lines

* ╓─────────────────────────────────────────────────────────╖ * ║ ║ * ║ 02/01/95 SAMPL23D.SPR 17:27:50 ║ * ║ ║ * ╟─────────────────────────────────────────────────────────╢ * ║ ║ * ║ Author's Name ║ * ║ ║ * ║ Copyright (c) 1995 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() * ╓─────────────────────────────────────────────────────────╖ * ║ ║ * ║ MS-DOS Window definitions ║ * ║ ║ * ╙─────────────────────────────────────────────────────────╜ * IF NOT WEXIST("_qxd11fivd") DEFINE WINDOW _qxd11fivd ; FROM INT((SROW()-24)/2),INT((SCOL()-78)/2) ; TO INT((SROW()-24)/2)+23,INT((SCOL()-78)/2)+77 ; NOFLOAT ; NOCLOSE ; SHADOW ; NOMINIMIZE ; PANEL ; COLOR SCHEME 10 ENDIF * ╓─────────────────────────────────────────────────────────╖ * ║ ║ * ║ SAMPL23D/MS-DOS Screen Layout ║ * ║ ║ * ╙─────────────────────────────────────────────────────────╜ * #REGION 1 IF WVISIBLE("_qxd11fivd") ACTIVATE WINDOW _qxd11fivd SAME ELSE ACTIVATE WINDOW _qxd11fivd NOSHOW ENDIF @ 0,0 TO 16,74 DOUBLE *Code For 3D Environment IF _DOS @ 0,0 SAY "╔═════════════════════════════════════════════════════════════════════════" COLOR N/BG @ 0,74 SAY "╗" COLOR W+/BG @ 1,0 SAY "║" COLOR N/BG @ 2,0 SAY "║" COLOR N/BG @ 3,0 SAY "║" COLOR N/BG @ 4,0 SAY "║" COLOR N/BG @ 5,0 SAY "║" COLOR N/BG @ 6,0 SAY "║" COLOR N/BG @ 7,0 SAY "║" COLOR N/BG @ 8,0 SAY "║" COLOR N/BG @ 9,0 SAY "║" COLOR N/BG @ 10,0 SAY "║" COLOR N/BG @ 11,0 SAY "║" COLOR N/BG @ 12,0 SAY "║" COLOR N/BG @ 13,0 SAY "║" COLOR N/BG @ 14,0 SAY "║" COLOR N/BG @ 15,0 SAY "║" COLOR N/BG @ 1,74 SAY "║" COLOR W+/BG @ 2,74 SAY "║" COLOR W+/BG @ 3,74 SAY "║" COLOR W+/BG @ 4,74 SAY "║" COLOR W+/BG @ 5,74 SAY "║" COLOR W+/BG @ 6,74 SAY "║" COLOR W+/BG @ 7,74 SAY "║" COLOR W+/BG @ 8,74 SAY "║" COLOR W+/BG @ 9,74 SAY "║" COLOR W+/BG @ 10,74 SAY "║" COLOR W+/BG @ 11,74 SAY "║" COLOR W+/BG @ 12,74 SAY "║" COLOR W+/BG @ 13,74 SAY "║" COLOR W+/BG @ 14,74 SAY "║" COLOR W+/BG @ 15,74 SAY "║" COLOR W+/BG @ 16,0 SAY "╚" COLOR N/BG @ 16,1 SAY "═════════════════════════════════════════════════════════════════════════╝" COLOR W+/BG ENDIF *Code For 3D Environment @ 11,4 GET lc_choose ; PICTURE "@*RVN View Cost;View Price;Quit" ; SIZE 1,14,0 ; DEFAULT 1 *Code For 3D Environment IF _DOS @ 10,3 SAY "┌──────────────" COLOR W+/BG @ 10,18 SAY "┐" COLOR N/BG @ 11,3 SAY "│" COLOR W+/BG @ 12,3 SAY "│" COLOR W+/BG @ 13,3 SAY "│" COLOR W+/BG @ 11,18 SAY "│" COLOR N/BG @ 12,18 SAY "│" COLOR N/BG @ 13,18 SAY "│" COLOR N/BG @ 14,3 SAY "└" COLOR W+/BG @ 14,4 SAY "──────────────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 10,22 TO 14,28 DOUBLE *Code For 3D Environment IF _DOS @ 10,22 SAY "╔═════" COLOR N/BG @ 10,28 SAY "╗" COLOR W+/BG @ 11,22 SAY "║" COLOR N/BG @ 12,22 SAY "║" COLOR N/BG @ 13,22 SAY "║" COLOR N/BG @ 11,28 SAY "║" COLOR W+/BG @ 12,28 SAY "║" COLOR W+/BG @ 13,28 SAY "║" COLOR W+/BG @ 14,22 SAY "╚" COLOR N/BG @ 14,23 SAY "═════╝" COLOR W+/BG ENDIF *Code For 3D Environment @ 13,25 SAY "▄" ; SIZE 1,1, 0 @ 12,25 SAY "█" ; SIZE 1,1, 0 @ 11,25 SAY "█" ; SIZE 1,1, 0 @ 9,20 TO 15,72 *Code For 3D Environment IF _DOS @ 9,20 SAY "┌───────────────────────────────────────────────────" COLOR W+/BG @ 9,72 SAY "┐" COLOR N/BG @ 10,20 SAY "│" COLOR W+/BG @ 11,20 SAY "│" COLOR W+/BG @ 12,20 SAY "│" COLOR W+/BG @ 13,20 SAY "│" COLOR W+/BG @ 14,20 SAY "│" COLOR W+/BG @ 10,72 SAY "│" COLOR N/BG @ 11,72 SAY "│" COLOR N/BG @ 12,72 SAY "│" COLOR N/BG @ 13,72 SAY "│" COLOR N/BG @ 14,72 SAY "│" COLOR N/BG @ 15,20 SAY "└" COLOR W+/BG @ 15,21 SAY "───────────────────────────────────────────────────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 2,3 TO 8,72 DOUBLE *Code For 3D Environment IF _DOS @ 2,3 SAY "╔════════════════════════════════════════════════════════════════════" COLOR W+/BG @ 2,72 SAY "╗" COLOR N/BG @ 3,3 SAY "║" COLOR W+/BG @ 4,3 SAY "║" COLOR W+/BG @ 5,3 SAY "║" COLOR W+/BG @ 6,3 SAY "║" COLOR W+/BG @ 7,3 SAY "║" COLOR W+/BG @ 3,72 SAY "║" COLOR N/BG @ 4,72 SAY "║" COLOR N/BG @ 5,72 SAY "║" COLOR N/BG @ 6,72 SAY "║" COLOR N/BG @ 7,72 SAY "║" COLOR N/BG @ 8,3 SAY "╚" COLOR W+/BG @ 8,4 SAY "════════════════════════════════════════════════════════════════════╝" COLOR N/BG ENDIF *Code For 3D Environment @ 3,4 TO 7,11 *Code For 3D Environment IF _DOS @ 3,4 SAY "┌──────" COLOR W+/BG @ 3,11 SAY "┐" COLOR N/BG @ 4,4 SAY "│" COLOR W+/BG @ 5,4 SAY "│" COLOR W+/BG @ 6,4 SAY "│" COLOR W+/BG @ 4,11 SAY "│" COLOR N/BG @ 5,11 SAY "│" COLOR N/BG @ 6,11 SAY "│" COLOR N/BG @ 7,4 SAY "└" COLOR W+/BG @ 7,5 SAY "──────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 5,10 TO 7,20 *Code For 3D Environment IF _DOS @ 5,10 SAY "┌─────────" COLOR W+/BG @ 5,20 SAY "┐" COLOR N/BG @ 6,10 SAY "│" COLOR W+/BG @ 6,20 SAY "│" COLOR N/BG @ 7,10 SAY "└" COLOR W+/BG @ 7,11 SAY "─────────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 3,22 TO 7,29 *Code For 3D Environment IF _DOS @ 3,22 SAY "┌──────" COLOR W+/BG @ 3,29 SAY "┐" COLOR N/BG @ 4,22 SAY "│" COLOR W+/BG @ 5,22 SAY "│" COLOR W+/BG @ 6,22 SAY "│" COLOR W+/BG @ 4,29 SAY "│" COLOR N/BG @ 5,29 SAY "│" COLOR N/BG @ 6,29 SAY "│" COLOR N/BG @ 7,22 SAY "└" COLOR W+/BG @ 7,23 SAY "──────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 3,31 TO 5,35 *Code For 3D Environment IF _DOS @ 3,31 SAY "┌───" COLOR W+/BG @ 3,35 SAY "┐" COLOR N/BG @ 4,31 SAY "│" COLOR W+/BG @ 4,35 SAY "│" COLOR N/BG @ 5,31 SAY "└" COLOR W+/BG @ 5,32 SAY "───┘" COLOR N/BG ENDIF *Code For 3D Environment @ 6,31 TO 7,36 *Code For 3D Environment IF _DOS @ 6,31 SAY "┌────" COLOR W+/BG @ 6,36 SAY "┐" COLOR N/BG @ 7,31 SAY "└" COLOR W+/BG @ 7,32 SAY "────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 3,36 TO 7,46 *Code For 3D Environment IF _DOS @ 3,36 SAY "┌─────────" COLOR W+/BG @ 3,46 SAY "┐" COLOR N/BG @ 4,36 SAY "│" COLOR W+/BG @ 5,36 SAY "│" COLOR W+/BG @ 6,36 SAY "│" COLOR W+/BG @ 4,46 SAY "│" COLOR N/BG @ 5,46 SAY "│" COLOR N/BG @ 6,46 SAY "│" COLOR N/BG @ 7,36 SAY "└" COLOR W+/BG @ 7,37 SAY "─────────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 3,48 TO 5,52 *Code For 3D Environment IF _DOS @ 3,48 SAY "┌───" COLOR W+/BG @ 3,52 SAY "┐" COLOR N/BG @ 4,48 SAY "│" COLOR W+/BG @ 4,52 SAY "│" COLOR N/BG @ 5,48 SAY "└" COLOR W+/BG @ 5,49 SAY "───┘" COLOR N/BG ENDIF *Code For 3D Environment @ 6,52 TO 7,71 *Code For 3D Environment IF _DOS @ 6,52 SAY "┌──────────────────" COLOR W+/BG @ 6,71 SAY "┐" COLOR N/BG @ 7,52 SAY "└" COLOR W+/BG @ 7,53 SAY "──────────────────┘" COLOR N/BG ENDIF *Code For 3D Environment @ 4,55 SAY "What, me worry?" ; SIZE 1,15, 0 *Code For 3D Environment IF _DOS @ 3,54 SAY "╔═══════════════" COLOR W+/BG @ 3,70 SAY "╗" COLOR N/BG @ 4,54 SAY "║" COLOR W+/BG @ 4,70 SAY "║" COLOR N/BG @ 5,54 SAY "╚" COLOR W+/BG @ 5,55 SAY "═══════════════╝" COLOR N/BG ENDIF *Code For 3D Environment @ 12,38 SAY "This is a 2D message!" ; SIZE 1,21, 0 *Code For 3D Environment IF _DOS @ 11,37 SAY "╔═════════════════════" COLOR W+/BG @ 11,59 SAY "╗" COLOR W+/BG @ 12,37 SAY "║" COLOR W+/BG @ 12,59 SAY "║" COLOR W+/BG @ 13,37 SAY "╚" COLOR W+/BG @ 13,38 SAY "═════════════════════╝" COLOR W+/BG ENDIF *Code For 3D Environment *Code For 3D Environment IF _DOS @ 05,11 SAY "┼" COLOR W+/BG @ 06,36 SAY "┤" COLOR N/BG @ 07,10 SAY "┴" COLOR N/BG @ 07,11 SAY "┴" COLOR N/BG @ 07,36 SAY "┴" COLOR W+/BG ENDIF *Code For 3D Environment IF NOT WVISIBLE("_qxd11fivd") ACTIVATE WINDOW _qxd11fivd ENDIF READ CYCLE RELEASE WINDOW _qxd11fivd SELECT (m.currarea) #REGION 0 IF m.talkstat = "ON" SET TALK ON ENDIF IF m.compstat = "ON" SET COMPATIBLE ON ENDIF