!�   Santa's Christmas Slip-Up
#� v1.6  15th-23rd November 1994
�     (c) Ross Little  1994
( 
2�2
<"� � � �=17 � � �;" at line ";�
F� 23,1,0;0;0;0;
P� 23,128,0,0,0,0,7,15,31,63
Z$� 23,129,0,0,0,0,224,240,248,252
d!� 23,130,15,9,15,14,14,14,0,0
n(� 23,131,240,144,240,112,112,112,0,0
x� 23,132,0,0,0,0,0,0,0,0
�� 23,133,1,3,7,9,7,2,1,3
�+� 23,134,128,192,224,144,224,64,128,192
�"� 23,135,7,15,31,63,31,15,7,15
�,� 23,136,224,224,240,248,240,224,192,224
�6house$=�17+�3+�128+�129+�10+�8+�8+�17+�1+�130+�131
�;remove$=�17+�128+�132+�132+�10+�8+�8+�132+�132+�17+�129
�1snowman$=�17+�7+�133+�134+�10+�8+�8+�135+�136
�� stat$(2,10)
�� ident(2,10)
�� note(53)
�� length(53)
�
low=35
��
��26:�128
�move=0:correct=0

	�data

�screen

	�tune

�

"�26:�4:�131

,move=move+1:�6,29);move

6�28,1,22,18,15

@�6:�129

J�

T
�loaddata

^right=�person

h
�guess

r� guess=right �right

|� guess<>right �wrong

�� correct=10

�D� move<low low=move:�:�1,2)"Good - You have"�1,3)"a low score!"

�wait=�(300)

�� �

� 

�
� �screen

��0,1:� 0,0:� 1279,0

�� 1279,1023:� 0,1023:� 0,0

��128:�1,1)snowman$

��17,1)snowman$

��4,1)"XMAS SLIP-UP"

�� row=5 � 9 � 4

�� house=1 � 5
� �house*3,row) house$
� house
	� row
&� 4
0.�2,6)"1";�17,6)"5";�2,10)"6";�17,10)"10";
:�131
D2�1,29)"Move ";move;" "�9,29)"Lowest ";low;" "
N�28,1,22,18,15:�129:�
X�
b 
l� �data
v�:� entry=1 � 10
�� stat$(1,entry)
�stat$(2,entry)="FALSE"
�� entry
�� shuffle=0 � 50
�name1=�(10):name2=�(10)
�� name1=name2 � �thB
�temp$=stat$(1,name1)
�!stat$(1,name1)=stat$(1,name2)
�stat$(1,name2)=temp$
�
� shuffle
�C� SARAH,ANDREW,MARY,THOMAS,HELEN,MARK,CLAIRE,JOHN,CAROLINE,LUKE
��
� 

� �person
right=�(10-correct)
� �(right)=0 right=1
 right=ident(2,right)
*
=right
4 
>� �guess
H� 28,1,22,18,15:�6
R<� �1,1)"Santa's present"�1,2)"is for ";stat$(1,right)"."
\'� �1,5)"Which house is"�1,6)"that?"
f)guess=�-48:� guess<0 � guess>9 � �DfC
p� guess=0 guess=10
z�
� 
�� �right
�(stat$(2,right)="TRUE":� 1,-15,101,10
�1�:�1,1)"Very good - you"�1,2)"got it right."
�=�1,5)stat$(1,right);" does"�1,6)"live at No. ";right;"."
�V� right>0 � right<6 col=right*3:row=5 � � right>5 � right<11 col=(right-5)*3:row=9
��26:� �col,row);remove$
��28,1,22,18,15
�correct=correct+1
�wait=�(300)
��
� 
�� �wrong
� 1,-15,60,10
-�:�1,1)"Sorry - you got"�1,2)"it wrong."
<�1,5)stat$(1,guess);" lives at"�1,6)"Number ";guess;"."
$wait=�(300)
.�
8 
B� �loaddata
L
counter=1
V� I=1 � 10-correct
`temp$=stat$(2,counter)
j+� temp$="TRUE" counter=counter+1:� �D`D
tident(1,I)=I
~ident(2,I)=counter
�counter=counter+1
�� I
��
� 
�� �tune
�
� �T@E
�� tune=1 � 53
�� note(tune),length(tune)
�
� tune
�� tune=1 � 53
�#� 1,-15,note(tune),length(tune)
��
I� 80,5,80,5,80,5,88,5,80,5,80,5,60,10,68,5,60,5,68,5,76,5,80,10,80,10

I� 80,5,80,5,80,5,88,5,80,5,80,5,60,10,68,5,60,5,68,5,76,5,80,10,80,10
H� 108,5,100,5,96,5,88,5,96,5,88,5,80,10,68,5,60,5,68,5,76,5,80,10,80
H� 10,60,5,60,5,68,5,76,5,80,5,80,5,88,10,108,5,100,5,96,5,88,5,80,10
(� 100,10,80,20
2�
�

00000000  0d 00 0a 21 f4 20 20 20  53 61 6e 74 61 27 73 20  |...!.   Santa's |
00000010  43 68 72 69 73 74 6d 61  73 20 53 6c 69 70 2d 55  |Christmas Slip-U|
00000020  70 0d 00 14 23 f4 20 76  31 2e 36 20 20 31 35 74  |p...#. v1.6  15t|
00000030  68 2d 32 33 72 64 20 4e  6f 76 65 6d 62 65 72 20  |h-23rd November |
00000040  31 39 39 34 0d 00 1e 1f  f4 20 20 20 20 20 28 63  |1994.....     (c|
00000050  29 20 52 6f 73 73 20 4c  69 74 74 6c 65 20 20 31  |) Ross Little  1|
00000060  39 39 34 0d 00 28 05 20  0d 00 32 06 eb 32 0d 00  |994..(. ..2..2..|
00000070  3c 22 ee 20 85 20 e7 20  9f 3d 31 37 20 f9 20 8b  |<". . . .=17 . .|
00000080  20 f6 3b 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  | .;" at line ";.|
00000090  0d 00 46 13 ef 20 32 33  2c 31 2c 30 3b 30 3b 30  |..F.. 23,1,0;0;0|
000000a0  3b 30 3b 0d 00 50 1f ef  20 32 33 2c 31 32 38 2c  |;0;..P.. 23,128,|
000000b0  30 2c 30 2c 30 2c 30 2c  37 2c 31 35 2c 33 31 2c  |0,0,0,0,7,15,31,|
000000c0  36 33 0d 00 5a 24 ef 20  32 33 2c 31 32 39 2c 30  |63..Z$. 23,129,0|
000000d0  2c 30 2c 30 2c 30 2c 32  32 34 2c 32 34 30 2c 32  |,0,0,0,224,240,2|
000000e0  34 38 2c 32 35 32 0d 00  64 21 ef 20 32 33 2c 31  |48,252..d!. 23,1|
000000f0  33 30 2c 31 35 2c 39 2c  31 35 2c 31 34 2c 31 34  |30,15,9,15,14,14|
00000100  2c 31 34 2c 30 2c 30 0d  00 6e 28 ef 20 32 33 2c  |,14,0,0..n(. 23,|
00000110  31 33 31 2c 32 34 30 2c  31 34 34 2c 32 34 30 2c  |131,240,144,240,|
00000120  31 31 32 2c 31 31 32 2c  31 31 32 2c 30 2c 30 0d  |112,112,112,0,0.|
00000130  00 78 1c ef 20 32 33 2c  31 33 32 2c 30 2c 30 2c  |.x.. 23,132,0,0,|
00000140  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 00 82 1c ef  |0,0,0,0,0,0.....|
00000150  20 32 33 2c 31 33 33 2c  31 2c 33 2c 37 2c 39 2c  | 23,133,1,3,7,9,|
00000160  37 2c 32 2c 31 2c 33 0d  00 8c 2b ef 20 32 33 2c  |7,2,1,3...+. 23,|
00000170  31 33 34 2c 31 32 38 2c  31 39 32 2c 32 32 34 2c  |134,128,192,224,|
00000180  31 34 34 2c 32 32 34 2c  36 34 2c 31 32 38 2c 31  |144,224,64,128,1|
00000190  39 32 0d 00 96 22 ef 20  32 33 2c 31 33 35 2c 37  |92...". 23,135,7|
000001a0  2c 31 35 2c 33 31 2c 36  33 2c 33 31 2c 31 35 2c  |,15,31,63,31,15,|
000001b0  37 2c 31 35 0d 00 a0 2c  ef 20 32 33 2c 31 33 36  |7,15...,. 23,136|
000001c0  2c 32 32 34 2c 32 32 34  2c 32 34 30 2c 32 34 38  |,224,224,240,248|
000001d0  2c 32 34 30 2c 32 32 34  2c 31 39 32 2c 32 32 34  |,240,224,192,224|
000001e0  0d 00 aa 36 68 6f 75 73  65 24 3d bd 31 37 2b bd  |...6house$=.17+.|
000001f0  33 2b bd 31 32 38 2b bd  31 32 39 2b bd 31 30 2b  |3+.128+.129+.10+|
00000200  bd 38 2b bd 38 2b bd 31  37 2b bd 31 2b bd 31 33  |.8+.8+.17+.1+.13|
00000210  30 2b bd 31 33 31 0d 00  b4 3b 72 65 6d 6f 76 65  |0+.131...;remove|
00000220  24 3d bd 31 37 2b bd 31  32 38 2b bd 31 33 32 2b  |$=.17+.128+.132+|
00000230  bd 31 33 32 2b bd 31 30  2b bd 38 2b bd 38 2b bd  |.132+.10+.8+.8+.|
00000240  31 33 32 2b bd 31 33 32  2b bd 31 37 2b bd 31 32  |132+.132+.17+.12|
00000250  39 0d 00 be 31 73 6e 6f  77 6d 61 6e 24 3d bd 31  |9...1snowman$=.1|
00000260  37 2b bd 37 2b bd 31 33  33 2b bd 31 33 34 2b bd  |7+.7+.133+.134+.|
00000270  31 30 2b bd 38 2b bd 38  2b bd 31 33 35 2b bd 31  |10+.8+.8+.135+.1|
00000280  33 36 0d 00 c8 11 de 20  73 74 61 74 24 28 32 2c  |36..... stat$(2,|
00000290  31 30 29 0d 00 d2 11 de  20 69 64 65 6e 74 28 32  |10)..... ident(2|
000002a0  2c 31 30 29 0d 00 d6 0e  de 20 6e 6f 74 65 28 35  |,10)..... note(5|
000002b0  33 29 0d 00 d8 10 de 20  6c 65 6e 67 74 68 28 35  |3)..... length(5|
000002c0  33 29 0d 00 dc 0a 6c 6f  77 3d 33 35 0d 00 e6 05  |3)....low=35....|
000002d0  f5 0d 00 f0 0c ef 32 36  3a fb 31 32 38 0d 00 fa  |......26:.128...|
000002e0  14 6d 6f 76 65 3d 30 3a  63 6f 72 72 65 63 74 3d  |.move=0:correct=|
000002f0  30 0d 01 04 09 f2 64 61  74 61 0d 01 0e 0b f2 73  |0.....data.....s|
00000300  63 72 65 65 6e 0d 01 13  09 f2 74 75 6e 65 0d 01  |creen.....tune..|
00000310  18 05 f5 0d 01 22 0f ef  32 36 3a fb 34 3a fb 31  |....."..26:.4:.1|
00000320  33 31 0d 01 2c 1c 6d 6f  76 65 3d 6d 6f 76 65 2b  |31..,.move=move+|
00000330  31 3a f1 8a 36 2c 32 39  29 3b 6d 6f 76 65 0d 01  |1:..6,29);move..|
00000340  36 12 ef 32 38 2c 31 2c  32 32 2c 31 38 2c 31 35  |6..28,1,22,18,15|
00000350  0d 01 40 0b fb 36 3a fb  31 32 39 0d 01 4a 05 db  |..@..6:.129..J..|
00000360  0d 01 54 0d f2 6c 6f 61  64 64 61 74 61 0d 01 5e  |..T..loaddata..^|
00000370  11 72 69 67 68 74 3d a4  70 65 72 73 6f 6e 0d 01  |.right=.person..|
00000380  68 0a f2 67 75 65 73 73  0d 01 72 18 e7 20 67 75  |h..guess..r.. gu|
00000390  65 73 73 3d 72 69 67 68  74 20 f2 72 69 67 68 74  |ess=right .right|
000003a0  0d 01 7c 19 e7 20 67 75  65 73 73 3c 3e 72 69 67  |..|.. guess<>rig|
000003b0  68 74 20 f2 77 72 6f 6e  67 0d 01 86 10 fd 20 63  |ht .wrong..... c|
000003c0  6f 72 72 65 63 74 3d 31  30 0d 01 90 44 e7 20 6d  |orrect=10...D. m|
000003d0  6f 76 65 3c 6c 6f 77 20  6c 6f 77 3d 6d 6f 76 65  |ove<low low=move|
000003e0  3a db 3a f1 8a 31 2c 32  29 22 47 6f 6f 64 20 2d  |:.:..1,2)"Good -|
000003f0  20 59 6f 75 20 68 61 76  65 22 8a 31 2c 33 29 22  | You have".1,3)"|
00000400  61 20 6c 6f 77 20 73 63  6f 72 65 21 22 0d 01 9a  |a low score!"...|
00000410  0f 77 61 69 74 3d a6 28  33 30 30 29 0d 01 a4 07  |.wait=.(300)....|
00000420  fd 20 a3 0d 01 ae 05 20  0d 01 b8 0d dd 20 f2 73  |. ..... ..... .s|
00000430  63 72 65 65 6e 0d 01 c2  17 e6 30 2c 31 3a ec 20  |creen.....0,1:. |
00000440  30 2c 30 3a df 20 31 32  37 39 2c 30 0d 01 cc 1e  |0,0:. 1279,0....|
00000450  df 20 31 32 37 39 2c 31  30 32 33 3a df 20 30 2c  |. 1279,1023:. 0,|
00000460  31 30 32 33 3a df 20 30  2c 30 0d 01 d6 17 fb 31  |1023:. 0,0.....1|
00000470  32 38 3a f1 8a 31 2c 31  29 73 6e 6f 77 6d 61 6e  |28:..1,1)snowman|
00000480  24 0d 01 e0 13 f1 8a 31  37 2c 31 29 73 6e 6f 77  |$......17,1)snow|
00000490  6d 61 6e 24 0d 01 ea 18  f1 8a 34 2c 31 29 22 58  |man$......4,1)"X|
000004a0  4d 41 53 20 53 4c 49 50  2d 55 50 22 0d 01 f4 13  |MAS SLIP-UP"....|
000004b0  e3 20 72 6f 77 3d 35 20  b8 20 39 20 88 20 34 0d  |. row=5 . 9 . 4.|
000004c0  01 fe 11 e3 20 68 6f 75  73 65 3d 31 20 b8 20 35  |.... house=1 . 5|
000004d0  0d 02 08 1a f1 20 8a 68  6f 75 73 65 2a 33 2c 72  |..... .house*3,r|
000004e0  6f 77 29 20 68 6f 75 73  65 24 0d 02 12 0b ed 20  |ow) house$..... |
000004f0  68 6f 75 73 65 0d 02 1c  09 ed 20 72 6f 77 0d 02  |house..... row..|
00000500  26 07 fb 20 34 0d 02 30  2e f1 8a 32 2c 36 29 22  |&.. 4..0...2,6)"|
00000510  31 22 3b 8a 31 37 2c 36  29 22 35 22 3b 8a 32 2c  |1";.17,6)"5";.2,|
00000520  31 30 29 22 36 22 3b 8a  31 37 2c 31 30 29 22 31  |10)"6";.17,10)"1|
00000530  30 22 3b 0d 02 3a 08 fb  31 33 31 0d 02 44 32 f1  |0";..:..131..D2.|
00000540  8a 31 2c 32 39 29 22 4d  6f 76 65 20 22 3b 6d 6f  |.1,29)"Move ";mo|
00000550  76 65 3b 22 20 22 8a 39  2c 32 39 29 22 4c 6f 77  |ve;" ".9,29)"Low|
00000560  65 73 74 20 22 3b 6c 6f  77 3b 22 20 22 0d 02 4e  |est ";low;" "..N|
00000570  19 ef 32 38 2c 31 2c 32  32 2c 31 38 2c 31 35 3a  |..28,1,22,18,15:|
00000580  fb 31 32 39 3a db 0d 02  58 05 e1 0d 02 62 05 20  |.129:...X....b. |
00000590  0d 02 6c 0b dd 20 f2 64  61 74 61 0d 02 76 14 f7  |..l.. .data..v..|
000005a0  3a e3 20 65 6e 74 72 79  3d 31 20 b8 20 31 30 0d  |:. entry=1 . 10.|
000005b0  02 80 14 f3 20 73 74 61  74 24 28 31 2c 65 6e 74  |.... stat$(1,ent|
000005c0  72 79 29 0d 02 8a 1a 73  74 61 74 24 28 32 2c 65  |ry)....stat$(2,e|
000005d0  6e 74 72 79 29 3d 22 46  41 4c 53 45 22 0d 02 94  |ntry)="FALSE"...|
000005e0  0b ed 20 65 6e 74 72 79  0d 02 9e 14 e3 20 73 68  |.. entry..... sh|
000005f0  75 66 66 6c 65 3d 30 20  b8 20 35 30 0d 02 a8 1b  |uffle=0 . 50....|
00000600  6e 61 6d 65 31 3d b3 28  31 30 29 3a 6e 61 6d 65  |name1=.(10):name|
00000610  32 3d b3 28 31 30 29 0d  02 b2 18 e7 20 6e 61 6d  |2=.(10)..... nam|
00000620  65 31 3d 6e 61 6d 65 32  20 e5 20 8d 74 68 42 0d  |e1=name2 . .thB.|
00000630  02 bc 18 74 65 6d 70 24  3d 73 74 61 74 24 28 31  |...temp$=stat$(1|
00000640  2c 6e 61 6d 65 31 29 0d  02 c6 21 73 74 61 74 24  |,name1)...!stat$|
00000650  28 31 2c 6e 61 6d 65 31  29 3d 73 74 61 74 24 28  |(1,name1)=stat$(|
00000660  31 2c 6e 61 6d 65 32 29  0d 02 d0 18 73 74 61 74  |1,name2)....stat|
00000670  24 28 31 2c 6e 61 6d 65  32 29 3d 74 65 6d 70 24  |$(1,name2)=temp$|
00000680  0d 02 da 0d ed 20 73 68  75 66 66 6c 65 0d 02 e4  |..... shuffle...|
00000690  43 dc 20 53 41 52 41 48  2c 41 4e 44 52 45 57 2c  |C. SARAH,ANDREW,|
000006a0  4d 41 52 59 2c 54 48 4f  4d 41 53 2c 48 45 4c 45  |MARY,THOMAS,HELE|
000006b0  4e 2c 4d 41 52 4b 2c 43  4c 41 49 52 45 2c 4a 4f  |N,MARK,CLAIRE,JO|
000006c0  48 4e 2c 43 41 52 4f 4c  49 4e 45 2c 4c 55 4b 45  |HN,CAROLINE,LUKE|
000006d0  0d 02 ee 05 e1 0d 02 f8  05 20 0d 03 02 0d dd 20  |......... ..... |
000006e0  a4 70 65 72 73 6f 6e 0d  03 0c 17 72 69 67 68 74  |.person....right|
000006f0  3d b3 28 31 30 2d 63 6f  72 72 65 63 74 29 0d 03  |=.(10-correct)..|
00000700  16 18 e7 20 a8 28 72 69  67 68 74 29 3d 30 20 72  |... .(right)=0 r|
00000710  69 67 68 74 3d 31 0d 03  20 18 72 69 67 68 74 3d  |ight=1.. .right=|
00000720  69 64 65 6e 74 28 32 2c  72 69 67 68 74 29 0d 03  |ident(2,right)..|
00000730  2a 0a 3d 72 69 67 68 74  0d 03 34 05 20 0d 03 3e  |*.=right..4. ..>|
00000740  0c dd 20 f2 67 75 65 73  73 0d 03 48 16 ef 20 32  |.. .guess..H.. 2|
00000750  38 2c 31 2c 32 32 2c 31  38 2c 31 35 3a fb 36 0d  |8,1,22,18,15:.6.|
00000760  03 52 3c f1 20 8a 31 2c  31 29 22 53 61 6e 74 61  |.R<. .1,1)"Santa|
00000770  27 73 20 70 72 65 73 65  6e 74 22 8a 31 2c 32 29  |'s present".1,2)|
00000780  22 69 73 20 66 6f 72 20  22 3b 73 74 61 74 24 28  |"is for ";stat$(|
00000790  31 2c 72 69 67 68 74 29  22 2e 22 0d 03 5c 27 f1  |1,right)"."..\'.|
000007a0  20 8a 31 2c 35 29 22 57  68 69 63 68 20 68 6f 75  | .1,5)"Which hou|
000007b0  73 65 20 69 73 22 8a 31  2c 36 29 22 74 68 61 74  |se is".1,6)"that|
000007c0  3f 22 0d 03 66 29 67 75  65 73 73 3d a5 2d 34 38  |?"..f)guess=.-48|
000007d0  3a e7 20 67 75 65 73 73  3c 30 20 84 20 67 75 65  |:. guess<0 . gue|
000007e0  73 73 3e 39 20 8c 20 8d  44 66 43 0d 03 70 16 e7  |ss>9 . .DfC..p..|
000007f0  20 67 75 65 73 73 3d 30  20 67 75 65 73 73 3d 31  | guess=0 guess=1|
00000800  30 0d 03 7a 05 e1 0d 03  84 05 20 0d 03 8e 0c dd  |0..z...... .....|
00000810  20 f2 72 69 67 68 74 0d  03 98 28 73 74 61 74 24  | .right...(stat$|
00000820  28 32 2c 72 69 67 68 74  29 3d 22 54 52 55 45 22  |(2,right)="TRUE"|
00000830  3a d4 20 31 2c 2d 31 35  2c 31 30 31 2c 31 30 0d  |:. 1,-15,101,10.|
00000840  03 a2 31 db 3a f1 8a 31  2c 31 29 22 56 65 72 79  |..1.:..1,1)"Very|
00000850  20 67 6f 6f 64 20 2d 20  79 6f 75 22 8a 31 2c 32  | good - you".1,2|
00000860  29 22 67 6f 74 20 69 74  20 72 69 67 68 74 2e 22  |)"got it right."|
00000870  0d 03 ac 3d f1 8a 31 2c  35 29 73 74 61 74 24 28  |...=..1,5)stat$(|
00000880  31 2c 72 69 67 68 74 29  3b 22 20 64 6f 65 73 22  |1,right);" does"|
00000890  8a 31 2c 36 29 22 6c 69  76 65 20 61 74 20 4e 6f  |.1,6)"live at No|
000008a0  2e 20 22 3b 72 69 67 68  74 3b 22 2e 22 0d 03 b6  |. ";right;"."...|
000008b0  56 e7 20 72 69 67 68 74  3e 30 20 80 20 72 69 67  |V. right>0 . rig|
000008c0  68 74 3c 36 20 63 6f 6c  3d 72 69 67 68 74 2a 33  |ht<6 col=right*3|
000008d0  3a 72 6f 77 3d 35 20 8b  20 e7 20 72 69 67 68 74  |:row=5 . . right|
000008e0  3e 35 20 80 20 72 69 67  68 74 3c 31 31 20 63 6f  |>5 . right<11 co|
000008f0  6c 3d 28 72 69 67 68 74  2d 35 29 2a 33 3a 72 6f  |l=(right-5)*3:ro|
00000900  77 3d 39 0d 03 c0 1b ef  32 36 3a f1 20 8a 63 6f  |w=9.....26:. .co|
00000910  6c 2c 72 6f 77 29 3b 72  65 6d 6f 76 65 24 0d 03  |l,row);remove$..|
00000920  ca 12 ef 32 38 2c 31 2c  32 32 2c 31 38 2c 31 35  |...28,1,22,18,15|
00000930  0d 03 d4 15 63 6f 72 72  65 63 74 3d 63 6f 72 72  |....correct=corr|
00000940  65 63 74 2b 31 0d 03 de  0f 77 61 69 74 3d a6 28  |ect+1....wait=.(|
00000950  33 30 30 29 0d 03 e8 05  e1 0d 03 f2 05 20 0d 03  |300)......... ..|
00000960  fc 0c dd 20 f2 77 72 6f  6e 67 0d 04 06 11 d4 20  |... .wrong..... |
00000970  31 2c 2d 31 35 2c 36 30  2c 31 30 0d 04 10 2d db  |1,-15,60,10...-.|
00000980  3a f1 8a 31 2c 31 29 22  53 6f 72 72 79 20 2d 20  |:..1,1)"Sorry - |
00000990  79 6f 75 20 67 6f 74 22  8a 31 2c 32 29 22 69 74  |you got".1,2)"it|
000009a0  20 77 72 6f 6e 67 2e 22  0d 04 1a 3c f1 8a 31 2c  | wrong."...<..1,|
000009b0  35 29 73 74 61 74 24 28  31 2c 67 75 65 73 73 29  |5)stat$(1,guess)|
000009c0  3b 22 20 6c 69 76 65 73  20 61 74 22 8a 31 2c 36  |;" lives at".1,6|
000009d0  29 22 4e 75 6d 62 65 72  20 22 3b 67 75 65 73 73  |)"Number ";guess|
000009e0  3b 22 2e 22 0d 04 24 0f  77 61 69 74 3d a6 28 33  |;"."..$.wait=.(3|
000009f0  30 30 29 0d 04 2e 05 e1  0d 04 38 05 20 0d 04 42  |00).......8. ..B|
00000a00  0f dd 20 f2 6c 6f 61 64  64 61 74 61 0d 04 4c 0d  |.. .loaddata..L.|
00000a10  63 6f 75 6e 74 65 72 3d  31 0d 04 56 16 e3 20 49  |counter=1..V.. I|
00000a20  3d 31 20 b8 20 31 30 2d  63 6f 72 72 65 63 74 0d  |=1 . 10-correct.|
00000a30  04 60 1a 74 65 6d 70 24  3d 73 74 61 74 24 28 32  |.`.temp$=stat$(2|
00000a40  2c 63 6f 75 6e 74 65 72  29 0d 04 6a 2b e7 20 74  |,counter)..j+. t|
00000a50  65 6d 70 24 3d 22 54 52  55 45 22 20 63 6f 75 6e  |emp$="TRUE" coun|
00000a60  74 65 72 3d 63 6f 75 6e  74 65 72 2b 31 3a e5 20  |ter=counter+1:. |
00000a70  8d 44 60 44 0d 04 74 10  69 64 65 6e 74 28 31 2c  |.D`D..t.ident(1,|
00000a80  49 29 3d 49 0d 04 7e 16  69 64 65 6e 74 28 32 2c  |I)=I..~.ident(2,|
00000a90  49 29 3d 63 6f 75 6e 74  65 72 0d 04 88 15 63 6f  |I)=counter....co|
00000aa0  75 6e 74 65 72 3d 63 6f  75 6e 74 65 72 2b 31 0d  |unter=counter+1.|
00000ab0  04 92 07 ed 20 49 0d 04  9c 05 e1 0d 04 a6 05 20  |.... I......... |
00000ac0  0d 04 b0 0b dd 20 f2 74  75 6e 65 0d 04 ba 0a f7  |..... .tune.....|
00000ad0  20 8d 54 40 45 0d 04 c4  11 e3 20 74 75 6e 65 3d  | .T@E..... tune=|
00000ae0  31 20 b8 20 35 33 0d 04  ce 1d f3 20 6e 6f 74 65  |1 . 53..... note|
00000af0  28 74 75 6e 65 29 2c 6c  65 6e 67 74 68 28 74 75  |(tune),length(tu|
00000b00  6e 65 29 0d 04 d8 0a ed  20 74 75 6e 65 0d 04 e2  |ne)..... tune...|
00000b10  11 e3 20 74 75 6e 65 3d  31 20 b8 20 35 33 0d 04  |.. tune=1 . 53..|
00000b20  ec 23 d4 20 31 2c 2d 31  35 2c 6e 6f 74 65 28 74  |.#. 1,-15,note(t|
00000b30  75 6e 65 29 2c 6c 65 6e  67 74 68 28 74 75 6e 65  |une),length(tune|
00000b40  29 0d 04 f6 05 ed 0d 05  00 49 dc 20 38 30 2c 35  |)........I. 80,5|
00000b50  2c 38 30 2c 35 2c 38 30  2c 35 2c 38 38 2c 35 2c  |,80,5,80,5,88,5,|
00000b60  38 30 2c 35 2c 38 30 2c  35 2c 36 30 2c 31 30 2c  |80,5,80,5,60,10,|
00000b70  36 38 2c 35 2c 36 30 2c  35 2c 36 38 2c 35 2c 37  |68,5,60,5,68,5,7|
00000b80  36 2c 35 2c 38 30 2c 31  30 2c 38 30 2c 31 30 0d  |6,5,80,10,80,10.|
00000b90  05 0a 49 dc 20 38 30 2c  35 2c 38 30 2c 35 2c 38  |..I. 80,5,80,5,8|
00000ba0  30 2c 35 2c 38 38 2c 35  2c 38 30 2c 35 2c 38 30  |0,5,88,5,80,5,80|
00000bb0  2c 35 2c 36 30 2c 31 30  2c 36 38 2c 35 2c 36 30  |,5,60,10,68,5,60|
00000bc0  2c 35 2c 36 38 2c 35 2c  37 36 2c 35 2c 38 30 2c  |,5,68,5,76,5,80,|
00000bd0  31 30 2c 38 30 2c 31 30  0d 05 14 48 dc 20 31 30  |10,80,10...H. 10|
00000be0  38 2c 35 2c 31 30 30 2c  35 2c 39 36 2c 35 2c 38  |8,5,100,5,96,5,8|
00000bf0  38 2c 35 2c 39 36 2c 35  2c 38 38 2c 35 2c 38 30  |8,5,96,5,88,5,80|
00000c00  2c 31 30 2c 36 38 2c 35  2c 36 30 2c 35 2c 36 38  |,10,68,5,60,5,68|
00000c10  2c 35 2c 37 36 2c 35 2c  38 30 2c 31 30 2c 38 30  |,5,76,5,80,10,80|
00000c20  0d 05 1e 48 dc 20 31 30  2c 36 30 2c 35 2c 36 30  |...H. 10,60,5,60|
00000c30  2c 35 2c 36 38 2c 35 2c  37 36 2c 35 2c 38 30 2c  |,5,68,5,76,5,80,|
00000c40  35 2c 38 30 2c 35 2c 38  38 2c 31 30 2c 31 30 38  |5,80,5,88,10,108|
00000c50  2c 35 2c 31 30 30 2c 35  2c 39 36 2c 35 2c 38 38  |,5,100,5,96,5,88|
00000c60  2c 35 2c 38 30 2c 31 30  0d 05 28 12 dc 20 31 30  |,5,80,10..(.. 10|
00000c70  30 2c 31 30 2c 38 30 2c  32 30 0d 05 32 05 e1 0d  |0,10,80,20..2...|
00000c80  ff                                                |.|
00000c81