General/TXTCOMP

Home » CEEFAX disks » telesoftware1.adl » General/TXTCOMP

General/TXTCOMP

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware1.adl
Filename:	General/TXTCOMP
Read OK:	✔
File size:	1397 bytes
Load address:	1900
Exec address:	8023

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_04_08_D-MU04_08.ssd » TXTCOMP
AEW website » mu » mu_Micro_User_04_08_MU4-8_B.uef » TXTCOMP
CEEFAX disks » telesoftware1.adl » General/TXTCOMP

File contents

   10 REM **********************
   20 REM  BBC TEXT COMPRESSION
   30 REM   By Jonathan Temple
   40 REM (c) The Micro User
   50 REM **********************
   60 traphex=FALSE
   70 ON ERROR GOTO 2500
   80 MODE 7
   90 start=FNask
  100 PROCassemble(&7000,1)
  110 PROCassemble(start,0)
  120 PROCcompress
  130 END
  140 REM ************************
  150 DEFPROCassemble(start,check)
  160 flag=&70
  170 tpos=&71
  180 text=&71
  190 temp=&72
  200 char=&73
  210 table=start
  220 chars=start+17
  230 string=&900
  240 compstr=&A00
  250 osnewl=&FFE7
  260 oswrch=&FFEE
  270 FOR pass=0 TO 2 STEP 2
  280 P%=&C00
  290 [OPT pass
  300 .compress
  310 LDY #0
  320 STY flag
  330 DEY
  340 STY tpos
  350 .continue
  360 INY
  370 LDA string,Y
  380 CMP #35
  390 BNE nhash
  400 LDA #0
  410 BEQ code
  420 .nhash
  430 JSR lower
  440 STA char
  450 LDX #15
  460 .loop1
  470 CMP table,X
  480 BEQ match
  490 DEX
  500 BPL loop1
  510 .single
  520 LDA char
  530 .code
  540 LDX #63
  550 .loop2
  560 CMP chars,X
  570 BNE next
  580 TXA
  590 JSR store
  600 CMP #13
  610 BNE continue
  620 LDA #0
  630 BEQ set
  640 .next
  650 DEX
  660 BPL loop2
  670 .set
  680 STA flag
  690 RTS
  700 .match
  710 STX temp
  720 LDA string+1,Y
  730 LDX #12
  740 .loop3
  750 DEX
  760 BMI single
  770 CMP table,X
  780 BNE loop3
  790 TXA
  800 ASL A
  810 ASL A
  820 ASL A
  830 ASL A
  840 CLC
  850 ADC temp
  860 ADC #64
  870 INY
  880 JSR store
  890 BCC continue
  900 .lower
  910 CMP #65
  920 BCC return
  930 CMP #91
  940 BCS return
  950 ORA #32
  960 PHA
  970 LDA #1
  980 JSR store
  990 PLA
 1000 .return
 1010 RTS
 1020 .store
 1030 INC tpos
 1040 LDX tpos
 1050 STA compstr,X
 1060 CLC
 1070 RTS
 1080 ]
 1090 P%=chars+64
 1100 [OPT pass
 1110 .message
 1120 TAX
 1130 LDA #comptext MOD 256
 1140 STA text
 1150 LDA #comptext DIV 256
 1160 STA text+1
 1170 LDY #0
 1180 TXA
 1190 CMP (text),Y
 1200 BCC within
 1210 BEQ within
 1220 BRK
 1230 ]
 1240 ?P%=46:P%=P%+1
 1250 $P%="Bad message"
 1260 P%=P%+LEN($P%)
 1270 [OPT pass
 1280 BRK
 1290 .within
 1300 TXA
 1310 BEQ printout
 1320 LDY #1
 1330 .search
 1340 LDA (text),Y
 1350 PHA
 1360 LDA text
 1370 CLC 
 1380 ADC #1
 1390 BCC clear
 1400 INC text+1
 1410 .clear
 1420 STA text
 1430 PLA
 1440 CMP #13
 1450 BNE search
 1460 DEX
 1470 BNE search
 1480 .printout
 1490 LDY #0
 1500 STY flag
 1510 .nextchar
 1520 INY
 1530 LDA (text),Y
 1540 CMP #64
 1550 BCC notcode
 1560 SBC #64
 1570 PHA
 1580 AND #15
 1590 TAX
 1600 LDA table,X
 1610 JSR print
 1620 PLA
 1630 LSR A
 1640 LSR A
 1650 LSR A
 1660 LSR A
 1670 TAX
 1680 LDA table,X
 1690 BPL oldline
 1700 .notcode
 1710 TAX
 1720 LDA chars,X
 1730 BNE oldline
 1740 JSR osnewl
 1750 LDA #0
 1760 .oldline
 1770 CMP #1
 1780 BNE nset
 1790 STA flag
 1800 LDA #0
 1810 .nset
 1820 CMP #13:BEQ out
 1830 JSR print
 1840 BPL nextchar
 1850 .out RTS
 1860 .print
 1870 LDX flag
 1880 BEQ lower2
 1890 CMP #97
 1900 BCC lower2
 1910 CMP #123
 1920 BCS lower2
 1930 LDX #0
 1940 STX flag
 1950 AND #223
 1960 .lower2
 1970 JMP oswrch
 1980 .comptext
 1990 ]
 2000 NEXT
 2010 RESTORE
 2020 FOR code=0 TO 37
 2030 READ chars?code:NEXT
 2040 FOR code=38 TO 63
 2050 chars?code=code+59:NEXT
 2060 $table=" etaoinshrdlugcy"
 2070 IF check=0 GOTO 2100
 2080 PROCcheck(compress,store+8,&30B3,1)
 2090 PROCcheck(start,comptext-1,&5C72,2)
 2100 ENDPROC
 2110 REM ************************
 2120 DEFPROCcheck(S%,F%,C%,E%)
 2130 T%=0
 2140 FOR M%=S% TO F%:T%=T%+?M%:NEXT
 2150 IF T%<>C% PRINT"Error ";E%;" in PROCassemble"'"Please check and try again":END
 2160 ENDPROC
 2170 REM ************************
 2180 DEFFNask
 2190 traphex=TRUE
 2200 CLS:FOR Y%=3 TO 4
 2210 VDU 31,6,Y%,132,157,135,141
 2220 PRINT"BBC TEXT COMPRESSOR   ";CHR$156
 2230 NEXT
 2240 INPUT'''"Store system and text in memory at"'"&"addr$
 2250 start=EVAL("&"+addr$)
 2260 IF start<&B00 OR start>(HIMEM-&200) OR (start>(PAGE-&200) AND start<(!&2 AND &FFFF)+256) dummy=&error
 2270 traphex=FALSE
 2280 =start
 2290 REM ************************
 2300 DEFPROCcompress
 2310 address=comptext+1:original=2
 2320 number=0
 2330 REPEAT
 2340 READ text$:$string=text$
 2350 IF text$="*" GOTO2420
 2360 CALL compress
 2370 $address=$compstr
 2380 address=address+LEN($compstr)+1
 2390 IF address>HIMEM PRINT"Memory full at"'text$:VDU 7:END
 2400 original=original+LEN(text$)+1
 2410 number=number+1
 2420 UNTIL text$="*" OR ?flag
 2430 IF ?flag PRINT "Illegal character in string:"'text$:VDU 7:END
 2440 ?comptext=number-1
 2450 PRINT'"Text compressed to ";INT(100*(address-comptext)/original);"%"
 2460 PRINT'"Now save decompression system"'"and compressed text using:"'
 2470 PRINT "*SAVE <filename> ";~start;" ";~address+1''
 2480 ENDPROC
 2490 REM ************************
 2500 IF ERR=28 AND traphex PRINT'"Illegal entry"'"Please try again":Q=INKEY(100):GOTO 60
 2510 IF ERR=17 PRINT''"You wish to escape (Y/N) ?";:key=GET AND &DF:IF key=78 THEN 60
 2520 CLS:PRINT''':REPORT
 2530 PRINT" at line ";ERL
 2540 END
 2550 REM ************************
 2560 DATA 0,1,32,46,44,33,63,34,39
 2570 DATA 40,41,58,59,13,47,45,96
 2580 DATA 48,49,50,51,52,53,54,55
 2590 DATA 56,57,129,130,131,132,133
 2600 DATA 134,135,136,137,140,141
 2610 REM ************************
 2620 REM Enter text in data lines
 2630 REM after this point
 2640 REM ************************
 2650 DATA "This is just an example"
 2660 DATA "of a piece of text to be compressed."
 2670 DATA "You should insert your own text into"
 2680 DATA "data lines, and end the data"
 2690 DATA "with an asterisk."
 2700 DATA "It is possible to use the hash#character in your text to start a new#line. This facility is useful for a#long message where otherwise words#would be broken between lines."
 2710 DATA "Mode 7 teletext colour codes (as#produced by the function keys) are also#allowed, but only the basic colours and#double height codes."
 2720 DATA "*"


 � **********************
 �  BBC TEXT COMPRESSION
 �   By Jonathan Temple
( � (c) The Micro User
2 � **********************
< traphex=�
F � � � �dDI
P � 7
Z start=�ask
d �assemble(&7000,1)
n �assemble(start,0)
x �compress
� �
� � ************************
� ��assemble(start,check)
�
 flag=&70
�
 tpos=&71
�
 text=&71
�
 temp=&72
�
 char=&73
� table=start
� chars=start+17
� string=&900
� compstr=&A00
� osnewl=&FFE7
 oswrch=&FFEE
 � pass=0 � 2 � 2
 P%=&C00
" [OPT pass
, .compress
6 LDY #0
@
 STY flag
J DEY
T
 STY tpos
^ .continue
h INY
r LDA string,Y
| CMP #35
� BNE nhash
� LDA #0
�
 BEQ code
� .nhash
� JSR lower
�
 STA char
� LDX #15
� .loop1
� CMP table,X
� BEQ match
� DEX
� BPL loop1
� .single

 LDA char

 .code
 LDX #63
& .loop2
0 CMP chars,X
:
 BNE next
D TXA
N JSR store
X CMP #13
b BNE continue
l LDA #0
v BEQ set
�
 .next
� DEX
� BPL loop2
�	 .set
�
 STA flag
� RTS
� .match
�
 STX temp
� LDA string+1,Y
� LDX #12
� .loop3
� DEX
� BMI single
 CMP table,X
 BNE loop3
 TXA
 
 ASL A
*
 ASL A
4
 ASL A
>
 ASL A
H CLC
R
 ADC temp
\ ADC #64
f INY
p JSR store
z BCC continue
� .lower
� CMP #65
� BCC return
� CMP #91
� BCS return
� �A #32
� PHA
� LDA #1
� JSR store
� PLA
� .return
� RTS
� .store

 INC tpos

 LDX tpos
 STA compstr,X
$ CLC
. RTS
8 ]
B P%=chars+64
L [OPT pass
V
 .message
` TAX
j LDA #comptext � 256
t
 STA text
~ LDA #comptext � 256
� STA text+1
� LDY #0
� TXA
� CMP (text),Y
� BCC within
� BEQ within
� BRK
� ]
� ?P%=46:P%=P%+1
� $P%="Bad message"
� P%=P%+�($P%)
� [OPT pass
 BRK

 .within
 TXA
 BEQ printout
( LDY #1
2 .search
< LDA (text),Y
F PHA
P
 LDA text
Z	 CLC 
d ADC #1
n BCC clear
x INC text+1
� .clear
�
 STA text
� PLA
� CMP #13
� BNE search
� DEX
� BNE search
� .printout
� LDY #0
�
 STY flag
� .nextchar
� INY
� LDA (text),Y
 CMP #64
 BCC notcode
 SBC #64
" PHA
,
 � #15
6 TAX
@ LDA table,X
J JSR print
T PLA
^
 LSR A
h
 LSR A
r
 LSR A
|
 LSR A
� TAX
� LDA table,X
� BPL oldline
�
 .notcode
� TAX
� LDA chars,X
� BNE oldline
� JSR osnewl
� LDA #0
�
 .oldline
� CMP #1
�
 BNE nset
�
 STA flag
 LDA #0

 .nset
 CMP #13:BEQ out
& JSR print
0 BPL nextchar
:
 .out RTS
D .print
N
 LDX flag
X BEQ lower2
b CMP #97
l BCC lower2
v
 CMP #123
� BCS lower2
� LDX #0
�
 STX flag
� � #223
� .lower2
� JMP oswrch
� .comptext
� ]
� �
� �
� � code=0 � 37
� � chars?code:�
� � code=38 � 63
 chars?code=code+59:�
 $table=" etaoinshrdlugcy"
 � check=0 � �TtH
 % �check(compress,store+8,&30B3,1)
*% �check(start,comptext-1,&5C72,2)
4 �
> � ************************
H ��check(S%,F%,C%,E%)
R	 T%=0
\ � M%=S% � F%:T%=T%+?M%:�
fL � T%<>C% �"Error ";E%;" in PROCassemble"'"Please check and try again":�
p �
z � ************************
�
 ݤask
� traphex=�
� �:� Y%=3 � 4
� � 31,6,Y%,132,157,135,141
�# �"BBC TEXT COMPRESSOR   ";�156
� �
�6 �'''"Store system and text in memory at"'"&"addr$
� start=�("&"+addr$)
�\ � start<&B00 � start>(�-&200) � (start>(�-&200) � start<(!&2 � &FFFF)+256) dummy=&error
� traphex=�
� =start
� � ************************
� ��compress
	" address=comptext+1:original=2
	
 number=0
	 �
	$ � text$:$string=text$
	. � text$="*" �DtI
	8 � compress
	B $address=$compstr
	L" address=address+�($compstr)+1
	V. � address>� �"Memory full at"'text$:� 7:�
	`! original=original+�(text$)+1
	j number=number+1
	t � text$="*" � ?flag
	~9 � ?flag � "Illegal character in string:"'text$:� 7:�
	� ?comptext=number-1
	�C �'"Text compressed to ";�(100*(address-comptext)/original);"%"
	�D �'"Now save decompression system"'"and compressed text using:"'
	�2 � "*SAVE <filename> ";~start;" ";~address+1''
	� �
	� � ************************
	�J � �=28 � traphex �'"Illegal entry"'"Please try again":Q=�(100):� �T|@
	�H � �=17 �''"You wish to escape (Y/N) ?";:key=� � &DF:� key=78 � �T|@
	�
 �:�''':�
	� �" at line ";�
	� �
	� � ************************
 � 0,1,32,46,44,33,63,34,39

 � 40,41,58,59,13,47,45,96
 � 48,49,50,51,52,53,54,55
  � 56,57,129,130,131,132,133
( � 134,135,136,137,140,141
2 � ************************
< � Enter text in data lines
F � after this point
P � ************************
Z  � "This is just an example"
d- � "of a piece of text to be compressed."
n- � "You should insert your own text into"
x% � "data lines, and end the data"
� � "with an asterisk."
�� � "It is possible to use the hash#character in your text to start a new#line. This facility is useful for a#long message where otherwise words#would be broken between lines."
�� � "Mode 7 teletext colour codes (as#produced by the function keys) are also#allowed, but only the basic colours and#double height codes."
�
 � "*"
�

00000000  0d 00 0a 1d 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.... . *********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 00 14  |*************...|
00000020  1c 20 f4 20 20 42 42 43  20 54 45 58 54 20 43 4f  |. .  BBC TEXT CO|
00000030  4d 50 52 45 53 53 49 4f  4e 0d 00 1e 1b 20 f4 20  |MPRESSION.... . |
00000040  20 20 42 79 20 4a 6f 6e  61 74 68 61 6e 20 54 65  |  By Jonathan Te|
00000050  6d 70 6c 65 0d 00 28 19  20 f4 20 28 63 29 20 54  |mple..(. . (c) T|
00000060  68 65 20 4d 69 63 72 6f  20 55 73 65 72 0d 00 32  |he Micro User..2|
00000070  1d 20 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. . ************|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 00 3c 0e 20 74  |**********..<. t|
00000090  72 61 70 68 65 78 3d a3  0d 00 46 0f 20 ee 20 85  |raphex=...F. . .|
000000a0  20 e5 20 8d 64 44 49 0d  00 50 08 20 eb 20 37 0d  | . .dDI..P. . 7.|
000000b0  00 5a 0f 20 73 74 61 72  74 3d a4 61 73 6b 0d 00  |.Z. start=.ask..|
000000c0  64 17 20 f2 61 73 73 65  6d 62 6c 65 28 26 37 30  |d. .assemble(&70|
000000d0  30 30 2c 31 29 0d 00 6e  17 20 f2 61 73 73 65 6d  |00,1)..n. .assem|
000000e0  62 6c 65 28 73 74 61 72  74 2c 30 29 0d 00 78 0e  |ble(start,0)..x.|
000000f0  20 f2 63 6f 6d 70 72 65  73 73 0d 00 82 06 20 e0  | .compress.... .|
00000100  0d 00 8c 1f 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.... . *********|
00000110  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00000120  00 96 1c 20 dd f2 61 73  73 65 6d 62 6c 65 28 73  |... ..assemble(s|
00000130  74 61 72 74 2c 63 68 65  63 6b 29 0d 00 a0 0d 20  |tart,check).... |
00000140  66 6c 61 67 3d 26 37 30  0d 00 aa 0d 20 74 70 6f  |flag=&70.... tpo|
00000150  73 3d 26 37 31 0d 00 b4  0d 20 74 65 78 74 3d 26  |s=&71.... text=&|
00000160  37 31 0d 00 be 0d 20 74  65 6d 70 3d 26 37 32 0d  |71.... temp=&72.|
00000170  00 c8 0d 20 63 68 61 72  3d 26 37 33 0d 00 d2 10  |... char=&73....|
00000180  20 74 61 62 6c 65 3d 73  74 61 72 74 0d 00 dc 13  | table=start....|
00000190  20 63 68 61 72 73 3d 73  74 61 72 74 2b 31 37 0d  | chars=start+17.|
000001a0  00 e6 10 20 73 74 72 69  6e 67 3d 26 39 30 30 0d  |... string=&900.|
000001b0  00 f0 11 20 63 6f 6d 70  73 74 72 3d 26 41 30 30  |... compstr=&A00|
000001c0  0d 00 fa 11 20 6f 73 6e  65 77 6c 3d 26 46 46 45  |.... osnewl=&FFE|
000001d0  37 0d 01 04 11 20 6f 73  77 72 63 68 3d 26 46 46  |7.... oswrch=&FF|
000001e0  45 45 0d 01 0e 15 20 e3  20 70 61 73 73 3d 30 20  |EE.... . pass=0 |
000001f0  b8 20 32 20 88 20 32 0d  01 18 0c 20 50 25 3d 26  |. 2 . 2.... P%=&|
00000200  43 30 30 0d 01 22 0e 20  5b 4f 50 54 20 70 61 73  |C00..". [OPT pas|
00000210  73 0d 01 2c 0e 20 2e 63  6f 6d 70 72 65 73 73 0d  |s..,. .compress.|
00000220  01 36 0b 20 4c 44 59 20  23 30 0d 01 40 0d 20 53  |.6. LDY #0..@. S|
00000230  54 59 20 66 6c 61 67 0d  01 4a 08 20 44 45 59 0d  |TY flag..J. DEY.|
00000240  01 54 0d 20 53 54 59 20  74 70 6f 73 0d 01 5e 0e  |.T. STY tpos..^.|
00000250  20 2e 63 6f 6e 74 69 6e  75 65 0d 01 68 08 20 49  | .continue..h. I|
00000260  4e 59 0d 01 72 11 20 4c  44 41 20 73 74 72 69 6e  |NY..r. LDA strin|
00000270  67 2c 59 0d 01 7c 0c 20  43 4d 50 20 23 33 35 0d  |g,Y..|. CMP #35.|
00000280  01 86 0e 20 42 4e 45 20  6e 68 61 73 68 0d 01 90  |... BNE nhash...|
00000290  0b 20 4c 44 41 20 23 30  0d 01 9a 0d 20 42 45 51  |. LDA #0.... BEQ|
000002a0  20 63 6f 64 65 0d 01 a4  0b 20 2e 6e 68 61 73 68  | code.... .nhash|
000002b0  0d 01 ae 0e 20 4a 53 52  20 6c 6f 77 65 72 0d 01  |.... JSR lower..|
000002c0  b8 0d 20 53 54 41 20 63  68 61 72 0d 01 c2 0c 20  |.. STA char.... |
000002d0  4c 44 58 20 23 31 35 0d  01 cc 0b 20 2e 6c 6f 6f  |LDX #15.... .loo|
000002e0  70 31 0d 01 d6 10 20 43  4d 50 20 74 61 62 6c 65  |p1.... CMP table|
000002f0  2c 58 0d 01 e0 0e 20 42  45 51 20 6d 61 74 63 68  |,X.... BEQ match|
00000300  0d 01 ea 08 20 44 45 58  0d 01 f4 0e 20 42 50 4c  |.... DEX.... BPL|
00000310  20 6c 6f 6f 70 31 0d 01  fe 0c 20 2e 73 69 6e 67  | loop1.... .sing|
00000320  6c 65 0d 02 08 0d 20 4c  44 41 20 63 68 61 72 0d  |le.... LDA char.|
00000330  02 12 0a 20 2e 63 6f 64  65 0d 02 1c 0c 20 4c 44  |... .code.... LD|
00000340  58 20 23 36 33 0d 02 26  0b 20 2e 6c 6f 6f 70 32  |X #63..&. .loop2|
00000350  0d 02 30 10 20 43 4d 50  20 63 68 61 72 73 2c 58  |..0. CMP chars,X|
00000360  0d 02 3a 0d 20 42 4e 45  20 6e 65 78 74 0d 02 44  |..:. BNE next..D|
00000370  08 20 54 58 41 0d 02 4e  0e 20 4a 53 52 20 73 74  |. TXA..N. JSR st|
00000380  6f 72 65 0d 02 58 0c 20  43 4d 50 20 23 31 33 0d  |ore..X. CMP #13.|
00000390  02 62 11 20 42 4e 45 20  63 6f 6e 74 69 6e 75 65  |.b. BNE continue|
000003a0  0d 02 6c 0b 20 4c 44 41  20 23 30 0d 02 76 0c 20  |..l. LDA #0..v. |
000003b0  42 45 51 20 73 65 74 0d  02 80 0a 20 2e 6e 65 78  |BEQ set.... .nex|
000003c0  74 0d 02 8a 08 20 44 45  58 0d 02 94 0e 20 42 50  |t.... DEX.... BP|
000003d0  4c 20 6c 6f 6f 70 32 0d  02 9e 09 20 2e 73 65 74  |L loop2.... .set|
000003e0  0d 02 a8 0d 20 53 54 41  20 66 6c 61 67 0d 02 b2  |.... STA flag...|
000003f0  08 20 52 54 53 0d 02 bc  0b 20 2e 6d 61 74 63 68  |. RTS.... .match|
00000400  0d 02 c6 0d 20 53 54 58  20 74 65 6d 70 0d 02 d0  |.... STX temp...|
00000410  13 20 4c 44 41 20 73 74  72 69 6e 67 2b 31 2c 59  |. LDA string+1,Y|
00000420  0d 02 da 0c 20 4c 44 58  20 23 31 32 0d 02 e4 0b  |.... LDX #12....|
00000430  20 2e 6c 6f 6f 70 33 0d  02 ee 08 20 44 45 58 0d  | .loop3.... DEX.|
00000440  02 f8 0f 20 42 4d 49 20  73 69 6e 67 6c 65 0d 03  |... BMI single..|
00000450  02 10 20 43 4d 50 20 74  61 62 6c 65 2c 58 0d 03  |.. CMP table,X..|
00000460  0c 0e 20 42 4e 45 20 6c  6f 6f 70 33 0d 03 16 08  |.. BNE loop3....|
00000470  20 54 58 41 0d 03 20 0a  20 41 53 4c 20 41 0d 03  | TXA.. . ASL A..|
00000480  2a 0a 20 41 53 4c 20 41  0d 03 34 0a 20 41 53 4c  |*. ASL A..4. ASL|
00000490  20 41 0d 03 3e 0a 20 41  53 4c 20 41 0d 03 48 08  | A..>. ASL A..H.|
000004a0  20 43 4c 43 0d 03 52 0d  20 41 44 43 20 74 65 6d  | CLC..R. ADC tem|
000004b0  70 0d 03 5c 0c 20 41 44  43 20 23 36 34 0d 03 66  |p..\. ADC #64..f|
000004c0  08 20 49 4e 59 0d 03 70  0e 20 4a 53 52 20 73 74  |. INY..p. JSR st|
000004d0  6f 72 65 0d 03 7a 11 20  42 43 43 20 63 6f 6e 74  |ore..z. BCC cont|
000004e0  69 6e 75 65 0d 03 84 0b  20 2e 6c 6f 77 65 72 0d  |inue.... .lower.|
000004f0  03 8e 0c 20 43 4d 50 20  23 36 35 0d 03 98 0f 20  |... CMP #65.... |
00000500  42 43 43 20 72 65 74 75  72 6e 0d 03 a2 0c 20 43  |BCC return.... C|
00000510  4d 50 20 23 39 31 0d 03  ac 0f 20 42 43 53 20 72  |MP #91.... BCS r|
00000520  65 74 75 72 6e 0d 03 b6  0b 20 84 41 20 23 33 32  |eturn.... .A #32|
00000530  0d 03 c0 08 20 50 48 41  0d 03 ca 0b 20 4c 44 41  |.... PHA.... LDA|
00000540  20 23 31 0d 03 d4 0e 20  4a 53 52 20 73 74 6f 72  | #1.... JSR stor|
00000550  65 0d 03 de 08 20 50 4c  41 0d 03 e8 0c 20 2e 72  |e.... PLA.... .r|
00000560  65 74 75 72 6e 0d 03 f2  08 20 52 54 53 0d 03 fc  |eturn.... RTS...|
00000570  0b 20 2e 73 74 6f 72 65  0d 04 06 0d 20 49 4e 43  |. .store.... INC|
00000580  20 74 70 6f 73 0d 04 10  0d 20 4c 44 58 20 74 70  | tpos.... LDX tp|
00000590  6f 73 0d 04 1a 12 20 53  54 41 20 63 6f 6d 70 73  |os.... STA comps|
000005a0  74 72 2c 58 0d 04 24 08  20 43 4c 43 0d 04 2e 08  |tr,X..$. CLC....|
000005b0  20 52 54 53 0d 04 38 06  20 5d 0d 04 42 10 20 50  | RTS..8. ]..B. P|
000005c0  25 3d 63 68 61 72 73 2b  36 34 0d 04 4c 0e 20 5b  |%=chars+64..L. [|
000005d0  4f 50 54 20 70 61 73 73  0d 04 56 0d 20 2e 6d 65  |OPT pass..V. .me|
000005e0  73 73 61 67 65 0d 04 60  08 20 54 41 58 0d 04 6a  |ssage..`. TAX..j|
000005f0  18 20 4c 44 41 20 23 63  6f 6d 70 74 65 78 74 20  |. LDA #comptext |
00000600  83 20 32 35 36 0d 04 74  0d 20 53 54 41 20 74 65  |. 256..t. STA te|
00000610  78 74 0d 04 7e 18 20 4c  44 41 20 23 63 6f 6d 70  |xt..~. LDA #comp|
00000620  74 65 78 74 20 81 20 32  35 36 0d 04 88 0f 20 53  |text . 256.... S|
00000630  54 41 20 74 65 78 74 2b  31 0d 04 92 0b 20 4c 44  |TA text+1.... LD|
00000640  59 20 23 30 0d 04 9c 08  20 54 58 41 0d 04 a6 11  |Y #0.... TXA....|
00000650  20 43 4d 50 20 28 74 65  78 74 29 2c 59 0d 04 b0  | CMP (text),Y...|
00000660  0f 20 42 43 43 20 77 69  74 68 69 6e 0d 04 ba 0f  |. BCC within....|
00000670  20 42 45 51 20 77 69 74  68 69 6e 0d 04 c4 08 20  | BEQ within.... |
00000680  42 52 4b 0d 04 ce 06 20  5d 0d 04 d8 13 20 3f 50  |BRK.... ].... ?P|
00000690  25 3d 34 36 3a 50 25 3d  50 25 2b 31 0d 04 e2 16  |%=46:P%=P%+1....|
000006a0  20 24 50 25 3d 22 42 61  64 20 6d 65 73 73 61 67  | $P%="Bad messag|
000006b0  65 22 0d 04 ec 11 20 50  25 3d 50 25 2b a9 28 24  |e".... P%=P%+.($|
000006c0  50 25 29 0d 04 f6 0e 20  5b 4f 50 54 20 70 61 73  |P%).... [OPT pas|
000006d0  73 0d 05 00 08 20 42 52  4b 0d 05 0a 0c 20 2e 77  |s.... BRK.... .w|
000006e0  69 74 68 69 6e 0d 05 14  08 20 54 58 41 0d 05 1e  |ithin.... TXA...|
000006f0  11 20 42 45 51 20 70 72  69 6e 74 6f 75 74 0d 05  |. BEQ printout..|
00000700  28 0b 20 4c 44 59 20 23  31 0d 05 32 0c 20 2e 73  |(. LDY #1..2. .s|
00000710  65 61 72 63 68 0d 05 3c  11 20 4c 44 41 20 28 74  |earch..<. LDA (t|
00000720  65 78 74 29 2c 59 0d 05  46 08 20 50 48 41 0d 05  |ext),Y..F. PHA..|
00000730  50 0d 20 4c 44 41 20 74  65 78 74 0d 05 5a 09 20  |P. LDA text..Z. |
00000740  43 4c 43 20 0d 05 64 0b  20 41 44 43 20 23 31 0d  |CLC ..d. ADC #1.|
00000750  05 6e 0e 20 42 43 43 20  63 6c 65 61 72 0d 05 78  |.n. BCC clear..x|
00000760  0f 20 49 4e 43 20 74 65  78 74 2b 31 0d 05 82 0b  |. INC text+1....|
00000770  20 2e 63 6c 65 61 72 0d  05 8c 0d 20 53 54 41 20  | .clear.... STA |
00000780  74 65 78 74 0d 05 96 08  20 50 4c 41 0d 05 a0 0c  |text.... PLA....|
00000790  20 43 4d 50 20 23 31 33  0d 05 aa 0f 20 42 4e 45  | CMP #13.... BNE|
000007a0  20 73 65 61 72 63 68 0d  05 b4 08 20 44 45 58 0d  | search.... DEX.|
000007b0  05 be 0f 20 42 4e 45 20  73 65 61 72 63 68 0d 05  |... BNE search..|
000007c0  c8 0e 20 2e 70 72 69 6e  74 6f 75 74 0d 05 d2 0b  |.. .printout....|
000007d0  20 4c 44 59 20 23 30 0d  05 dc 0d 20 53 54 59 20  | LDY #0.... STY |
000007e0  66 6c 61 67 0d 05 e6 0e  20 2e 6e 65 78 74 63 68  |flag.... .nextch|
000007f0  61 72 0d 05 f0 08 20 49  4e 59 0d 05 fa 11 20 4c  |ar.... INY.... L|
00000800  44 41 20 28 74 65 78 74  29 2c 59 0d 06 04 0c 20  |DA (text),Y.... |
00000810  43 4d 50 20 23 36 34 0d  06 0e 10 20 42 43 43 20  |CMP #64.... BCC |
00000820  6e 6f 74 63 6f 64 65 0d  06 18 0c 20 53 42 43 20  |notcode.... SBC |
00000830  23 36 34 0d 06 22 08 20  50 48 41 0d 06 2c 0a 20  |#64..". PHA..,. |
00000840  80 20 23 31 35 0d 06 36  08 20 54 41 58 0d 06 40  |. #15..6. TAX..@|
00000850  10 20 4c 44 41 20 74 61  62 6c 65 2c 58 0d 06 4a  |. LDA table,X..J|
00000860  0e 20 4a 53 52 20 70 72  69 6e 74 0d 06 54 08 20  |. JSR print..T. |
00000870  50 4c 41 0d 06 5e 0a 20  4c 53 52 20 41 0d 06 68  |PLA..^. LSR A..h|
00000880  0a 20 4c 53 52 20 41 0d  06 72 0a 20 4c 53 52 20  |. LSR A..r. LSR |
00000890  41 0d 06 7c 0a 20 4c 53  52 20 41 0d 06 86 08 20  |A..|. LSR A.... |
000008a0  54 41 58 0d 06 90 10 20  4c 44 41 20 74 61 62 6c  |TAX.... LDA tabl|
000008b0  65 2c 58 0d 06 9a 10 20  42 50 4c 20 6f 6c 64 6c  |e,X.... BPL oldl|
000008c0  69 6e 65 0d 06 a4 0d 20  2e 6e 6f 74 63 6f 64 65  |ine.... .notcode|
000008d0  0d 06 ae 08 20 54 41 58  0d 06 b8 10 20 4c 44 41  |.... TAX.... LDA|
000008e0  20 63 68 61 72 73 2c 58  0d 06 c2 10 20 42 4e 45  | chars,X.... BNE|
000008f0  20 6f 6c 64 6c 69 6e 65  0d 06 cc 0f 20 4a 53 52  | oldline.... JSR|
00000900  20 6f 73 6e 65 77 6c 0d  06 d6 0b 20 4c 44 41 20  | osnewl.... LDA |
00000910  23 30 0d 06 e0 0d 20 2e  6f 6c 64 6c 69 6e 65 0d  |#0.... .oldline.|
00000920  06 ea 0b 20 43 4d 50 20  23 31 0d 06 f4 0d 20 42  |... CMP #1.... B|
00000930  4e 45 20 6e 73 65 74 0d  06 fe 0d 20 53 54 41 20  |NE nset.... STA |
00000940  66 6c 61 67 0d 07 08 0b  20 4c 44 41 20 23 30 0d  |flag.... LDA #0.|
00000950  07 12 0a 20 2e 6e 73 65  74 0d 07 1c 14 20 43 4d  |... .nset.... CM|
00000960  50 20 23 31 33 3a 42 45  51 20 6f 75 74 0d 07 26  |P #13:BEQ out..&|
00000970  0e 20 4a 53 52 20 70 72  69 6e 74 0d 07 30 11 20  |. JSR print..0. |
00000980  42 50 4c 20 6e 65 78 74  63 68 61 72 0d 07 3a 0d  |BPL nextchar..:.|
00000990  20 2e 6f 75 74 20 52 54  53 0d 07 44 0b 20 2e 70  | .out RTS..D. .p|
000009a0  72 69 6e 74 0d 07 4e 0d  20 4c 44 58 20 66 6c 61  |rint..N. LDX fla|
000009b0  67 0d 07 58 0f 20 42 45  51 20 6c 6f 77 65 72 32  |g..X. BEQ lower2|
000009c0  0d 07 62 0c 20 43 4d 50  20 23 39 37 0d 07 6c 0f  |..b. CMP #97..l.|
000009d0  20 42 43 43 20 6c 6f 77  65 72 32 0d 07 76 0d 20  | BCC lower2..v. |
000009e0  43 4d 50 20 23 31 32 33  0d 07 80 0f 20 42 43 53  |CMP #123.... BCS|
000009f0  20 6c 6f 77 65 72 32 0d  07 8a 0b 20 4c 44 58 20  | lower2.... LDX |
00000a00  23 30 0d 07 94 0d 20 53  54 58 20 66 6c 61 67 0d  |#0.... STX flag.|
00000a10  07 9e 0b 20 80 20 23 32  32 33 0d 07 a8 0c 20 2e  |... . #223.... .|
00000a20  6c 6f 77 65 72 32 0d 07  b2 0f 20 4a 4d 50 20 6f  |lower2.... JMP o|
00000a30  73 77 72 63 68 0d 07 bc  0e 20 2e 63 6f 6d 70 74  |swrch.... .compt|
00000a40  65 78 74 0d 07 c6 06 20  5d 0d 07 d0 06 20 ed 0d  |ext.... ].... ..|
00000a50  07 da 06 20 f7 0d 07 e4  12 20 e3 20 63 6f 64 65  |... ..... . code|
00000a60  3d 30 20 b8 20 33 37 0d  07 ee 13 20 f3 20 63 68  |=0 . 37.... . ch|
00000a70  61 72 73 3f 63 6f 64 65  3a ed 0d 07 f8 13 20 e3  |ars?code:..... .|
00000a80  20 63 6f 64 65 3d 33 38  20 b8 20 36 33 0d 08 02  | code=38 . 63...|
00000a90  19 20 63 68 61 72 73 3f  63 6f 64 65 3d 63 6f 64  |. chars?code=cod|
00000aa0  65 2b 35 39 3a ed 0d 08  0c 1e 20 24 74 61 62 6c  |e+59:..... $tabl|
00000ab0  65 3d 22 20 65 74 61 6f  69 6e 73 68 72 64 6c 75  |e=" etaoinshrdlu|
00000ac0  67 63 79 22 0d 08 16 15  20 e7 20 63 68 65 63 6b  |gcy".... . check|
00000ad0  3d 30 20 e5 20 8d 54 74  48 0d 08 20 25 20 f2 63  |=0 . .TtH.. % .c|
00000ae0  68 65 63 6b 28 63 6f 6d  70 72 65 73 73 2c 73 74  |heck(compress,st|
00000af0  6f 72 65 2b 38 2c 26 33  30 42 33 2c 31 29 0d 08  |ore+8,&30B3,1)..|
00000b00  2a 25 20 f2 63 68 65 63  6b 28 73 74 61 72 74 2c  |*% .check(start,|
00000b10  63 6f 6d 70 74 65 78 74  2d 31 2c 26 35 43 37 32  |comptext-1,&5C72|
00000b20  2c 32 29 0d 08 34 06 20  e1 0d 08 3e 1f 20 f4 20  |,2)..4. ...>. . |
00000b30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000b40  2a 2a 2a 2a 2a 2a 2a 2a  0d 08 48 19 20 dd f2 63  |********..H. ..c|
00000b50  68 65 63 6b 28 53 25 2c  46 25 2c 43 25 2c 45 25  |heck(S%,F%,C%,E%|
00000b60  29 0d 08 52 09 20 54 25  3d 30 0d 08 5c 1d 20 e3  |)..R. T%=0..\. .|
00000b70  20 4d 25 3d 53 25 20 b8  20 46 25 3a 54 25 3d 54  | M%=S% . F%:T%=T|
00000b80  25 2b 3f 4d 25 3a ed 0d  08 66 4c 20 e7 20 54 25  |%+?M%:...fL . T%|
00000b90  3c 3e 43 25 20 f1 22 45  72 72 6f 72 20 22 3b 45  |<>C% ."Error ";E|
00000ba0  25 3b 22 20 69 6e 20 50  52 4f 43 61 73 73 65 6d  |%;" in PROCassem|
00000bb0  62 6c 65 22 27 22 50 6c  65 61 73 65 20 63 68 65  |ble"'"Please che|
00000bc0  63 6b 20 61 6e 64 20 74  72 79 20 61 67 61 69 6e  |ck and try again|
00000bd0  22 3a e0 0d 08 70 06 20  e1 0d 08 7a 1f 20 f4 20  |":...p. ...z. . |
00000be0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000bf0  2a 2a 2a 2a 2a 2a 2a 2a  0d 08 84 0a 20 dd a4 61  |********.... ..a|
00000c00  73 6b 0d 08 8e 0e 20 74  72 61 70 68 65 78 3d b9  |sk.... traphex=.|
00000c10  0d 08 98 11 20 db 3a e3  20 59 25 3d 33 20 b8 20  |.... .:. Y%=3 . |
00000c20  34 0d 08 a2 1e 20 ef 20  33 31 2c 36 2c 59 25 2c  |4.... . 31,6,Y%,|
00000c30  31 33 32 2c 31 35 37 2c  31 33 35 2c 31 34 31 0d  |132,157,135,141.|
00000c40  08 ac 23 20 f1 22 42 42  43 20 54 45 58 54 20 43  |..# ."BBC TEXT C|
00000c50  4f 4d 50 52 45 53 53 4f  52 20 20 20 22 3b bd 31  |OMPRESSOR   ";.1|
00000c60  35 36 0d 08 b6 06 20 ed  0d 08 c0 36 20 e8 27 27  |56.... ....6 .''|
00000c70  27 22 53 74 6f 72 65 20  73 79 73 74 65 6d 20 61  |'"Store system a|
00000c80  6e 64 20 74 65 78 74 20  69 6e 20 6d 65 6d 6f 72  |nd text in memor|
00000c90  79 20 61 74 22 27 22 26  22 61 64 64 72 24 0d 08  |y at"'"&"addr$..|
00000ca0  ca 17 20 73 74 61 72 74  3d a0 28 22 26 22 2b 61  |.. start=.("&"+a|
00000cb0  64 64 72 24 29 0d 08 d4  5c 20 e7 20 73 74 61 72  |ddr$)...\ . star|
00000cc0  74 3c 26 42 30 30 20 84  20 73 74 61 72 74 3e 28  |t<&B00 . start>(|
00000cd0  93 2d 26 32 30 30 29 20  84 20 28 73 74 61 72 74  |.-&200) . (start|
00000ce0  3e 28 90 2d 26 32 30 30  29 20 80 20 73 74 61 72  |>(.-&200) . star|
00000cf0  74 3c 28 21 26 32 20 80  20 26 46 46 46 46 29 2b  |t<(!&2 . &FFFF)+|
00000d00  32 35 36 29 20 64 75 6d  6d 79 3d 26 65 72 72 6f  |256) dummy=&erro|
00000d10  72 0d 08 de 0e 20 74 72  61 70 68 65 78 3d a3 0d  |r.... traphex=..|
00000d20  08 e8 0b 20 3d 73 74 61  72 74 0d 08 f2 1f 20 f4  |... =start.... .|
00000d30  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000d40  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 08 fc 0f 20 dd f2  |*********.... ..|
00000d50  63 6f 6d 70 72 65 73 73  0d 09 06 22 20 61 64 64  |compress..." add|
00000d60  72 65 73 73 3d 63 6f 6d  70 74 65 78 74 2b 31 3a  |ress=comptext+1:|
00000d70  6f 72 69 67 69 6e 61 6c  3d 32 0d 09 10 0d 20 6e  |original=2.... n|
00000d80  75 6d 62 65 72 3d 30 0d  09 1a 06 20 f5 0d 09 24  |umber=0.... ...$|
00000d90  1a 20 f3 20 74 65 78 74  24 3a 24 73 74 72 69 6e  |. . text$:$strin|
00000da0  67 3d 74 65 78 74 24 0d  09 2e 16 20 e7 20 74 65  |g=text$.... . te|
00000db0  78 74 24 3d 22 2a 22 20  e5 8d 44 74 49 0d 09 38  |xt$="*" ..DtI..8|
00000dc0  0f 20 d6 20 63 6f 6d 70  72 65 73 73 0d 09 42 16  |. . compress..B.|
00000dd0  20 24 61 64 64 72 65 73  73 3d 24 63 6f 6d 70 73  | $address=$comps|
00000de0  74 72 0d 09 4c 22 20 61  64 64 72 65 73 73 3d 61  |tr..L" address=a|
00000df0  64 64 72 65 73 73 2b a9  28 24 63 6f 6d 70 73 74  |ddress+.($compst|
00000e00  72 29 2b 31 0d 09 56 2e  20 e7 20 61 64 64 72 65  |r)+1..V. . addre|
00000e10  73 73 3e 93 20 f1 22 4d  65 6d 6f 72 79 20 66 75  |ss>. ."Memory fu|
00000e20  6c 6c 20 61 74 22 27 74  65 78 74 24 3a ef 20 37  |ll at"'text$:. 7|
00000e30  3a e0 0d 09 60 21 20 6f  72 69 67 69 6e 61 6c 3d  |:...`! original=|
00000e40  6f 72 69 67 69 6e 61 6c  2b a9 28 74 65 78 74 24  |original+.(text$|
00000e50  29 2b 31 0d 09 6a 14 20  6e 75 6d 62 65 72 3d 6e  |)+1..j. number=n|
00000e60  75 6d 62 65 72 2b 31 0d  09 74 18 20 fd 20 74 65  |umber+1..t. . te|
00000e70  78 74 24 3d 22 2a 22 20  84 20 3f 66 6c 61 67 0d  |xt$="*" . ?flag.|
00000e80  09 7e 39 20 e7 20 3f 66  6c 61 67 20 f1 20 22 49  |.~9 . ?flag . "I|
00000e90  6c 6c 65 67 61 6c 20 63  68 61 72 61 63 74 65 72  |llegal character|
00000ea0  20 69 6e 20 73 74 72 69  6e 67 3a 22 27 74 65 78  | in string:"'tex|
00000eb0  74 24 3a ef 20 37 3a e0  0d 09 88 17 20 3f 63 6f  |t$:. 7:..... ?co|
00000ec0  6d 70 74 65 78 74 3d 6e  75 6d 62 65 72 2d 31 0d  |mptext=number-1.|
00000ed0  09 92 43 20 f1 27 22 54  65 78 74 20 63 6f 6d 70  |..C .'"Text comp|
00000ee0  72 65 73 73 65 64 20 74  6f 20 22 3b a8 28 31 30  |ressed to ";.(10|
00000ef0  30 2a 28 61 64 64 72 65  73 73 2d 63 6f 6d 70 74  |0*(address-compt|
00000f00  65 78 74 29 2f 6f 72 69  67 69 6e 61 6c 29 3b 22  |ext)/original);"|
00000f10  25 22 0d 09 9c 44 20 f1  27 22 4e 6f 77 20 73 61  |%"...D .'"Now sa|
00000f20  76 65 20 64 65 63 6f 6d  70 72 65 73 73 69 6f 6e  |ve decompression|
00000f30  20 73 79 73 74 65 6d 22  27 22 61 6e 64 20 63 6f  | system"'"and co|
00000f40  6d 70 72 65 73 73 65 64  20 74 65 78 74 20 75 73  |mpressed text us|
00000f50  69 6e 67 3a 22 27 0d 09  a6 32 20 f1 20 22 2a 53  |ing:"'...2 . "*S|
00000f60  41 56 45 20 3c 66 69 6c  65 6e 61 6d 65 3e 20 22  |AVE <filename> "|
00000f70  3b 7e 73 74 61 72 74 3b  22 20 22 3b 7e 61 64 64  |;~start;" ";~add|
00000f80  72 65 73 73 2b 31 27 27  0d 09 b0 06 20 e1 0d 09  |ress+1''.... ...|
00000f90  ba 1f 20 f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.. . ***********|
00000fa0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 09 c4  |*************...|
00000fb0  4a 20 e7 20 9f 3d 32 38  20 80 20 74 72 61 70 68  |J . .=28 . traph|
00000fc0  65 78 20 f1 27 22 49 6c  6c 65 67 61 6c 20 65 6e  |ex .'"Illegal en|
00000fd0  74 72 79 22 27 22 50 6c  65 61 73 65 20 74 72 79  |try"'"Please try|
00000fe0  20 61 67 61 69 6e 22 3a  51 3d a6 28 31 30 30 29  | again":Q=.(100)|
00000ff0  3a e5 20 8d 54 7c 40 0d  09 ce 48 20 e7 20 9f 3d  |:. .T|@...H . .=|
00001000  31 37 20 f1 27 27 22 59  6f 75 20 77 69 73 68 20  |17 .''"You wish |
00001010  74 6f 20 65 73 63 61 70  65 20 28 59 2f 4e 29 20  |to escape (Y/N) |
00001020  3f 22 3b 3a 6b 65 79 3d  a5 20 80 20 26 44 46 3a  |?";:key=. . &DF:|
00001030  e7 20 6b 65 79 3d 37 38  20 8c 20 8d 54 7c 40 0d  |. key=78 . .T|@.|
00001040  09 d8 0d 20 db 3a f1 27  27 27 3a f6 0d 09 e2 13  |... .:.''':.....|
00001050  20 f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 0d  | ." at line ";..|
00001060  09 ec 06 20 e0 0d 09 f6  1f 20 f4 20 2a 2a 2a 2a  |... ..... . ****|
00001070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001080  2a 2a 2a 2a 0d 0a 00 1f  20 dc 20 30 2c 31 2c 33  |****.... . 0,1,3|
00001090  32 2c 34 36 2c 34 34 2c  33 33 2c 36 33 2c 33 34  |2,46,44,33,63,34|
000010a0  2c 33 39 0d 0a 0a 1e 20  dc 20 34 30 2c 34 31 2c  |,39.... . 40,41,|
000010b0  35 38 2c 35 39 2c 31 33  2c 34 37 2c 34 35 2c 39  |58,59,13,47,45,9|
000010c0  36 0d 0a 14 1e 20 dc 20  34 38 2c 34 39 2c 35 30  |6.... . 48,49,50|
000010d0  2c 35 31 2c 35 32 2c 35  33 2c 35 34 2c 35 35 0d  |,51,52,53,54,55.|
000010e0  0a 1e 20 20 dc 20 35 36  2c 35 37 2c 31 32 39 2c  |..  . 56,57,129,|
000010f0  31 33 30 2c 31 33 31 2c  31 33 32 2c 31 33 33 0d  |130,131,132,133.|
00001100  0a 28 1e 20 dc 20 31 33  34 2c 31 33 35 2c 31 33  |.(. . 134,135,13|
00001110  36 2c 31 33 37 2c 31 34  30 2c 31 34 31 0d 0a 32  |6,137,140,141..2|
00001120  1f 20 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. . ************|
00001130  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 0a 3c 1f  |************..<.|
00001140  20 f4 20 45 6e 74 65 72  20 74 65 78 74 20 69 6e  | . Enter text in|
00001150  20 64 61 74 61 20 6c 69  6e 65 73 0d 0a 46 17 20  | data lines..F. |
00001160  f4 20 61 66 74 65 72 20  74 68 69 73 20 70 6f 69  |. after this poi|
00001170  6e 74 0d 0a 50 1f 20 f4  20 2a 2a 2a 2a 2a 2a 2a  |nt..P. . *******|
00001180  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001190  2a 0d 0a 5a 20 20 dc 20  22 54 68 69 73 20 69 73  |*..Z  . "This is|
000011a0  20 6a 75 73 74 20 61 6e  20 65 78 61 6d 70 6c 65  | just an example|
000011b0  22 0d 0a 64 2d 20 dc 20  22 6f 66 20 61 20 70 69  |"..d- . "of a pi|
000011c0  65 63 65 20 6f 66 20 74  65 78 74 20 74 6f 20 62  |ece of text to b|
000011d0  65 20 63 6f 6d 70 72 65  73 73 65 64 2e 22 0d 0a  |e compressed."..|
000011e0  6e 2d 20 dc 20 22 59 6f  75 20 73 68 6f 75 6c 64  |n- . "You should|
000011f0  20 69 6e 73 65 72 74 20  79 6f 75 72 20 6f 77 6e  | insert your own|
00001200  20 74 65 78 74 20 69 6e  74 6f 22 0d 0a 78 25 20  | text into"..x% |
00001210  dc 20 22 64 61 74 61 20  6c 69 6e 65 73 2c 20 61  |. "data lines, a|
00001220  6e 64 20 65 6e 64 20 74  68 65 20 64 61 74 61 22  |nd end the data"|
00001230  0d 0a 82 1a 20 dc 20 22  77 69 74 68 20 61 6e 20  |.... . "with an |
00001240  61 73 74 65 72 69 73 6b  2e 22 0d 0a 8c b3 20 dc  |asterisk.".... .|
00001250  20 22 49 74 20 69 73 20  70 6f 73 73 69 62 6c 65  | "It is possible|
00001260  20 74 6f 20 75 73 65 20  74 68 65 20 68 61 73 68  | to use the hash|
00001270  23 63 68 61 72 61 63 74  65 72 20 69 6e 20 79 6f  |#character in yo|
00001280  75 72 20 74 65 78 74 20  74 6f 20 73 74 61 72 74  |ur text to start|
00001290  20 61 20 6e 65 77 23 6c  69 6e 65 2e 20 54 68 69  | a new#line. Thi|
000012a0  73 20 66 61 63 69 6c 69  74 79 20 69 73 20 75 73  |s facility is us|
000012b0  65 66 75 6c 20 66 6f 72  20 61 23 6c 6f 6e 67 20  |eful for a#long |
000012c0  6d 65 73 73 61 67 65 20  77 68 65 72 65 20 6f 74  |message where ot|
000012d0  68 65 72 77 69 73 65 20  77 6f 72 64 73 23 77 6f  |herwise words#wo|
000012e0  75 6c 64 20 62 65 20 62  72 6f 6b 65 6e 20 62 65  |uld be broken be|
000012f0  74 77 65 65 6e 20 6c 69  6e 65 73 2e 22 0d 0a 96  |tween lines."...|
00001300  8e 20 dc 20 22 4d 6f 64  65 20 37 20 74 65 6c 65  |. . "Mode 7 tele|
00001310  74 65 78 74 20 63 6f 6c  6f 75 72 20 63 6f 64 65  |text colour code|
00001320  73 20 28 61 73 23 70 72  6f 64 75 63 65 64 20 62  |s (as#produced b|
00001330  79 20 74 68 65 20 66 75  6e 63 74 69 6f 6e 20 6b  |y the function k|
00001340  65 79 73 29 20 61 72 65  20 61 6c 73 6f 23 61 6c  |eys) are also#al|
00001350  6c 6f 77 65 64 2c 20 62  75 74 20 6f 6e 6c 79 20  |lowed, but only |
00001360  74 68 65 20 62 61 73 69  63 20 63 6f 6c 6f 75 72  |the basic colour|
00001370  73 20 61 6e 64 23 64 6f  75 62 6c 65 20 68 65 69  |s and#double hei|
00001380  67 68 74 20 63 6f 64 65  73 2e 22 0d 0a a0 0a 20  |ght codes.".... |
00001390  dc 20 22 2a 22 0d ff                              |. "*"..|
00001397

General/TXTCOMP.m0

General/TXTCOMP.m1

General/TXTCOMP.m2

General/TXTCOMP.m4

General/TXTCOMP.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .