expand86.blk

\               The Rest is Silence                   04Apr84map*************************************************************   *************************************************************   ***                                                       ***   ***    Please direct all questions, comments, and         ***   ***    miscellaneous personal abuse to:                   ***   ***                                                       ***   ***    Henry Laxen          or    Michael Perry           ***   ***    1259 Cornell Avenue        1125 Bancroft Way       ***   ***    Berkeley, California       Berkeley, California    ***   ***    94706                      94702                   ***   ***                                                       ***   *************************************************************   *************************************************************                                                                                                                                   \ Expand the Huffman encoded files for F83            01MAY84HHLFROM HUFFMAN.BLK OK                                             : PROMPT   (S -- )                                                 CR ." To expand your F83 system, make sure this disk"           CR ." is in drive A: and that an empty, formatted disk is"      CR ." in drive B:.  You will need two disks."                   CR ." When ready, press any key to continue. "                  HERE 1 EXPECT ( Give user a chance to get out )  ;           : WAKE-USER   (S -- )   100 0 DO   BEEP  KEY? ?LEAVE  LOOP   ;  : SWITCH-DISKS   (S -- )                                           WAKE-USER   CR ." Your disk is now full, please"                CR ." remove it and insert another empty, formatted disk"       CR ." in drive B: and press any key to continue. "              HERE 1 EXPECT   [ DOS ] 0 25 BDOS RESET SELECT ;             -->                                                                                                                             \ Expand the Huffman encoded files for F83                      : HI   HELLO   CR ." To expand your system, type XYZZY "   ;    ' HI IS BOOT                                                    DEFINE EXPAND86.BLK                                             : XYZZY   (S -- )                                                  CR ." This takes a long long long time, and bells will "        CR ." ring when you are needed, so I suggest you get it"        CR ." started and have a long cool drink."                      PROMPT   EXPAND86.BLK [ DOS ] OPEN-FILE [ FORTH ]  3 LOAD ;  : EXPAND   CR >IN @ ." Expanding: "  BL WORD COUNT TYPE            ."  into " BL WORD COUNT TYPE SPACE  >IN !  EXPAND  ;        : COMPRESS   CR >IN @ ." Compressing: "  BL WORD COUNT TYPE        ."  into " BL WORD COUNT TYPE SPACE  >IN !  COMPRESS  ;      MARK THEN                                                       SAVE-SYSTEM RUNME.COM                                                                                                           \ Expand the Huffman encoded files for F83            24APR84HHLTHEN EXPAND M86.HUF   B:META86.BLK                              THEN EXPAND K86.HUF   B:KERNEL86.BLK  SWITCH-DISKS              THEN EXPAND E86.HUF   B:EXTEND86.BLK                            THEN EXPAND C86.HUF   B:CPU8086.BLK                             THEN EXPAND  UT.HUF   B:UTILITY.BLK                             THEN EXPAND  HF.HUF   B:HUFFMAN.BLK                             THEN EXPAND  CK.HUF   B:CLOCK.BLK                               THEN EXPAND  FX.HUF   B:F83-FIXS.TXT                            WAKE-USER EMPTY   ' HELLO IS BOOT   SAVE-SYSTEM B:F83.COM       CR .( Congratulations, you have a full)                         CR .( F83 system.  May the Forth be with you.)                  ( These are all of the files that are distributed with a          Perry & Laxen public domain Forth system.  They will be         expanded with this utility.  Please be patient. )                                                                             \ Expand the Huffman encoded files for F83            24APR84HHLTHEN COMPRESS A:META86.BLK    B:M86.HUF                         THEN COMPRESS A:KERNEL86.BLK  B:K86.HUF                         THEN COMPRESS A:HUFFMAN.BLK   B:HF.HUF                          THEN COMPRESS A:EXTEND86.BLK  B:E86.HUF                         THEN COMPRESS A:CPU8086.BLK   B:C86.HUF                         THEN COMPRESS A:UTILITY.BLK   B:UT.HUF                          THEN COMPRESS A:CLOCK.BLK     B:CK.HUF                          THEN COMPRESS A:F83-FIXS.TXT  B:FX.HUF                          WAKE-USER