Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : WINDEM.ZIP
Filename : MAKE_SCR.PRG

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º º
* º Program name: MAKE_SCR.PRG º
* º º
* º Copyright: Communication Resource Mgt System º
* º º
* º Purpose: Creates all screens for demo º
* º º
* º Language: FoxPro º
* º Author: Thomas D. Meeks º
* º º
* º Date Created: 07/12/91 º
* º Time Created: 22:25:00 º
* º º
* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
* º º
* º NOTE: This program uses modules that are part of the SoftCode º
* º screen & code generator by Software Bottling Company. º
* º They are: º
* º º
* º Display.com º
* º Sendcmd.com º
* º º
* º º
* º As soon as I have a chance to see FoxPro 2.0's screen º
* º writer I will try to convert the code to use that output. º
* º º
* º º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

SET SCOREBOARD OFF
SET STATUS OFF
SET TALK OFF
SET ECHO OFF
SET SAFETY OFF

SET COLOR TO W+/N
CLEAR

! DISPLAY
LOAD SENDCMD.COM

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º SAVE SCREENS º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

scrn_max = 2

PUBLIC scrn_num(scrn_max)

scrn_num(01) = 'DEMO_01'
scrn_num(02) = 'DEMO_11'

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º SAVE WINDOWS ***** º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

pop_max = 4

PUBLIC pop_scrn(pop_max)

pop_scrn(01) = 'DEMO_02'
pop_scrn(02) = 'DEMO_03'
pop_scrn(03) = 'DEMO_04'
pop_scrn(04) = 'DEMO_12'

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º Create regular screens º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

FOR n = 1 to scrn_max

scrn_call = '~X:D='+scrn_num(n)+'/'
scrn_file = scrn_num(n)+'.mem'

CALL SENDCMD WITH scrn_call

SET COLOR TO N/BG
@ 24,0 SAY PADR(' Press PgDn and PgUp to Flip between screens... to see window build',80,' ')

SAVE SCREEN TO demo_scrn
SAVE TO &scrn_file ALL LIKE demo_scrn

ENDFOR

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º Create window screens º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

SET COLOR TO W+/N
CLEAR


FOR n = 1 to pop_max

scrn_call = '~X:D='+pop_scrn(n)+'/'
scrn_file = pop_scrn(n)+'.mem'

CALL SENDCMD WITH scrn_call

SET COLOR TO N/BG
@ 24,0 SAY PADR(' Press PgDn and PgUp to rotate through window build... exits',80,' ')

SAVE SCREEN TO demo_wind
SAVE TO &scrn_file ALL LIKE demo_wind

ENDFOR

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º PLAY BACK PRIMARY SCREENS º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

a = 0

n = 1
DO WHILE a # 27

scrn_file = scrn_num(n)+'.mem'

RESTORE FROM &scrn_file ADDITIVE
RESTORE SCREEN FROM demo_scrn

A = INKEY(0)

DO CASE

CASE A = 18

n = MAX(n-1,1)

CASE a = 3

n = MIN(n+1,scrn_max)

ENDCASE


ENDDO

*
* ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
* º PLAY BACK WINDOW SCREENS º
* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
*

a = 0
n = 1

DO WHILE a # 27

scrn_file = pop_scrn(n)+'.mem'

RESTORE FROM &scrn_file ADDITIVE
RESTORE SCREEN FROM demo_wind

A = INKEY(0)

DO CASE

CASE A = 18

n = MAX(n-1,1)

CASE a = 3

n = MIN(n+1,pop_max)

ENDCASE

ENDDO

RELEASE MODULE SENDCMD.COM
! DISPLAY U

RETURN