$� Title for Santa's Xmas Slip-Up
� 23rd November 1994
� (c) Ross Little 1994
( 
2�1
7�23,1,0;0;0;0;
<
�title
F
wait=�
P� wait<>32 � �DF@
Z� "slip_up"
d�
n 
x� �title
}�19,3,6;0;
�� 129:�
�� 28,1,30,38,1
�� 128:�
��3
�*�centre("SANTA'S CHRISTMAS SLIP-UP",2)
��2
�4�centre("Welcome to our festive celabrations",6)
�3�centre("but unfortunately Santa's lost all",7)
�*�centre("the children's addresses.",8)
�4�centre("Luckily, help is at hand with YOU,",10)
�!�centre("Santa's helper.",11)
�1�centre("That's right - it's your job to",13)
�3�centre("guess where the children live. If",14)
�2�centre("you guess wrong, then Santa will",15)
�2�centre("tell you who lives there when he",16)

/�centre("returns. If you get it right,",17)

/�centre("the child gets their present.",18)

�centre("Good Luck!",20)

(�centre("Use key 0 for house 10",22)

�1

" �centre("Press Spacebar",25)

,wait=�:� wait<>32 � �TlA

6�

@ 

J� �centre(text$,row)

T!� �20-(�(text$)/2),row);text$

^�
�

00000000  0d 00 0a 24 f4 20 54 69  74 6c 65 20 66 6f 72 20  |...$. Title for |
00000010  53 61 6e 74 61 27 73 20  58 6d 61 73 20 53 6c 69  |Santa's Xmas Sli|
00000020  70 2d 55 70 0d 00 14 18  f4 20 32 33 72 64 20 4e  |p-Up..... 23rd N|
00000030  6f 76 65 6d 62 65 72 20  31 39 39 34 0d 00 1e 1a  |ovember 1994....|
00000040  f4 20 28 63 29 20 52 6f  73 73 20 4c 69 74 74 6c  |. (c) Ross Littl|
00000050  65 20 31 39 39 34 0d 00  28 05 20 0d 00 32 06 eb  |e 1994..(. ..2..|
00000060  31 0d 00 37 12 ef 32 33  2c 31 2c 30 3b 30 3b 30  |1..7..23,1,0;0;0|
00000070  3b 30 3b 0d 00 3c 0a f2  74 69 74 6c 65 0d 00 46  |;0;..<..title..F|
00000080  0a 77 61 69 74 3d a5 0d  00 50 15 e7 20 77 61 69  |.wait=...P.. wai|
00000090  74 3c 3e 33 32 20 e5 20  8d 44 46 40 0d 00 5a 0f  |t<>32 . .DF@..Z.|
000000a0  d7 20 22 73 6c 69 70 5f  75 70 22 0d 00 64 05 e0  |. "slip_up"..d..|
000000b0  0d 00 6e 05 20 0d 00 78  0c dd 20 f2 74 69 74 6c  |..n. ..x.. .titl|
000000c0  65 0d 00 7d 0e ef 31 39  2c 33 2c 36 3b 30 3b 0d  |e..}..19,3,6;0;.|
000000d0  00 82 0b fb 20 31 32 39  3a db 0d 00 8c 12 ef 20  |.... 129:...... |
000000e0  32 38 2c 31 2c 33 30 2c  33 38 2c 31 0d 00 96 0b  |28,1,30,38,1....|
000000f0  fb 20 31 32 38 3a db 0d  00 9b 06 fb 33 0d 00 a0  |. 128:......3...|
00000100  2a f2 63 65 6e 74 72 65  28 22 53 41 4e 54 41 27  |*.centre("SANTA'|
00000110  53 20 43 48 52 49 53 54  4d 41 53 20 53 4c 49 50  |S CHRISTMAS SLIP|
00000120  2d 55 50 22 2c 32 29 0d  00 a5 06 fb 32 0d 00 aa  |-UP",2).....2...|
00000130  34 f2 63 65 6e 74 72 65  28 22 57 65 6c 63 6f 6d  |4.centre("Welcom|
00000140  65 20 74 6f 20 6f 75 72  20 66 65 73 74 69 76 65  |e to our festive|
00000150  20 63 65 6c 61 62 72 61  74 69 6f 6e 73 22 2c 36  | celabrations",6|
00000160  29 0d 00 b4 33 f2 63 65  6e 74 72 65 28 22 62 75  |)...3.centre("bu|
00000170  74 20 75 6e 66 6f 72 74  75 6e 61 74 65 6c 79 20  |t unfortunately |
00000180  53 61 6e 74 61 27 73 20  6c 6f 73 74 20 61 6c 6c  |Santa's lost all|
00000190  22 2c 37 29 0d 00 be 2a  f2 63 65 6e 74 72 65 28  |",7)...*.centre(|
000001a0  22 74 68 65 20 63 68 69  6c 64 72 65 6e 27 73 20  |"the children's |
000001b0  61 64 64 72 65 73 73 65  73 2e 22 2c 38 29 0d 00  |addresses.",8)..|
000001c0  c8 34 f2 63 65 6e 74 72  65 28 22 4c 75 63 6b 69  |.4.centre("Lucki|
000001d0  6c 79 2c 20 68 65 6c 70  20 69 73 20 61 74 20 68  |ly, help is at h|
000001e0  61 6e 64 20 77 69 74 68  20 59 4f 55 2c 22 2c 31  |and with YOU,",1|
000001f0  30 29 0d 00 d2 21 f2 63  65 6e 74 72 65 28 22 53  |0)...!.centre("S|
00000200  61 6e 74 61 27 73 20 68  65 6c 70 65 72 2e 22 2c  |anta's helper.",|
00000210  31 31 29 0d 00 dc 31 f2  63 65 6e 74 72 65 28 22  |11)...1.centre("|
00000220  54 68 61 74 27 73 20 72  69 67 68 74 20 2d 20 69  |That's right - i|
00000230  74 27 73 20 79 6f 75 72  20 6a 6f 62 20 74 6f 22  |t's your job to"|
00000240  2c 31 33 29 0d 00 e6 33  f2 63 65 6e 74 72 65 28  |,13)...3.centre(|
00000250  22 67 75 65 73 73 20 77  68 65 72 65 20 74 68 65  |"guess where the|
00000260  20 63 68 69 6c 64 72 65  6e 20 6c 69 76 65 2e 20  | children live. |
00000270  49 66 22 2c 31 34 29 0d  00 f0 32 f2 63 65 6e 74  |If",14)...2.cent|
00000280  72 65 28 22 79 6f 75 20  67 75 65 73 73 20 77 72  |re("you guess wr|
00000290  6f 6e 67 2c 20 74 68 65  6e 20 53 61 6e 74 61 20  |ong, then Santa |
000002a0  77 69 6c 6c 22 2c 31 35  29 0d 00 fa 32 f2 63 65  |will",15)...2.ce|
000002b0  6e 74 72 65 28 22 74 65  6c 6c 20 79 6f 75 20 77  |ntre("tell you w|
000002c0  68 6f 20 6c 69 76 65 73  20 74 68 65 72 65 20 77  |ho lives there w|
000002d0  68 65 6e 20 68 65 22 2c  31 36 29 0d 01 04 2f f2  |hen he",16).../.|
000002e0  63 65 6e 74 72 65 28 22  72 65 74 75 72 6e 73 2e  |centre("returns.|
000002f0  20 49 66 20 79 6f 75 20  67 65 74 20 69 74 20 72  | If you get it r|
00000300  69 67 68 74 2c 22 2c 31  37 29 0d 01 0e 2f f2 63  |ight,",17).../.c|
00000310  65 6e 74 72 65 28 22 74  68 65 20 63 68 69 6c 64  |entre("the child|
00000320  20 67 65 74 73 20 74 68  65 69 72 20 70 72 65 73  | gets their pres|
00000330  65 6e 74 2e 22 2c 31 38  29 0d 01 13 1c f2 63 65  |ent.",18).....ce|
00000340  6e 74 72 65 28 22 47 6f  6f 64 20 4c 75 63 6b 21  |ntre("Good Luck!|
00000350  22 2c 32 30 29 0d 01 18  28 f2 63 65 6e 74 72 65  |",20)...(.centre|
00000360  28 22 55 73 65 20 6b 65  79 20 30 20 66 6f 72 20  |("Use key 0 for |
00000370  68 6f 75 73 65 20 31 30  22 2c 32 32 29 0d 01 1d  |house 10",22)...|
00000380  06 fb 31 0d 01 22 20 f2  63 65 6e 74 72 65 28 22  |..1.." .centre("|
00000390  50 72 65 73 73 20 53 70  61 63 65 62 61 72 22 2c  |Press Spacebar",|
000003a0  32 35 29 0d 01 2c 1c 77  61 69 74 3d a5 3a e7 20  |25)..,.wait=.:. |
000003b0  77 61 69 74 3c 3e 33 32  20 e5 20 8d 54 6c 41 0d  |wait<>32 . .TlA.|
000003c0  01 36 05 e1 0d 01 40 05  20 0d 01 4a 18 dd 20 f2  |.6....@. ..J.. .|
000003d0  63 65 6e 74 72 65 28 74  65 78 74 24 2c 72 6f 77  |centre(text$,row|
000003e0  29 0d 01 54 21 f1 20 8a  32 30 2d 28 a9 28 74 65  |)..T!. .20-(.(te|
000003f0  78 74 24 29 2f 32 29 2c  72 6f 77 29 3b 74 65 78  |xt$)/2),row);tex|
00000400  74 24 0d 01 5e 05 e1 0d  ff                       |t$..^....|
00000409