\ 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
