\ Information                                                                                                                   This file contains former DX-Forth words that are obsolete      or no longer present in the kernel.                                                                                             Should an old DX-Forth source file fail to load due to          obsolete words, then type  1 FLOAD OBSOLETE  before loading     your application.                                                                                                               See OBSOLETE.TXT for further information                                                                                                                                                                                                                                                                                                                                                                                                                        \ Load screen                                                   forth definitions  decimal  application                                                                                         cr .( Loading obsolete DX-Forth words )                                                                                         marker -OBSOLETE                                                                                                                2 #screens 1- thru                                                                                                              freeze                                                                                                                                                                                                                                                                                                                                                                                                                                                          \                                                               : STRING+  2swap +string ;                                      aka +EXT +FILENAME   aka -EXT -FILENAME   aka LOADFILE FNAME    aka LOADFILE FILENAME   aka CSEG DSEG   aka REMEMBER +PRUNE     aka +PRUNE PRUNES   aka GET-XY AT-XY?   aka GET-WINDOW WINDOW?  aka 'AX regAX   aka 'BX regBX   aka 'CX regCX   aka 'DX regDX   aka 'BP regBP   aka 'SI regSI   aka 'DI regDI   aka 'DS regDS   aka 'ES regES   aka 'FLAGS regFLAGS                             aka 'SOURCE (SOURCE)  aka FYI MAP  aka BEHEAD EXCISE            aka CATCHER HANDLER  aka PROTECT FREEZE  aka PACK PACKED        aka /PARSE PARSE$                                               code BDOS ( DX x -- AL )  ax pop  dx pop  bx bx sub  cx cx sub    al ah xchg  $21 int  ah ah sub  1push  end-code                                                                                                                                                                                                               \ ?PAIRS                                                        system                                                          : ?PAIRS ( n1 n2 -- )  - ABORT" conditionals not paired" ;      application                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     \ L: L# #) S) #S) JP JNP                                        [defined] assembler [if]                                        assembler definitions                                                                                                           \ aka $: L:  aka $ L#                                                                                                           aka ) #)  aka [] S)  aka [] #S)                                                                                                 aka JPE JP  aka JPO JNP                                                                                                         forth definitions                                               [then]                                                                                                                                                                                                                                                                                                                          \ INVERSE BOLD BRIGHT                                                                                                           : INVERSE  ( -- )  [ color-table 1+ ] literal c@  attrib c! ;   : BOLD     ( -- )  [ color-table 2+ ] literal c@  attrib c! ;   : BRIGHT   ( -- )  [ color-table 3 + ] literal c@  attrib c! ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  \ Simple locals                                                 system                                                                                                                          : local  ( "name" )                                               sys @  system  ['] noop  value  immediate  sys !                does>  @  state @ if  compile,  else  execute  then ;                                                                         application                                                                                                                     local %1  local %2  local %3  local %4                          local %5  local %6  local %7  local %8                                                                                          behead local local