4 ��largeprint(S$,SIZEx%,SIZEy%,GAP%,xpos%,ypos%)
 � l(7)
 � �xpos%,ypos%);
( � letter=1 � �(S$)
2 ?&900=�(�S$,letter,1))
<  A%=&A:X%=0:Y%=9:R%=�(&FFF1)
F � line=0 � SIZEy%-1
P � char=0 � SIZEx%-1
Z � dline=0 � 7
d' n=?(&901+�((8*line+dline)/SIZEy%))
n l(dline)=0
x � dot=0 � 7
�I l(dline)=l(dline)+2^(7-dot)*�((n � 2^(7-�((8*char+dot)/SIZEx%)))<>0)
�
 � dot
� � dline
�9 � 23,255,l(0),l(1),l(2),l(3),l(4),l(5),l(6),l(7),255
� � char
�& � back=1 � SIZEx%:� 8:� back:� 10
� � line
�F � forward=1 � SIZEx%+GAP%:� 9:� forward:� up=1 � SIZEy%:� 11:� up
�
 � letter
� �
�

00000000  0d 00 0a 34 20 dd f2 6c  61 72 67 65 70 72 69 6e  |...4 ..largeprin|
00000010  74 28 53 24 2c 53 49 5a  45 78 25 2c 53 49 5a 45  |t(S$,SIZEx%,SIZE|
00000020  79 25 2c 47 41 50 25 2c  78 70 6f 73 25 2c 79 70  |y%,GAP%,xpos%,yp|
00000030  6f 73 25 29 0d 00 14 0b  20 de 20 6c 28 37 29 0d  |os%).... . l(7).|
00000040  00 1e 15 20 f1 20 8a 78  70 6f 73 25 2c 79 70 6f  |... . .xpos%,ypo|
00000050  73 25 29 3b 0d 00 28 17  20 e3 20 6c 65 74 74 65  |s%);..(. . lette|
00000060  72 3d 31 20 b8 20 a9 28  53 24 29 0d 00 32 1b 20  |r=1 . .(S$)..2. |
00000070  3f 26 39 30 30 3d 97 28  c1 53 24 2c 6c 65 74 74  |?&900=.(.S$,lett|
00000080  65 72 2c 31 29 29 0d 00  3c 20 20 41 25 3d 26 41  |er,1))..<  A%=&A|
00000090  3a 58 25 3d 30 3a 59 25  3d 39 3a 52 25 3d ba 28  |:X%=0:Y%=9:R%=.(|
000000a0  26 46 46 46 31 29 0d 00  46 18 20 e3 20 6c 69 6e  |&FFF1)..F. . lin|
000000b0  65 3d 30 20 b8 20 53 49  5a 45 79 25 2d 31 0d 00  |e=0 . SIZEy%-1..|
000000c0  50 18 20 e3 20 63 68 61  72 3d 30 20 b8 20 53 49  |P. . char=0 . SI|
000000d0  5a 45 78 25 2d 31 0d 00  5a 12 20 e3 20 64 6c 69  |ZEx%-1..Z. . dli|
000000e0  6e 65 3d 30 20 b8 20 37  0d 00 64 27 20 6e 3d 3f  |ne=0 . 7..d' n=?|
000000f0  28 26 39 30 31 2b a8 28  28 38 2a 6c 69 6e 65 2b  |(&901+.((8*line+|
00000100  64 6c 69 6e 65 29 2f 53  49 5a 45 79 25 29 29 0d  |dline)/SIZEy%)).|
00000110  00 6e 0f 20 6c 28 64 6c  69 6e 65 29 3d 30 0d 00  |.n. l(dline)=0..|
00000120  78 10 20 e3 20 64 6f 74  3d 30 20 b8 20 37 0d 00  |x. . dot=0 . 7..|
00000130  82 49 20 6c 28 64 6c 69  6e 65 29 3d 6c 28 64 6c  |.I l(dline)=l(dl|
00000140  69 6e 65 29 2b 32 5e 28  37 2d 64 6f 74 29 2a 94  |ine)+2^(7-dot)*.|
00000150  28 28 6e 20 80 20 32 5e  28 37 2d a8 28 28 38 2a  |((n . 2^(7-.((8*|
00000160  63 68 61 72 2b 64 6f 74  29 2f 53 49 5a 45 78 25  |char+dot)/SIZEx%|
00000170  29 29 29 3c 3e 30 29 0d  00 8c 0a 20 ed 20 64 6f  |)))<>0).... . do|
00000180  74 0d 00 96 0c 20 ed 20  64 6c 69 6e 65 0d 00 a0  |t.... . dline...|
00000190  39 20 ef 20 32 33 2c 32  35 35 2c 6c 28 30 29 2c  |9 . 23,255,l(0),|
000001a0  6c 28 31 29 2c 6c 28 32  29 2c 6c 28 33 29 2c 6c  |l(1),l(2),l(3),l|
000001b0  28 34 29 2c 6c 28 35 29  2c 6c 28 36 29 2c 6c 28  |(4),l(5),l(6),l(|
000001c0  37 29 2c 32 35 35 0d 00  aa 0b 20 ed 20 63 68 61  |7),255.... . cha|
000001d0  72 0d 00 b4 26 20 e3 20  62 61 63 6b 3d 31 20 b8  |r...& . back=1 .|
000001e0  20 53 49 5a 45 78 25 3a  ef 20 38 3a ed 20 62 61  | SIZEx%:. 8:. ba|
000001f0  63 6b 3a ef 20 31 30 0d  00 be 0b 20 ed 20 6c 69  |ck:. 10.... . li|
00000200  6e 65 0d 00 c8 46 20 e3  20 66 6f 72 77 61 72 64  |ne...F . forward|
00000210  3d 31 20 b8 20 53 49 5a  45 78 25 2b 47 41 50 25  |=1 . SIZEx%+GAP%|
00000220  3a ef 20 39 3a ed 20 66  6f 72 77 61 72 64 3a e3  |:. 9:. forward:.|
00000230  20 75 70 3d 31 20 b8 20  53 49 5a 45 79 25 3a ef  | up=1 . SIZEy%:.|
00000240  20 31 31 3a ed 20 75 70  0d 00 d2 0d 20 ed 20 6c  | 11:. up.... . l|
00000250  65 74 74 65 72 0d 00 dc  06 20 e1 0d ff           |etter.... ...|
0000025d