home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / rbsrc / rb-main.scr < prev    next >
Text File  |  1988-05-01  |  14KB  |  1 lines
  1.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \ Load Screen                                    15:22 04/14/88                                                                                                                                 2 13 THRU                                                       ' NOOP vIDENT !                                                 TURNKEY MAINMENU RB                                             MAINMENU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \ Variables                                      17:01 03/24/88                                                                 04 07 05 20 WINDOW BACKW                                        05 10 05 20 WINDOW MAINW                                        07 15 03 14 WINDOW MODEW                                        0  0  24 79 WINDOW SAVEW          \ this defines the full scr   05 07 3 25 WINDOW EXITW                                                                                                         INCLUDE FILES.DEF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               \ Variables                                      18:02 04/13/88                                                                 : MNSTR   " Forms        Views        Reports      Utilities    " ;                                                                                                                             MNSTR 4 13 13 CHOICE MAINC                                                                                                      : MODES  " Use       Maintain  " ;                                                                                              MODES 2 10 10 CHOICE MODEC                                                                                                                                                                                                                                                                                                                                                                                                                                      \ Title Line                                     17:14 03/24/88                                                                                                                                 : TLINES       PAD 80 BLANK                                                    0 24 FULLW REV 80 PAD WND-STR!                                  PAD 80 196 FILL                                                 0 0  FULLW REV 80 PAD WND-STR!                                  2 00 FULLW REV " R a z o r B a c k" WND-CSTR!                  30 00 FULLW REV " Series" WND-CSTR!                             37 00 FULLW REV SERIES 0 <# #S #> SWAP WND-STR!                 62 00 FULLW REV " Serial:" WND-CSTR!                            72 00 FULLW REV SERIAL# @ 0 <# # # # # # #> SWAP                                WND-STR!                                         2 24 FULLW REV " Far Side Research" WND-CSTR!                  60 24 FULLW REV SHOW-DATE ;                                                                                       \ @mode                                          15:42 04/13/88                                                                                                                                 : @MODE      ( taddr --- result )                                            NONE DOUBLE MODEW OPEN-WINDOW                                   MODEW MODEC CHOOSE                                              MODEW CLOSE-WINDOW ;                                                                                                                                                               : DRAW-WND  176 FULLW WND-FILL                                              TLINES ;                                                                                                                                                                            : STARTUP   " RBSTART" BRUN RBSTART                                         FORGET OVERLAY ;                                                                                                    \ forms                                          15:45 04/13/88                                                                 : FORMS     " Forms" @MODE                                                  CASE                                                              1 OF " Use Forms" @ACTIVES ?DUP                                      IF 1- @FORM THEN ENDOF                                     2 OF FORM-MAINT ENDOF                                         ENDCASE ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           \ views                                          15:45 04/13/88                                                                                                                                                                                                 : VIEWS     " Views" @MODE                                                  CASE                                                              1 OF " Use Views" @ACTIVES ?DUP                                      IF 1- .VIEW THEN ENDOF                                     2 OF EDT-VIEW ENDOF                                           ENDCASE ;                                                                                                                                                                                                                                                                                                                                                                                                                                           \ report                                         15:45 04/13/88                                                                                                                                                                                                 : REPORT    " Report" @MODE                                                 CASE                                                              1 OF " Use Reports" @ACTIVES ?DUP                                    IF 1- REPORTS THEN ENDOF                                   2 OF EDT-REPORTS ENDOF                                        ENDCASE ;                                                                                                                                                                                                                                                                                                                                                                                                                                           \ exit-sys                                       16:19 04/14/88                                                                                                                                 : EXIT-SYS       " Go BYE-BYE" NONE SINGLE EXITW OPEN-WINDOW                     2 2 EXITW NOR " Exit to DOS ?" WND-CSTR!                       18 2 EXITW 0 ?YES/NO NIP                                        EXITW CLOSE-WINDOW                                              IF LCMAIN.DCT CLOSE-DICTIONARY                                     WND.BUFF FREE CLS 0 RETURN                                   THEN ;                                                                                                                                                                                                                                                                                                                                                                                                                                          \ utilities                                      10:35 04/18/88                                                                 7 15 4 22 WINDOW UTILW                                                                                                          : UTILS    " System defaults     Reindex a database  Database report     " ;                                                                                                                    UTILS 3 20 20 CHOICE UTILC                                                                                                                                                                      : @SYSDEFS   " RBEDEFS" BRUN RBEDEFS                                         FORGET OVERLAY ;                                                                                                                                                                   : REINDEX    " RBRIDX" BRUN RBRIDX                                           FORGET OVERLAY  ;                                  \ @utils                                         10:31 04/18/88                                                                 : DBREPT   NOOP ;                                                                                                                                                                               : UTILITIES " Utilities" NONE DOUBLE UTILW OPEN-WINDOW                      UTILW UTILC CHOOSE                                              UTILW CLOSE-WINDOW                                              CASE                                                              1 OF @SYSDEFS ENDOF                                             2 OF REINDEX  ENDOF                                             3 OF DBREPT   ENDOF                                           ENDCASE  ;                                                                                                                                                                                                                                          \ main-help                                      15:53 04/21/88                                                                                                                                                                                                 : mkey     PCKEY ?DUP DROP                                                 DUP 59 = IF DROP 1 HELP 80 THEN ;                                                                                                                                                    : MCHOOSE  ( --- ret )                                                     'CHOOSE-INP @ ['] mkey !CHOOSE-INP                               -CUR MAINW MAINC CHOOSE +CUR                                   SWAP !CHOOSE-INP ;                                                                                                                                                                                                                                                                                                   \ Main Menu                                      17:06 03/24/88                                                                 : MAINMENU      SCR-INIT                                                        SYSTEM-INIT DRAW-WND STARTUP                           BEGIN    " Main Menu" MENUL SINGLE MAINW OPEN-WINDOW                     MCHOOSE                                                         MAINW CLOSE-WINDOW SAVEW PUSH-WINDOW                            CASE                                                              0 OF EXIT-SYS  ENDOF                                            1 OF FORMS     ENDOF                                            2 OF VIEWS     ENDOF                                            3 OF REPORT    ENDOF                                            4 OF UTILITIES ENDOF                                          ENDCASE                                                         SAVEW POP-WINDOW                                       AGAIN ;