Category : Paradox DBMS
Archive   : SVOUTP.ZIP
Filename : TICKER.ACT

 
Output of file : TICKER.ACT contained in archive : SVOUTP.ZIP
;*************************************************************************
; Action Diagram
; Date : 03/03/89
; Time : 10:22:28 pm
;
; System : Paradox3 Toolkit Samples
; File Name : d:\paradox3\sampapp\ticker.sc
; By : Borland International
; Last modified 12/21/88 01:00:02 am
; Copyright (c) 1988 Borland International
;*************************************************************************

1 ; SCRIPT: TICKER.SC
2 ; Version: 3.0
3 ; Date: 04 November 1988
4 ;
5 ;
6 ; TICKER contains the procedures that create a "tickertape" display of
7 ; the stocks in the PRICE table.
8
9 ÚÄÄÄPROC AddChar(s) ; Add the next characters and display ticker
10 ³ PRIVATE l,i
11 ³ l = Len(s) ; Need to know how many character are added to string
12 ³ ÕÍÍÍFOR i FROM 1 TO l ; so that we loop right number of times...
13 ³ ³ Toprint = Substr(Toprint,2, 50) + Substr(s,i,1) ; add char to ticker line
14 ³ ³ @12,15 ?? Toprint ; Ticker string goes on line 12
15 ³ ³ SLEEP Delay ; Short pause, otherwise ticker moves too fast
16 ³ ÀÄÄÄENDFOR
17 ÀÄÄÄENDPROC
18
19 ÚÄÄÄPROC TickerTape()
20 ³ PRIVATE Toprint,x,Delay,BetweenRefresh
21 ³ Toprint = Spaces(80)
22 ³ Delay = 100
23 ³ BetweenRefresh = 5
24 ³ VIEW "price" ; We get ticker info from the PRICE table
25 ³ ÕÍÍÍWHILE (TRUE) ; Loop until user presses character
26 ³ ³ ÕÍÍÍSCAN ; Use SCAN to move through stocks in table
27 ³ ³ ³ ÚÄÄÄIF (Charwaiting()) ; Did user press a key?
28 ³ ³ ³ ³ THEN x = Getchar() ; Yes, so let's see what they typed
29 ³ ³ ³ ³ ÕÍÍÍWHILE (Charwaiting())
30 ³ ³ ³ ³ ³ Y = Getchar()
31 ³ ³ ³ ³ ÀÄÄÄENDWHILE
32 ³ ³ ³ ³ ÚÄÄÄSWITCH
33 ³ ³ ³ ³ ÃÄÄÄÄÄÄÄCASE x = 45: ; a minus was typed
34 ³ ³ ³ ³ ³ Delay = Delay + 50 ; meaning they want the ticker slower
35 ³ ³ ³ ³ ÃÄÄÄÄÄÄÄCASE x = 43: ; a plus was typed
36 ³ ³ ³ ³ ³ Delay = Max(Delay-50,0) ; so make the ticker faster
37 ³ ³ ³ ³ ÃÄÄÄÄÄÄÄOTHERWISE: ; user wants to leave
38 ³ ³ ³ ³ ³ CLEARALL
38 <ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄRETURN ; Clear up the workspace and go back to Main menu
39 ³ ³ ³ ³ ÀÄÄÄENDSWITCH
40 ³ ³ ³ ÀÄÄÄENDIF ; No, so continue SCAN
41 ³ ³ ³ ÚÄÄÄIF (Mod(Recno(),BetweenRefresh) = 1)
42 ³ ³ ³ ³ THEN REFRESH ; Refresh every BetweenRefresh records
43 ³ ³ ³ ÀÄÄÄENDIF
44 ³ ³ ³ AddChar([Ticker] + " " + strval([Price]) + " ") ; Add stock name and price to ticker
45 ³ ³ ÀÄÄÄENDSCAN
46 ³ ÀÄÄÄENDWHILE
47 ÀÄÄÄENDPROC
48
49 ; DoTicker is the controlling procedure and performs a few housekeeping
50 ; chores before calling the routine to display stock information.
51
52 ÚÄÄÄPROC CLOSED DoTicker()
53 ³ CLEAR ; PAL canvas needs to be cleared for ticker
54 ³ CURSOR OFF ; Cursor not needed in this subsystem, so turn it off
55 ³ PAINTCANVAS ATTRIBUTE 0 12,14,14,70 ; for Shadow Box
56 ³ PAINTCANVAS FILL (" ") 12,13,13,67 ; clear window
57 ³ PAINTCANVAS BORDER FILL(" ") ATTRIBUTE 78 11,12,13,68 ; for frame
58 ³ TickerTape() ; and start the tape...
59 ³ CLEAR ; Get ticker off display before going back to Main menu
60 ÀÄÄÄENDPROC


  3 Responses to “Category : Paradox DBMS
Archive   : SVOUTP.ZIP
Filename : TICKER.ACT

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/