� Text Display
� By B.T.Lapthorn
� (c) The Micro User
(:
2�4
<	�init
F�23;8202;0;0;0;
P�
Z�hp("Big text",7)
d�ital("Prints italics !!!")
n"A$="":�ch%=33�126:A$=A$+�ch%:�
x
�ital(A$)
��
�
��init
�q%=�-&100:c%=�-&110
�italics%=&900
��opt%=0�2�2
�P%=italics%
�[OPTopt%
�
LDY #0
�.l
�!LDAq%,Y:STA c%:CMP#13:BEQ out
�STY &70:JSR ital:LDY &70
�
INY:JMP l
�.out JSR&FFEE:JSR&FFEE:RTS

:

	.ital

LDX#c% � 256:LDY#c% � 256

"LDA#10:JSR &FFF1

,LDA c%:CMP#�"a"

6BCS lw:BEQ lw

@
BCC up

JRTS

T!.lw ASL c%+5:ASL c%+6:JMP prt

^ .up ASL c%+7:ASL c%+8:JMP lw

h.prt

r$LDA#23:JSR&FFEE:LDA#254:JSR&FFEE

|	LDX#0

�.lp

�INX:LDA c%,X:JSR &FFEE

�CPX#8:BNE lp

�LDA#254:JSR&FFEE

�RTS:]:�

��

�:

���ital($q%):�&900:�:�

�:

���hp(t$,h%):�h%<3�h%>23�

�X%=c%�256:Y%=c%�256:A%=10:�B%=1��t$:?c%=��t$,B%,1):�&FFF1:t%=0:�23,254:�i%=1�8:�C%=1�h%:�c%?i%:t%=t%+1:�t%=8 t%=0:�254,8,10,23,254

�7�C%:�i%:�z%=1�h%*2+(8-h%):�11:�:�9:�:�z%=1�h%:�:�:�
�

00000000  0d 00 0a 12 f4 20 54 65  78 74 20 44 69 73 70 6c  |..... Text Displ|
00000010  61 79 0d 00 14 15 f4 20  42 79 20 42 2e 54 2e 4c  |ay..... By B.T.L|
00000020  61 70 74 68 6f 72 6e 0d  00 1e 18 f4 20 28 63 29  |apthorn..... (c)|
00000030  20 54 68 65 20 4d 69 63  72 6f 20 55 73 65 72 0d  | The Micro User.|
00000040  00 28 05 3a 0d 00 32 06  eb 34 0d 00 3c 09 f2 69  |.(.:..2..4..<..i|
00000050  6e 69 74 0d 00 46 13 ef  32 33 3b 38 32 30 32 3b  |nit..F..23;8202;|
00000060  30 3b 30 3b 30 3b 0d 00  50 05 f1 0d 00 5a 15 f2  |0;0;0;..P....Z..|
00000070  68 70 28 22 42 69 67 20  74 65 78 74 22 2c 37 29  |hp("Big text",7)|
00000080  0d 00 64 1f f2 69 74 61  6c 28 22 50 72 69 6e 74  |..d..ital("Print|
00000090  73 20 69 74 61 6c 69 63  73 20 21 21 21 22 29 0d  |s italics !!!").|
000000a0  00 6e 22 41 24 3d 22 22  3a e3 63 68 25 3d 33 33  |.n"A$="":.ch%=33|
000000b0  b8 31 32 36 3a 41 24 3d  41 24 2b bd 63 68 25 3a  |.126:A$=A$+.ch%:|
000000c0  ed 0d 00 78 0d f2 69 74  61 6c 28 41 24 29 0d 00  |...x..ital(A$)..|
000000d0  82 05 e0 0d 00 8c 0a dd  f2 69 6e 69 74 0d 00 96  |.........init...|
000000e0  17 71 25 3d 93 2d 26 31  30 30 3a 63 25 3d 93 2d  |.q%=.-&100:c%=.-|
000000f0  26 31 31 30 0d 00 a0 11  69 74 61 6c 69 63 73 25  |&110....italics%|
00000100  3d 26 39 30 30 0d 00 aa  0f e3 6f 70 74 25 3d 30  |=&900.....opt%=0|
00000110  b8 32 88 32 0d 00 b4 0f  50 25 3d 69 74 61 6c 69  |.2.2....P%=itali|
00000120  63 73 25 0d 00 be 0c 5b  4f 50 54 6f 70 74 25 0d  |cs%....[OPTopt%.|
00000130  00 c8 0a 4c 44 59 20 23  30 0d 00 d2 06 2e 6c 0d  |...LDY #0.....l.|
00000140  00 dc 21 4c 44 41 71 25  2c 59 3a 53 54 41 20 63  |..!LDAq%,Y:STA c|
00000150  25 3a 43 4d 50 23 31 33  3a 42 45 51 20 6f 75 74  |%:CMP#13:BEQ out|
00000160  0d 00 e6 1c 53 54 59 20  26 37 30 3a 4a 53 52 20  |....STY &70:JSR |
00000170  69 74 61 6c 3a 4c 44 59  20 26 37 30 0d 00 f0 0d  |ital:LDY &70....|
00000180  49 4e 59 3a 4a 4d 50 20  6c 0d 00 fa 1e 2e 6f 75  |INY:JMP l.....ou|
00000190  74 20 4a 53 52 26 46 46  45 45 3a 4a 53 52 26 46  |t JSR&FFEE:JSR&F|
000001a0  46 45 45 3a 52 54 53 0d  01 04 05 3a 0d 01 0e 09  |FEE:RTS....:....|
000001b0  2e 69 74 61 6c 0d 01 18  1d 4c 44 58 23 63 25 20  |.ital....LDX#c% |
000001c0  83 20 32 35 36 3a 4c 44  59 23 63 25 20 81 20 32  |. 256:LDY#c% . 2|
000001d0  35 36 0d 01 22 14 4c 44  41 23 31 30 3a 4a 53 52  |56..".LDA#10:JSR|
000001e0  20 26 46 46 46 31 0d 01  2c 13 4c 44 41 20 63 25  | &FFF1..,.LDA c%|
000001f0  3a 43 4d 50 23 97 22 61  22 0d 01 36 11 42 43 53  |:CMP#."a"..6.BCS|
00000200  20 6c 77 3a 42 45 51 20  6c 77 0d 01 40 0a 42 43  | lw:BEQ lw..@.BC|
00000210  43 20 75 70 0d 01 4a 07  52 54 53 0d 01 54 21 2e  |C up..J.RTS..T!.|
00000220  6c 77 20 41 53 4c 20 63  25 2b 35 3a 41 53 4c 20  |lw ASL c%+5:ASL |
00000230  63 25 2b 36 3a 4a 4d 50  20 70 72 74 0d 01 5e 20  |c%+6:JMP prt..^ |
00000240  2e 75 70 20 41 53 4c 20  63 25 2b 37 3a 41 53 4c  |.up ASL c%+7:ASL|
00000250  20 63 25 2b 38 3a 4a 4d  50 20 6c 77 0d 01 68 08  | c%+8:JMP lw..h.|
00000260  2e 70 72 74 0d 01 72 24  4c 44 41 23 32 33 3a 4a  |.prt..r$LDA#23:J|
00000270  53 52 26 46 46 45 45 3a  4c 44 41 23 32 35 34 3a  |SR&FFEE:LDA#254:|
00000280  4a 53 52 26 46 46 45 45  0d 01 7c 09 4c 44 58 23  |JSR&FFEE..|.LDX#|
00000290  30 0d 01 86 07 2e 6c 70  0d 01 90 1a 49 4e 58 3a  |0.....lp....INX:|
000002a0  4c 44 41 20 63 25 2c 58  3a 4a 53 52 20 26 46 46  |LDA c%,X:JSR &FF|
000002b0  45 45 0d 01 9a 10 43 50  58 23 38 3a 42 4e 45 20  |EE....CPX#8:BNE |
000002c0  6c 70 0d 01 a4 14 4c 44  41 23 32 35 34 3a 4a 53  |lp....LDA#254:JS|
000002d0  52 26 46 46 45 45 0d 01  ae 0b 52 54 53 3a 5d 3a  |R&FFEE....RTS:]:|
000002e0  ed 0d 01 b8 05 e1 0d 01  c2 05 3a 0d 01 cc 19 dd  |..........:.....|
000002f0  f2 69 74 61 6c 28 24 71  25 29 3a d6 26 39 30 30  |.ital($q%):.&900|
00000300  3a f1 3a e1 0d 01 d6 05  3a 0d 01 e0 1c dd f2 68  |:.:.....:......h|
00000310  70 28 74 24 2c 68 25 29  3a e7 68 25 3c 33 84 68  |p(t$,h%):.h%<3.h|
00000320  25 3e 32 33 e1 0d 01 ea  86 58 25 3d 63 25 83 32  |%>23.....X%=c%.2|
00000330  35 36 3a 59 25 3d 63 25  81 32 35 36 3a 41 25 3d  |56:Y%=c%.256:A%=|
00000340  31 30 3a e3 42 25 3d 31  b8 a9 74 24 3a 3f 63 25  |10:.B%=1..t$:?c%|
00000350  3d 97 c1 74 24 2c 42 25  2c 31 29 3a d6 26 46 46  |=..t$,B%,1):.&FF|
00000360  46 31 3a 74 25 3d 30 3a  ef 32 33 2c 32 35 34 3a  |F1:t%=0:.23,254:|
00000370  e3 69 25 3d 31 b8 38 3a  e3 43 25 3d 31 b8 68 25  |.i%=1.8:.C%=1.h%|
00000380  3a ef 63 25 3f 69 25 3a  74 25 3d 74 25 2b 31 3a  |:.c%?i%:t%=t%+1:|
00000390  e7 74 25 3d 38 20 74 25  3d 30 3a ef 32 35 34 2c  |.t%=8 t%=0:.254,|
000003a0  38 2c 31 30 2c 32 33 2c  32 35 34 0d 01 f4 37 ed  |8,10,23,254...7.|
000003b0  43 25 3a ed 69 25 3a e3  7a 25 3d 31 b8 68 25 2a  |C%:.i%:.z%=1.h%*|
000003c0  32 2b 28 38 2d 68 25 29  3a ef 31 31 3a ed 3a ef  |2+(8-h%):.11:.:.|
000003d0  39 3a ed 3a e3 7a 25 3d  31 b8 68 25 3a f1 3a ed  |9:.:.z%=1.h%:.:.|
000003e0  3a e1 0d ff                                       |:...|
000003e4