a.[. o g^#VFORT+yydFyR{*4+p+q"4KB EXIQ*4N#F#"4 HUNNESQ*4+p+q"4  `U{.*^#V*s#r^#V ^#V* (LIT o g  -BRANC`iN#F  ?BRANC} *4"4  (LOOP*44#4*4s#r (+LOOP9*4^#V|L!! -(DO6w%Bw%%%i U(?DO6 ` %w%Bw%%%i BOUND6di>NEXԝ EXECUTzPERFOR^#V^#V͋GNOO# PAUS2 =*4^#V#~#fo T*4@((LEAVEl*4####N#F#"4 `(?LEAVE|l ^#V 7s#r Cn& Cs CMOV`ix~#  CMOVE`i + +x~+  SP)!9 !SP: NRPI*4 ARPY"4 DROk bDUy 2SWAЉ OVEҙqTUC˪QNIк RO-ROFLIcj ?DU6wwiR*4^#V#"4  >'*4++"4s#r  R?*4^#V PICT)9^#V 8ROL6%=R'wB4iiANċ{ozg Oҟ{ozg KXOҴ{ozg `NO}/o|/g TRUŝFALSŝ! ! CSE~w CRESE{/_~w CTOGGL3~w 'OD!í=OFV!íNf NEGATy+z/W{/_ ABӞ|y `+~w#~w n2) 2|g}o U2|g}o 8&)))  16# 2D## /1S+ =2a++ !)t)| lLUMD}ggxDgJ UlgU*6i_|g{|g{)Ҵ_|g{,! UM/MO`i}||ejkW\a 0}0))"0:|30W>o>g! S>c !zn +!9 DAB| |E "s D2 {_zW}o|g" D2 |g}ozW{_" D6C  i"[ ?DNEGAT6' C i# D06i# D6 i# DU6 % 5 x3 5 i# D6R`R Z ii#9 D6 > i#^ DMI6 c  i#m DMA6 >  i$ *6 % i$M/MO6 w% %%z =' w Q=ii$ MU/MO6%=%i% 6ii% /MO6%a  i%9 6@ i% MO6@ ii%+ */MO6%  i%l *6t i& TOӦ&\ ENTR٦& LIN˦&N SP& RP& DЦ & #OUԦ & #LINŦ& OFFSEԦ& BASŦ& HLĦ& FILŦ& IN-FILŦ& PRINTINǦ'+ EMI' SC{'; PRIO{!'Y STAT{'s WARNIN{'e DP{' R{' LAS{y' CS{' CURREN{!' #VOCӝ' CONTEX{!!0( 'TI{( WIDT{( VOC-LIN{r(BL{(+>I{( SPA{(C#TI{(L END{)7B̝ )jBӝ)uBEL̝)PCAP{)FIḶ`ixʵ} é )]ERAS6i)BLAN6oi)COUN^#) LENGT^#V)MOV6 #'ia{ *UP<})o *4UPPERzc~)w#T *HER6 i*hPA6oPdi*H-TRAILIN6w dQoxQi+COMi`x~# !! ! ,CAPS-COMi`x9~)O~)&# 6/!2!  ! ,COMPAR6\^i-BDOkM&o -bBIOӄ*BK&o -y(KEY?6Oi-(KEY60i-(CONSOLE60i i.BKEY.KE.C{.PR-STA6i.(PRINT60!5i i.)(EMIT6F nw3 i. CRL6 S  S T i.OTYP6S ii.tSPAC6oS i.SPACE6 i.{BACKSPACE6zS i.BEE6S i/BS-I6iw1Qz3S i/(DEL-IN6iw\QzS z^S i/BACK-U6iwwi/dRES-I6&Reseti/9P-I6iF F i0CR-I6iJoS i0(CHAR6 S d4i0CHA0DEL-ID0C{0CC-FORT{nn1EXPEC6wJRwow dw`t ii1TI6i1_QUER6PhJW1T=Ti2#BUFFERӝ2B/BUƝ2B/REÝ2REC/BL˝2B/FC*2DISK-ERRO{2=LIMIԝ2/>SIZŝ*2^FIRSԝ2INIT-R2l>BUFFER6tfi2>EN6t_i2BUFFER6$di2>UPDAT6di3READ-BLOC=3WRITE-BLOCp3.FIL6'@dS &%: d&%.i3 FILE6% i3SWITC6% 5 % 5 i3PDO+3}35>5)3!FILE6w% 5 i3DISK-ABOR6&% in &i3?DISK-ERRO6wJ% Disk errorii4FCB{EXPAND80BLK('4CLR-FC6w74 i4)SET-DM6iii4RECORD6!di4MAXREC6&di4uIN-RANG6wiwJB% Out of Rangei4_REC-REA6w!ii4REC-WRIT6w"ii5GSET-I6wO )/ id)i5FILE-REA6\] QwidE i51FILE-WRIT6\ Qwidx i5cFILE-I6=,-p,-i6UCAPACIT6% 4i6tLATEST6JT d O  dii6zABSENT64\Si ;O M ;jO3w%wddl i7UPDAT6Bi7DISCAR6i7MISSIN6_'_Tddwd$i7(BUFFER60#?di7ABUFFE6% 'i7(BLOCK6'8wdTi7CBLOC6% bi7IN-BLOC65 bi8EMPTY-BUFFER6tX4$t\wBd  dd i8SAVE-BUFFER6\Xw4Twd'NwwdTd&ii8FLUS6ii8^VIEW6% (di9FILE-SIZ6w#iiii9DOS-ERR6`i9OPEN-FIL65 wi% Open errorwQi9DOS-FC\9XDEFAUL6w5 w% 34oxJ i9(LOAD6% %1%=%=T15 % g-=1i9NLOAW:DIGIԨ{0  _:DOUBLE6 4Oi: CONVER64w% % i   ii;(NUMBER?6w4-`w% w,/! y [C o`i;vNUMBER6; ij9ii;-(NUMBER6$i;NUMBE<HOL6  i<<6 i<#6  i<)SIG6'U-i<@6   yd0di<Y#6] i<HE6 i<DECIMA6 i<OCTA6 i=(U.6.i=U6i=U.6%i=(.6wG.i=6$i=:.6%$i=(UD.6.i=UD6ki=wUD.6%ki=c(D.6z G.i=D6i=D.6%i >SKI`iz ~#>SCA`iz/~# ?/STRIN6di?PLAC6 4ii?R(SOURCE61 Wi?4SOURCw?lPARSE-WOR6%=>=%wOd=i?PARS6%=>%wO=i@'WOR6oi@ WOR6 Z wdoi@J>TYP6i@H .6)P i@6) i@w \6dBiA TRAVERSť > A DONE6{ xddTiAd FORTH-86+TiA VERSIOΝA .VERSIO6 ].].].iB N>LIN6_iB L>NAM6BiB)!BODY6_iBK!NAME6 4iB:!LINK6C!c!iB[!>BOD6BiB!>NAM6Q iB!>LIN6!2!iB!>VIE6!_iB!VIEW6Bw!iCo!HAS!#~o&) C!(FIND"|##?0"#0""###~@! ^#V|"D' #THREADӝD!FIN6w"m T \"i ;dw"wm m `"i"!!wo""idB!iD?"?UPPERCAS6"wPiD!DEFINE6o. "W"iE"?STAC6' &Stack Underflow'&Stack OverflowiE"STATUEINTERPRE6#"g#s#s#i Y#iFK#ALLO6 iF"6o#iF<#C6o#iF#ALIG6iF#EVE6iF#COMPIL6wB%#iF#IMMEDIAT6@ iF#LITERA6##iF $DLITERA6$$iF#ASCI6o. 4{ R$$iF#CONTRO6o. 4{ z$$iGV$CRAS6& Uninitialized execution vector.iG~$?MISSIN6$ & ?iG$6"$iG$['6$$iG$[COMPILE6$#iG$("6 d%iG %(."6 d%iG%,6" Z4#iGP".6#&%=%iGS%6#%=%iHd%FENC{_H8%TRI6J"\%  %%B% iH%(FORGET6w|%& Below fencew% %%w%w& J"%%i iHt%FORGE6o. "w !!$!%iI$WHER!IA&?ERROi&I%(?ERROR6&%% 8F T1&=1I&-& iI^&(ABORT"6=X&d%iI6$ABORT6#&=%iI&ABOR6&iJO&?CONDITIO6&Conditionals WrongiJ&>MAR6o#iJ'>RESOLV6oiJ&MAR6 'iJf'?>RESOLV6&7'iJy'?)o&% isn't unique io !wo_ow4#oQ#{iL(CREAT6o. "(iM(!CS6' iM)?CS6' x& Stack ChangediM(HID6 w2! !iM(REVEA6 w2! !iM)(;USES6 c!iM)ASSEMBLE+<=E=5=M);USE6)#**);*iM*(;CODE6 c!iMI*;COD6)#m**);*iMc*DOES6#m*#k#iN}*6{ TiN/*6{ B#"w*8**#*i**$*i$ *iN)6)  ))**6N*6)#i)*iO +RECURSIV6)iO%+CONSTAN6)#*O9+VARIABL6)#*{O*DEFE6)$#*Od+VOCABULAR6)J"\+#+o%#%m*k iO}+DEFINITION6  iP+2CONSTAN6)##m*kO iP+2VARIABL6+m*kiP*AVO{!PM+COD6))ow_ .,;*iPEND-COD6., )iQ4,#USE{Q',USE+,,,,E*QALLO6z,iQCREAT6)z,#*QVARIABL6,,iQDEFE6,*R ,>I6ww`w`i-!d!-!iR+(IS6=,B%iR,I6{ W-#,-]-$,iS,RU6{ -*{ -W#-W#iS@-QUI6 1T* WE#g-{ -&% ok-iSa-BOOwSr,WAR6& Warm StartiS-COL6--iT-INITIA̝T-O6.iT.STAR6iT-BY6o4&%Pagesii!-*."Z"v"4͓8"͓!-Ù.yS _XW%-DEPT6' iW/..6./\/.;QR . /&%Empty iW..I6w4w]/wS S/_Y/4w1/ iW.DUM6\/wO\/wO4/7t/iiX/RECURS6 c!#i .C/̝@ e/L/SCҝ /6=w/b =i /(6{ i /6>i /?ENOUG6.Q&Not enough Parametersi /THR604V0;N0i 0+THR61d1d@0i ---6=T1i /ROO+?101@B, ALS6 wB _i ONL60! Q d0i 0SEA6$!  i PREVIOU6 wB _ _dTi FORT6i 1DEFINITION6+i 0ORDE6&% Context: \1w1S!!/Bw1i&% Current: S!!/i /1VOC6%wJ"S!!/w1ii FCB{RUNME COMa_`aba 1RESE6 iii CLOS6i& Close errori #2SEARCH6ii G2SEARC6ii DELET6ii 2REA6i& Read errori ]2WRIT6i& Write errori MAKE-FIL6i&Can't MAKE File i r2(!FCB6w7w4 %4:`93@=>4\w3w.`c3;do3 44E3 i 2!FC6o. 3 P3i 2SELEC6iii 2HEADE! 3SAV61w3w{2iw233;Qw273+2i z0MOR60w$% 04;L "4% +2i Z0CREATE-FIL61ww324i 2.NAM6 /v4 / d4 di 90DI6% ????????.???13Q1Q2f41f2w4ii 4DRIVE6iAdS &%: i 3A63i 0B63i ^4FILE6=)=ow7#3m*ki 3?DEFIN6="\5!d5i=5i 4DEFIN6H5ii <4OPE6H5i 5FRO6H55 i {5SAVE-SYSTE6o3i 5VIEW-FILE{A%6b6666wO )/ i 5VIEW6H5 (dS!5di 5KERNEL80.BL55KERNEL80BLK 4EXTEND80.BL55EXTEND80BLK 6CPU8080.BL55CPU8080 BLKG S6UTILITY.BL55UTILITY BLK=>KLMNOP7o0h5LABE6);*i07DOES-OН07DOES-SIZŝ0*7DOES6w67d$7`i0C6b,i0W,INI6i0X7C#0#0r7?>MARo'07?>RESOLV'07?0;NO6i0aC&%may be in current file: I&%screen w>@i@SCHOPPE{@CU/{@@CCONVEY-COP*C@DHO6Di@C.T6>&%to w>i@4D(CONVEY6DwwDdJD.DDdsDfi@ DCONVE6fD'D4Dw4D@ %kDDkDDii@`DT6o. i:Di @DDFOUN{ @DSCAN-1S6,Ei.Ei @ESEARC6 ET% ?E4R=%=EwE% LE EBi%wE>_E   Ei @DDELET6%=w8E w=ddi @DINSER6%=w=di @EREPLAC6i @ FBLOO @E-LIN! @,FACFOk  i @EDAReFPk T Ti @:FEDITO+RRRpPN@ @.SCREE!P @AUT ,G# @FEDITING{ @CHANGE{ @FINSTAL6FFFF0FBFTJTi@FC/SCҝ@TO6 Ti@F6 dGb i@ G6G// !Gi@GCURSO6 i@5GLINE6PG/R i@GGCOL6PG/b i@nG+6bGd9Gi@G'STAR6_ i@G'CURSO6GPGdi@G'LIN6GuGi@G#AFTE6/uGi@G#REMAININ6 PGi@G#EN6GuGdi@FMODIFIE6FBi@HEOӝ^@G?TEX6%/Hw[H=/4=Z]H i@5HC/PAĝT@eH'INSER6mHdi@sH'FIN6}HmHdi@H'VIDE6HmHdi@F.FRAME6&%'&%'i@H.BUF6&%I }HH&%F HHi@H?MISSIN6IiHH&% not found -i@HKEE6G/}HZi@I6HmH}HHmH}HmHi@4I6i@VI'C#6GGHi@ZG(I6}H=HiIi@uI(TILL6H=HiI;EHi@bI'F6Hdi@)HID-LEΝ @II{ @ISTAM6IG/dIQIQi@I?STAM6FJIFTi@I6{IE!Gi@I6{IF!Gi@I6}H=HiG/Hi@J6/!GG/HE:Ji@6J6&IGH/EHi@&JSPLI6/ GGEHi@HJOI6G/d/iIEi@~JWIP6G Hi@NJ6&Use G !i@J6// d/}HZ/w!GRJ/!Gi@JBRIN64\"Kw;JKii@KFIND6H=HGG;Ei@(K60KHI!Gi@J600KhKI!GOi_ \KBGHGG;EKI!GijKi&Break!vKHi@J6Hww!GiIEi@hJ6DKKi@@K6KJi@KTIL6iIIIEi@K6iIIEi@RKK6GII}HZi@KD؝@LDٝ@K.LIN6bGOGuGP ^S GGP i@3LREDISPLA6-Ld?FwOw// Gd/> &Fi@LCHANGED6// wGdHd/i@[L.AL6JM"L?F@ &FJ/\L;LL;gLLGH ?F;L?F4F?F Ti@KEDIT-A6PG/@ "Ld-Ld?Fi@LNE6/\}M;9G-M=TJqM:JwM;gLjFWMFi@LGET-I6IIM&%Enter your ID: I\M.S MIIIhi@ZFDON6F N 1FT_ 0'M&%Un&%modifiedJZIJTFO i@vFE6MFFH aFLi@NEDI60_ G Ni@FFI6=$[CoN5d=N=DKi@M(WHERE6JN=N!G HZi@2ESHADO+NO\F@DISPLACEMEN64i@N(>SHADOW6N NdNi@>SHADO6% Ni@O>IN-SHADO65 Ni@6N6_  O_ i@COP6f *C O$O*Cfi@DOCONVE6 D O O$O ODDi@cO6 J4O/w!G$OJI4Oi@OBRIN64\Ow;OOii@(L(AT6 i@O(BLOT6/i@O(DARK6\PPi@GM.DUM6;Li@ODUM6E#!Fl !P,-FO,-?FO,-&F!,-4FP,-aFi@MSMAR6{!Fl L,-Fi@#MANSI-A6 S [S 4O;S 4OHS i@PANSI-BLO6iS &%[Ki@PANSI-DAR6S &%[2Ji@PANSI--LIN6S &%[1Mi@QANS6xPP,-?FP,-aFQ,-4FP,-&Fi@-PH19-A6S YS  dS  dS i@_QH19-DAR6S ES i@QH19-BLO6iS KS i@QH19--LIN6S MS i@QHEAT6xPhQ,-?FQ,-aFQ,-4FQ,-&Fi@QTVI-A6S =S  dS  dS i@RTVI-BLO6iS TS i@?RTVI-DAR6S i@^RTVI--LIN6S RS i@uRTELEVIDE6xPR,-?FiR,-aFR,-4FJR,-&Fi@0QQUM6Ri@PFALC6Ri@ON.6]].i@{ND.6S;R Si@0OEMIT6wo~! ASi.S i@RDL6w  SdSS;#S}Si@N?.6 `S&%\/iSOi@S?.6 `S&%ViSOi@R.HEA6w\T;ST\T;ST\2T;S*Tdi@GSDUM6 S\cT;MS7ST i@:TD6w@AT@di@kTD6// _ d/ATi @SOU6&%Subscript out of range on wS!!/&% Max is 0&% tried >-i @SMA6 UBdUTi @TCASE6X+)*m*kTi!@TASSOCIATIVE6X+m*kww\vUB `rU i;jZU i"@T(SEEY"@.WOR6w!/Bi"@U.INLIN6Uw>Bi"@U.BRANC6Uw>Bi"@U.QUOT6UUi"@U.STRIN6U di#@U.(;CODE6UD7+V&%DOES> /Vii#@ V.UNNES6&%; ii#@3V.FINIS6Uii$@EXECUTION-CLASGU7\#&%&m*i%*%@LV.EXECUTION-CLAS'UUUUUUUUUUV=VUUVVUi&@V.PF6!@wtVVwVii&@V.IMMEDIAT6!@W&% IMMEDIATEi'@V.CONSTAN6w!0&% CONSTANT !/i'@#W.VARIABL6w!>&% VARIABLE w!/&%Value = !0i'@KW.6&%: w!/Vi'@W.DOES6w!/&%DOES> 67_dVi'@W.USER-VARIABL6w!0&%USER VARIABLE w!/&%Value = ,0i(@W.DEFE6&% DEFERRED w!/&%IS ,Ui(@ X.USER-DEFE6&%USER DEFERRED w!/&%IS ,Ui(@8X.OTHE6w!`X!/&%IS CODEOwk`XWO!/&% IS UNKNOWNi)@DEFINITION-CLASGU6{)@oX.DEFINITION-CLAS'UW/WWWWXFXxXi*@X((SEE)6wwXXWi*@USE6$Ui,@2UEPSO6S i,@>YINIT-P!,@SFOOTIN\[,@|UL/PAGŝB,@rYLOGϝ,@.Y#PAG{,@YPAGŧYYkY T Ti,@bYFORM-FEE6 S i,@Y(PAGE6{Y YYi,@Y(SEMIT6F Z3Zi,@SCR#{ALLOT +)U*-@YTEXT6wo~! [Z O]Zi-@3ZP6w@vZiY!Z!Zwdi-@X2P6wO// %=d/d/d4/i-@Z2SC6O=wO\[ ;Z [ i.@aZP-HEADIN6&%Page# Y0Ii.@[P-FOOTIN6:&%Forth 83 ModelYi/@P[PR-STAR6F B TZ,-S !ZTY\Yi/@[PR-STO6X,-S F Ti/@[PR-PAG6)[!ZT!ZB\[wdZB[ilYi/@[PR-S-PAG6)[!ZT!ZB\:\wBZd$\ilYi/@\PR-FLUS6!Zws\!Zo\fZY\YfZOi0@YSHO6[4\;;Z\;fZ!Z`\[\M\\[[i0@OSHO6[4\;;Z\;fZ; OfZ!Z`\\\M\\\[i0@YLISTIN6Q\i2@D>L.I6w/wc!Qdi2@=SLO{2@=RE{2@](DEBUG6==t=L>i2@:]'UNNES64wi`]i3@S]TRAC6%.! "]A]^A]TM]T&% --> :C`]A]A]F`^ig-M]]Q`&UnbugiL>i3@]DEBU6$_w}]]]i3@YRESUM6M]BL>i5@^TASK6) oz,>o>wodw d o >>oz,do >o>#i5@y\SET-TAS6w >__ > >i5@RYACTIVAT6^ ?i6@2^BACKGROUND6Q^o>_^)*i I^HELL6&%8080 Forth 83 Model !&%Modified 01Apr84 00+i ^MAR6)m*k%+i p_EMPT}_#_HUFFMAN.BL55HUFFMAN BLKklmnopqr_D+6wO % l i_ARRA6)#m*kdi^2ARRA6)/ #m*kdi_0OR6Oi1`HAPPP`m*kwp`T&% ...Working x`B  i `READING{_IO-ARRA6)w##m*kw``i`dBi^#BITӬ```#BYTEӬ`DOCONSTA`BIT-BUFFEҬ` : ENCODE-`IO-BUFFEҬ` BEGIN 2DUP D0= NOT WHILE 1. D- @BYTE INCLUDE REPEAT 2DROP ; `>FILŬ` aINIT-I6`T\b``l `!a`BQbiD`PERFORM-I6L`!aQ/b`b2b2i'bFILE-SIZ6/bibREWIN6w+2w diii`CLOS6/b+2i9bINPU6`BibOUTPU6`Ti cIN-FC{ALLOT cOUT-FC{ALLOT 0cIN&OU6% c9c/b&cqc/b9c3qc39ci&Can't open file qcw{2i2% ib@BYT6c`O iwdb!ad`_ic!BYT6&c`O i!ad`_`O ikdbic(!BYTE6`\d;dd5dibFLUSH-BYT6&c`dyd`O idbbiod(@BYTE6c`\dw8`;dii -d!BI68```d```1eyd`Ti d@BI6`Red```d`i e!BIT6&ceeew eeii 5e@BIT6ceFILE @ REWIND 12345 16 !BITS 2DUP 16 !BITS 16 !BITS COMPRESS-ENCODING 2DUP COMPRESS-FILE 2DROP ; \ Expand a compressed file 29MAR84HHLVOCABULARY EXPANDING EXPANDING DEFINITIONS 128 ARRAY H-CODE : EXPAND-BITS (S len char -- ) OVER H-CODE @ HERE SWAP , SWAP C, OVER H-CODE ! BEGIN DUP 16 > WHILE 16 @BITS , 16 - REPEAT ?DUP IF @BITS , THEN ; INCLUD6f_i HUFFMA_ 256 0 DO 1 @BITS IF 7 @BITS I EXPAND-BITS THEN LOOP ; \ Match the bit steam 19Apr84map: =BITS (S addr1 addr2 len -- f ) jMIN , 0lMIN , e>MIN{ Nl>MIN{ ?lMINIMUM67ll Fll \l;fO l7lO l7lO Fll Vldl 7ll ;VllFlO l Fll ;dl lFlO  i \lJOIN-MINIMUM67lO FlO  Vlfl dlfl i jlENCODE-MINIMUM6oVl,j#dl,j#Vl/ dld#Vl,ji CmENCOD6ulmUmmmi m>HL{ALLOT CREATE INPUT-BITS 128 8 / ALLOT : MATCH (S len -- char f ) "jHL{ +HOL6m9nd9ni m-HOL69ni 3nH-COD_ 2DUP 3 + INPUT-BITS ROT =BITS IF NIP 2+ C@ TRUE EXIT THEN REPEAT DROP FALSE ; \ Expand the input stream 01May84map: APPEND (S len bit -- ) SWAP 1- 16 / 2* INPUT-BITS + DUP @ 2* ROT OR S m.HOL6o|n9n#mo9nw#i snDECOD6GnwpwppwdpenGnwBpwBp qwdpenii pFLATTE6Vl,jpi?nCOMPRESS-BYT6|nYq;veMqi/qCOMPRESS-ENCODIN6\q;|nwqvewve\q;veqqve }qi]qCOMPRESS-FIL6 q c?qqd i]nENCODE-FIL6 !r cjr iqZER{qINITIALIZ6\or;fl ;,j.r;|nMrCbcieCOMPRES6Arcb rmqCbc/bb90ve veveqq q ineEXPANDIN+rueH-COD_ \ Expand a Compressed File EXPAND-BIT6ro##rw+te# t5te#isEXPAND-ENCODIN6\mteite;sWti9t=BIT6wtxti OBB{tt`t iqtINPUT-BIT{ALLOT tMATC6wrw u dtytuBOtiitAPPEN6QR tdwi(uEXPAND-BYT6ti4we1uwtquiUuEXPAND-FIL6 u cu5dud iuINITIALIZ6\u;ruCbcirEXPAN6ue90x&Not a Compressed file eeKtuiePROMP6&%.To expand your F83 system, make sure this disk&%3is in drive A: and that an empty, formatted disk is&%(in drive B:. You will need three disks.&%'When ready, press any key to continue. ohiwrWAKE-USE6d\/w %wi wSWITCH-DISK6w&%Your disk is now full, please&%2remove it and insert another empty, formatted disk&%+in drive B: and press any key to continue. ohi23i4vH6+_&%"To expand your system, type XYZZY iuEXPAND80.BL55EXPAND80BLKwXYZZ6&%1This takes a long long long time, and bells will &%1ring when you are needed, so I suggest you get it&%#started and have a long cool drink.=v(xixEXPAN6=&% Expanding: o. &% into o. =ui3wCOMPRES6=&% Compressing: o. &% into o. =riVxTHE}_ RUNME.COM M