Turbo Toolbox/Turbo_Toolbox.iso/dtx9202/clipper/menue.prg

Text File | 1992-01-09 | 3.4 KB | 89 lines

Set Scoreboard Off
Set Talk Off
Set Status Off
Clear
Set Color To W/B
@0,0 Say '┌──────────────────────────────────────────────────────────────────────────────┐'
@1,0 SAY '│                                                                              │'
@2,0 Say '│                                                                              │'
@3,0 Say '╞══════════════════════════════════════════════════════════════════════════════╡'
@4,0 Say '│                               Jahresinhaltsverzeichnis der Zeitschriften     │'
@5,0 Say '│     '
Set Color To B/W
@5,6 Say ' A U S W A H L ! !  '
Set Color To W/B
@5,26 Say '      PASCAL und TOOLBOX (Alle Jahrgänge)            │'
@6,0 Say '│     '
Set Color To B/W
@6,6 Say '────────────────────▒'
Set Color To W/B
@6,27 Say '                                                    │'
@7,0 Say '│     '
Set Color To B/W
@7,6 Say '( 1 ) Laden         ▒'
Set Color To W/B
@7,27 Say '                                                    │'
@8,0 Say '│     '
Set Color To B/W
@8,6 Say '( 2 ) Blättern      ▒'
Set Color To W/B
@8,27 Say '                                                    │'
@9,0 Say '│     '
Set Color To B/W
@9,6 Say '( 3 ) Edit Maske    ▒'
Set Color To W/B
@9,27 Say '                                                    │'
@10,0 Say '│     '
Set Color To B/W
@10,6 Say '( 4 ) Index         ▒'
Set Color To W/B
@10,27 Say '                                                    │'
@11,0 Say '│     '
Set Color To B/W
@11,6 Say '( 5 ) Suchen        ▒'
Set Color To W/B
@11,27 Say '                                                    │'
@12,0 Say '│     '
Set Color To B/W
@12,6 Say '( 6 ) Ende.         ▒'
Set Color To W/B
@12,27 Say '                                                    │'
@13,0 Say '│     '
Set Color To B/W
@13,6 Say '( 7 ) .....         ▒'
Set Color To W/B
@13,27 Say '                                                    │'
@14,0 Say '│     '
Set Color To B/W
@14,6 Say '( 8 ) .....         ▒'
Set Color To W/B
@14,27 Say '                                                    │'
@15,0 Say '│     '
Set Color To B/W
@15,6 Say '( 9 ) .....         ▒'
Set Color To W/B
@15,27 Say '                                                    │'
@16,0 Say '│      '
Set Color To B/W
@16,7 Say '▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒'
Set Color To W/B
@16,27 Say '                                                    │'
@17,0 Say '│                                                                              │'
@18,0 Say '│                                                                              │'
@19,0 Say '│                                                                              │'
@20,0 Say '│                                                                              │'
@21,0 Say '╞══════════════════════════════════════════════════════════════════════════════╡'
@22,0 Say '│    Menüauswahl:     ─ ─    Bestätigung: ─┘   Programmende:[Esc] - Taste      │'
@23,0 Say '│    1-9=Hauptteil                                                             │'
@24,0 Say '└──────────────────────────────────────────────────────────────────────────────┘'
PFEILE=CHR(24)+chr(32)+CHR(25)
RETURN=CHR(17)
@ 22,22 SAY PFEILE
@ 22,41 SAY RETURN
SET COLOR TO W+/B
DO ZENT WITH 1,"*** (C) 1992 Volker Vogeley und DMV Verlag, Postfach 250, 3440 Eschwege  ***"
DO zent with 2,"*******   Browser 1.0   *******"
Read
Set Color to