home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / forth / forthed.arc / SAVE-SYS.SCR < prev    next >
Text File  |  1987-09-14  |  2KB  |  1 lines
  1. \ SAVE-SYS.SCR                                 11:30 14Sep87 GmK                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ SAVE-SYS                                     11:31 14Sep87 GmK FORTH DEFINITIONS  DECIMAL ( Update boot-up literals  )         LATEST       8 +ORIGIN !   ( top NFA )                          HERE        22 +ORIGIN !   ( FENCE )                            HERE        24 +ORIGIN !   ( DP )                               VOC-LINK @  26 +ORIGIN !   ( vocabulary list )                                                                                  : SAVE-SYS ( -- ) DOS-FILES  USING                                         0 CS@ MSG0 @ +  FIRST CS@ B/BUF 3 * CMOVEL ( MSG's )            DEFAULT-FILE  "100  FIRST B/BUF 3 * + "100 -  WRITE             dos-err# @ ABORT" Can't write file!"                            DEFAULT-FILE CLOSE-FILE ;                                                                                           CR .( If needed, place a DOS diskette in the appropriate drive.)CR                                                              CR .( Type:  SAVE-SYS [drive][path]file-name.COM )