-
Notifications
You must be signed in to change notification settings - Fork 7
/
expand86.blk
1 lines (1 loc) · 5 KB
/
expand86.blk
1
\ 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