home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
animate
/
animate.prg
Wrap
Text File
|
1986-05-09
|
3KB
|
84 lines
*
* the stop column variable September 6, 1985
* added in this version
* Updated and converted
* to dBASE III by
*
* can be compiled
* with "Clipper"
*
* Peter A. Andres dBASE III version
* (201) 852-6301
*
* with thanks to
* Michael Cohn dBASE II version
* (301) 987-5914
* or
* BHEC RCPM (eves/wknds)
* (301) 661-4447
*
*
* This is a routine to animate a character string
* across any line of a screen using dBASE III
* It may be useful during a sign-on routine
* displaying the copyright, or some such...
*
* This module can be run as a stand-alone demo
* as is. Just type DO ANIDB3
*
* To call this routine from another
* dBASE III command file, delete the first
* "accept" statement, and the first "input"
* statement in this file.
*
* INSTRUCTIONS FOR USE:
*
* add these lines to your main.prg file:
*
* STORE "WHATEVER CHR STRING, ETC." TO anline
*
* STORE 12 TO mline * (or whatever line
* * number you want
* * the animation to
* * appear on)
*
* STORE 40 TO scol * (or whatever column
* * number you want
* * the animation to
* * stop at)
*
* DO animate
*
CLEAR
SET TALK OFF
ACCEPT "What character string do you want to animate? " TO anline
CLEAR
INPUT "Which line (1-23) do you want to animate on? " TO mline
CLEAR
INPUT "Which column (1-80) do you want to stop at? " TO scol
CLEAR
*
*=========================> To use as a sub-routine or sub-program
* > delete or comment out all previous
* > commands and use the instructions
* > at the top. To run as a standalone
*=========================> demo just DO ANIDB3
*
STORE LEN(anline) TO mlen
STORE mlen TO mstart
DO WHILE mstart > 0
@ mline-1,0 SAY SUBSTR(anline,mstart)
STORE mstart - 1 TO mstart
ENDDO
STORE " " TO mspace
STORE 1 TO mcount
DO WHILE mcount < scol
IF mcount > scol-mlen
EXIT
ENDIF
@ mline-1,0 SAY mspace + SUBSTR(anline,1,mlen)
STORE mspace + " " TO mspace
STORE mcount + 1 TO mcount
ENDDO
RETURN
O°T|]:`ƒ╥ƒ¿τíRL∞¢█oσ▌±ô_ä÷╘+Ñæ"ßçX ½V┬ÿÜ2É[∩!orⁿ▌±ô_ä≈╙Ñï╡=9@J╩>╬²┼óα;sⁿ▌±ô_ä≈ô?m5y9░ ÿ[Y\Ñå∙J▒9╤ó╟▀²?∙Ex?;Æ╛2░j0¼■∩α╘&ö-zⁿ▌±ô_ä ╖jg▒é3á δq█╖╡║Aâ√2N-zⁿ▌±ô_ä"K╬σhë┬ ,ƒg┌┼a└│/π╘ó╟▀²?∙E(▓°1ªA rWPY.·√2N-zⁿ▌±ô_ä"Kc"æ╦Fαe╝% `