Power-Programmierung/CD1.mdf/forth/rbsrc/rb-util.scr

Text File | 1988-04-22 | 8KB | 1 lines

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ Build Screen                                   10:25 04/18/88                                                                 : MARKER ;                                                      2 7 THRU 2 7 THRU                                               BSAVE OVERLAY RBEDEFS                                           FORGET MARKER                                                   BYE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             \ variables                                      09:35 04/18/88                                                                 FORTH DEFINITIONS DECIMAL                                       BSTART OVERLAY                                                                                                                  7 15 06 50 WINDOW CNFW                                                                                                                                                                          CREATE  INP.PAD  40 ALLOT                                                                                                                                                                       : ?BLANK   0 30 0 ?DO INP.PAD I + C@ 32 <> IF DROP -1 LEAVE THEN                   LOOP ;                                                                                                                                                                                                                                       \ @dir                                           09:12 04/18/88                                                                 HCB SEARCH                         HCB WILD                                                                                     : @DIR   INP.PAD 30 BLANK                                                0 30 0 DO SYS.DATA 30 + I - C@ ASCII \ =                                IF DROP I LEAVE THEN LOOP 30 SWAP -                     SYS.DATA SWAP INP.PAD SWAP CMOVE                                0 BEGIN DROP                                                       18 2 CNFW INP.PAD 30 @STRING                                    ?BLANK IF INP.PAD 30 STRPCK WILD NAME>HCB                       WILD SEARCH 22 FFIRSTF 0= ELSE -1 THEN                         UNTIL                                                         30 0 DO INP.PAD 29 + I - C@ 32 <>                                       IF ASCII \ INP.PAD 30 + I - C! LEAVE THEN LOOP          INP.PAD SYS.DATA 30 CMOVE ;                            \ @state                                         09:35 04/18/88                                                                 : STATES    " ALAKAZARCACOCTDEDCFLGAGUHIIDILINIAKSKYLAMEMDMAMIMNMSMOMTNENVNHNJNMNYNCNDOHOKORPAPRRISCSDTNTXUTVTVAVIWAWVWIWY" ;                                                                   : @STATE   ( --- ret_code )                                              0 BEGIN DROP                                                        18 3 CNFW SYS.STATE 2 @STRING                                    STATES COUNT                                                    SYS.STATE 2 STRNDX -1 <>                                     UNTIL ;                                                                                                                                                                                                                                                                                                                                                                              \ @case & @del                                   10:25 04/18/88                                                                                                                                 : @CASE    18 4 CNFW ?CASE ?YES/NO SYS.CNTL @ 0 ROT                        IF +BIT ELSE -BIT THEN SYS.CNTL ! ;                                                                                                                                                                                                                  : @DEL     18 5 CNFW ?DEL ?YES/NO SYS.CNTL @ 1 ROT                         IF +BIT ELSE -BIT THEN SYS.CNTL ! ;                                                                                                                                                                                                                                                                                                                                                                                                                  \ .titles                                        09:14 04/18/88                                                                                                                                 : .TITLES    2 2 CNFW NOR " Data Directory:" WND-CSTR!                       2 3 CNFW NOR " Default State :" WND-CSTR!                       2 4 CNFW NOR " Ignore Case   :" WND-CSTR!                       2 5 CNFW NOR " Confirm Delete:" WND-CSTR! ;                                                                                                                                        : .DATA     18 3 CNFW HIL 2 SYS.STATE WND-STR!                              18 4 CNFW HIL 3 ?CASE ABS 3 * " No Yes" 1+ +                    WND-STR!                                                        18 5 CNFW HIL 3 ?DEL ABS 3 * " No Yes" 1+ +                     WND-STR! ;                                                                                                                                                                          \ rbedefs                                        09:13 04/18/88                                                                 CREATE iVECS ] @DIR @STATE @CASE @DEL [                         4 ' NOOP iVECS INP-DEF UTILI                                                                                                    : RBEDEFS     " System Defaults" EDITL SINGLE CNFW OPEN-WINDOW                .TITLES .DATA                                                   UTILI 0 @SCREEN                                                 IF                                                               SYS.BLK 2 FOPEN DROP                                            SYS.BLK SYS.BLOCK 256 FWRITE DROP                               SYS.BLK FCLOSE DROP                                            THEN SYSTEM-INIT                                                CNFW CLOSE-WINDOW ;