A%=&1FE0
*L.CHARS
�O%=&900 � &CFF �4:!O%=0:�
()�O%=A% � &27BC �4:!O%=O%!(&6000-A%):�
2�1
<�=A%
F
�setup
PK%=0
Z�screenload(K%)
d��dJC
nADR=&3520:CHAR=1:A=&27D5
x	�char
��cursor
�G$=�:G=�(G$)
�	�char
��cursor
�$� G$="Z" � X>64 ADR=ADR-32:A=A-1
�&� G$="X" � X<1152 ADR=ADR+32:A=A+1
�(� G$=":" � Y<960 ADR=ADR-&500:A=A-20
�(� G$="/" � Y>128 ADR=ADR+&500:A=A+20
�� G$="," �chardown
�� G$="." �charup
�5� �(-74) � C=CHAR:CHAR=?A:�char:?A=C:CHAR=C:�char
�/� �(-99) � C=CHAR:CHAR=?A:�char:?A=0:CHAR=C
�� G$="S" � �save:�DZ@

� G$="L" � �load:�DP@

@� G>47 � G<52 � A%=H%+G+204:?A%=(?A%+1) � 8:� 19,G-48,?A%;0;

9� G>64 � G<69 �screensave(K%):K%=G-65:�screenload(K%)

"	�char

,�cursor

6	�tL@

@
��char

J?&80=ADR � 256

T?&81=ADR � 256

^
?&82=CHAR

h� N%

r�

|��cursor

�AD=A-&27C0

�X=(AD � 20)*64

�Y=1024-(AD � 20)*64

�*�X,Y:�2,64,0:�2,0,-64:�2,-64,0:�2,0,64

��

���chardown

�� CHAR=&1B � CHAR=&17:�

�� CHAR>1 � CHAR=CHAR-1

��

���charup

�� CHAR=&17 � CHAR=&1B:�

�� CHAR<&17 � CHAR=CHAR+1

��
��screenload(N)
H%=&900+256*N
� I%=0 � 13:� O%=0 � 17
&$?(&27D5+O%+20*I%)=?(H%+O%+18*I%)
0
�,:�frame
:(� I%=0 � 3:� 19,I%,?(H%+I%+252);0;:�
D
�:� S%
N�
X��frame
b � I%=&27C0 � &27D3:?I%=&16:�
l� I%=&27D4 � &28D8 � 20
v?I%=&16:I%?19=&16:�
� � I%=&28EC � &28FF:?I%=&16:�
��
���bl
�� O%=&27C0 � &28FF:?O%=0:�
��frame:�:� S%:�
���screensave(N)
�H%=&900+256*N
�� I%=0 � 13:� O%=0 � 17
�$?(H%+O%+18*I%)=?(&27D5+O%+20*I%)
��,
��
���setup
�� O%=&900 � &C00 � &100
O%!&FC=&07030100:�
�
��input(X,Y,L)
 X$="":�X,Y);
*0G=�:� G=127 � �(X$)>0 X$=�X$,�(X$)-1):�127;
4� G=13 �
>2� �(X$)<L � G>31 � G<127 G$=�(G):X$=X$+G$:�G$;
H
� �TjC
R��load:�bl
\!�11,5)"Enter load filename:"
f�input(16,8,7)
p$&D00="LOAD "+X$+" 900"+�13
zX%=0:Y%=&D:� &FFF7
��
���save:�screensave(K%):�bl
�!�11,5)"Enter save filename:"
��input(16,8,7)
�#$&D00="SAVE "+X$+" 900 D00"+�13
�X%=0:Y%=&D:� &FFF7
��
��28,5,25,35,20,12
��
��''"Press any key...";
�G=�:�26
�	�DZ@
�

00000000  0d 00 0a 0c 41 25 3d 26  31 46 45 30 0d 00 14 0c  |....A%=&1FE0....|
00000010  2a 4c 2e 43 48 41 52 53  0d 00 1e 1e e3 4f 25 3d  |*L.CHARS.....O%=|
00000020  26 39 30 30 20 b8 20 26  43 46 46 20 88 34 3a 21  |&900 . &CFF .4:!|
00000030  4f 25 3d 30 3a ed 0d 00  28 29 e3 4f 25 3d 41 25  |O%=0:...().O%=A%|
00000040  20 b8 20 26 32 37 42 43  20 88 34 3a 21 4f 25 3d  | . &27BC .4:!O%=|
00000050  4f 25 21 28 26 36 30 30  30 2d 41 25 29 3a ed 0d  |O%!(&6000-A%):..|
00000060  00 32 06 eb 31 0d 00 3c  08 d3 3d 41 25 0d 00 46  |.2..1..<..=A%..F|
00000070  0a f2 73 65 74 75 70 0d  00 50 08 4b 25 3d 30 0d  |..setup..P.K%=0.|
00000080  00 5a 13 f2 73 63 72 65  65 6e 6c 6f 61 64 28 4b  |.Z..screenload(K|
00000090  25 29 0d 00 64 0b ee 85  e5 8d 64 4a 43 0d 00 6e  |%)..d.....dJC..n|
000000a0  1c 41 44 52 3d 26 33 35  32 30 3a 43 48 41 52 3d  |.ADR=&3520:CHAR=|
000000b0  31 3a 41 3d 26 32 37 44  35 0d 00 78 09 f2 63 68  |1:A=&27D5..x..ch|
000000c0  61 72 0d 00 82 0b f2 63  75 72 73 6f 72 0d 00 8c  |ar.....cursor...|
000000d0  10 47 24 3d be 3a 47 3d  97 28 47 24 29 0d 00 96  |.G$=.:G=.(G$)...|
000000e0  09 f2 63 68 61 72 0d 00  a0 0b f2 63 75 72 73 6f  |..char.....curso|
000000f0  72 0d 00 aa 24 e7 20 47  24 3d 22 5a 22 20 80 20  |r...$. G$="Z" . |
00000100  58 3e 36 34 20 41 44 52  3d 41 44 52 2d 33 32 3a  |X>64 ADR=ADR-32:|
00000110  41 3d 41 2d 31 0d 00 b4  26 e7 20 47 24 3d 22 58  |A=A-1...&. G$="X|
00000120  22 20 80 20 58 3c 31 31  35 32 20 41 44 52 3d 41  |" . X<1152 ADR=A|
00000130  44 52 2b 33 32 3a 41 3d  41 2b 31 0d 00 be 28 e7  |DR+32:A=A+1...(.|
00000140  20 47 24 3d 22 3a 22 20  80 20 59 3c 39 36 30 20  | G$=":" . Y<960 |
00000150  41 44 52 3d 41 44 52 2d  26 35 30 30 3a 41 3d 41  |ADR=ADR-&500:A=A|
00000160  2d 32 30 0d 00 c8 28 e7  20 47 24 3d 22 2f 22 20  |-20...(. G$="/" |
00000170  80 20 59 3e 31 32 38 20  41 44 52 3d 41 44 52 2b  |. Y>128 ADR=ADR+|
00000180  26 35 30 30 3a 41 3d 41  2b 32 30 0d 00 d2 16 e7  |&500:A=A+20.....|
00000190  20 47 24 3d 22 2c 22 20  f2 63 68 61 72 64 6f 77  | G$="," .chardow|
000001a0  6e 0d 00 dc 14 e7 20 47  24 3d 22 2e 22 20 f2 63  |n..... G$="." .c|
000001b0  68 61 72 75 70 0d 00 e6  35 e7 20 a6 28 2d 37 34  |harup...5. .(-74|
000001c0  29 20 8c 20 43 3d 43 48  41 52 3a 43 48 41 52 3d  |) . C=CHAR:CHAR=|
000001d0  3f 41 3a f2 63 68 61 72  3a 3f 41 3d 43 3a 43 48  |?A:.char:?A=C:CH|
000001e0  41 52 3d 43 3a f2 63 68  61 72 0d 00 f0 2f e7 20  |AR=C:.char.../. |
000001f0  a6 28 2d 39 39 29 20 8c  20 43 3d 43 48 41 52 3a  |.(-99) . C=CHAR:|
00000200  43 48 41 52 3d 3f 41 3a  f2 63 68 61 72 3a 3f 41  |CHAR=?A:.char:?A|
00000210  3d 30 3a 43 48 41 52 3d  43 0d 00 fa 1a e7 20 47  |=0:CHAR=C..... G|
00000220  24 3d 22 53 22 20 8c 20  f2 73 61 76 65 3a e5 8d  |$="S" . .save:..|
00000230  44 5a 40 0d 01 04 1a e7  20 47 24 3d 22 4c 22 20  |DZ@..... G$="L" |
00000240  8c 20 f2 6c 6f 61 64 3a  e5 8d 44 50 40 0d 01 0e  |. .load:..DP@...|
00000250  40 e7 20 47 3e 34 37 20  80 20 47 3c 35 32 20 8c  |@. G>47 . G<52 .|
00000260  20 41 25 3d 48 25 2b 47  2b 32 30 34 3a 3f 41 25  | A%=H%+G+204:?A%|
00000270  3d 28 3f 41 25 2b 31 29  20 83 20 38 3a ef 20 31  |=(?A%+1) . 8:. 1|
00000280  39 2c 47 2d 34 38 2c 3f  41 25 3b 30 3b 0d 01 18  |9,G-48,?A%;0;...|
00000290  39 e7 20 47 3e 36 34 20  80 20 47 3c 36 39 20 f2  |9. G>64 . G<69 .|
000002a0  73 63 72 65 65 6e 73 61  76 65 28 4b 25 29 3a 4b  |screensave(K%):K|
000002b0  25 3d 47 2d 36 35 3a f2  73 63 72 65 65 6e 6c 6f  |%=G-65:.screenlo|
000002c0  61 64 28 4b 25 29 0d 01  22 09 f2 63 68 61 72 0d  |ad(K%).."..char.|
000002d0  01 2c 0b f2 63 75 72 73  6f 72 0d 01 36 09 e5 8d  |.,..cursor..6...|
000002e0  74 4c 40 0d 01 40 0a dd  f2 63 68 61 72 0d 01 4a  |tL@..@...char..J|
000002f0  12 3f 26 38 30 3d 41 44  52 20 83 20 32 35 36 0d  |.?&80=ADR . 256.|
00000300  01 54 12 3f 26 38 31 3d  41 44 52 20 81 20 32 35  |.T.?&81=ADR . 25|
00000310  36 0d 01 5e 0d 3f 26 38  32 3d 43 48 41 52 0d 01  |6..^.?&82=CHAR..|
00000320  68 08 d6 20 4e 25 0d 01  72 05 e1 0d 01 7c 0c dd  |h.. N%..r....|..|
00000330  f2 63 75 72 73 6f 72 0d  01 86 0e 41 44 3d 41 2d  |.cursor....AD=A-|
00000340  26 32 37 43 30 0d 01 90  12 58 3d 28 41 44 20 83  |&27C0....X=(AD .|
00000350  20 32 30 29 2a 36 34 0d  01 9a 17 59 3d 31 30 32  | 20)*64....Y=102|
00000360  34 2d 28 41 44 20 81 20  32 30 29 2a 36 34 0d 01  |4-(AD . 20)*64..|
00000370  a4 2a ec 58 2c 59 3a f0  32 2c 36 34 2c 30 3a f0  |.*.X,Y:.2,64,0:.|
00000380  32 2c 30 2c 2d 36 34 3a  f0 32 2c 2d 36 34 2c 30  |2,0,-64:.2,-64,0|
00000390  3a f0 32 2c 30 2c 36 34  0d 01 ae 05 e1 0d 01 b8  |:.2,0,64........|
000003a0  0e dd f2 63 68 61 72 64  6f 77 6e 0d 01 c2 1b e7  |...chardown.....|
000003b0  20 43 48 41 52 3d 26 31  42 20 8c 20 43 48 41 52  | CHAR=&1B . CHAR|
000003c0  3d 26 31 37 3a e1 0d 01  cc 1a e7 20 43 48 41 52  |=&17:...... CHAR|
000003d0  3e 31 20 8c 20 43 48 41  52 3d 43 48 41 52 2d 31  |>1 . CHAR=CHAR-1|
000003e0  0d 01 d6 05 e1 0d 01 e0  0c dd f2 63 68 61 72 75  |...........charu|
000003f0  70 0d 01 ea 1b e7 20 43  48 41 52 3d 26 31 37 20  |p..... CHAR=&17 |
00000400  8c 20 43 48 41 52 3d 26  31 42 3a e1 0d 01 f4 1c  |. CHAR=&1B:.....|
00000410  e7 20 43 48 41 52 3c 26  31 37 20 8c 20 43 48 41  |. CHAR<&17 . CHA|
00000420  52 3d 43 48 41 52 2b 31  0d 01 fe 05 e1 0d 02 08  |R=CHAR+1........|
00000430  13 dd f2 73 63 72 65 65  6e 6c 6f 61 64 28 4e 29  |...screenload(N)|
00000440  0d 02 12 11 48 25 3d 26  39 30 30 2b 32 35 36 2a  |....H%=&900+256*|
00000450  4e 0d 02 1c 1b e3 20 49  25 3d 30 20 b8 20 31 33  |N..... I%=0 . 13|
00000460  3a e3 20 4f 25 3d 30 20  b8 20 31 37 0d 02 26 24  |:. O%=0 . 17..&$|
00000470  3f 28 26 32 37 44 35 2b  4f 25 2b 32 30 2a 49 25  |?(&27D5+O%+20*I%|
00000480  29 3d 3f 28 48 25 2b 4f  25 2b 31 38 2a 49 25 29  |)=?(H%+O%+18*I%)|
00000490  0d 02 30 0d ed 2c 3a f2  66 72 61 6d 65 0d 02 3a  |..0..,:.frame..:|
000004a0  28 e3 20 49 25 3d 30 20  b8 20 33 3a ef 20 31 39  |(. I%=0 . 3:. 19|
000004b0  2c 49 25 2c 3f 28 48 25  2b 49 25 2b 32 35 32 29  |,I%,?(H%+I%+252)|
000004c0  3b 30 3b 3a ed 0d 02 44  0a db 3a d6 20 53 25 0d  |;0;:...D..:. S%.|
000004d0  02 4e 05 e1 0d 02 58 0b  dd f2 66 72 61 6d 65 0d  |.N....X...frame.|
000004e0  02 62 20 e3 20 49 25 3d  26 32 37 43 30 20 b8 20  |.b . I%=&27C0 . |
000004f0  26 32 37 44 33 3a 3f 49  25 3d 26 31 36 3a ed 0d  |&27D3:?I%=&16:..|
00000500  02 6c 1b e3 20 49 25 3d  26 32 37 44 34 20 b8 20  |.l.. I%=&27D4 . |
00000510  26 32 38 44 38 20 88 20  32 30 0d 02 76 17 3f 49  |&28D8 . 20..v.?I|
00000520  25 3d 26 31 36 3a 49 25  3f 31 39 3d 26 31 36 3a  |%=&16:I%?19=&16:|
00000530  ed 0d 02 80 20 e3 20 49  25 3d 26 32 38 45 43 20  |.... . I%=&28EC |
00000540  b8 20 26 32 38 46 46 3a  3f 49 25 3d 26 31 36 3a  |. &28FF:?I%=&16:|
00000550  ed 0d 02 8a 05 e1 0d 02  94 08 dd f2 62 6c 0d 02  |............bl..|
00000560  9e 1e e3 20 4f 25 3d 26  32 37 43 30 20 b8 20 26  |... O%=&27C0 . &|
00000570  32 38 46 46 3a 3f 4f 25  3d 30 3a ed 0d 02 a8 13  |28FF:?O%=0:.....|
00000580  f2 66 72 61 6d 65 3a db  3a d6 20 53 25 3a e1 0d  |.frame:.:. S%:..|
00000590  02 b2 13 dd f2 73 63 72  65 65 6e 73 61 76 65 28  |.....screensave(|
000005a0  4e 29 0d 02 bc 11 48 25  3d 26 39 30 30 2b 32 35  |N)....H%=&900+25|
000005b0  36 2a 4e 0d 02 c6 1b e3  20 49 25 3d 30 20 b8 20  |6*N..... I%=0 . |
000005c0  31 33 3a e3 20 4f 25 3d  30 20 b8 20 31 37 0d 02  |13:. O%=0 . 17..|
000005d0  d0 24 3f 28 48 25 2b 4f  25 2b 31 38 2a 49 25 29  |.$?(H%+O%+18*I%)|
000005e0  3d 3f 28 26 32 37 44 35  2b 4f 25 2b 32 30 2a 49  |=?(&27D5+O%+20*I|
000005f0  25 29 0d 02 da 06 ed 2c  0d 02 e4 05 e1 0d 02 ee  |%).....,........|
00000600  0b dd f2 73 65 74 75 70  0d 02 f8 1b e3 20 4f 25  |...setup..... O%|
00000610  3d 26 39 30 30 20 b8 20  26 43 30 30 20 88 20 26  |=&900 . &C00 . &|
00000620  31 30 30 0d 03 02 16 4f  25 21 26 46 43 3d 26 30  |100....O%!&FC=&0|
00000630  37 30 33 30 31 30 30 3a  ed 0d 03 0c 05 e1 0d 03  |7030100:........|
00000640  16 12 dd f2 69 6e 70 75  74 28 58 2c 59 2c 4c 29  |....input(X,Y,L)|
00000650  0d 03 20 11 58 24 3d 22  22 3a f1 8a 58 2c 59 29  |.. .X$="":..X,Y)|
00000660  3b 0d 03 2a 30 47 3d a5  3a e7 20 47 3d 31 32 37  |;..*0G=.:. G=127|
00000670  20 80 20 a9 28 58 24 29  3e 30 20 58 24 3d c0 58  | . .(X$)>0 X$=.X|
00000680  24 2c a9 28 58 24 29 2d  31 29 3a f1 bd 31 32 37  |$,.(X$)-1):..127|
00000690  3b 0d 03 34 0c e7 20 47  3d 31 33 20 e1 0d 03 3e  |;..4.. G=13 ...>|
000006a0  32 e7 20 a9 28 58 24 29  3c 4c 20 80 20 47 3e 33  |2. .(X$)<L . G>3|
000006b0  31 20 80 20 47 3c 31 32  37 20 47 24 3d bd 28 47  |1 . G<127 G$=.(G|
000006c0  29 3a 58 24 3d 58 24 2b  47 24 3a f1 47 24 3b 0d  |):X$=X$+G$:.G$;.|
000006d0  03 48 0a e5 20 8d 54 6a  43 0d 03 52 0e dd f2 6c  |.H.. .TjC..R...l|
000006e0  6f 61 64 3a f2 62 6c 0d  03 5c 21 f1 8a 31 31 2c  |oad:.bl..\!..11,|
000006f0  35 29 22 45 6e 74 65 72  20 6c 6f 61 64 20 66 69  |5)"Enter load fi|
00000700  6c 65 6e 61 6d 65 3a 22  0d 03 66 12 f2 69 6e 70  |lename:"..f..inp|
00000710  75 74 28 31 36 2c 38 2c  37 29 0d 03 70 1f 24 26  |ut(16,8,7)..p.$&|
00000720  44 30 30 3d 22 4c 4f 41  44 20 22 2b 58 24 2b 22  |D00="LOAD "+X$+"|
00000730  20 39 30 30 22 2b bd 31  33 0d 03 7a 16 58 25 3d  | 900"+.13..z.X%=|
00000740  30 3a 59 25 3d 26 44 3a  d6 20 26 46 46 46 37 0d  |0:Y%=&D:. &FFF7.|
00000750  03 84 05 e1 0d 03 8e 1e  dd f2 73 61 76 65 3a f2  |..........save:.|
00000760  73 63 72 65 65 6e 73 61  76 65 28 4b 25 29 3a f2  |screensave(K%):.|
00000770  62 6c 0d 03 98 21 f1 8a  31 31 2c 35 29 22 45 6e  |bl...!..11,5)"En|
00000780  74 65 72 20 73 61 76 65  20 66 69 6c 65 6e 61 6d  |ter save filenam|
00000790  65 3a 22 0d 03 a2 12 f2  69 6e 70 75 74 28 31 36  |e:".....input(16|
000007a0  2c 38 2c 37 29 0d 03 ac  23 24 26 44 30 30 3d 22  |,8,7)...#$&D00="|
000007b0  53 41 56 45 20 22 2b 58  24 2b 22 20 39 30 30 20  |SAVE "+X$+" 900 |
000007c0  44 30 30 22 2b bd 31 33  0d 03 b6 16 58 25 3d 30  |D00"+.13....X%=0|
000007d0  3a 59 25 3d 26 44 3a d6  20 26 46 46 46 37 0d 03  |:Y%=&D:. &FFF7..|
000007e0  c0 05 e1 0d 03 ca 15 ef  32 38 2c 35 2c 32 35 2c  |........28,5,25,|
000007f0  33 35 2c 32 30 2c 31 32  0d 03 d4 05 f6 0d 03 de  |35,20,12........|
00000800  1a f1 27 27 22 50 72 65  73 73 20 61 6e 79 20 6b  |..''"Press any k|
00000810  65 79 2e 2e 2e 22 3b 0d  03 e8 0b 47 3d a5 3a ef  |ey...";....G=.:.|
00000820  32 36 0d 03 f2 09 e5 8d  44 5a 40 0d ff           |26......DZ@..|
0000082d