\ 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 23Apr84mapFROM 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:. If so, press any key to continue. " HERE 1 EXPECT ( Give user a chance to get out ) ; : WAKE-USER (S -- ) 1000 0 DO BEEP KEY? ?LEAVE LOOP ; : SWITCH-DISKS (S -- ) WAKE-USER CR ." Your first 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 ] RESET ; --> \ Expand the Huffman encoded files for F83 20Apr84map: HI HELLO CR ." To expand your system, type XYZZY " ; ' HI IS BOOT DEFINE EXPAND68.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 EXPAND68.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.68K \ Expand the Huffman encoded files for F83 03Jun84mapTHEN EXPAND M68.HUF B:META68.BLK THEN EXPAND K68.HUF B:KERNEL68.BLK SWITCH-DISKS THEN EXPAND CK.HUF B:CLOCK.BLK THEN EXPAND HF.HUF B:HUFFMAN.BLK THEN EXPAND FX.HUF B:F83-FIXS.TXT SWITCH-DISKS THEN EXPAND E68.HUF B:EXTEND68.BLK THEN EXPAND C68.HUF B:CPU68000.BLK THEN EXPAND UT.HUF B:UTILITY.BLK WAKE-USER EMPTY ' HELLO IS BOOT SAVE-SYSTEM B:F83.68K 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 03JUN84MAPTHEN COMPRESS B:META68.BLK M68.HUF THEN COMPRESS B:KERNEL68.BLK K68.HUF THEN COMPRESS B:EXTEND68.BLK E68.HUF THEN COMPRESS B:CPU68000.BLK C68.HUF THEN COMPRESS B:UTILITY.BLK UT.HUF THEN COMPRESS B:HUFFMAN.BLK HF.HUF THEN COMPRESS B:CLOCK.BLK CK.HUF THEN COMPRESS B:F83-FIXS.TXT FX.HUF WAKE-USER
