home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
compiler
/
vpi1
/
demoload.prg
< prev
next >
Wrap
Text File
|
1991-12-30
|
3KB
|
145 lines
**********************************************************************
* demoload.prg loading subroutine...called by demo
* called by DEMO.PRG (VP-Info Level 1)
* Tue 12-24-1991 15:47:10
* (C) Copyright 1986-1991 Sub Rosa International Inc.
* Sid Bursten and Bernie Melman
**********************************************************************
VARIABLES ANS,CHANGE,COUNT,DATA,DELAY,DELAY2,FIRM,GO_UP,GRAPHICS,I,II,J,JUNK,LASTSET,LIMIT,MACCT,MACCT2,MDATE,MENUCH2,MENUCHOICE,MENUSET,OFFSET,OK,RDATE,ROW1,SCR,SIGNAL,TEMPFILE,TEXTFILE,TIME
ON error
SCREEN 1
WINDOW
:color=7
COLOR 7 0 0 24 79
? 'Execution terminated on error:',:message
CANCEL
ENDON
IF type(:serial)<>'N'
:serial=:color
ENDIF
pause=t
cycle=0
signal=0
SET escape on
set echo off
set date to 'yymmdd'
:PICTURE='99999'
SET library to demo
SET width to 80
WINDOW
IF :company=' '
:company='D&G Hardware'
ENDIF
SCREEN 1,2
SCREEN 2
:color=112
CLS
COLOR 112,0,0,24,79
IF .not. ropen('DEMO.TXT')
? 'DEMO.TXT not found'
CANCEL
ENDIF
repeating=f
thisyr=left(date(1),2)
textfile=1
tempfile='demotemp'
texts[1]='demo.txt'
texts[2]='new.txt'
COPY file democust to demotemp
ERASE
cycle=0
SET execute off
if :color<>7
graph='Y'
ENDIF
IF type(graph)<>"C"
graph='Y'
TEXT .1
ON field
FIELD graph
IF @(graph,'YN')=0
:field=field(graph)
ELSE
:field=65
ENDIF
ENDON
@ 5,5 say cen(:company,70)
BOX 2,2,22,77 double
SCREEN 2,1
SCREEN 1
READ
ENDIF
IF graph="Y"
graphics=t
ELSE
graphics=f
ENDIF
IF graphics
bold=48
blue= 49
ruby=52
magenta=53
gold=49
black=58
lightblue=52 ; was 57
red=59
yellow=62
white=63
light=8
ELSE
bold=112
blue=112
ruby=112
magenta=112
gold=112
black=112
lightblue=112
red=112
yellow=112
white=112
light=112
ENDIF
d[1]=blue
d[2]=bold
d[3]=ruby
d[4]=gold
b2[1]=bold
b2[2]=blue
b2[3]=ruby
b2[4]=gold
b2[5]=black
b2[6]=red
b2[7]=lightblue
b2[8]=white
b2[9]=yellow
b2[10]=magenta
b2[11]=ruby
flash[1]=' 1. Multi-file report generator'
flash[2]=' 2. Full screen editor '
flash[3]=' 3. Multi-dimensional arrays '
flash[4]=' 4. Relations including multiple child relationships'
flash[5]=' 5. Process any DOS or sequential text file'
flash[6]=' 6. List processing'
flash[7]=' 7. Input screen painting within the program'
flash[8]=' 8. Error reports for UPDATE and POST'
flash[9]=' 9. Fully automatic database reconfiguration'
flash[10]=' 10. Date formatting and calculation'
menus[1,1]=39
menus[2,1]=40
menus[3,1]=41
menus[4,1]=42
menus[1,2]=5
menus[2,2]=7
menus[3,2]=3
menus[4,2]=9
SCREEN 2
COLOR light,0,0,24,79
SELECT 1
USE#1 democust
USE#2 demoinv
USE#3 demogl index demogl1
USE#4 demotrn index demotrn1
RETURN
*
* *** end of program demoload.prg