� � � �TpB
� title$
 � F$(20),N$(20),D$(20)
(I%=0
2�
<I%=I%+1
F� F$(I%),N$(I%),D$(I%)
P� F$(I%)="DONE"
Z
max%=I%-1
d�7
n�centre(title$)
x� J%=1 � max%
�� max%<10 � �
� letter$=�(64+J%)+"."
�colour$=�(129+(J%-1)� 6)
�-� letter$;colour$;N$(J%);�14);"- ";D$(J%)
��
��28,0,24,39,�
�*�'"Enter the letter of your choice..";
��
�A%=�
�
�(A%)
�req%=A%-64
�#� req%>0 � req%<=max% � �select
�4�'"Select a letter from A to ";�(max%+64);"...";

� �

�


� �select

"%� req% � �TlA,�TvA,�D@A,�DJA,�DTA

,�move(&3283):�"SNAPPER"

6�move(&E02):�"MONSTA"

@�move(&E02):�"DEFEND"

J
�"SPHINX"

T
�"VALLEY"

�� �centre(T$)

� �'

�L%=�(T$)/2

�� Y%=1�2

��141;�134;�20-L%);T$

��

��

�� GAMES DISC 1

�(� SNAPPER,SNAPPER,Chase through maze

�� MONSTA,MONSTA,MM

�!� DEFENDER,DEFENDER,Space war

�"� SPHINX,SPHINX,Adventure game
"� VALLEY,VALLEY,Adventure game
� DONE,DONE,DONE
�
:� �<200 � �:�
D�"  (";F$(A%-64);") "
NX=�(500)
X�
b�
�� �move(exec%)
�base=&70:old=&BE:length=&C2
�� I%=0�2�2:P%=&7000
�[OPT I%
�
LDA #0
�STA base
�LDA #&0E
�STA base+1

LDY #0
LDX length+1
BEQ LOLOOP
 
.LOOP1
*LDA (old),Y
4STA (base),Y
>INY
H
BNE LOOP1
R
INC old+1
\INC base+1
fDEX
p
BNE LOOP1
z.LOLOOP
�LDX length
�BEQ FINISH
�
.LOOP2
�LDA (old),Y
�STA (base),Y
�INY 
�DEX
�
BNE LOOP2
�.FINISH
�LDA #&0E
�STA &18
�LDX #&FF
�TXS
JMP exec%:]�
�
�

00000000  0d 00 0a 0e ee 20 85 20  e5 20 8d 54 70 42 0d 00  |..... . . .TpB..|
00000010  14 0c f3 20 74 69 74 6c  65 24 0d 00 1e 1b 20 de  |... title$.... .|
00000020  20 46 24 28 32 30 29 2c  4e 24 28 32 30 29 2c 44  | F$(20),N$(20),D|
00000030  24 28 32 30 29 0d 00 28  08 49 25 3d 30 0d 00 32  |$(20)..(.I%=0..2|
00000040  05 f5 0d 00 3c 0b 49 25  3d 49 25 2b 31 0d 00 46  |....<.I%=I%+1..F|
00000050  1a f3 20 46 24 28 49 25  29 2c 4e 24 28 49 25 29  |.. F$(I%),N$(I%)|
00000060  2c 44 24 28 49 25 29 0d  00 50 13 fd 20 46 24 28  |,D$(I%)..P.. F$(|
00000070  49 25 29 3d 22 44 4f 4e  45 22 0d 00 5a 0d 6d 61  |I%)="DONE"..Z.ma|
00000080  78 25 3d 49 25 2d 31 0d  00 64 06 eb 37 0d 00 6e  |x%=I%-1..d..7..n|
00000090  13 f2 63 65 6e 74 72 65  28 74 69 74 6c 65 24 29  |..centre(title$)|
000000a0  0d 00 78 11 e3 20 4a 25  3d 31 20 b8 20 6d 61 78  |..x.. J%=1 . max|
000000b0  25 0d 00 82 11 e7 20 6d  61 78 25 3c 31 30 20 8c  |%..... max%<10 .|
000000c0  20 f1 0d 00 8c 19 20 6c  65 74 74 65 72 24 3d bd  | ..... letter$=.|
000000d0  28 36 34 2b 4a 25 29 2b  22 2e 22 0d 00 96 1c 63  |(64+J%)+"."....c|
000000e0  6f 6c 6f 75 72 24 3d bd  28 31 32 39 2b 28 4a 25  |olour$=.(129+(J%|
000000f0  2d 31 29 83 20 36 29 0d  00 a0 2d f1 20 6c 65 74  |-1). 6)...-. let|
00000100  74 65 72 24 3b 63 6f 6c  6f 75 72 24 3b 4e 24 28  |ter$;colour$;N$(|
00000110  4a 25 29 3b 8a 31 34 29  3b 22 2d 20 22 3b 44 24  |J%);.14);"- ";D$|
00000120  28 4a 25 29 0d 00 aa 05  ed 0d 00 b4 11 ef 32 38  |(J%)..........28|
00000130  2c 30 2c 32 34 2c 33 39  2c bc 0d 00 be 2a f1 27  |,0,24,39,....*.'|
00000140  22 45 6e 74 65 72 20 74  68 65 20 6c 65 74 74 65  |"Enter the lette|
00000150  72 20 6f 66 20 79 6f 75  72 20 63 68 6f 69 63 65  |r of your choice|
00000160  2e 2e 22 3b 0d 00 c8 05  f5 0d 00 d2 08 41 25 3d  |..";.........A%=|
00000170  a5 0d 00 dc 0a f1 bd 28  41 25 29 0d 00 e6 0e 72  |.......(A%)....r|
00000180  65 71 25 3d 41 25 2d 36  34 0d 00 f0 23 e7 20 72  |eq%=A%-64...#. r|
00000190  65 71 25 3e 30 20 80 20  72 65 71 25 3c 3d 6d 61  |eq%>0 . req%<=ma|
000001a0  78 25 20 8c 20 f2 73 65  6c 65 63 74 0d 00 fa 34  |x% . .select...4|
000001b0  f1 27 22 53 65 6c 65 63  74 20 61 20 6c 65 74 74  |.'"Select a lett|
000001c0  65 72 20 66 72 6f 6d 20  41 20 74 6f 20 22 3b bd  |er from A to ";.|
000001d0  28 6d 61 78 25 2b 36 34  29 3b 22 2e 2e 2e 22 3b  |(max%+64);"...";|
000001e0  0d 01 04 07 fd 20 a3 0d  01 0e 05 e0 0d 01 18 0d  |..... ..........|
000001f0  dd 20 f2 73 65 6c 65 63  74 0d 01 22 25 ee 20 72  |. .select.."%. r|
00000200  65 71 25 20 e5 20 8d 54  6c 41 2c 8d 54 76 41 2c  |eq% . .TlA,.TvA,|
00000210  8d 44 40 41 2c 8d 44 4a  41 2c 8d 44 54 41 0d 01  |.D@A,.DJA,.DTA..|
00000220  2c 1b f2 6d 6f 76 65 28  26 33 32 38 33 29 3a d7  |,..move(&3283):.|
00000230  22 53 4e 41 50 50 45 52  22 0d 01 36 19 f2 6d 6f  |"SNAPPER"..6..mo|
00000240  76 65 28 26 45 30 32 29  3a d7 22 4d 4f 4e 53 54  |ve(&E02):."MONST|
00000250  41 22 0d 01 40 19 f2 6d  6f 76 65 28 26 45 30 32  |A"..@..move(&E02|
00000260  29 3a d7 22 44 45 46 45  4e 44 22 0d 01 4a 0d d7  |):."DEFEND"..J..|
00000270  22 53 50 48 49 4e 58 22  0d 01 54 0d d7 22 56 41  |"SPHINX"..T.."VA|
00000280  4c 4c 45 59 22 0d 01 90  11 dd 20 f2 63 65 6e 74  |LLEY"..... .cent|
00000290  72 65 28 54 24 29 0d 01  9a 07 20 f1 27 0d 01 a4  |re(T$).... .'...|
000002a0  0e 4c 25 3d a9 28 54 24  29 2f 32 0d 01 ae 0c e3  |.L%=.(T$)/2.....|
000002b0  20 59 25 3d 31 b8 32 0d  01 b8 19 f1 bd 31 34 31  | Y%=1.2......141|
000002c0  3b bd 31 33 34 3b 8a 32  30 2d 4c 25 29 3b 54 24  |;.134;.20-L%);T$|
000002d0  0d 01 c2 05 ed 0d 01 cc  05 e1 0d 01 d6 12 dc 20  |............... |
000002e0  47 41 4d 45 53 20 44 49  53 43 20 31 0d 01 e0 28  |GAMES DISC 1...(|
000002f0  dc 20 53 4e 41 50 50 45  52 2c 53 4e 41 50 50 45  |. SNAPPER,SNAPPE|
00000300  52 2c 43 68 61 73 65 20  74 68 72 6f 75 67 68 20  |R,Chase through |
00000310  6d 61 7a 65 0d 01 ea 16  dc 20 4d 4f 4e 53 54 41  |maze..... MONSTA|
00000320  2c 4d 4f 4e 53 54 41 2c  4d 4d 0d 01 f4 21 dc 20  |,MONSTA,MM...!. |
00000330  44 45 46 45 4e 44 45 52  2c 44 45 46 45 4e 44 45  |DEFENDER,DEFENDE|
00000340  52 2c 53 70 61 63 65 20  77 61 72 0d 01 fe 22 dc  |R,Space war...".|
00000350  20 53 50 48 49 4e 58 2c  53 50 48 49 4e 58 2c 41  | SPHINX,SPHINX,A|
00000360  64 76 65 6e 74 75 72 65  20 67 61 6d 65 0d 02 03  |dventure game...|
00000370  22 dc 20 56 41 4c 4c 45  59 2c 56 41 4c 4c 45 59  |". VALLEY,VALLEY|
00000380  2c 41 64 76 65 6e 74 75  72 65 20 67 61 6d 65 0d  |,Adventure game.|
00000390  02 08 14 dc 20 44 4f 4e  45 2c 44 4f 4e 45 2c 44  |.... DONE,DONE,D|
000003a0  4f 4e 45 0d 02 12 05 f6  0d 02 3a 11 e7 20 9f 3c  |ONE.......:.. .<|
000003b0  32 30 30 20 f1 20 9e 3a  e0 0d 02 44 19 f1 22 20  |200 . .:...D.." |
000003c0  20 28 22 3b 46 24 28 41  25 2d 36 34 29 3b 22 29  | (";F$(A%-64);")|
000003d0  20 22 0d 02 4e 0c 58 3d  a6 28 35 30 30 29 0d 02  | "..N.X=.(500)..|
000003e0  58 05 f9 0d 02 62 05 e0  0d 02 b2 12 dd 20 f2 6d  |X....b....... .m|
000003f0  6f 76 65 28 65 78 65 63  25 29 0d 02 bc 1f 62 61  |ove(exec%)....ba|
00000400  73 65 3d 26 37 30 3a 6f  6c 64 3d 26 42 45 3a 6c  |se=&70:old=&BE:l|
00000410  65 6e 67 74 68 3d 26 43  32 0d 02 c6 17 e3 20 49  |ength=&C2..... I|
00000420  25 3d 30 b8 32 88 32 3a  50 25 3d 26 37 30 30 30  |%=0.2.2:P%=&7000|
00000430  0d 02 d0 0b 5b 4f 50 54  20 49 25 0d 02 da 0a 4c  |....[OPT I%....L|
00000440  44 41 20 23 30 0d 02 e4  0c 53 54 41 20 62 61 73  |DA #0....STA bas|
00000450  65 0d 02 ee 0c 4c 44 41  20 23 26 30 45 0d 02 f8  |e....LDA #&0E...|
00000460  0e 53 54 41 20 62 61 73  65 2b 31 0d 03 02 0a 4c  |.STA base+1....L|
00000470  44 59 20 23 30 0d 03 0c  10 4c 44 58 20 6c 65 6e  |DY #0....LDX len|
00000480  67 74 68 2b 31 0d 03 16  0e 42 45 51 20 4c 4f 4c  |gth+1....BEQ LOL|
00000490  4f 4f 50 0d 03 20 0a 2e  4c 4f 4f 50 31 0d 03 2a  |OOP.. ..LOOP1..*|
000004a0  0f 4c 44 41 20 28 6f 6c  64 29 2c 59 0d 03 34 10  |.LDA (old),Y..4.|
000004b0  53 54 41 20 28 62 61 73  65 29 2c 59 0d 03 3e 07  |STA (base),Y..>.|
000004c0  49 4e 59 0d 03 48 0d 42  4e 45 20 4c 4f 4f 50 31  |INY..H.BNE LOOP1|
000004d0  0d 03 52 0d 49 4e 43 20  6f 6c 64 2b 31 0d 03 5c  |..R.INC old+1..\|
000004e0  0e 49 4e 43 20 62 61 73  65 2b 31 0d 03 66 07 44  |.INC base+1..f.D|
000004f0  45 58 0d 03 70 0d 42 4e  45 20 4c 4f 4f 50 31 0d  |EX..p.BNE LOOP1.|
00000500  03 7a 0b 2e 4c 4f 4c 4f  4f 50 0d 03 84 0e 4c 44  |.z..LOLOOP....LD|
00000510  58 20 6c 65 6e 67 74 68  0d 03 8e 0e 42 45 51 20  |X length....BEQ |
00000520  46 49 4e 49 53 48 0d 03  98 0a 2e 4c 4f 4f 50 32  |FINISH.....LOOP2|
00000530  0d 03 a2 0f 4c 44 41 20  28 6f 6c 64 29 2c 59 0d  |....LDA (old),Y.|
00000540  03 ac 10 53 54 41 20 28  62 61 73 65 29 2c 59 0d  |...STA (base),Y.|
00000550  03 b6 08 49 4e 59 20 0d  03 c0 07 44 45 58 0d 03  |...INY ....DEX..|
00000560  ca 0d 42 4e 45 20 4c 4f  4f 50 32 0d 03 d4 0b 2e  |..BNE LOOP2.....|
00000570  46 49 4e 49 53 48 0d 03  de 0c 4c 44 41 20 23 26  |FINISH....LDA #&|
00000580  30 45 0d 03 e8 0b 53 54  41 20 26 31 38 0d 03 f2  |0E....STA &18...|
00000590  0c 4c 44 58 20 23 26 46  46 0d 03 fc 07 54 58 53  |.LDX #&FF....TXS|
000005a0  0d 04 06 10 4a 4d 50 20  65 78 65 63 25 3a 5d ed  |....JMP exec%:].|
000005b0  0d 04 10 05 e1 0d ff                              |.......|
000005b7