6000 '*** CONDENSED TEXT PROSESOR ***
6010 'F$=filespec returns L$ in ASCII
6020 DIMRW$(128):X=5712:Y=0
6030 C=PEEK(X):IFC>127THENY=Y+1:IFY>123THEN6060ELSERW$(Y)=CHR$(CANDNOT128):GOTO6050
6040 RW$(Y)=RW$(Y)+CHR$(C)
6050 X=X+1:GOTO6030
6060 C=0:P=0:BP=0:PC=0:L$="":RN=1:OPEN"R",1,F$:FIELD1,128ASB$(0),127ASB$(1):POKEVARPTR(B$(1)),128:GET1,RN:RN=RN+1:GOSUB6090
6070 'ifc<>255then not condensed text
6080 GOSUB6160:CLOSE:RETURN
6090 P=P+1:IFP<129THEN6100ELSEP=1:BP=BP+1:IFBP<2THEN6100ELSEBP=0:GET1,RN:RN=RN+1
6100 C=ASC(MID$(B$(BP),P)):RETURN
6110 GOSUB6090:PC=C:GOSUB6090:A!=CVI(CHR$(PC)+CHR$(C)):IFA!<0THENA!=65536+A!
6120 RETURN
6130 'GOSUB 530'returns L$ here
6140 L$="":RETURN
6150 IFLEN(L$)<256THENRETURNELSEGOSUB6130:RETURN
6160 GOSUB6110:IFA!=0THEN6170ELSEGOSUB6110:IFA!>65536THEN6170ELSEGOSUB6180:GOSUB6130:GOTO6160
6170 C=1:GOSUB6130:RETURN
6180 C=0:L$=RIGHT$(STR$(A!),LEN(STR$(A!))-1)+" "
6190 PC=C:GOSUB6090:IFC=0THENRETURNELSEIFC>127THEN6200ELSEIFC=10THENGOSUB6130:GOTO6190ELSEL$=L$+CHR$(C):GOSUB6150:GOTO6190
6200 IFC=147THENIFPC=58THENMID$(L$,LEN(L$),1)="'":GOSUB6150:GOTO6190
6210 L$=L$+RW$(C-127):GOSUB6150:GOTO6190
6220 GOSUB6090:IFC=0THENRETURNELSEP=INSTR(P,B$(BP),CHR$(0)):IFP>0THENC=0:RETURNELSEP=128:GOTO6220
