�6
�23,1,0;0;0;0;
G�'''"PRESS <SPACE> TO STOP ANIMATIONS AND"''"RETURN TO THIS SCREEN"
(*�0,7);"Speed? (1=Fast - 35=Slow) ";S%
2�S%<1 �S%>35 �Th@
<)�''"Which animation would you like:-"
FY�''"(1) = Christopher Robin"''"(2) = Winnie the Pooh"'''"or press <M> for main menu."
P%�:A$=�:� A$="1" � A$="2" � A$="M"
Z� A$="M" � �"$.MENU"
d � A$="1" � name$="$.C_ROBIN"
n� A$="2" � name$="$.POOH"
x �
��1
� � 23,1,0;0;0;0;
�� Q% 200
�
� I=0�2�2
�	P%=Q%
�
[OPT I
�
.table
�+EQUW&3000:EQUW&30A0:EQUW&3140:EQUW&31E0
�!EQUW&4400:EQUW&4540:EQUW&45E0
�+EQUW&5800:EQUW&58A0:EQUW&5940:EQUW&59E0
�+EQUW&6C00:EQUW&6CA0:EQUW&6D40:EQUW&6DE0
�<.cine LDA#129:LDY#&FF:LDX#&9D:JSR&FFF4:BCCcont:RTS:.cont
�	LDX#0

".frloop LDAtable,X:STA &70:INX

#LDAtable,X:STA &71:JSRframe:INX

CPX#30:BEQcine

"
JMPfrloop

,.frame LDA#&A0:STA&72

6LDA#&44:STA&73

@.loop1 LDY#0

J.loop2 LDA(&70),Y

TSTA(&72),Y:INY

^
JSRdel

hCPY#&A0:BNEloop2

r
JSRdel

|CLC:LDA&70:ADC#&80:STA&70

�LDA&71:ADC#02:STA&71

�CLC:LDA&72:ADC#&80:STA&72

�LDA&73:ADC#02:STA&73

�+LDA&73:CMP#&58:BEQret:JMPloop1:.ret RTS

�1.del STX&74:LDX#S%:.dlp DEX:BNEdlp:LDX&74:RTS

�]

��

�� "*LOAD "+name$+" 3000" 

�	�cine

��
�

00000000  0d 00 0a 06 eb 36 0d 00  14 12 ef 32 33 2c 31 2c  |.....6.....23,1,|
00000010  30 3b 30 3b 30 3b 30 3b  0d 00 1e 47 f1 27 27 27  |0;0;0;0;...G.'''|
00000020  22 50 52 45 53 53 20 3c  53 50 41 43 45 3e 20 54  |"PRESS <SPACE> T|
00000030  4f 20 53 54 4f 50 20 41  4e 49 4d 41 54 49 4f 4e  |O STOP ANIMATION|
00000040  53 20 41 4e 44 22 27 27  22 52 45 54 55 52 4e 20  |S AND"''"RETURN |
00000050  54 4f 20 54 48 49 53 20  53 43 52 45 45 4e 22 0d  |TO THIS SCREEN".|
00000060  00 28 2a e8 8a 30 2c 37  29 3b 22 53 70 65 65 64  |.(*..0,7);"Speed|
00000070  3f 20 28 31 3d 46 61 73  74 20 2d 20 33 35 3d 53  |? (1=Fast - 35=S|
00000080  6c 6f 77 29 20 22 3b 53  25 0d 00 32 16 e7 53 25  |low) ";S%..2..S%|
00000090  3c 31 20 84 53 25 3e 33  35 20 e5 8d 54 68 40 0d  |<1 .S%>35 ..Th@.|
000000a0  00 3c 29 f1 27 27 22 57  68 69 63 68 20 61 6e 69  |.<).''"Which ani|
000000b0  6d 61 74 69 6f 6e 20 77  6f 75 6c 64 20 79 6f 75  |mation would you|
000000c0  20 6c 69 6b 65 3a 2d 22  0d 00 46 59 f1 27 27 22  | like:-"..FY.''"|
000000d0  28 31 29 20 3d 20 43 68  72 69 73 74 6f 70 68 65  |(1) = Christophe|
000000e0  72 20 52 6f 62 69 6e 22  27 27 22 28 32 29 20 3d  |r Robin"''"(2) =|
000000f0  20 57 69 6e 6e 69 65 20  74 68 65 20 50 6f 6f 68  | Winnie the Pooh|
00000100  22 27 27 27 22 6f 72 20  70 72 65 73 73 20 3c 4d  |"'''"or press <M|
00000110  3e 20 66 6f 72 20 6d 61  69 6e 20 6d 65 6e 75 2e  |> for main menu.|
00000120  22 0d 00 50 25 f5 3a 41  24 3d be 3a fd 20 41 24  |"..P%.:A$=.:. A$|
00000130  3d 22 31 22 20 84 20 41  24 3d 22 32 22 20 84 20  |="1" . A$="2" . |
00000140  41 24 3d 22 4d 22 0d 00  5a 18 e7 20 41 24 3d 22  |A$="M"..Z.. A$="|
00000150  4d 22 20 8c 20 d7 22 24  2e 4d 45 4e 55 22 0d 00  |M" . ."$.MENU"..|
00000160  64 20 e7 20 41 24 3d 22  31 22 20 8c 20 6e 61 6d  |d . A$="1" . nam|
00000170  65 24 3d 22 24 2e 43 5f  52 4f 42 49 4e 22 0d 00  |e$="$.C_ROBIN"..|
00000180  6e 1d e7 20 41 24 3d 22  32 22 20 8c 20 6e 61 6d  |n.. A$="2" . nam|
00000190  65 24 3d 22 24 2e 50 4f  4f 48 22 0d 00 78 06 20  |e$="$.POOH"..x. |
000001a0  db 0d 00 82 06 eb 31 0d  00 8c 14 20 ef 20 32 33  |......1.... . 23|
000001b0  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 00 96 0c de  |,1,0;0;0;0;.....|
000001c0  20 51 25 20 32 30 30 0d  00 a0 0d e3 20 49 3d 30  | Q% 200..... I=0|
000001d0  b8 32 88 32 0d 00 aa 09  50 25 3d 51 25 0d 00 b4  |.2.2....P%=Q%...|
000001e0  0a 5b 4f 50 54 20 49 0d  00 be 0a 2e 74 61 62 6c  |.[OPT I.....tabl|
000001f0  65 0d 00 c8 2b 45 51 55  57 26 33 30 30 30 3a 45  |e...+EQUW&3000:E|
00000200  51 55 57 26 33 30 41 30  3a 45 51 55 57 26 33 31  |QUW&30A0:EQUW&31|
00000210  34 30 3a 45 51 55 57 26  33 31 45 30 0d 00 d2 21  |40:EQUW&31E0...!|
00000220  45 51 55 57 26 34 34 30  30 3a 45 51 55 57 26 34  |EQUW&4400:EQUW&4|
00000230  35 34 30 3a 45 51 55 57  26 34 35 45 30 0d 00 dc  |540:EQUW&45E0...|
00000240  2b 45 51 55 57 26 35 38  30 30 3a 45 51 55 57 26  |+EQUW&5800:EQUW&|
00000250  35 38 41 30 3a 45 51 55  57 26 35 39 34 30 3a 45  |58A0:EQUW&5940:E|
00000260  51 55 57 26 35 39 45 30  0d 00 e6 2b 45 51 55 57  |QUW&59E0...+EQUW|
00000270  26 36 43 30 30 3a 45 51  55 57 26 36 43 41 30 3a  |&6C00:EQUW&6CA0:|
00000280  45 51 55 57 26 36 44 34  30 3a 45 51 55 57 26 36  |EQUW&6D40:EQUW&6|
00000290  44 45 30 0d 00 f0 3c 2e  63 69 6e 65 20 4c 44 41  |DE0...<.cine LDA|
000002a0  23 31 32 39 3a 4c 44 59  23 26 46 46 3a 4c 44 58  |#129:LDY#&FF:LDX|
000002b0  23 26 39 44 3a 4a 53 52  26 46 46 46 34 3a 42 43  |#&9D:JSR&FFF4:BC|
000002c0  43 63 6f 6e 74 3a 52 54  53 3a 2e 63 6f 6e 74 0d  |Ccont:RTS:.cont.|
000002d0  00 fa 09 4c 44 58 23 30  0d 01 04 22 2e 66 72 6c  |...LDX#0...".frl|
000002e0  6f 6f 70 20 4c 44 41 74  61 62 6c 65 2c 58 3a 53  |oop LDAtable,X:S|
000002f0  54 41 20 26 37 30 3a 49  4e 58 0d 01 0e 23 4c 44  |TA &70:INX...#LD|
00000300  41 74 61 62 6c 65 2c 58  3a 53 54 41 20 26 37 31  |Atable,X:STA &71|
00000310  3a 4a 53 52 66 72 61 6d  65 3a 49 4e 58 0d 01 18  |:JSRframe:INX...|
00000320  12 43 50 58 23 33 30 3a  42 45 51 63 69 6e 65 0d  |.CPX#30:BEQcine.|
00000330  01 22 0d 4a 4d 50 66 72  6c 6f 6f 70 0d 01 2c 19  |.".JMPfrloop..,.|
00000340  2e 66 72 61 6d 65 20 4c  44 41 23 26 41 30 3a 53  |.frame LDA#&A0:S|
00000350  54 41 26 37 32 0d 01 36  12 4c 44 41 23 26 34 34  |TA&72..6.LDA#&44|
00000360  3a 53 54 41 26 37 33 0d  01 40 10 2e 6c 6f 6f 70  |:STA&73..@..loop|
00000370  31 20 4c 44 59 23 30 0d  01 4a 15 2e 6c 6f 6f 70  |1 LDY#0..J..loop|
00000380  32 20 4c 44 41 28 26 37  30 29 2c 59 0d 01 54 12  |2 LDA(&70),Y..T.|
00000390  53 54 41 28 26 37 32 29  2c 59 3a 49 4e 59 0d 01  |STA(&72),Y:INY..|
000003a0  5e 0a 4a 53 52 64 65 6c  0d 01 68 14 43 50 59 23  |^.JSRdel..h.CPY#|
000003b0  26 41 30 3a 42 4e 45 6c  6f 6f 70 32 0d 01 72 0a  |&A0:BNEloop2..r.|
000003c0  4a 53 52 64 65 6c 0d 01  7c 1d 43 4c 43 3a 4c 44  |JSRdel..|.CLC:LD|
000003d0  41 26 37 30 3a 41 44 43  23 26 38 30 3a 53 54 41  |A&70:ADC#&80:STA|
000003e0  26 37 30 0d 01 86 18 4c  44 41 26 37 31 3a 41 44  |&70....LDA&71:AD|
000003f0  43 23 30 32 3a 53 54 41  26 37 31 0d 01 90 1d 43  |C#02:STA&71....C|
00000400  4c 43 3a 4c 44 41 26 37  32 3a 41 44 43 23 26 38  |LC:LDA&72:ADC#&8|
00000410  30 3a 53 54 41 26 37 32  0d 01 9a 18 4c 44 41 26  |0:STA&72....LDA&|
00000420  37 33 3a 41 44 43 23 30  32 3a 53 54 41 26 37 33  |73:ADC#02:STA&73|
00000430  0d 01 a4 2b 4c 44 41 26  37 33 3a 43 4d 50 23 26  |...+LDA&73:CMP#&|
00000440  35 38 3a 42 45 51 72 65  74 3a 4a 4d 50 6c 6f 6f  |58:BEQret:JMPloo|
00000450  70 31 3a 2e 72 65 74 20  52 54 53 0d 01 ae 31 2e  |p1:.ret RTS...1.|
00000460  64 65 6c 20 53 54 58 26  37 34 3a 4c 44 58 23 53  |del STX&74:LDX#S|
00000470  25 3a 2e 64 6c 70 20 44  45 58 3a 42 4e 45 64 6c  |%:.dlp DEX:BNEdl|
00000480  70 3a 4c 44 58 26 37 34  3a 52 54 53 0d 01 b8 05  |p:LDX&74:RTS....|
00000490  5d 0d 01 c2 05 ed 0d 01  cc 1d ff 20 22 2a 4c 4f  |].......... "*LO|
000004a0  41 44 20 22 2b 6e 61 6d  65 24 2b 22 20 33 30 30  |AD "+name$+" 300|
000004b0  30 22 20 0d 01 d6 09 d6  63 69 6e 65 0d 01 e0 05  |0" .....cine....|
000004c0  f9 0d ff                                          |...|
000004c3