home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
rbsrc
/
rb-util.scr
< prev
next >
Wrap
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 ;