\               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            01May84mapFROM 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 three 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            24Apr84map: HI   HELLO   CR ." To expand your system, type XYZZY "   ;    ' HI IS BOOT                                                    DEFINE EXPAND80.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   EXPAND80.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            03MAY84HHLTHEN EXPAND M80.HUF   B:META80.BLK                              THEN EXPAND K80.HUF   B:KERNEL80.BLK   SWITCH-DISKS             THEN EXPAND E80.HUF   B:EXTEND80.BLK                            THEN EXPAND C80.HUF   B:CPU8080.BLK                             THEN EXPAND  UT.HUF   B:UTILITY.BLK    SWITCH-DISKS             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            24Apr84mapTHEN COMPRESS META80.BLK    M80.HUF                             THEN COMPRESS KERNEL80.BLK  K80.HUF                             THEN COMPRESS EXTEND80.BLK  E80.HUF                             THEN COMPRESS CPU8080.BLK   C80.HUF                             THEN COMPRESS UTILITY.BLK   UT.HUF                              THEN COMPRESS HUFFMAN.BLK   HF.HUF                              THEN COMPRESS CLOCK.BLK     CK.HUF                              THEN COMPRESS F83-FIXS.TXT  FX.HUF                              WAKE-USER