Home » Archimedes archive » Archimedes World » AW-1994-02-Disc1.adf » Disk1Feb94 » !AWFeb94/Goodies/Aztec/!AZTECS/ONE/demo3
!AWFeb94/Goodies/Aztec/!AZTECS/ONE/demo3
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1994-02-Disc1.adf » Disk1Feb94 |
| Filename: | !AWFeb94/Goodies/Aztec/!AZTECS/ONE/demo3 |
| Read OK: | ✔ |
| File size: | 6D39 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
0REMOSCLISCSI::SCSIDisc4.$.CoverDisks.!AZTECS.ONE.demo3
1LIBRARY "<Aztec$chaindir>.azteclib"
2PROClib_initialise:PROCinitialise
3SYS "OS_Byte",112,2:PROCborders(0,0,1279,low%-9):PROCborders(left%-12,low%-12,right%+12,high%+12)
4
5FORk%=0TO8:PROCexpand(expall3$(k%)):NEXT
6FORk%=0TO19:PROCexpand(motif$(k%)):PROCexpand("s"+motif$(k%)):NEXT
7 PROCmotifs
8 PROCadd_cogs
9 PROCexp_cogs
10 PROCshow_1croc
11 PROCcal_move
12 PROCprob_next_day
13 PROCprob_days_time(1)
14 PROCprob_days_time(2)
15 PROCprob_days_time(3)
16 PROCprob_days_time(4)
17 PROCbirthday
18SYS "OS_Byte",112,2:PROCborders(0,0,1279,high%+12):PROCscrcopy21
19 PROCwords(70,790,-1,"In the full adventure you have the options of easier")
20 PROCwords(70,730,-1,"or harder text and problems (or no problems). The")
21 PROCwords(70,670,-1,"Aztec pack also contains posters, activity ideas and")
22 PROCwords(70,610,-1,"further information and may be ordered from -")
23PROCwords(300,530,-1,"Sherston Software Ltd.,")
24PROCwords(300,470,-1,"Swan Barton,")
25PROCwords(300,410,-1,"Sherston,")
26PROCwords(300,350,-1,"Malmesbury,")
27PROCwords(300,290,-1,"Wiltshire.")
28PROCwords(300,230,-1,"SN16 OLH")
29PROCwords(300,170,-1,"Telephone 0666 840433")
30PROCwords(300,110,-1,"Fax 0666 840048")
31 PROCgo_on
32
33PROCdesk_top
34END
35
36DEF PROCinitialise
37SYS "OS_SpriteOp",&10B,AREA%,"<AZTEC$chaindir>.ONE.calendar_c"
38 SYS "Sound_Configure",2,0,100
39 SYS "Sound_AttachVoice",2,2
40 DIM motif$(19)
41 RESTORE 45
42 FOR kk%=0 TO 19
43 READ motif$(kk%)
44 NEXT
45 DATA "crocodile","wind","house","lizard","snake","death","deer","rabbit","water","dog"
46 DATA "monkey","grass","reed","jaguar","eagle","vulture","movement","knife","rain","flower"
47 DIM motif_x%(19)
48 RESTORE 52
49 FOR kk%=0 TO 19
50 READ motif_x%(kk%)
51 NEXT
52 DATA 0,36,34,28,32,36,46,32,38,58,16,38,38,32,36,20,-4,44,48,26
53 REM DATA 0,36,34,28,32,36,46,62,38,58,16,38,40,32,36,20,-4,44,48,26
54 REM DATA 28,240,414,584,764,944,1130,60,244,418,572,790,946,1122,64,224,376,600,780,934
55 DIM expall3$(8)
56 RESTORE +0
57 DATA "dot","sblank","dot_blank","dot_bl_yel","sbl_yel","edge_yel","arrow1","arrow2","divid"
58 FOR i%=0TO8:READ expall3$(i%):NEXT
59 DIM dlink%(12)
60 DIM slink%(19)
61 FOR i%=0TO6 : slink%(i%)=38-(i%*2) : NEXT
62 FOR i%=7TO13 : slink%(i%)=24-((i%-7)*2) : NEXT
63 FOR i%=14TO19 : slink%(i%)=10-((i%-14)*2) : NEXT
64 DIM symbol1%(19,1)
65 FOR i%=0 TO 19
66 cx%=872 - 250*COS(RAD(i%*18))
67 cy%=604 + 250*SIN(RAD(i%*18))
68 cx%=cx%-32 : cy%=cy%-32
69 symbol1%(i%,0)=FNdivis2(cx%) : symbol1%(i%,1)=FNdivis4(cy%)
70 NEXT
71 DIM symbol2%(19,1)
72 FOR i%=0 TO 19
73 cx%=872 - 250*COS(RAD((i%*18)-9))
74 cy%=604 + 250*SIN(RAD((i%*18)-9))
75 cx%=cx%-32 : cy%=cy%-32
76 symbol2%(i%,0)=FNdivis2(cx%) : symbol2%(i%,1)=FNdivis4(cy%)
77 NEXT
78 DIM dots1%(12,12,1)
79 FOR kk%=0 TO 12
80 FOR ll%=0 TO 7
81 cx%=330 + (194-(24*(ll%MOD4)))*COS(RAD((kk%*27.7)+(8*INT(ll%/4))))
82 cy%=604 + (194-(24*(ll%MOD4)))*SIN(RAD((kk%*27.7)+(8*INT(ll%/4))))
83 dots1%(kk%,ll%,0)=FNdivis2(cx%)-10 : dots1%(kk%,ll%,1)=FNdivis4(cy%)-8
84 NEXT
85 FOR ll%=8 TO 11
86 cx%=330 + (194-(24*(ll%MOD4)))*COS(RAD((kk%*27.7)-8))
87 cy%=604 + (194-(24*(ll%MOD4)))*SIN(RAD((kk%*27.7)-8))
88 dots1%(kk%,ll%,0)=FNdivis2(cx%)-10 : dots1%(kk%,ll%,1)=FNdivis4(cy%)-8
89 NEXT
90 cx%=330 + (194-(24*4))*COS(RAD((kk%*27.7)))
91 cy%=604 + (194-(24*4))*SIN(RAD((kk%*27.7)))
92 dots1%(kk%,ll%,0)=FNdivis2(cx%)-10 : dots1%(kk%,ll%,1)=FNdivis4(cy%)-8
93 NEXT
94 DIM dots2%(12,12,1)
95 FOR kk%=0 TO 12
96 FOR ll%=0 TO 7
97 cx%=330 + (194-(24*(ll%MOD4)))*COS(RAD((kk%*27.7)-13.85+(8*INT(ll%/4))))
98 cy%=604 + (194-(24*(ll%MOD4)))*SIN(RAD((kk%*27.7)-13.85+(8*INT(ll%/4))))
99 dots2%(kk%,ll%,0)=FNdivis2(cx%)-10 : dots2%(kk%,ll%,1)=FNdivis4(cy%)-8
100 NEXT
101 FOR ll%=8 TO 11
102 cx%=330 + (194-(24*(ll%MOD4)))*COS(RAD((kk%*27.7)-13.85-8))
103 cy%=604 + (194-(24*(ll%MOD4)))*SIN(RAD((kk%*27.7)-13.85-8))
104 dots2%(kk%,ll%,0)=FNdivis2(cx%)-10 : dots2%(kk%,ll%,1)=FNdivis4(cy%)-8
105 NEXT
106 cx%=330 + (194-(24*4))*COS(RAD((kk%*27.7)-13.85))
107 cy%=604 + (194-(24*4))*SIN(RAD((kk%*27.7)-13.85))
108 dots2%(kk%,ll%,0)=FNdivis2(cx%)-10 : dots2%(kk%,ll%,1)=FNdivis4(cy%)-8
109 NEXT
110 DIM first_etc$(9)
111 first_etc$(0)="st" : first_etc$(1)="nd" : first_etc$(2)="rd"
112 FOR i%=3 TO 9 : first_etc$(i%)="th" : NEXT
113 DIM yr_mth_dy$(2)
114 yr_mth_dy$(0)="Year" : yr_mth_dy$(1)="Month" : yr_mth_dy$(2)="Day"
115 DIM no_dig%(2)
116 no_dig%(0)=4 : no_dig%(1)=2 : no_dig%(2)=2
117 DIM dob%(2)
118 DIM daycum%(11)
119 daycum%(0)=0 : daycum%(1)=31 : daycum%(2)=59 : daycum%(3)=90
120 daycum%(4)=120 : daycum%(5)=151 : daycum%(6)=181 : daycum%(7)=212
121 daycum%(8)=243 : daycum%(9)=273 : daycum%(10)=304 : daycum%(11)=334
122ENDPROC
123
124DEFFNreadstring(p%)
125LOCALa$:a$="":WHILE LENa$<255 AND ?p%>31 a$+=CHR$?p%:p%+=1:ENDWHILE
126=a$
127
128DEF PROCmotifs
129 SYS "OS_Byte",113,1
130 SYS "OS_Byte",112,2
131 PROCcleartext
132 PROCcleargraphics(1)
133 PROCsymb_init(0,2)
134 PROCgo_on:C%=2:D%=1:E%=2:F%=1:PROCexplode(640,600,0):PROCscrcopy21
135 PROCsymb_names
136 PROCwords(70,134,-1,"The Aztec sacred calendar is a way of naming days.")
137 PROCgo_on
138 PROCwords(70,150,-1,"The names are made of a number between 1 and 13")
139 PROCwords(70,90,-1,"and one of the 20 special symbols above.")
140 PROCgo_on
141 PROCscrcopy21
142 PROCshrink
143 PROCsymb_tocircle
144ENDPROC
145
146DEF PROCsymb_tocircle
147 lasttime%=TIME
148 SYS "OS_Byte",112,2
149 PROCcleargraphics(1)
150 FOR j%=0 TO 6
151 FOR i%=0 TO 2
152 IF (j%<>6) OR (i%<>2) THEN
153 PROCput_sp(2,28+(80*j%),768-(i%*224),2,16,16,16,"s"+motif$(j%+(i%*7)),left%,low%,right%,high%,&00)
154 ENDIF
155 NEXT
156REM PROCwait(10)
157 NEXT
158 REPEAT:UNTIL TIME>=lasttime%+80
159 SYS "OS_Byte",113,2 : lasttime%=TIME
160 PROCscrcopy21
161 SYS "OS_Byte",112,2
162 PROCcleargraphics(1)
163 FOR j%=0 TO 6
164 FOR i%=1 TO -1 STEP -1
165 IF (j%<>6) OR (i%<>-1) THEN
166 PROCput_sp(2,28+(80*j%),544+(i%*88),2,16,16,16,"s"+motif$(j%+((1-i%)*7)),left%,low%,right%,high%,&00)
167 ENDIF
168 NEXT
169REM PROCwait(10)
170 NEXT
171 REPEAT:UNTIL TIME>=lasttime%+80
172 SYS "OS_Byte",113,2
173 PROCscrcopy21
174 PROCwait(100):lasttime%=TIME
175 FOR k%=0 TO 2
176 FOR j%=0 TO 6
177 IF (k%<>2) OR (j%<>6) THEN
178 PROCput_sp(1,28+(80*j%),632-(k%*88),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
179 PROCput_sp(1,symbol1%((j%+(k%*7)),0),symbol1%((j%+(k%*7)),1),2,16,16,16,"s"+motif$(j%+(k%*7)),left%,low%,right%,high%,&00)
180 REPEAT:UNTIL TIME>=lasttime%+20
181 lasttime%=TIME
182REM PROCwait(20)
183 ENDIF
184 NEXT
185 NEXT
186ENDPROC
187
188DEF PROCsymb_names
189 FOR i%=0 TO 2
190 FOR j%=0 TO 6
191 IF (i%<>2) OR (j%<>6) THEN
192 cx%=28+(176*j%) : cy%=768-(224*i%)-48
193 PROCwords(cx%+motif_x%((7*i%)+j%),cy%,0,motif$((7*i%)+j%))
194 ENDIF
195 NEXT
196 NEXT
197ENDPROC
198
199DEF PROCsymb_init(small%,scr%)
200 FOR i%=0 TO 2
201 FOR j%=0 TO 6
202 IF (i%<>2) OR (j%<>6) THEN
203 cx%=28+(176*j%) : cy%=768-(224*i%)
204 IF small%=0 THEN
205 SYS "OS_SpriteOp",&134,AREA%,motif$((7*i%)+j%),cx%,cy%,0,SCALE%,0
206 ELSE
207 PROCput_sp(scr%,cx%,cy%,2,16,16,16,"s"+motif$((7*i%)+j%),left%,low%,right%,high%,&00)
208 REM SYS "OS_SpriteOp",&134,AREA%,"s"+motif$((7*i%)+j%),cx%,cy%,0,SCALE%,0
209 ENDIF
210 ENDIF
211 NEXT
212 NEXT
213ENDPROC
214
215DEF PROCsymb_plot(scr%,symb_array%())
216 FOR l%=0 TO 19
217 IF (scr%=1) AND (slink%(l%)=0) THEN
218 PROCput_sp(scr%,symbol1%(0,0),symbol1%(0,1),5,16,16,16,"sbl_yel",left%,low%,right%,high%,&00)
219 PROCput_sp(scr%,symb_array%(slink%(l%),0),symb_array%(slink%(l%),1),1,16,16,16,"s"+motif$(l%),left%,low%,right%,high%,&00)
220 PROCput_sp(scr%,symbol1%(0,0),symbol1%(0,1),2,16,16,16,"edge_yel",left%,low%,right%,high%,&00)
221 ELSE
222 PROCput_sp(scr%,symb_array%(slink%(l%),0),symb_array%(slink%(l%),1),2,16,16,16,"s"+motif$(l%),left%,low%,right%,high%,&00)
223 ENDIF
224 NEXT
225ENDPROC
226
227DEF PROCsymb_blank(scr%,cog%)
228 IF (cog% = 1) AND (scr%=1) THEN
229 PROCput_sp(scr%,symbol1%(0,0),symbol1%(0,1),5,16,16,16,"sbl_yel",left%,low%,right%,high%,&00)
230 ELSE
231 PROCput_sp(scr%,symbol2%(0,0),symbol2%(0,1),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
232 ENDIF
233 FOR l%=1 TO 19
234 IF cog% = 1 THEN
235 PROCput_sp(scr%,symbol1%(l%,0),symbol1%(l%,1),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
236 ELSE
237 PROCput_sp(scr%,symbol2%(l%,0),symbol2%(l%,1),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
238 ENDIF
239 NEXT
240ENDPROC
241
242DEF PROCshrink
243 firsttime%=TRUE
244 FOR shrink%=15 TO 8 STEP -1
245 IFfirsttime%THEN:firsttime%=FALSE:lasttime%=TIME-30
246 SYS "OS_Byte",112,1+(shrink%MOD2)
247 !(SCALE%+0)=shrink% : !(SCALE%+4)=shrink%*(H%!&F0)
248 PROCcleargraphics(1)
249 PROCsymb_init(0,1+(shrink%MOD2))
250 REPEAT:UNTIL TIME>=lasttime%+30
251 WAIT:SYS "OS_Byte",113,1+(shrink%MOD2):lasttime%=TIME
252 NEXT
253 SYS "OS_Byte",112,2
254 !(SCALE%+0)=16 : !(SCALE%+4)=16*(H%!&F0)
255 PROCcleargraphics(1)
256 PROCsymb_init(1,2)
257 PROCscrcopy21
258ENDPROC
259
260DEF PROCadd_cogs
261 PROCadd_sp(2,"wheels1",3,3,6)
262 PROCput_sp(2,444,796,6,16,16,16,"arrow1",0,0,1276,1020,&00)
263 PROCput_sp(2,568,796,6,16,16,16,"arrow2",0,0,1276,1020,&00)
264 PROCsymb_circ(2,0,1)
265 PROCdots_init(2,1,1)
266REM PROCgo_on
267 PROCscrcopy21
268 PROCwords(70,134,-1,"This is an Aztec sacred calendar.")
269 PROCadd_sp(2,"wheels2",3,3,6)
270 PROCput_sp(2,444,796,6,16,16,16,"arrow1",0,0,1276,1020,&00)
271 PROCput_sp(2,568,796,6,16,16,16,"arrow2",0,0,1276,1020,&00)
272 PROCsymb_circ(2,0,2)
273 PROCdots_init(2,1,2)
274 SYS "OS_Byte",112,1
275ENDPROC
276
277DEF PROCsymb_circ(scr%,st_pos%,cog%)
278 REM displays symbols on scr% with symbol no. st_pos% at far left
279 FOR i%=st_pos% TO 19
280 slink%(i%)=i%-st_pos%
281 NEXT
282 IF st_pos%<>0 THEN
283 FOR i%=0 TO st_pos%-1
284 slink%(i%)=(19-st_pos%)+1+i%
285 NEXT
286 ENDIF
287 IF cog%=1 THEN
288 PROCsymb_plot(scr%,symbol1%())
289 ELSE
290 PROCsymb_plot(scr%,symbol2%())
291 ENDIF
292ENDPROC
293
294DEF PROCdots_init(scr%,st_pos%,cog%)
295 REM displays dots on scr% with dot no. st_pos% at far right
296 FOR i%=0 TO 13-st_pos%
297 dlink%(i%)=st_pos%-1+i%
298 NEXT
299 IF st_pos%<>1 THEN
300 FOR i%=0 TO st_pos%-2
301 dlink%(13-st_pos%+1+i%)=i%
302 NEXT
303 ENDIF
304 IF cog%=1 THEN
305 PROCdots_plot(scr%,dots1%())
306 ELSE
307 PROCdots_plot(scr%,dots2%())
308 ENDIF
309ENDPROC
310
311DEF PROCdots_plot(scr%,dots_array%())
312 FOR k%=0 TO 12
313 FOR j%=0 TO dlink%(k%)
314 PROCput_sp(scr%,dots_array%(k%,j%,0),dots_array%(k%,j%,1),1,16,16,16,"dot",left%,low%,right%,high%,&00)
315 NEXT
316 NEXT
317ENDPROC
318
319DEF PROCdots_move(scr%,dots_array%())
320 from%=((day_no%-1)MOD13)+1
321 IF from%<>13 THEN
322 FOR j%=0 TO 12-from%
323 PROCput_sp(scr%,dots_array%(j%,j%+from%,0),dots_array%(j%,j%+from%,1),1,16,16,16,"dot",left%,low%,right%,high%,&00)
324 NEXT
325 ENDIF
326 FOR j%=1 TO 12
327 IF (from%=13) AND (scr%=1) THEN
328 PROCput_sp(scr%,dots_array%(13-from%,j%,0),dots_array%(13-from%,j%,1),5,16,16,16,"dot_bl_yel",left%,low%,right%,high%,&00)
329 ELSE
330 PROCput_sp(scr%,dots_array%(13-from%,j%,0),dots_array%(13-from%,j%,1),5,16,16,16,"dot_blank",left%,low%,right%,high%,&00)
331 ENDIF
332 NEXT
333 IF from%<>1 THEN
334 FOR j%=13-from%+1 TO 12
335 PROCput_sp(scr%,dots_array%(j%,j%-(13-from%+1)+1,0),dots_array%(j%,j%-(13-from%+1)+1,1),1,16,16,16,"dot",left%,low%,right%,high%,&00)
336 NEXT
337 ENDIF
338ENDPROC
339
340DEF PROCshow_dot_ch(scr%,pos%)
341SYS "OS_Byte",112,scr%
342IF scr%=1 THEN
343 VDU25,4,330;600;
344 VDU25,4,330+210*COS(RAD((pos%*27.7)-13.85));600+210*SIN(RAD((pos%*27.7)-13.85));
345 VDU25,166,330+210*COS(RAD((pos%*27.7)+13.85));600+210*SIN(RAD((pos%*27.7)+13.85));
346 VDU25,4,330;600;
347 VDU25,4,330+80*COS(RAD((pos%*27.7)-13.85));600+80*SIN(RAD((pos%*27.7)-13.85));
348 VDU25,166,330+80*COS(RAD((pos%*27.7)+13.85));600+80*SIN(RAD((pos%*27.7)+13.85));
349 VDU25,6,330+210*COS(RAD((pos%*27.7)+13.85));600+210*SIN(RAD((pos%*27.7)+13.85));
350 VDU25,4,330+80*COS(RAD((pos%*27.7)-13.85));600+80*SIN(RAD((pos%*27.7)-13.85));
351 VDU25,6,330+210*COS(RAD((pos%*27.7)-13.85));600+210*SIN(RAD((pos%*27.7)-13.85));
352ELSE
353 VDU25,4,330;600;
354 VDU25,4,330+210*COS(RAD((pos%*27.7)-27.7));600+210*SIN(RAD((pos%*27.7)-27.7));
355 VDU25,166,330+210*COS(RAD((pos%*27.7)+0));600+210*SIN(RAD((pos%*27.7)+0));
356 VDU25,4,330;600;
357 VDU25,4,330+80*COS(RAD((pos%*27.7)-27.7));600+80*SIN(RAD((pos%*27.7)-27.7));
358 VDU25,166,330+80*COS(RAD((pos%*27.7)+0));600+80*SIN(RAD((pos%*27.7)+0));
359 VDU25,6,330+210*COS(RAD((pos%*27.7)+0));600+210*SIN(RAD((pos%*27.7)+0));
360 VDU25,4,330+80*COS(RAD((pos%*27.7)-27.7));600+80*SIN(RAD((pos%*27.7)-27.7));
361 VDU25,6,330+210*COS(RAD((pos%*27.7)-27.7));600+210*SIN(RAD((pos%*27.7)-27.7));
362ENDIF
363ENDPROC
364
365DEF PROCshow_symb_ch(scr%,pos%)
366SYS "OS_Byte",112,scr%
367IF scr%=1 THEN
368 VDU25,4,872;604;
369 VDU25,4,872-288*COS(RAD((pos%*18)+9));604+288*SIN(RAD((pos%*18)+9));
370 VDU25,166,872-288*COS(RAD((pos%*18)-9));604+288*SIN(RAD((pos%*18)-9));
371 VDU25,4,872;604;
372 VDU25,4,872-204*COS(RAD((pos%*18)+9));604+204*SIN(RAD((pos%*18)+9));
373 VDU25,166,872-204*COS(RAD((pos%*18)-9));604+204*SIN(RAD((pos%*18)-9));
374 VDU25,6,872-288*COS(RAD((pos%*18)-9));604+288*SIN(RAD((pos%*18)-9));
375 VDU25,4,872-204*COS(RAD((pos%*18)+9));604+204*SIN(RAD((pos%*18)+9));
376 VDU25,6,872-288*COS(RAD((pos%*18)+9));604+288*SIN(RAD((pos%*18)+9));
377ELSE
378 VDU25,4,872;604;
379 VDU25,4,872-288*COS(RAD((pos%*18)+0));604+288*SIN(RAD((pos%*18)+0));
380 VDU25,166,872-288*COS(RAD((pos%*18)-18));604+288*SIN(RAD((pos%*18)-18));
381 VDU25,4,872;604;
382 VDU25,4,872-204*COS(RAD((pos%*18)+0));604+204*SIN(RAD((pos%*18)+0));
383 VDU25,166,872-204*COS(RAD((pos%*18)-18));604+204*SIN(RAD((pos%*18)-18));
384 VDU25,6,872-288*COS(RAD((pos%*18)-18));604+288*SIN(RAD((pos%*18)-18));
385 VDU25,4,872-204*COS(RAD((pos%*18)+0));604+204*SIN(RAD((pos%*18)+0));
386 VDU25,6,872-288*COS(RAD((pos%*18)+0));604+288*SIN(RAD((pos%*18)+0));
387ENDIF
388ENDPROC
389
390DEF PROCshow_1croc
391 FOR k%=2 TO 1 STEP -1
392 SYS "OS_Byte",112,k%
393 PROCborders(left%,low%,left%+384,low%+72)
394 PROCwrite_day(1)
395 NEXT
396 IFP%THEN
397 PROCwords(70,150,-1,"The first day of the sacred calendar year")
398 PROCwords(70,90,-1,"is 1-crocodile.")
399 ELSE
400 PROCwords(70,134,-1,"The first day of the year is 1-crocodile.")
401 ENDIF
402ENDPROC
403
404DEF PROCcal_move
405 day_no%=1
406 PROCgo_on
407 REPEAT
408 SYS "OS_Byte",113,2
409 PROCcal_rotate(1,0,FALSE)
410 SYS "OS_Byte",113,1
411 IF day_no%=1 PROCwords(70,134,-1,"The second day is 2-wind.")
412 IF day_no%=2 THEN
413 PROCwords(70,134,-1,"The third day is 3-house.")
414 ENDIF
415 SYS "OS_Byte",112,2
416 PROCcal_rotate(2,0,FALSE)
417 SYS "OS_Byte",112,1
418 day_no%=day_no%+1
419 PROCgo_on
420 UNTIL day_no%=3
421ENDPROC
422
423DEF PROCcal_rotate(scr%,writ%,show%)
424 REM scr also defines cog (1=1,2=2)
425 IFshow%THEN
426 IF scr%=1 PROCshow_dot_ch(1,dot_ch1%MOD13):dot_ch1%-=1:PROCshow_symb_ch(1,symb_ch1%MOD20):symb_ch1%-=1
427 IF scr%=2 PROCshow_dot_ch(2,dot_ch2%MOD13):dot_ch2%-=1:PROCshow_symb_ch(2,symb_ch2%MOD20):symb_ch2%-=1
428 ENDIF
429 IF scr%=1 THEN
430 PROCdots_move(scr%,dots1%())
431 ELSE
432 PROCdots_move(scr%,dots2%())
433 ENDIF
434 REM PROCsymb_blank(scr%,scr%)
435 PROCsymb_circ(scr%,day_no%MOD20,scr%)
436 IFshow%THEN
437 IF scr%=1 PROCshow_dot_ch(1,dot_ch1%MOD13):PROCshow_symb_ch(1,symb_ch1%MOD20)
438 IF scr%=2 PROCshow_dot_ch(2,dot_ch2%MOD13):PROCshow_symb_ch(2,symb_ch2%MOD20)
439 ENDIF
440 PROCdots_centre((day_no%MOD13)+1)
441 PROCsymb_centre(day_no%MOD20)
442 IF writ%=0 : PROCwrite_day(day_no%+1) : ELSE : PROCwrite_days_time(days_time%)
443ENDPROC
444
445DEF PROCprob_next_day
446 ans%=4 : today%=3
447 PROCborder_centre(282,556,378,652)
448 PROCborder_centre(752,484,992,724)
449 PROCget_choice(1)
450 PROCdots_centre(((today%-1)MOD13)+1)
451 PROCsymb_centre((today%-1)MOD20)
452 PROCwords(70,134,-1,"See if you are right.")
453 PROCgo_on
454 day_no%=today%
455 FOR p%=2 TO 1 STEP -1
456 SYS "OS_Byte",113,p%
457 PROCcal_rotate(3-p%,0,TRUE)
458 NEXT
459 SYS "OS_Byte",112,1
460 IF (dot_ans%=((ans%-1)MOD13)+1) AND (symb_ans%=(ans%-1)MOD20) THEN
461 PROCwords(70,134,-1,"Good. Try another one.")
462 ELSE
463 PROCwords(70,150,-1,"Hard luck. The fourth day is 4-lizard.")
464 PROCwords(70,90,-1,"Try another one.")
465 ENDIF
466 PROCgo_on
467 PROCshow_dot_ch(2,dot_ch2%MOD13):PROCshow_symb_ch(2,symb_ch2%MOD20):PROCshow_dot_ch(1,dot_ch1%MOD13):PROCshow_symb_ch(1,symb_ch1%MOD20)
468ENDPROC
469
470DEF PROCprob_days_time(go%)
471 ok%=0 : old_ans%=0
472 REPEAT
473 IF go%=1 : today%=4 : ELSE : today%=RND(250)
474 REPEAT
475 ans%=today%+1+(4*(go%-1))+RND(4)
476 UNTIL (ans%<>old_ans%) AND ((ans%MOD20)<>0) AND ((ans%MOD13)<>0)
477 old_ans%=ans%
478 FOR p%=2 TO 1 STEP -1
479 SYS "OS_Byte",112,p%
480 PROCcal_blank(p%,0)
481 PROCcal_setup(p%,today%,0)
482 NEXT
483 PROCget_choice(2)
484 FOR p%=2 TO 1 STEP -1
485 SYS "OS_Byte",112,p%
486 PROCdots_centre(((today%-1)MOD13)+1)
487 PROCsymb_centre((today%-1)MOD20)
488 PROCborder_centre(left%,low%,left%+384,low%+72)
489 PROCwrite_days_time(0)
490 NEXT
491 PROCwords(70,134,-1,"See if you are right.")
492 PROCgo_on
493 days_time%=1 : day_no%=today%
494 FOR m%=1 TO ans%-today%
495 day_no%=today%+m%-1 : days_time%=m%
496 FOR p%=2 TO 1 STEP -1
497 SYS "OS_Byte",113,p%
498 PROCcal_rotate(3-p%,1,TRUE)
499 REM PROCdebug
500 NEXT
501 NEXT
502 SYS "OS_Byte",112,1
503 PROCcleartext
504 IF (dot_ans%=((ans%-1)MOD13)+1) AND (symb_ans%=(ans%-1)MOD20) THEN
505 IF go%=1 THEN
506 PROCwords(70,134,-1,"Well done. Try another one.")
507 ELSE
508 PROCwords(70,134,-1,"Well done.")
509 ENDIF
510 ok%=1
511 ELSE
512 PROCwords(70,134,-1,"Hard luck. Have another go.")
513 ENDIF
514 PROCgo_on
515 PROCshow_dot_ch(2,dot_ch2%MOD13):PROCshow_symb_ch(2,symb_ch2%MOD20):PROCshow_dot_ch(1,dot_ch1%MOD13):PROCshow_symb_ch(1,symb_ch1%MOD20)
516 UNTIL ok%=1
517ENDPROC
518
519DEF PROCbirthday
520 PROCwords(70,150,-1,"All Aztecs have two names, a 'common' one and the")
521 PROCwords(70,90,-1,"name of the day they were born.")
522 PROCgo_on
523 PROCwords(70,150,-1,"Your Aztec name will be the name of the day you")
524 PROCwords(70,90,-1,"were born.")
525 PROCgo_on
526 REPEAT
527 PROCcal_blank(1,1)
528 VDU 24,left%;low%;left%+384;low%+72;
529 VDU 18,0,143 : CLG : VDU 26
530 PROCinit_buts(1000,20,16,16,28,24,2)
531 FOR j%=0 TO 10
532 coords%(j%,0)=40+(84*j%)
533 labels$(j%)=STR$(j%)
534 NEXT
535 labels$(10)="Delete" : buttype%(10)=1 : lab_offs%(10,0)=36
536 coords%(11,0)=1060 : labels$(11)="Enter" : buttype%(11)=1 : lab_offs%(11,0)=44
537 FOR dat%=2TO0STEP -1
538 PROCget_digits(dat%)
539 dob%(dat%)=valu%
540 NEXT
541 PROCinit_buts(1000,20,18,16,24,24,1)
542 day_no%=daycum%(dob%(1)-1)+dob%(2)
543 IF (dob%(0)MOD4=0) AND (dob%(1)>2) : day_no%=day_no%+1
544 PROCcal_setup(1,day_no%,0)
545 PROCdots_centre(((day_no%-1)MOD13)+1)
546 PROCsymb_centre((day_no%-1)MOD20)
547 PROCwords(70,134,-1,"Your Aztec name is "+STR$(((day_no%-1)MOD13)+1)+"-"+motif$((day_no%-1)MOD20)+".")
548 PROCgo_on
549 PROCwords(70,150,-1,"Do you want to enter another date of birth?")
550 PROCyesno
551 UNTILchosen%=0
552ENDPROC
553
554DEF PROCget_digits(dat%)
555 *CHANNELVOICE 1 9
556 dig%=0 : valu%=0
557 REPEAT
558 PROCwords(70,172,-1,"What is your date of birth?")
559 VDU24,880;164;1120;222;:VDU18,0,131:CLG
560 VDU24,884;168;1116;218;:VDU18,0,128:CLG:VDU26
561 IF valu%=0 THEN
562 IFdat%=2:PROCwords(70,112,-1,"Enter the day.")
563 IFdat%=1:PROCwords(70,112,-1,"Enter the month."):PROCwords(888,172,-1,STR$(dob%(2))+"-")
564 IFdat%=0:PROCwords(70,112,-1,"Enter the year."):PROCwords(888,172,-1,STR$(dob%(2))+"-"+STR$(dob%(1))+"-")
565 ELSE
566 IFdat%=2:PROCwords(70,112,-1,"Enter the day."):PROCwords(888,172,-1,STR$(valu%))
567 IFdat%=1:PROCwords(70,112,-1,"Enter the month."):PROCwords(888,172,-1,STR$(dob%(2))+"-"+STR$(valu%))
568 IFdat%=0:PROCwords(70,112,-1,"Enter the year."):PROCwords(888,172,-1,STR$(dob%(2))+"-"+STR$(dob%(1))+"-"+STR$(valu%))
569 ENDIF
570 PROCchoose_but(1,12,2,6)
571 IF (chosen%<10) THEN
572 IF (dig%>=no_dig%(dat%)) THEN
573 SOUND1,&15F+(&10*O%),10,2
574 ELSE
575 valu%=(valu%*10)+chosen%
576 ENDIF
577 ENDIF
578 IF (chosen%=11) AND (dig%=0) : SOUND1,&15F+(&10*O%),10,2: chosen%=10
579 IF (chosen%=11) AND (dat%=1) AND (valu%>12) : SOUND1,&15F+(&10*O%),10,2: chosen%=10
580 IF (chosen%=11) AND (dat%=2) AND (valu%>31) : SOUND1,&15F+(&10*O%),10,2: chosen%=10
581 IF(valu%<>0)OR(chosen%<>0):dig%=dig%+1
582 IF (chosen%=10) : valu%=0 : dig%=0 :PROCcleartext
583 UNTIL chosen%=11
584 PROCcleartext
585ENDPROC
586
587DEF PROCget_choice(prob%)
588 help%=FALSE
589 REPEAT
590 PROCquest(prob%)
591 PROCchoose_ans(prob%)
592 UNTIL help%=FALSE
593ENDPROC
594
595DEF PROCquest(prob%)
596 IF prob%=1 THEN
597 PROCwords(70,172,-1,"The third day is 3-house. What is the fourth day called?")
598 PROCwords(70,112,-1,"Click on a number and symbol and then 'Enter'.")
599 ELSE
600 PROCwords(70,172,-1,"If today is "+STR$(((today%-1)MOD13)+1)+"-"+motif$((today%-1)MOD20)+", what day is "+STR$(ans%-today%)+" days time?")
601 PROCwords(70,112,-1,"Choose a number and symbol and then 'Enter'.")
602 ENDIF
603ENDPROC
604
605DEF PROCchoose_ans(prob%)
606 *CHANNELVOICE 1 9
607 PROCdot_areas
608 PROCsymb_areas
609 MOUSE ON
610 PROCmouse_full
611 IF help%=TRUE THEN
612 help%=FALSE
613 ELSE
614 dot_ans%=14
615 symb_ans%=20
616 ENDIF
617 firstloop%=TRUE
618 IFprob%=3:PROCinit_buts(900,20,16,16,44,24,1):ELSE:PROCinit_buts(1000,20,16,16,44,24,1)
619 labels$(0)="Enter":labels$(1)=" Help":coords%(1,0)=1084
620 REPEAT
621 MOUSE m_x%,m_y%,m_but%
622 IFprob%=3:PROCchoose_but(1,2,2,1):ELSE:PROCchoose_but(1,1,2,1)
623 IF (m_but%=4) AND (chosen%<>0) THEN
624 dot_ch%=FNin_dot_area(m_x%,m_y%)
625 IF dot_ch%<13 : dot_ans%=((dot_ch%+((today%-1)MOD13))MOD13)+1 :dot_ch1%=dot_ch%+39: PROCdots_centre(dot_ans%)
626 symb_ch%=FNin_symb_area(m_x%,m_y%)
627 IF symb_ch%<20 : symb_ans%=((symb_ch%+((today%-1)MOD20))MOD20) :symb_ch1%=symb_ch%+40: PROCsymb_centre(symb_ans%)
628 ENDIF
629 IF chosen%=0 THEN
630 IF (dot_ans%=14) OR (symb_ans%=20) THEN
631 SOUND1,&15F+(&10*O%),10,2: firstloop%=TRUE
632 IFprob%=3:PROCchoose_but(1,2,2,1):ELSE:PROCchoose_but(1,1,2,1)
633 ENDIF
634 ENDIF
635 IF (prob%=3) AND (chosen%=1) : help%=TRUE
636 UNTIL ((chosen%=0) AND (m_but%=0)) OR (help%=TRUE)
637 dot_ch2%=dot_ch1%:symb_ch2%=symb_ch1%
638 PROCinit_buts(1000,20,18,16,24,24,1)
639 MOUSE TO 1184,60
640 MOUSE OFF
641 PROCcleartext
642 PROCdot_areas
643 PROCsymb_areas
644 IFNOThelp% PROCshow_dot_ch(2,dot_ch2%MOD13):PROCshow_symb_ch(2,symb_ch2%MOD20):PROCshow_dot_ch(1,dot_ch1%MOD13):PROCshow_symb_ch(1,symb_ch1%MOD20)
645ENDPROC
646
647DEFFNin_dot_area(dx%,dy%)
648 val%=13
649 rad%=SQR(((dx%-330)^2)+((dy%-604)^2))
650 REM PRINT "rad% " rad% " val% " val%
651 IF (rad%<80) OR (rad%>212) THEN
652 =13
653 ENDIF
654 IF (dx%>320) AND (dx%<350) THEN
655 IF dy%-604>0 THEN
656 =3
657 ELSE
658 =10
659 ENDIF
660 ELSE
661 angle=DEG(ATN((dy%-604)/(dx%-330)))
662 IF angle>=0 THEN
663 FOR ll%=0 TO 6
664 IF (angle>(ll%*13.85)) AND (angle<((ll%+1)*13.85)) THEN
665 IF dx%-330>0 THEN
666 =INT((ll%+1)/2)
667 ELSE
668 =7+INT(ll%/2)
669 ENDIF
670 ENDIF
671 NEXT
672 ELSE
673 FOR ll%=0 TO 6
674 IF (angle<(ll%*-13.85)) AND (angle>((ll%+1)*-13.85)) THEN
675 IF dx%-330>0 THEN
676 =(13-INT((ll%+1)/2))MOD13
677 ELSE
678 =6-INT(ll%/2)
679 ENDIF
680 ENDIF
681 NEXT
682 ENDIF
683 ENDIF
684=val%
685
686DEF PROCdot_areas
687 VDU25,4,330;600;
688 VDU25,146,210;0;
689 VDU25,4,330;600;
690 VDU25,146,80;0;
691 FOR kk%=0 TO 12
692 cx%=330 + 210*COS(RAD((kk%*27.7)+13.85))
693 cy%=600 + 210*SIN(RAD((kk%*27.7)+13.85))
694 VDU25,4,cx%;cy%;
695 cx%=330 + 80*COS(RAD((kk%*27.7)+13.85))
696 cy%=600 + 80*SIN(RAD((kk%*27.7)+13.85))
697 VDU25,6,cx%;cy%;
698 NEXT
699ENDPROC
700
701DEFFNin_symb_area(dx%,dy%)
702 val%=20
703 rad%=SQR(((dx%-872)^2)+((dy%-604)^2))
704 REM PRINT "rad% " rad% " val% " val%
705 IF (rad%<204) OR (rad%>288) THEN
706 =20
707 ENDIF
708 IF (dx%>850) AND (dx%<898) THEN
709 IF dy%-604>0 THEN
710 =5
711 ELSE
712 =15
713 ENDIF
714 ELSE
715 angle=DEG(ATN((dy%-604)/(dx%-872)))
716 IF angle>=0 THEN
717 FOR ll%=0 TO 9
718 IF (angle>(ll%*9)) AND (angle<((ll%+1)*9)) THEN
719 IF dx%-872>0 THEN
720 =10-INT((ll%+1)/2)
721 ELSE
722 =(20-INT((ll%+1)/2))MOD20
723 ENDIF
724 ENDIF
725 NEXT
726 ELSE
727 FOR ll%=0 TO 9
728 IF (angle<(ll%*-9)) AND (angle>((ll%+1)*-9)) THEN
729 IF dx%-872>0 THEN
730 =10+INT((ll%+1)/2)
731 ELSE
732 =INT((ll%+1)/2)
733 ENDIF
734 ENDIF
735 NEXT
736 ENDIF
737 ENDIF
738=val%
739
740DEF PROCsymb_areas
741 VDU25,4,872;604;
742 VDU25,146,288;0;
743 VDU25,4,872;604;
744 VDU25,146,204;0;
745 FOR kk%=0 TO 19
746 cx%=872 + 288*COS(RAD((kk%*18)+9))
747 cy%=604 + 288*SIN(RAD((kk%*18)+9))
748 VDU25,4,cx%;cy%;
749 cx%=872 + 204*COS(RAD((kk%*18)+9))
750 cy%=604 + 204*SIN(RAD((kk%*18)+9))
751 VDU25,6,cx%;cy%;
752 NEXT
753ENDPROC
754
755DEF PROCcal_blank(scr%,bl_wr%)
756 PROCdots_blank(scr%)
757 PROCsymb_blank(scr%,scr%)
758 PROCborder_centre(282,556,378,652)
759 PROCborder_centre(752,484,992,724)
760 IF bl_wr%=0 PROCborder_centre(left%,low%,left%+384,low%+72)
761ENDPROC
762
763DEF PROCcal_setup(scr%,day_no%,no_centres%)
764 PROCdots_init(scr%,((day_no%-1)MOD13)+1,scr%)
765 PROCsymb_circ(scr%,(day_no%-1)MOD20,scr%)
766 IF no_centres%<>0 THEN
767 PROCdots_centre(((day_no%-1)MOD13)+1)
768 PROCsymb_centre((day_no%-1)MOD20)
769 PROCwrite_day(day_no%)
770 ENDIF
771ENDPROC
772
773DEF PROCdots_blank(scr%)
774 GCOL 1
775 SYS "OS_Byte",112,scr%
776 VDU 25,4,330;604; : VDU 25,153,208;0;
777 PROCyellow_small(scr%)
778 PROCborders(282,556,378,652)
779ENDPROC
780
781DEF PROCwrite_day(day%)
782 PROCborder_centre(left%,low%,left%+384,low%+72)
783 st_nd_rd_th$=first_etc$((day%-1)MOD10)
784 IF day%>10 AND day%<14 st_nd_rd_th$="th"
785 IF day%<10 THEN
786 PROCwords(left%+32,low%+24,0," "+STR$(day%)+st_nd_rd_th$+" day of the year")
787 ELSE
788 PROCwords(left%+32,low%+24,0,STR$(day%)+st_nd_rd_th$+" day of the year")
789 ENDIF
790ENDPROC
791
792DEF PROCwrite_days_time(day%)
793 PROCborder_centre(left%,low%,left%+384,low%+72)
794 IF day%<10 THEN
795 PROCwords(left%+48,low%+24,0," "+STR$(day%)+" days time")
796 ELSE
797 PROCwords(left%+48,low%+24,0," "+STR$(day%)+" days time")
798 ENDIF
799ENDPROC
800
801DEF PROCexp_cogs
802 PROCexplore
803 donesymb%=0 : donenumb%=0
804 box%(0,0)=490 : box%(0,1)=572 : box%(1,0)=588 : box%(1,1)=572
805 REPEAT
806 PROCchoose_box(1,2,-1)
807 IF got_box%=0 THEN
808 FOR m%=2 TO 1 STEP -1
809 PROCyellow_small(m%)
810 NEXT
811 PROCenlarge_box(1,4,box%(0,0),box%(0,1),282,556,378,652,"")
812 PROCborders(282,556,378,652)
813 PROCdots_centre(1)
814 donenumb%=1
815 IFP%:PROCwords(70,134,-1,"The left cog has groups of dots ranging from 1 to 13."):ELSE:PROCwords(70,134,-1,"The left cog has dots from 1 to 13.")
816 PROCgo_on
817 ENDIF
818 IF got_box%=1 THEN
819 PROCyellow_large
820 PROCenlarge_box(1,5,box%(1,0),box%(1,1),752,484,992,724,"")
821 PROCborders(752,484,992,724)
822 PROCsymb_centre(0)
823 SYS "OS_SpriteOp",&134,AREA%,motif$(0),752+40,484+64,0,SCALE%,0
824 PROCwords(752+40+motif_x%(0),484+24,0,"crocodile")
825 donesymb%=1
826 PROCwords(70,134,-1,"The right cog has the 20 symbols.")
827 PROCgo_on
828 ENDIF
829 PROCcleartext
830 IF (donesymb%=0) OR (donenumb%=0) THEN
831 PROCexplore
832 ENDIF
833 UNTIL (donesymb%=1) AND (donenumb%=1)
834 SYS "OS_Byte",112,2
835 PROCborders(282,556,378,652)
836 PROCborders(752,484,992,724)
837 PROCsymb_centre(0)
838 PROCdots_centre(1)
839 SYS "OS_Byte",112,1
840ENDPROC
841
842DEF PROCyellow_small(scr%)
843 GCOL 9
844 SYS "OS_Byte",112,scr%
845 IF scr%=1 THEN
846 FOR i%=1 TO -1 STEP -2
847 cx%=FNdivis2(330 + 216*COS(RAD(13.85*i%)))
848 cy%=FNdivis4(604 + 216*SIN(RAD(13.85*i%)))
849 VDU25,4,cx%;cy%;
850 cx%=FNdivis2(330 + 76*COS(RAD(13.85*i%)))
851 cy%=FNdivis4(604 + 76*SIN(RAD(13.85*i%)))
852 VDU25,5,cx%;cy%;
853 IF i%=1 THEN
854 VDU25,5,390;664;
855 ELSE
856 VDU25,5,390;544;
857 ENDIF
858 NEXT
859 VDU 24,270;544;390;664;
860 VDU 18,0,137 : CLG
861 VDU 26
862 VDU 18,0,129
863 VDU25,133,400;604;
864 ELSE
865 VDU 24,270;544;390;664;
866 VDU 18,0,137 : CLG
867 VDU 26
868 ENDIF
869ENDPROC
870
871DEF PROCyellow_large
872 GCOL 1
873 FOR i%=2 TO 1 STEP -1
874 SYS "OS_Byte",112,i%
875 VDU 25,4,872;604; : VDU 25,153,184;0;
876 NEXT
877 GCOL 9
878 FOR i%=1 TO -1 STEP -2
879 cx%=FNdivis2(872 - 320*COS(RAD(9*i%)))
880 cy%=FNdivis4(604 + 320*SIN(RAD(9*i%)))
881 VDU25,4,cx%;cy%;
882 cx%=FNdivis2(872 - 146*COS(RAD(9*i%)))
883 cy%=FNdivis4(604 + 146*SIN(RAD(9*i%)))
884 VDU25,5,cx%;cy%;
885 IF i%=1 THEN
886 VDU25,5,740;736;
887 ELSE
888 VDU25,5,740;472;
889 ENDIF
890 NEXT
891 FOR i%=2 TO 1 STEP -1
892 SYS "OS_Byte",112,i%
893 VDU 24,740;472;1004;736;
894 VDU 18,0,137 : CLG
895 VDU 26
896 NEXT
897 VDU 18,0,129
898 VDU25,133,736;604;
899ENDPROC
900
901DEF PROCsymb_centre(sym%)
902 PROCborder_centre(752,484,992,724)
903 SYS "OS_SpriteOp",&134,AREA%,motif$(sym%),752+40,484+64,0,SCALE%,0
904 PROCwords(752+40+motif_x%(sym%),484+24,0,motif$(sym%))
905ENDPROC
906
907DEF PROCdots_centre(num%)
908 PROCborder_centre(282,556,378,652)
909 IF num%<10 THEN
910 PROCwords(306,584,-1," "+STR$(num%))
911 ELSE
912 PROCwords(306,584,-1,STR$(num%))
913 ENDIF
914ENDPROC
915
916
917DEFFNdivis2(val%)
918val%=val%-val%MOD2
919=val%
920
921DEFFNdivis4(val%)
922val%=val%-val%MOD4
923=val%
924
925
926
927
928
929
4�SCSI::SCSIDisc4.$.CoverDisks.!AZTECS.ONE.demo3
"ț "<Aztec$chaindir>.azteclib"
�lib_initialise:�initialise
^ș "OS_Byte",112,2:�borders(0,0,1279,low%-9):�borders(left%-12,low%-12,right%+12,high%+12)
#�k%=0�8:�expand(expall3$(k%)):�
:�k%=0�19:�expand(motif$(k%)):�expand("s"+motif$(k%)):�
�motifs
�add_cogs
�exp_cogs
�show_1croc
�cal_move
�prob_next_day
�prob_days_time(1)
�prob_days_time(2)
�prob_days_time(3)
�prob_days_time(4)
�birthday
=ș "OS_Byte",112,2:�borders(0,0,1279,high%+12):�scrcopy21
N �words(70,790,-1,"In the full adventure you have the options of easier")
L �words(70,730,-1,"or harder text and problems (or no problems). The")
O �words(70,670,-1,"Aztec pack also contains posters, activity ideas and")
G �words(70,610,-1,"further information and may be ordered from -")
0�words(300,530,-1,"Sherston Software Ltd.,")
%�words(300,470,-1,"Swan Barton,")
"�words(300,410,-1,"Sherston,")
$�words(300,350,-1,"Malmesbury,")
#�words(300,290,-1,"Wiltshire.")
!�words(300,230,-1,"SN16 OLH")
.�words(300,170,-1,"Telephone 0666 840433")
(�words(300,110,-1,"Fax 0666 840048")
�go_on
!
�desk_top
"�
#
$� �initialise
%Aș "OS_SpriteOp",&10B,AREA%,"<AZTEC$chaindir>.ONE.calendar_c"
&" ș "Sound_Configure",2,0,100
' ș "Sound_AttachVoice",2,2
( � motif$(19)
) � �Tm@
* � kk%=0 � 19
+ � motif$(kk%)
, �
-Y � "crocodile","wind","house","lizard","snake","death","deer","rabbit","water","dog"
.] � "monkey","grass","reed","jaguar","eagle","vulture","movement","knife","rain","flower"
/ � motif_x%(19)
0 � �Tt@
1 � kk%=0 � 19
2 � motif_x%(kk%)
3 �
4B � 0,36,34,28,32,36,46,32,38,58,16,38,38,32,36,20,-4,44,48,26
5G � DATA 0,36,34,28,32,36,46,62,38,58,16,38,40,32,36,20,-4,44,48,26
6[ � DATA 28,240,414,584,764,944,1130,60,244,418,572,790,946,1122,64,224,376,600,780,934
7 � expall3$(8)
8
� +0
9^ � "dot","sblank","dot_blank","dot_bl_yel","sbl_yel","edge_yel","arrow1","arrow2","divid"
: � i%=0�8:� expall3$(i%):�
; � dlink%(12)
< � slink%(19)
=) � i%=0�6 : slink%(i%)=38-(i%*2) : �
>. � i%=7�13 : slink%(i%)=24-((i%-7)*2) : �
?0 � i%=14�19 : slink%(i%)=10-((i%-14)*2) : �
@ � symbol1%(19,1)
A � i%=0 � 19
B! cx%=872 - 250*�(�(i%*18))
C! cy%=604 + 250*�(�(i%*18))
D cx%=cx%-32 : cy%=cy%-32
EA symbol1%(i%,0)=�divis2(cx%) : symbol1%(i%,1)=�divis4(cy%)
F �
G � symbol2%(19,1)
H � i%=0 � 19
I% cx%=872 - 250*�(�((i%*18)-9))
J% cy%=604 + 250*�(�((i%*18)-9))
K cx%=cx%-32 : cy%=cy%-32
LA symbol2%(i%,0)=�divis2(cx%) : symbol2%(i%,1)=�divis4(cy%)
M �
N � dots1%(12,12,1)
O � kk%=0 � 12
P � ll%=0 � 7
QD cx%=330 + (194-(24*(ll%�4)))*�(�((kk%*27.7)+(8*�(ll%/4))))
RD cy%=604 + (194-(24*(ll%�4)))*�(�((kk%*27.7)+(8*�(ll%/4))))
SN dots1%(kk%,ll%,0)=�divis2(cx%)-10 : dots1%(kk%,ll%,1)=�divis4(cy%)-8
T �
U � ll%=8 � 11
V9 cx%=330 + (194-(24*(ll%�4)))*�(�((kk%*27.7)-8))
W9 cy%=604 + (194-(24*(ll%�4)))*�(�((kk%*27.7)-8))
XN dots1%(kk%,ll%,0)=�divis2(cx%)-10 : dots1%(kk%,ll%,1)=�divis4(cy%)-8
Y �
Z/ cx%=330 + (194-(24*4))*�(�((kk%*27.7)))
[/ cy%=604 + (194-(24*4))*�(�((kk%*27.7)))
\L dots1%(kk%,ll%,0)=�divis2(cx%)-10 : dots1%(kk%,ll%,1)=�divis4(cy%)-8
] �
^ � dots2%(12,12,1)
_ � kk%=0 � 12
` � ll%=0 � 7
aJ cx%=330 + (194-(24*(ll%�4)))*�(�((kk%*27.7)-13.85+(8*�(ll%/4))))
bJ cy%=604 + (194-(24*(ll%�4)))*�(�((kk%*27.7)-13.85+(8*�(ll%/4))))
cN dots2%(kk%,ll%,0)=�divis2(cx%)-10 : dots2%(kk%,ll%,1)=�divis4(cy%)-8
d �
e � ll%=8 � 11
f? cx%=330 + (194-(24*(ll%�4)))*�(�((kk%*27.7)-13.85-8))
g? cy%=604 + (194-(24*(ll%�4)))*�(�((kk%*27.7)-13.85-8))
hN dots2%(kk%,ll%,0)=�divis2(cx%)-10 : dots2%(kk%,ll%,1)=�divis4(cy%)-8
i �
j5 cx%=330 + (194-(24*4))*�(�((kk%*27.7)-13.85))
k5 cy%=604 + (194-(24*4))*�(�((kk%*27.7)-13.85))
lL dots2%(kk%,ll%,0)=�divis2(cx%)-10 : dots2%(kk%,ll%,1)=�divis4(cy%)-8
m �
n � first_etc$(9)
oB first_etc$(0)="st" : first_etc$(1)="nd" : first_etc$(2)="rd"
p* � i%=3 � 9 : first_etc$(i%)="th" : �
q � yr_mth_dy$(2)
rH yr_mth_dy$(0)="Year" : yr_mth_dy$(1)="Month" : yr_mth_dy$(2)="Day"
s � no_dig%(2)
t2 no_dig%(0)=4 : no_dig%(1)=2 : no_dig%(2)=2
u � dob%(2)
v � daycum%(11)
wE daycum%(0)=0 : daycum%(1)=31 : daycum%(2)=59 : daycum%(3)=90
xJ daycum%(4)=120 : daycum%(5)=151 : daycum%(6)=181 : daycum%(7)=212
yL daycum%(8)=243 : daycum%(9)=273 : daycum%(10)=304 : daycum%(11)=334
z�
{
|ݤreadstring(p%)
}2�a$:a$="":ȕ �a$<255 � ?p%>31 a$+=�?p%:p%+=1:�
~=a$
�
� �motifs
� ș "OS_Byte",113,1
� ș "OS_Byte",112,2
� �cleartext
� �cleargraphics(1)
� �symb_init(0,2)
�? �go_on:C%=2:D%=1:E%=2:F%=1:�explode(640,600,0):�scrcopy21
� �symb_names
�L �words(70,134,-1,"The Aztec sacred calendar is a way of naming days.")
� �go_on
�I �words(70,150,-1,"The names are made of a number between 1 and 13")
�A �words(70,90,-1,"and one of the 20 special symbols above.")
� �go_on
� �scrcopy21
�
�shrink
� �symb_tocircle
��
�
�� �symb_tocircle
� lasttime%=�
� ș "OS_Byte",112,2
� �cleargraphics(1)
� � j%=0 � 6
� � i%=0 � 2
� � (j%<>6) � (i%<>2) �
�k �put_sp(2,28+(80*j%),768-(i%*224),2,16,16,16,"s"+motif$(j%+(i%*7)),left%,low%,right%,high%,&00)
� �
� �
�� PROCwait(10)
� �
� �:� �>=lasttime%+80
�& ș "OS_Byte",113,2 : lasttime%=�
� �scrcopy21
� ș "OS_Byte",112,2
� �cleargraphics(1)
� � j%=0 � 6
� � i%=1 � -1 � -1
� � (j%<>6) � (i%<>-1) �
�n �put_sp(2,28+(80*j%),544+(i%*88),2,16,16,16,"s"+motif$(j%+((1-i%)*7)),left%,low%,right%,high%,&00)
� �
� �
�� PROCwait(10)
� �
� �:� �>=lasttime%+80
� ș "OS_Byte",113,2
� �scrcopy21
� �wait(100):lasttime%=�
� � k%=0 � 2
� � j%=0 � 6
� � (k%<>2) � (j%<>6) �
�] �put_sp(1,28+(80*j%),632-(k%*88),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
�� �put_sp(1,symbol1%((j%+(k%*7)),0),symbol1%((j%+(k%*7)),1),2,16,16,16,"s"+motif$(j%+(k%*7)),left%,low%,right%,high%,&00)
� �:� �>=lasttime%+20
� lasttime%=�
�� PROCwait(20)
� �
� �
� �
��
�
�� �symb_names
� � i%=0 � 2
� � j%=0 � 6
� � (i%<>2) � (j%<>6) �
�1 cx%=28+(176*j%) : cy%=768-(224*i%)-48
�C �words(cx%+motif_x%((7*i%)+j%),cy%,0,motif$((7*i%)+j%))
� �
� �
� �
��
�
� � �symb_init(small%,scr%)
� � i%=0 � 2
� � j%=0 � 6
� � (i%<>2) � (j%<>6) �
�. cx%=28+(176*j%) : cy%=768-(224*i%)
� � small%=0 �
�N ș "OS_SpriteOp",&134,AREA%,motif$((7*i%)+j%),cx%,cy%,0,SCALE%,0
�
�
�` �put_sp(scr%,cx%,cy%,2,16,16,16,"s"+motif$((7*i%)+j%),left%,low%,right%,high%,&00)
�U � SYS "OS_SpriteOp",&134,AREA%,"s"+motif$((7*i%)+j%),cx%,cy%,0,SCALE%,0
�
�
� �
� �
� �
��
�
�$� �symb_plot(scr%,symb_array%())
� � l%=0 � 19
�% � (scr%=1) � (slink%(l%)=0) �
�d �put_sp(scr%,symbol1%(0,0),symbol1%(0,1),5,16,16,16,"sbl_yel",left%,low%,right%,high%,&00)
ہ �put_sp(scr%,symb_array%(slink%(l%),0),symb_array%(slink%(l%),1),1,16,16,16,"s"+motif$(l%),left%,low%,right%,high%,&00)
�e �put_sp(scr%,symbol1%(0,0),symbol1%(0,1),2,16,16,16,"edge_yel",left%,low%,right%,high%,&00)
� �
ށ �put_sp(scr%,symb_array%(slink%(l%),0),symb_array%(slink%(l%),1),2,16,16,16,"s"+motif$(l%),left%,low%,right%,high%,&00)
� �
� �
��
�
� � �symb_blank(scr%,cog%)
� � (cog% = 1) � (scr%=1) �
�b �put_sp(scr%,symbol1%(0,0),symbol1%(0,1),5,16,16,16,"sbl_yel",left%,low%,right%,high%,&00)
� �
�a �put_sp(scr%,symbol2%(0,0),symbol2%(0,1),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
� �
� � l%=1 � 19
� � cog% = 1 �
�e �put_sp(scr%,symbol1%(l%,0),symbol1%(l%,1),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
� �
�e �put_sp(scr%,symbol2%(l%,0),symbol2%(l%,1),5,16,16,16,"sblank",left%,low%,right%,high%,&00)
� �
� �
��
�
�
� �shrink
� firsttime%=�
� � shrink%=15 � 8 � -1
�0 �firsttime%�:firsttime%=�:lasttime%=�-30
�& ș "OS_Byte",112,1+(shrink%�2)
�: !(SCALE%+0)=shrink% : !(SCALE%+4)=shrink%*(H%!&F0)
� �cleargraphics(1)
�# �symb_init(0,1+(shrink%�2))
� �:� �>=lasttime%+30
�5 Ȗ:ș "OS_Byte",113,1+(shrink%�2):lasttime%=�
� �
� ș "OS_Byte",112,2
�. !(SCALE%+0)=16 : !(SCALE%+4)=16*(H%!&F0)
� �cleargraphics(1)
�symb_init(1,2)
�scrcopy21
�
� �add_cogs
�add_sp(2,"wheels1",3,3,6)
> �put_sp(2,444,796,6,16,16,16,"arrow1",0,0,1276,1020,&00)
> �put_sp(2,568,796,6,16,16,16,"arrow2",0,0,1276,1020,&00)
�symb_circ(2,0,1)
�dots_init(2,1,1)
� PROCgo_on
�scrcopy21
; �words(70,134,-1,"This is an Aztec sacred calendar.")
�add_sp(2,"wheels2",3,3,6)
> �put_sp(2,444,796,6,16,16,16,"arrow1",0,0,1276,1020,&00)
> �put_sp(2,568,796,6,16,16,16,"arrow2",0,0,1276,1020,&00)
�symb_circ(2,0,2)
�dots_init(2,1,2)
ș "OS_Byte",112,1
�
#� �symb_circ(scr%,st_pos%,cog%)
D � displays symbols on scr% with symbol no. st_pos% at far left
� i%=st_pos% � 19
slink%(i%)=i%-st_pos%
�
� st_pos%<>0 �
� i%=0 � st_pos%-1
& slink%(i%)=(19-st_pos%)+1+i%
�
�
� cog%=1 �
# �symb_plot(scr%,symbol1%())
! �
"# �symb_plot(scr%,symbol2%())
# �
$�
%
&#� �dots_init(scr%,st_pos%,cog%)
'? � displays dots on scr% with dot no. st_pos% at far right
( � i%=0 � 13-st_pos%
) dlink%(i%)=st_pos%-1+i%
* �
+ � st_pos%<>1 �
, � i%=0 � st_pos%-2
-$ dlink%(13-st_pos%+1+i%)=i%
. �
/ �
0 � cog%=1 �
1! �dots_plot(scr%,dots1%())
2 �
3! �dots_plot(scr%,dots2%())
4 �
5�
6
7$� �dots_plot(scr%,dots_array%())
8 � k%=0 � 12
9 � j%=0 � dlink%(k%)
:n �put_sp(scr%,dots_array%(k%,j%,0),dots_array%(k%,j%,1),1,16,16,16,"dot",left%,low%,right%,high%,&00)
; �
< �
=�
>
?$� �dots_move(scr%,dots_array%())
@ from%=((day_no%-1)�13)+1
A � from%<>13 �
B � j%=0 � 12-from%
Cz �put_sp(scr%,dots_array%(j%,j%+from%,0),dots_array%(j%,j%+from%,1),1,16,16,16,"dot",left%,low%,right%,high%,&00)
D �
E �
F � j%=1 � 12
G! � (from%=13) � (scr%=1) �
H� �put_sp(scr%,dots_array%(13-from%,j%,0),dots_array%(13-from%,j%,1),5,16,16,16,"dot_bl_yel",left%,low%,right%,high%,&00)
I �
J� �put_sp(scr%,dots_array%(13-from%,j%,0),dots_array%(13-from%,j%,1),5,16,16,16,"dot_blank",left%,low%,right%,high%,&00)
K �
L �
M � from%<>1 �
N � j%=13-from%+1 � 12
O� �put_sp(scr%,dots_array%(j%,j%-(13-from%+1)+1,0),dots_array%(j%,j%-(13-from%+1)+1,1),1,16,16,16,"dot",left%,low%,right%,high%,&00)
P �
Q �
R�
S
T � �show_dot_ch(scr%,pos%)
Uș "OS_Byte",112,scr%
V� scr%=1 �
W �25,4,330;600;
XK �25,4,330+210*�(�((pos%*27.7)-13.85));600+210*�(�((pos%*27.7)-13.85));
YM �25,166,330+210*�(�((pos%*27.7)+13.85));600+210*�(�((pos%*27.7)+13.85));
Z �25,4,330;600;
[I �25,4,330+80*�(�((pos%*27.7)-13.85));600+80*�(�((pos%*27.7)-13.85));
\K �25,166,330+80*�(�((pos%*27.7)+13.85));600+80*�(�((pos%*27.7)+13.85));
]K �25,6,330+210*�(�((pos%*27.7)+13.85));600+210*�(�((pos%*27.7)+13.85));
^I �25,4,330+80*�(�((pos%*27.7)-13.85));600+80*�(�((pos%*27.7)-13.85));
_K �25,6,330+210*�(�((pos%*27.7)-13.85));600+210*�(�((pos%*27.7)-13.85));
`�
a �25,4,330;600;
bI �25,4,330+210*�(�((pos%*27.7)-27.7));600+210*�(�((pos%*27.7)-27.7));
cE �25,166,330+210*�(�((pos%*27.7)+0));600+210*�(�((pos%*27.7)+0));
d �25,4,330;600;
eG �25,4,330+80*�(�((pos%*27.7)-27.7));600+80*�(�((pos%*27.7)-27.7));
fC �25,166,330+80*�(�((pos%*27.7)+0));600+80*�(�((pos%*27.7)+0));
gC �25,6,330+210*�(�((pos%*27.7)+0));600+210*�(�((pos%*27.7)+0));
hG �25,4,330+80*�(�((pos%*27.7)-27.7));600+80*�(�((pos%*27.7)-27.7));
iI �25,6,330+210*�(�((pos%*27.7)-27.7));600+210*�(�((pos%*27.7)-27.7));
j�
k�
l
m � �show_symb_ch(scr%,pos%)
nș "OS_Byte",112,scr%
o� scr%=1 �
p �25,4,872;604;
q? �25,4,872-288*�(�((pos%*18)+9));604+288*�(�((pos%*18)+9));
rA �25,166,872-288*�(�((pos%*18)-9));604+288*�(�((pos%*18)-9));
s �25,4,872;604;
t? �25,4,872-204*�(�((pos%*18)+9));604+204*�(�((pos%*18)+9));
uA �25,166,872-204*�(�((pos%*18)-9));604+204*�(�((pos%*18)-9));
v? �25,6,872-288*�(�((pos%*18)-9));604+288*�(�((pos%*18)-9));
w? �25,4,872-204*�(�((pos%*18)+9));604+204*�(�((pos%*18)+9));
x? �25,6,872-288*�(�((pos%*18)+9));604+288*�(�((pos%*18)+9));
y�
z �25,4,872;604;
{? �25,4,872-288*�(�((pos%*18)+0));604+288*�(�((pos%*18)+0));
|C �25,166,872-288*�(�((pos%*18)-18));604+288*�(�((pos%*18)-18));
} �25,4,872;604;
~? �25,4,872-204*�(�((pos%*18)+0));604+204*�(�((pos%*18)+0));
C �25,166,872-204*�(�((pos%*18)-18));604+204*�(�((pos%*18)-18));
�A �25,6,872-288*�(�((pos%*18)-18));604+288*�(�((pos%*18)-18));
�? �25,4,872-204*�(�((pos%*18)+0));604+204*�(�((pos%*18)+0));
�? �25,6,872-288*�(�((pos%*18)+0));604+288*�(�((pos%*18)+0));
��
��
�
�� �show_1croc
� � k%=2 � 1 � -1
� ș "OS_Byte",112,k%
�. �borders(left%,low%,left%+384,low%+72)
� �write_day(1)
� �
�
�P%�
�C �words(70,150,-1,"The first day of the sacred calendar year")
�( �words(70,90,-1,"is 1-crocodile.")
� �
�C �words(70,134,-1,"The first day of the year is 1-crocodile.")
� �
��
�
�� �cal_move
� day_no%=1
� �go_on
� �
� ș "OS_Byte",113,2
� �cal_rotate(1,0,�)
� ș "OS_Byte",113,1
�A � day_no%=1 �words(70,134,-1,"The second day is 2-wind.")
� � day_no%=2 �
�7 �words(70,134,-1,"The third day is 3-house.")
� �
� ș "OS_Byte",112,2
� �cal_rotate(2,0,�)
� ș "OS_Byte",112,1
� day_no%=day_no%+1
� �go_on
� � day_no%=3
��
�
�#� �cal_rotate(scr%,writ%,show%)
�& � scr also defines cog (1=1,2=2)
�
�show%�
�b � scr%=1 �show_dot_ch(1,dot_ch1%�13):dot_ch1%-=1:�show_symb_ch(1,symb_ch1%�20):symb_ch1%-=1
�b � scr%=2 �show_dot_ch(2,dot_ch2%�13):dot_ch2%-=1:�show_symb_ch(2,symb_ch2%�20):symb_ch2%-=1
� �
� � scr%=1 �
�! �dots_move(scr%,dots1%())
� �
�! �dots_move(scr%,dots2%())
� �
�! � PROCsymb_blank(scr%,scr%)
�& �symb_circ(scr%,day_no%�20,scr%)
�
�show%�
�I � scr%=1 �show_dot_ch(1,dot_ch1%�13):�show_symb_ch(1,symb_ch1%�20)
�I � scr%=2 �show_dot_ch(2,dot_ch2%�13):�show_symb_ch(2,symb_ch2%�20)
� �
�" �dots_centre((day_no%�13)+1)
� �symb_centre(day_no%�20)
�J � writ%=0 : �write_day(day_no%+1) : � : �write_days_time(days_time%)
��
�
�� �prob_next_day
� ans%=4 : today%=3
�% �border_centre(282,556,378,652)
�% �border_centre(752,484,992,724)
� �get_choice(1)
�% �dots_centre(((today%-1)�13)+1)
�! �symb_centre((today%-1)�20)
�/ �words(70,134,-1,"See if you are right.")
� �go_on
� day_no%=today%
� � p%=2 � 1 � -1
� ș "OS_Byte",113,p%
� �cal_rotate(3-p%,0,�)
� �
� ș "OS_Byte",112,1
�> � (dot_ans%=((ans%-1)�13)+1) � (symb_ans%=(ans%-1)�20) �
�3 �words(70,134,-1,"Good. Try another one.")
� �
�C �words(70,150,-1,"Hard luck. The fourth day is 4-lizard.")
�+ �words(70,90,-1,"Try another one.")
� �
� �go_on
�y �show_dot_ch(2,dot_ch2%�13):�show_symb_ch(2,symb_ch2%�20):�show_dot_ch(1,dot_ch1%�13):�show_symb_ch(1,symb_ch1%�20)
��
�
�� �prob_days_time(go%)
� ok%=0 : old_ans%=0
� �
�. � go%=1 : today%=4 : � : today%=�(250)
� �
�' ans%=today%+1+(4*(go%-1))+�(4)
�< � (ans%<>old_ans%) � ((ans%�20)<>0) � ((ans%�13)<>0)
� old_ans%=ans%
� � p%=2 � 1 � -1
� ș "OS_Byte",112,p%
� �cal_blank(p%,0)
� �cal_setup(p%,today%,0)
� �
� �get_choice(2)
� � p%=2 � 1 � -1
� ș "OS_Byte",112,p%
�( �dots_centre(((today%-1)�13)+1)
�$ �symb_centre((today%-1)�20)
�5 �border_centre(left%,low%,left%+384,low%+72)
� �write_days_time(0)
� �
�1 �words(70,134,-1,"See if you are right.")
� �go_on
�% days_time%=1 : day_no%=today%
� � m%=1 � ans%-today%
�- day_no%=today%+m%-1 : days_time%=m%
� � p%=2 � 1 � -1
� ș "OS_Byte",113,p%
�! �cal_rotate(3-p%,1,�)
� � PROCdebug
� �
� �
� ș "OS_Byte",112,1
� �cleartext
�@ � (dot_ans%=((ans%-1)�13)+1) � (symb_ans%=(ans%-1)�20) �
� � go%=1 �
�; �words(70,134,-1,"Well done. Try another one.")
� �
�* �words(70,134,-1,"Well done.")
� �
� ok%=1
� �
: �words(70,134,-1,"Hard luck. Have another go.")
�
�go_on
{ �show_dot_ch(2,dot_ch2%�13):�show_symb_ch(2,symb_ch2%�20):�show_dot_ch(1,dot_ch1%�13):�show_symb_ch(1,symb_ch1%�20)
� ok%=1
�
� �birthday
L �words(70,150,-1,"All Aztecs have two names, a 'common' one and the")
8 �words(70,90,-1,"name of the day they were born.")
�go_on
I �words(70,150,-1,"Your Aztec name will be the name of the day you")
# �words(70,90,-1,"were born.")
�go_on
�
�cal_blank(1,1)
* � 24,left%;low%;left%+384;low%+72;
� 18,0,143 : � : � 26
) �init_buts(1000,20,16,16,28,24,2)
� j%=0 � 10
" coords%(j%,0)=40+(84*j%)
labels$(j%)=�(j%)
�
B labels$(10)="Delete" : buttype%(10)=1 : lab_offs%(10,0)=36
V coords%(11,0)=1060 : labels$(11)="Enter" : buttype%(11)=1 : lab_offs%(11,0)=44
� dat%=2�0� -1
�get_digits(dat%)
dob%(dat%)=valu%
�
) �init_buts(1000,20,18,16,24,24,1)
* day_no%=daycum%(dob%(1)-1)+dob%(2)
9 � (dob%(0)�4=0) � (dob%(1)>2) : day_no%=day_no%+1
�cal_setup(1,day_no%,0)
!( �dots_centre(((day_no%-1)�13)+1)
"$ �symb_centre((day_no%-1)�20)
#d �words(70,134,-1,"Your Aztec name is "+�(((day_no%-1)�13)+1)+"-"+motif$((day_no%-1)�20)+".")
$ �go_on
%G �words(70,150,-1,"Do you want to enter another date of birth?")
& �yesno
' �chosen%=0
(�
)
*� �get_digits(dat%)
+ *CHANNELVOICE 1 9
, dig%=0 : valu%=0
- �
.7 �words(70,172,-1,"What is your date of birth?")
/) �24,880;164;1120;222;:�18,0,131:�
0- �24,884;168;1116;218;:�18,0,128:�:�26
1 � valu%=0 �
24 �dat%=2:�words(70,112,-1,"Enter the day.")
3X �dat%=1:�words(70,112,-1,"Enter the month."):�words(888,172,-1,�(dob%(2))+"-")
4f �dat%=0:�words(70,112,-1,"Enter the year."):�words(888,172,-1,�(dob%(2))+"-"+�(dob%(1))+"-")
5 �
6P �dat%=2:�words(70,112,-1,"Enter the day."):�words(888,172,-1,�(valu%))
7a �dat%=1:�words(70,112,-1,"Enter the month."):�words(888,172,-1,�(dob%(2))+"-"+�(valu%))
8o �dat%=0:�words(70,112,-1,"Enter the year."):�words(888,172,-1,�(dob%(2))+"-"+�(dob%(1))+"-"+�(valu%))
9 �
: �choose_but(1,12,2,6)
; � (chosen%<10) �
<# � (dig%>=no_dig%(dat%)) �
=! �1,&15F+(&10*O%),10,2
> �
?$ valu%=(valu%*10)+chosen%
@ �
A �
BE � (chosen%=11) � (dig%=0) : �1,&15F+(&10*O%),10,2: chosen%=10
CR � (chosen%=11) � (dat%=1) � (valu%>12) : �1,&15F+(&10*O%),10,2: chosen%=10
DR � (chosen%=11) � (dat%=2) � (valu%>31) : �1,&15F+(&10*O%),10,2: chosen%=10
E, �(valu%<>0)�(chosen%<>0):dig%=dig%+1
F5 � (chosen%=10) : valu%=0 : dig%=0 :�cleartext
G � chosen%=11
H �cleartext
I�
J
K� �get_choice(prob%)
L help%=�
M �
N �quest(prob%)
O �choose_ans(prob%)
P � help%=�
Q�
R
S� �quest(prob%)
T � prob%=1 �
UT �words(70,172,-1,"The third day is 3-house. What is the fourth day called?")
VJ �words(70,112,-1,"Click on a number and symbol and then 'Enter'.")
W �
X� �words(70,172,-1,"If today is "+�(((today%-1)�13)+1)+"-"+motif$((today%-1)�20)+", what day is "+�(ans%-today%)+" days time?")
YH �words(70,112,-1,"Choose a number and symbol and then 'Enter'.")
Z �
[�
\
]� �choose_ans(prob%)
^ *CHANNELVOICE 1 9
_ �dot_areas
` �symb_areas
a
ȗ �
b �mouse_full
c � help%=� �
d help%=�
e �
f dot_ans%=14
g symb_ans%=20
h �
i firstloop%=�
jS �prob%=3:�init_buts(900,20,16,16,44,24,1):�:�init_buts(1000,20,16,16,44,24,1)
k= labels$(0)="Enter":labels$(1)=" Help":coords%(1,0)=1084
l �
m ȗ m_x%,m_y%,m_but%
n< �prob%=3:�choose_but(1,2,2,1):�:�choose_but(1,1,2,1)
o% � (m_but%=4) � (chosen%<>0) �
p) dot_ch%=�in_dot_area(m_x%,m_y%)
qo � dot_ch%<13 : dot_ans%=((dot_ch%+((today%-1)�13))�13)+1 :dot_ch1%=dot_ch%+39: �dots_centre(dot_ans%)
r+ symb_ch%=�in_symb_area(m_x%,m_y%)
ss � symb_ch%<20 : symb_ans%=((symb_ch%+((today%-1)�20))�20) :symb_ch1%=symb_ch%+40: �symb_centre(symb_ans%)
t �
u � chosen%=0 �
v, � (dot_ans%=14) � (symb_ans%=20) �
w/ �1,&15F+(&10*O%),10,2: firstloop%=�
x@ �prob%=3:�choose_but(1,2,2,1):�:�choose_but(1,1,2,1)
y �
z �
{+ � (prob%=3) � (chosen%=1) : help%=�
|. � ((chosen%=0) � (m_but%=0)) � (help%=�)
}+ dot_ch2%=dot_ch1%:symb_ch2%=symb_ch1%
~' �init_buts(1000,20,18,16,24,24,1)
ȗ � 1184,60
�
ȗ �
� �cleartext
� �dot_areas
� �symb_areas
�� �help% �show_dot_ch(2,dot_ch2%�13):�show_symb_ch(2,symb_ch2%�20):�show_dot_ch(1,dot_ch1%�13):�show_symb_ch(1,symb_ch1%�20)
��
�
�ݤin_dot_area(dx%,dy%)
�
val%=13
�) rad%=�(((dx%-330)^2)+((dy%-604)^2))
�( � PRINT "rad% " rad% " val% " val%
� � (rad%<80) � (rad%>212) �
� =13
� �
� � (dx%>320) � (dx%<350) �
� � dy%-604>0 �
� =3
� �
�
=10
� �
� �
�' angle=�(�((dy%-604)/(dx%-330)))
� � angle>=0 �
� � ll%=0 � 6
�= � (angle>(ll%*13.85)) � (angle<((ll%+1)*13.85)) �
� � dx%-330>0 �
� =�((ll%+1)/2)
� �
� =7+�(ll%/2)
� �
�
�
� �
� �
� � ll%=0 � 6
�? � (angle<(ll%*-13.85)) � (angle>((ll%+1)*-13.85)) �
� � dx%-330>0 �
�% =(13-�((ll%+1)/2))�13
� �
� =6-�(ll%/2)
� �
�
�
� �
� �
� �
� =val%
�
�� �dot_areas
� �25,4,330;600;
� �25,146,210;0;
� �25,4,330;600;
� �25,146,80;0;
� � kk%=0 � 12
�, cx%=330 + 210*�(�((kk%*27.7)+13.85))
�, cy%=600 + 210*�(�((kk%*27.7)+13.85))
� �25,4,cx%;cy%;
�+ cx%=330 + 80*�(�((kk%*27.7)+13.85))
�+ cy%=600 + 80*�(�((kk%*27.7)+13.85))
� �25,6,cx%;cy%;
� �
��
�
�ݤin_symb_area(dx%,dy%)
�
val%=20
�) rad%=�(((dx%-872)^2)+((dy%-604)^2))
�( � PRINT "rad% " rad% " val% " val%
�! � (rad%<204) � (rad%>288) �
� =20
� �
� � (dx%>850) � (dx%<898) �
� � dy%-604>0 �
� =5
� �
�
=15
� �
� �
�' angle=�(�((dy%-604)/(dx%-872)))
� � angle>=0 �
� � ll%=0 � 9
�5 � (angle>(ll%*9)) � (angle<((ll%+1)*9)) �
� � dx%-872>0 �
� =10-�((ll%+1)/2)
� �
�% =(20-�((ll%+1)/2))�20
� �
�
�
� �
� �
� � ll%=0 � 9
�7 � (angle<(ll%*-9)) � (angle>((ll%+1)*-9)) �
� � dx%-872>0 �
� =10+�((ll%+1)/2)
� �
� =�((ll%+1)/2)
� �
�
�
� �
� �
� �
� =val%
�
�� �symb_areas
� �25,4,872;604;
� �25,146,288;0;
� �25,4,872;604;
� �25,146,204;0;
� � kk%=0 � 19
�& cx%=872 + 288*�(�((kk%*18)+9))
�& cy%=604 + 288*�(�((kk%*18)+9))
� �25,4,cx%;cy%;
�& cx%=872 + 204*�(�((kk%*18)+9))
�& cy%=604 + 204*�(�((kk%*18)+9))
� �25,6,cx%;cy%;
� �
��
�
� � �cal_blank(scr%,bl_wr%)
� �dots_blank(scr%)
� �symb_blank(scr%,scr%)
�% �border_centre(282,556,378,652)
�% �border_centre(752,484,992,724)
�= � bl_wr%=0 �border_centre(left%,low%,left%+384,low%+72)
��
�
�*� �cal_setup(scr%,day_no%,no_centres%)
�. �dots_init(scr%,((day_no%-1)�13)+1,scr%)
�* �symb_circ(scr%,(day_no%-1)�20,scr%)
� � no_centres%<>0 �
�( �dots_centre(((day_no%-1)�13)+1)
$ �symb_centre((day_no%-1)�20)
�write_day(day_no%)
�
�
� �dots_blank(scr%)
� 1
ș "OS_Byte",112,scr%
' � 25,4,330;604; : � 25,153,208;0;
�yellow_small(scr%)
�borders(282,556,378,652)
�
� �write_day(day%)
2 �border_centre(left%,low%,left%+384,low%+72)
* st_nd_rd_th$=first_etc$((day%-1)�10)
+ � day%>10 � day%<14 st_nd_rd_th$="th"
� day%<10 �
N �words(left%+32,low%+24,0," "+�(day%)+st_nd_rd_th$+" day of the year")
�
J �words(left%+32,low%+24,0,�(day%)+st_nd_rd_th$+" day of the year")
�
�
� �write_days_time(day%)
2 �border_centre(left%,low%,left%+384,low%+72)
� day%<10 �
@ �words(left%+48,low%+24,0," "+�(day%)+" days time")
�
? �words(left%+48,low%+24,0," "+�(day%)+" days time")
�
�
!� �exp_cogs
" �explore
# donesymb%=0 : donenumb%=0
$C box%(0,0)=490 : box%(0,1)=572 : box%(1,0)=588 : box%(1,1)=572
% �
& �choose_box(1,2,-1)
' � got_box%=0 �
( � m%=2 � 1 � -1
) �yellow_small(m%)
* �
+B �enlarge_box(1,4,box%(0,0),box%(0,1),282,556,378,652,"")
,# �borders(282,556,378,652)
- �dots_centre(1)
. donenumb%=1
/� �P%:�words(70,134,-1,"The left cog has groups of dots ranging from 1 to 13."):�:�words(70,134,-1,"The left cog has dots from 1 to 13.")
0 �go_on
1 �
2 � got_box%=1 �
3 �yellow_large
4B �enlarge_box(1,5,box%(1,0),box%(1,1),752,484,992,724,"")
5# �borders(752,484,992,724)
6 �symb_centre(0)
7H ș "OS_SpriteOp",&134,AREA%,motif$(0),752+40,484+64,0,SCALE%,0
89 �words(752+40+motif_x%(0),484+24,0,"crocodile")
9 donesymb%=1
:? �words(70,134,-1,"The right cog has the 20 symbols.")
; �go_on
< �
= �cleartext
>) � (donesymb%=0) � (donenumb%=0) �
? �explore
@ �
A% � (donesymb%=1) � (donenumb%=1)
B ș "OS_Byte",112,2
C �borders(282,556,378,652)
D �borders(752,484,992,724)
E �symb_centre(0)
F �dots_centre(1)
G ș "OS_Byte",112,1
H�
I
J� �yellow_small(scr%)
K � 9
L ș "OS_Byte",112,scr%
M � scr%=1 �
N � i%=1 � -1 � -2
O/ cx%=�divis2(330 + 216*�(�(13.85*i%)))
P/ cy%=�divis4(604 + 216*�(�(13.85*i%)))
Q �25,4,cx%;cy%;
R. cx%=�divis2(330 + 76*�(�(13.85*i%)))
S. cy%=�divis4(604 + 76*�(�(13.85*i%)))
T �25,5,cx%;cy%;
U � i%=1 �
V �25,5,390;664;
W �
X �25,5,390;544;
Y �
Z �
[ � 24,270;544;390;664;
\ � 18,0,137 : �
] � 26
^ � 18,0,129
_ �25,133,400;604;
` �
a � 24,270;544;390;664;
b � 18,0,137 : �
c � 26
d �
e�
f
g� �yellow_large
h � 1
i � i%=2 � 1 � -1
j ș "OS_Byte",112,i%
k) � 25,4,872;604; : � 25,153,184;0;
l �
m � 9
n � i%=1 � -1 � -2
o) cx%=�divis2(872 - 320*�(�(9*i%)))
p) cy%=�divis4(604 + 320*�(�(9*i%)))
q �25,4,cx%;cy%;
r) cx%=�divis2(872 - 146*�(�(9*i%)))
s) cy%=�divis4(604 + 146*�(�(9*i%)))
t �25,5,cx%;cy%;
u � i%=1 �
v �25,5,740;736;
w �
x �25,5,740;472;
y �
z �
{ � i%=2 � 1 � -1
| ș "OS_Byte",112,i%
} � 24,740;472;1004;736;
~ � 18,0,137 : �
� 26
� �
� � 18,0,129
� �25,133,736;604;
��
�
�� �symb_centre(sym%)
�% �border_centre(752,484,992,724)
�G ș "OS_SpriteOp",&134,AREA%,motif$(sym%),752+40,484+64,0,SCALE%,0
�9 �words(752+40+motif_x%(sym%),484+24,0,motif$(sym%))
��
�
�� �dots_centre(num%)
�% �border_centre(282,556,378,652)
� � num%<10 �
�& �words(306,584,-1," "+�(num%))
� �
�" �words(306,584,-1,�(num%))
� �
��
�
�
�ݤdivis2(val%)
�val%=val%-val%�2
� =val%
�
�ݤdivis4(val%)
�val%=val%-val%�4
� =val%
�
�
�
�
�
�
� 00000000 0d 00 00 34 f4 ff 53 43 53 49 3a 3a 53 43 53 49 |...4..SCSI::SCSI|
00000010 44 69 73 63 34 2e 24 2e 43 6f 76 65 72 44 69 73 |Disc4.$.CoverDis|
00000020 6b 73 2e 21 41 5a 54 45 43 53 2e 4f 4e 45 2e 64 |ks.!AZTECS.ONE.d|
00000030 65 6d 6f 33 0d 00 01 22 c8 9b 20 22 3c 41 7a 74 |emo3...".. "<Azt|
00000040 65 63 24 63 68 61 69 6e 64 69 72 3e 2e 61 7a 74 |ec$chaindir>.azt|
00000050 65 63 6c 69 62 22 0d 00 02 1f f2 6c 69 62 5f 69 |eclib".....lib_i|
00000060 6e 69 74 69 61 6c 69 73 65 3a f2 69 6e 69 74 69 |nitialise:.initi|
00000070 61 6c 69 73 65 0d 00 03 5e c8 99 20 22 4f 53 5f |alise...^.. "OS_|
00000080 42 79 74 65 22 2c 31 31 32 2c 32 3a f2 62 6f 72 |Byte",112,2:.bor|
00000090 64 65 72 73 28 30 2c 30 2c 31 32 37 39 2c 6c 6f |ders(0,0,1279,lo|
000000a0 77 25 2d 39 29 3a f2 62 6f 72 64 65 72 73 28 6c |w%-9):.borders(l|
000000b0 65 66 74 25 2d 31 32 2c 6c 6f 77 25 2d 31 32 2c |eft%-12,low%-12,|
000000c0 72 69 67 68 74 25 2b 31 32 2c 68 69 67 68 25 2b |right%+12,high%+|
000000d0 31 32 29 0d 00 04 04 0d 00 05 23 e3 6b 25 3d 30 |12).......#.k%=0|
000000e0 b8 38 3a f2 65 78 70 61 6e 64 28 65 78 70 61 6c |.8:.expand(expal|
000000f0 6c 33 24 28 6b 25 29 29 3a ed 0d 00 06 3a e3 6b |l3$(k%)):....:.k|
00000100 25 3d 30 b8 31 39 3a f2 65 78 70 61 6e 64 28 6d |%=0.19:.expand(m|
00000110 6f 74 69 66 24 28 6b 25 29 29 3a f2 65 78 70 61 |otif$(k%)):.expa|
00000120 6e 64 28 22 73 22 2b 6d 6f 74 69 66 24 28 6b 25 |nd("s"+motif$(k%|
00000130 29 29 3a ed 0d 00 07 0d 20 20 f2 6d 6f 74 69 66 |)):..... .motif|
00000140 73 0d 00 08 0f 20 20 f2 61 64 64 5f 63 6f 67 73 |s.... .add_cogs|
00000150 0d 00 09 0f 20 20 f2 65 78 70 5f 63 6f 67 73 0d |.... .exp_cogs.|
00000160 00 0a 11 20 20 f2 73 68 6f 77 5f 31 63 72 6f 63 |... .show_1croc|
00000170 0d 00 0b 0f 20 20 f2 63 61 6c 5f 6d 6f 76 65 0d |.... .cal_move.|
00000180 00 0c 14 20 20 f2 70 72 6f 62 5f 6e 65 78 74 5f |... .prob_next_|
00000190 64 61 79 0d 00 0d 18 20 20 f2 70 72 6f 62 5f 64 |day.... .prob_d|
000001a0 61 79 73 5f 74 69 6d 65 28 31 29 0d 00 0e 18 20 |ays_time(1).... |
000001b0 20 f2 70 72 6f 62 5f 64 61 79 73 5f 74 69 6d 65 | .prob_days_time|
000001c0 28 32 29 0d 00 0f 18 20 20 f2 70 72 6f 62 5f 64 |(2).... .prob_d|
000001d0 61 79 73 5f 74 69 6d 65 28 33 29 0d 00 10 18 20 |ays_time(3).... |
000001e0 20 f2 70 72 6f 62 5f 64 61 79 73 5f 74 69 6d 65 | .prob_days_time|
000001f0 28 34 29 0d 00 11 0e 20 f2 62 69 72 74 68 64 61 |(4).... .birthda|
00000200 79 0d 00 12 3d c8 99 20 22 4f 53 5f 42 79 74 65 |y...=.. "OS_Byte|
00000210 22 2c 31 31 32 2c 32 3a f2 62 6f 72 64 65 72 73 |",112,2:.borders|
00000220 28 30 2c 30 2c 31 32 37 39 2c 68 69 67 68 25 2b |(0,0,1279,high%+|
00000230 31 32 29 3a f2 73 63 72 63 6f 70 79 32 31 0d 00 |12):.scrcopy21..|
00000240 13 4e 20 20 f2 77 6f 72 64 73 28 37 30 2c 37 39 |.N .words(70,79|
00000250 30 2c 2d 31 2c 22 49 6e 20 74 68 65 20 66 75 6c |0,-1,"In the ful|
00000260 6c 20 61 64 76 65 6e 74 75 72 65 20 79 6f 75 20 |l adventure you |
00000270 68 61 76 65 20 74 68 65 20 6f 70 74 69 6f 6e 73 |have the options|
00000280 20 6f 66 20 65 61 73 69 65 72 22 29 0d 00 14 4c | of easier")...L|
00000290 20 20 f2 77 6f 72 64 73 28 37 30 2c 37 33 30 2c | .words(70,730,|
000002a0 2d 31 2c 22 6f 72 20 68 61 72 64 65 72 20 74 65 |-1,"or harder te|
000002b0 78 74 20 61 6e 64 20 70 72 6f 62 6c 65 6d 73 20 |xt and problems |
000002c0 28 6f 72 20 6e 6f 20 70 72 6f 62 6c 65 6d 73 29 |(or no problems)|
000002d0 2e 20 20 54 68 65 22 29 0d 00 15 4f 20 20 f2 77 |. The")...O .w|
000002e0 6f 72 64 73 28 37 30 2c 36 37 30 2c 2d 31 2c 22 |ords(70,670,-1,"|
000002f0 41 7a 74 65 63 20 70 61 63 6b 20 61 6c 73 6f 20 |Aztec pack also |
00000300 63 6f 6e 74 61 69 6e 73 20 70 6f 73 74 65 72 73 |contains posters|
00000310 2c 20 20 61 63 74 69 76 69 74 79 20 69 64 65 61 |, activity idea|
00000320 73 20 61 6e 64 22 29 0d 00 16 47 20 20 f2 77 6f |s and")...G .wo|
00000330 72 64 73 28 37 30 2c 36 31 30 2c 2d 31 2c 22 66 |rds(70,610,-1,"f|
00000340 75 72 74 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 |urther informati|
00000350 6f 6e 20 61 6e 64 20 6d 61 79 20 62 65 20 6f 72 |on and may be or|
00000360 64 65 72 65 64 20 66 72 6f 6d 20 2d 22 29 0d 00 |dered from -")..|
00000370 17 30 f2 77 6f 72 64 73 28 33 30 30 2c 35 33 30 |.0.words(300,530|
00000380 2c 2d 31 2c 22 53 68 65 72 73 74 6f 6e 20 53 6f |,-1,"Sherston So|
00000390 66 74 77 61 72 65 20 4c 74 64 2e 2c 22 29 0d 00 |ftware Ltd.,")..|
000003a0 18 25 f2 77 6f 72 64 73 28 33 30 30 2c 34 37 30 |.%.words(300,470|
000003b0 2c 2d 31 2c 22 53 77 61 6e 20 42 61 72 74 6f 6e |,-1,"Swan Barton|
000003c0 2c 22 29 0d 00 19 22 f2 77 6f 72 64 73 28 33 30 |,")...".words(30|
000003d0 30 2c 34 31 30 2c 2d 31 2c 22 53 68 65 72 73 74 |0,410,-1,"Sherst|
000003e0 6f 6e 2c 22 29 0d 00 1a 24 f2 77 6f 72 64 73 28 |on,")...$.words(|
000003f0 33 30 30 2c 33 35 30 2c 2d 31 2c 22 4d 61 6c 6d |300,350,-1,"Malm|
00000400 65 73 62 75 72 79 2c 22 29 0d 00 1b 23 f2 77 6f |esbury,")...#.wo|
00000410 72 64 73 28 33 30 30 2c 32 39 30 2c 2d 31 2c 22 |rds(300,290,-1,"|
00000420 57 69 6c 74 73 68 69 72 65 2e 22 29 0d 00 1c 21 |Wiltshire.")...!|
00000430 f2 77 6f 72 64 73 28 33 30 30 2c 32 33 30 2c 2d |.words(300,230,-|
00000440 31 2c 22 53 4e 31 36 20 4f 4c 48 22 29 0d 00 1d |1,"SN16 OLH")...|
00000450 2e f2 77 6f 72 64 73 28 33 30 30 2c 31 37 30 2c |..words(300,170,|
00000460 2d 31 2c 22 54 65 6c 65 70 68 6f 6e 65 20 30 36 |-1,"Telephone 06|
00000470 36 36 20 38 34 30 34 33 33 22 29 0d 00 1e 28 f2 |66 840433")...(.|
00000480 77 6f 72 64 73 28 33 30 30 2c 31 31 30 2c 2d 31 |words(300,110,-1|
00000490 2c 22 46 61 78 20 30 36 36 36 20 38 34 30 30 34 |,"Fax 0666 84004|
000004a0 38 22 29 0d 00 1f 0c 20 20 f2 67 6f 5f 6f 6e 0d |8").... .go_on.|
000004b0 00 20 04 0d 00 21 0d f2 64 65 73 6b 5f 74 6f 70 |. ...!..desk_top|
000004c0 0d 00 22 05 e0 0d 00 23 04 0d 00 24 11 dd 20 f2 |.."....#...$.. .|
000004d0 69 6e 69 74 69 61 6c 69 73 65 0d 00 25 41 c8 99 |initialise..%A..|
000004e0 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 | "OS_SpriteOp",&|
000004f0 31 30 42 2c 41 52 45 41 25 2c 22 3c 41 5a 54 45 |10B,AREA%,"<AZTE|
00000500 43 24 63 68 61 69 6e 64 69 72 3e 2e 4f 4e 45 2e |C$chaindir>.ONE.|
00000510 63 61 6c 65 6e 64 61 72 5f 63 22 0d 00 26 22 20 |calendar_c"..&" |
00000520 20 c8 99 20 22 53 6f 75 6e 64 5f 43 6f 6e 66 69 | .. "Sound_Confi|
00000530 67 75 72 65 22 2c 32 2c 30 2c 31 30 30 0d 00 27 |gure",2,0,100..'|
00000540 20 20 20 c8 99 20 22 53 6f 75 6e 64 5f 41 74 74 | .. "Sound_Att|
00000550 61 63 68 56 6f 69 63 65 22 2c 32 2c 32 0d 00 28 |achVoice",2,2..(|
00000560 12 20 20 de 20 6d 6f 74 69 66 24 28 31 39 29 0d |. . motif$(19).|
00000570 00 29 0c 20 20 f7 20 8d 54 6d 40 0d 00 2a 12 20 |.). . .Tm@..*. |
00000580 20 e3 20 6b 6b 25 3d 30 20 b8 20 31 39 0d 00 2b | . kk%=0 . 19..+|
00000590 15 20 20 20 20 f3 20 6d 6f 74 69 66 24 28 6b 6b |. . motif$(kk|
000005a0 25 29 0d 00 2c 07 20 20 ed 0d 00 2d 59 20 20 dc |%)..,. ...-Y .|
000005b0 20 22 63 72 6f 63 6f 64 69 6c 65 22 2c 22 77 69 | "crocodile","wi|
000005c0 6e 64 22 2c 22 68 6f 75 73 65 22 2c 22 6c 69 7a |nd","house","liz|
000005d0 61 72 64 22 2c 22 73 6e 61 6b 65 22 2c 22 64 65 |ard","snake","de|
000005e0 61 74 68 22 2c 22 64 65 65 72 22 2c 22 72 61 62 |ath","deer","rab|
000005f0 62 69 74 22 2c 22 77 61 74 65 72 22 2c 22 64 6f |bit","water","do|
00000600 67 22 0d 00 2e 5d 20 20 dc 20 22 6d 6f 6e 6b 65 |g"...] . "monke|
00000610 79 22 2c 22 67 72 61 73 73 22 2c 22 72 65 65 64 |y","grass","reed|
00000620 22 2c 22 6a 61 67 75 61 72 22 2c 22 65 61 67 6c |","jaguar","eagl|
00000630 65 22 2c 22 76 75 6c 74 75 72 65 22 2c 22 6d 6f |e","vulture","mo|
00000640 76 65 6d 65 6e 74 22 2c 22 6b 6e 69 66 65 22 2c |vement","knife",|
00000650 22 72 61 69 6e 22 2c 22 66 6c 6f 77 65 72 22 0d |"rain","flower".|
00000660 00 2f 14 20 20 de 20 6d 6f 74 69 66 5f 78 25 28 |./. . motif_x%(|
00000670 31 39 29 0d 00 30 0c 20 20 f7 20 8d 54 74 40 0d |19)..0. . .Tt@.|
00000680 00 31 12 20 20 e3 20 6b 6b 25 3d 30 20 b8 20 31 |.1. . kk%=0 . 1|
00000690 39 0d 00 32 17 20 20 20 20 f3 20 6d 6f 74 69 66 |9..2. . motif|
000006a0 5f 78 25 28 6b 6b 25 29 0d 00 33 07 20 20 ed 0d |_x%(kk%)..3. ..|
000006b0 00 34 42 20 20 dc 20 30 2c 33 36 2c 33 34 2c 32 |.4B . 0,36,34,2|
000006c0 38 2c 33 32 2c 33 36 2c 34 36 2c 33 32 2c 33 38 |8,32,36,46,32,38|
000006d0 2c 35 38 2c 31 36 2c 33 38 2c 33 38 2c 33 32 2c |,58,16,38,38,32,|
000006e0 33 36 2c 32 30 2c 2d 34 2c 34 34 2c 34 38 2c 32 |36,20,-4,44,48,2|
000006f0 36 0d 00 35 47 20 20 f4 20 44 41 54 41 20 30 2c |6..5G . DATA 0,|
00000700 33 36 2c 33 34 2c 32 38 2c 33 32 2c 33 36 2c 34 |36,34,28,32,36,4|
00000710 36 2c 36 32 2c 33 38 2c 35 38 2c 31 36 2c 33 38 |6,62,38,58,16,38|
00000720 2c 34 30 2c 33 32 2c 33 36 2c 32 30 2c 2d 34 2c |,40,32,36,20,-4,|
00000730 34 34 2c 34 38 2c 32 36 0d 00 36 5b 20 20 f4 20 |44,48,26..6[ . |
00000740 44 41 54 41 20 32 38 2c 32 34 30 2c 34 31 34 2c |DATA 28,240,414,|
00000750 35 38 34 2c 37 36 34 2c 39 34 34 2c 31 31 33 30 |584,764,944,1130|
00000760 2c 36 30 2c 32 34 34 2c 34 31 38 2c 35 37 32 2c |,60,244,418,572,|
00000770 37 39 30 2c 39 34 36 2c 31 31 32 32 2c 36 34 2c |790,946,1122,64,|
00000780 32 32 34 2c 33 37 36 2c 36 30 30 2c 37 38 30 2c |224,376,600,780,|
00000790 39 33 34 0d 00 37 13 20 20 de 20 65 78 70 61 6c |934..7. . expal|
000007a0 6c 33 24 28 38 29 0d 00 38 0a 20 20 f7 20 2b 30 |l3$(8)..8. . +0|
000007b0 0d 00 39 5e 20 20 dc 20 22 64 6f 74 22 2c 22 73 |..9^ . "dot","s|
000007c0 62 6c 61 6e 6b 22 2c 22 64 6f 74 5f 62 6c 61 6e |blank","dot_blan|
000007d0 6b 22 2c 22 64 6f 74 5f 62 6c 5f 79 65 6c 22 2c |k","dot_bl_yel",|
000007e0 22 73 62 6c 5f 79 65 6c 22 2c 22 65 64 67 65 5f |"sbl_yel","edge_|
000007f0 79 65 6c 22 2c 22 61 72 72 6f 77 31 22 2c 22 61 |yel","arrow1","a|
00000800 72 72 6f 77 32 22 2c 22 64 69 76 69 64 22 0d 00 |rrow2","divid"..|
00000810 3a 1f 20 20 e3 20 69 25 3d 30 b8 38 3a f3 20 65 |:. . i%=0.8:. e|
00000820 78 70 61 6c 6c 33 24 28 69 25 29 3a ed 0d 00 3b |xpall3$(i%):...;|
00000830 12 20 20 de 20 64 6c 69 6e 6b 25 28 31 32 29 0d |. . dlink%(12).|
00000840 00 3c 12 20 20 de 20 73 6c 69 6e 6b 25 28 31 39 |.<. . slink%(19|
00000850 29 0d 00 3d 29 20 20 e3 20 69 25 3d 30 b8 36 20 |)..=) . i%=0.6 |
00000860 3a 20 73 6c 69 6e 6b 25 28 69 25 29 3d 33 38 2d |: slink%(i%)=38-|
00000870 28 69 25 2a 32 29 20 3a 20 ed 0d 00 3e 2e 20 20 |(i%*2) : ...>. |
00000880 e3 20 69 25 3d 37 b8 31 33 20 3a 20 73 6c 69 6e |. i%=7.13 : slin|
00000890 6b 25 28 69 25 29 3d 32 34 2d 28 28 69 25 2d 37 |k%(i%)=24-((i%-7|
000008a0 29 2a 32 29 20 3a 20 ed 0d 00 3f 30 20 20 e3 20 |)*2) : ...?0 . |
000008b0 69 25 3d 31 34 b8 31 39 20 3a 20 73 6c 69 6e 6b |i%=14.19 : slink|
000008c0 25 28 69 25 29 3d 31 30 2d 28 28 69 25 2d 31 34 |%(i%)=10-((i%-14|
000008d0 29 2a 32 29 20 3a 20 ed 0d 00 40 16 20 20 de 20 |)*2) : ...@. . |
000008e0 73 79 6d 62 6f 6c 31 25 28 31 39 2c 31 29 0d 00 |symbol1%(19,1)..|
000008f0 41 11 20 20 e3 20 69 25 3d 30 20 b8 20 31 39 0d |A. . i%=0 . 19.|
00000900 00 42 21 20 20 20 20 63 78 25 3d 38 37 32 20 2d |.B! cx%=872 -|
00000910 20 32 35 30 2a 9b 28 b2 28 69 25 2a 31 38 29 29 | 250*.(.(i%*18))|
00000920 0d 00 43 21 20 20 20 20 63 79 25 3d 36 30 34 20 |..C! cy%=604 |
00000930 2b 20 32 35 30 2a b5 28 b2 28 69 25 2a 31 38 29 |+ 250*.(.(i%*18)|
00000940 29 0d 00 44 1f 20 20 20 20 63 78 25 3d 63 78 25 |)..D. cx%=cx%|
00000950 2d 33 32 20 3a 20 63 79 25 3d 63 79 25 2d 33 32 |-32 : cy%=cy%-32|
00000960 0d 00 45 41 20 20 20 20 73 79 6d 62 6f 6c 31 25 |..EA symbol1%|
00000970 28 69 25 2c 30 29 3d a4 64 69 76 69 73 32 28 63 |(i%,0)=.divis2(c|
00000980 78 25 29 20 3a 20 73 79 6d 62 6f 6c 31 25 28 69 |x%) : symbol1%(i|
00000990 25 2c 31 29 3d a4 64 69 76 69 73 34 28 63 79 25 |%,1)=.divis4(cy%|
000009a0 29 0d 00 46 07 20 20 ed 0d 00 47 16 20 20 de 20 |)..F. ...G. . |
000009b0 73 79 6d 62 6f 6c 32 25 28 31 39 2c 31 29 0d 00 |symbol2%(19,1)..|
000009c0 48 11 20 20 e3 20 69 25 3d 30 20 b8 20 31 39 0d |H. . i%=0 . 19.|
000009d0 00 49 25 20 20 20 20 63 78 25 3d 38 37 32 20 2d |.I% cx%=872 -|
000009e0 20 32 35 30 2a 9b 28 b2 28 28 69 25 2a 31 38 29 | 250*.(.((i%*18)|
000009f0 2d 39 29 29 0d 00 4a 25 20 20 20 20 63 79 25 3d |-9))..J% cy%=|
00000a00 36 30 34 20 2b 20 32 35 30 2a b5 28 b2 28 28 69 |604 + 250*.(.((i|
00000a10 25 2a 31 38 29 2d 39 29 29 0d 00 4b 1f 20 20 20 |%*18)-9))..K. |
00000a20 20 63 78 25 3d 63 78 25 2d 33 32 20 3a 20 63 79 | cx%=cx%-32 : cy|
00000a30 25 3d 63 79 25 2d 33 32 0d 00 4c 41 20 20 20 20 |%=cy%-32..LA |
00000a40 73 79 6d 62 6f 6c 32 25 28 69 25 2c 30 29 3d a4 |symbol2%(i%,0)=.|
00000a50 64 69 76 69 73 32 28 63 78 25 29 20 3a 20 73 79 |divis2(cx%) : sy|
00000a60 6d 62 6f 6c 32 25 28 69 25 2c 31 29 3d a4 64 69 |mbol2%(i%,1)=.di|
00000a70 76 69 73 34 28 63 79 25 29 0d 00 4d 07 20 20 ed |vis4(cy%)..M. .|
00000a80 0d 00 4e 17 20 20 de 20 64 6f 74 73 31 25 28 31 |..N. . dots1%(1|
00000a90 32 2c 31 32 2c 31 29 0d 00 4f 12 20 20 e3 20 6b |2,12,1)..O. . k|
00000aa0 6b 25 3d 30 20 b8 20 31 32 0d 00 50 13 20 20 20 |k%=0 . 12..P. |
00000ab0 20 e3 20 6c 6c 25 3d 30 20 b8 20 37 0d 00 51 44 | . ll%=0 . 7..QD|
00000ac0 20 20 20 20 20 20 63 78 25 3d 33 33 30 20 2b 20 | cx%=330 + |
00000ad0 28 31 39 34 2d 28 32 34 2a 28 6c 6c 25 83 34 29 |(194-(24*(ll%.4)|
00000ae0 29 29 2a 9b 28 b2 28 28 6b 6b 25 2a 32 37 2e 37 |))*.(.((kk%*27.7|
00000af0 29 2b 28 38 2a a8 28 6c 6c 25 2f 34 29 29 29 29 |)+(8*.(ll%/4))))|
00000b00 0d 00 52 44 20 20 20 20 20 20 63 79 25 3d 36 30 |..RD cy%=60|
00000b10 34 20 2b 20 28 31 39 34 2d 28 32 34 2a 28 6c 6c |4 + (194-(24*(ll|
00000b20 25 83 34 29 29 29 2a b5 28 b2 28 28 6b 6b 25 2a |%.4)))*.(.((kk%*|
00000b30 32 37 2e 37 29 2b 28 38 2a a8 28 6c 6c 25 2f 34 |27.7)+(8*.(ll%/4|
00000b40 29 29 29 29 0d 00 53 4e 20 20 20 20 20 20 64 6f |))))..SN do|
00000b50 74 73 31 25 28 6b 6b 25 2c 6c 6c 25 2c 30 29 3d |ts1%(kk%,ll%,0)=|
00000b60 a4 64 69 76 69 73 32 28 63 78 25 29 2d 31 30 20 |.divis2(cx%)-10 |
00000b70 3a 20 64 6f 74 73 31 25 28 6b 6b 25 2c 6c 6c 25 |: dots1%(kk%,ll%|
00000b80 2c 31 29 3d a4 64 69 76 69 73 34 28 63 79 25 29 |,1)=.divis4(cy%)|
00000b90 2d 38 0d 00 54 09 20 20 20 20 ed 0d 00 55 14 20 |-8..T. ...U. |
00000ba0 20 20 20 e3 20 6c 6c 25 3d 38 20 b8 20 31 31 0d | . ll%=8 . 11.|
00000bb0 00 56 39 20 20 20 20 20 20 63 78 25 3d 33 33 30 |.V9 cx%=330|
00000bc0 20 2b 20 28 31 39 34 2d 28 32 34 2a 28 6c 6c 25 | + (194-(24*(ll%|
00000bd0 83 34 29 29 29 2a 9b 28 b2 28 28 6b 6b 25 2a 32 |.4)))*.(.((kk%*2|
00000be0 37 2e 37 29 2d 38 29 29 0d 00 57 39 20 20 20 20 |7.7)-8))..W9 |
00000bf0 20 20 63 79 25 3d 36 30 34 20 2b 20 28 31 39 34 | cy%=604 + (194|
00000c00 2d 28 32 34 2a 28 6c 6c 25 83 34 29 29 29 2a b5 |-(24*(ll%.4)))*.|
00000c10 28 b2 28 28 6b 6b 25 2a 32 37 2e 37 29 2d 38 29 |(.((kk%*27.7)-8)|
00000c20 29 0d 00 58 4e 20 20 20 20 20 20 64 6f 74 73 31 |)..XN dots1|
00000c30 25 28 6b 6b 25 2c 6c 6c 25 2c 30 29 3d a4 64 69 |%(kk%,ll%,0)=.di|
00000c40 76 69 73 32 28 63 78 25 29 2d 31 30 20 3a 20 64 |vis2(cx%)-10 : d|
00000c50 6f 74 73 31 25 28 6b 6b 25 2c 6c 6c 25 2c 31 29 |ots1%(kk%,ll%,1)|
00000c60 3d a4 64 69 76 69 73 34 28 63 79 25 29 2d 38 0d |=.divis4(cy%)-8.|
00000c70 00 59 09 20 20 20 20 ed 0d 00 5a 2f 20 20 20 20 |.Y. ...Z/ |
00000c80 63 78 25 3d 33 33 30 20 2b 20 28 31 39 34 2d 28 |cx%=330 + (194-(|
00000c90 32 34 2a 34 29 29 2a 9b 28 b2 28 28 6b 6b 25 2a |24*4))*.(.((kk%*|
00000ca0 32 37 2e 37 29 29 29 0d 00 5b 2f 20 20 20 20 63 |27.7)))..[/ c|
00000cb0 79 25 3d 36 30 34 20 2b 20 28 31 39 34 2d 28 32 |y%=604 + (194-(2|
00000cc0 34 2a 34 29 29 2a b5 28 b2 28 28 6b 6b 25 2a 32 |4*4))*.(.((kk%*2|
00000cd0 37 2e 37 29 29 29 0d 00 5c 4c 20 20 20 20 64 6f |7.7)))..\L do|
00000ce0 74 73 31 25 28 6b 6b 25 2c 6c 6c 25 2c 30 29 3d |ts1%(kk%,ll%,0)=|
00000cf0 a4 64 69 76 69 73 32 28 63 78 25 29 2d 31 30 20 |.divis2(cx%)-10 |
00000d00 3a 20 64 6f 74 73 31 25 28 6b 6b 25 2c 6c 6c 25 |: dots1%(kk%,ll%|
00000d10 2c 31 29 3d a4 64 69 76 69 73 34 28 63 79 25 29 |,1)=.divis4(cy%)|
00000d20 2d 38 0d 00 5d 07 20 20 ed 0d 00 5e 17 20 20 de |-8..]. ...^. .|
00000d30 20 64 6f 74 73 32 25 28 31 32 2c 31 32 2c 31 29 | dots2%(12,12,1)|
00000d40 0d 00 5f 12 20 20 e3 20 6b 6b 25 3d 30 20 b8 20 |.._. . kk%=0 . |
00000d50 31 32 0d 00 60 13 20 20 20 20 e3 20 6c 6c 25 3d |12..`. . ll%=|
00000d60 30 20 b8 20 37 0d 00 61 4a 20 20 20 20 20 20 63 |0 . 7..aJ c|
00000d70 78 25 3d 33 33 30 20 2b 20 28 31 39 34 2d 28 32 |x%=330 + (194-(2|
00000d80 34 2a 28 6c 6c 25 83 34 29 29 29 2a 9b 28 b2 28 |4*(ll%.4)))*.(.(|
00000d90 28 6b 6b 25 2a 32 37 2e 37 29 2d 31 33 2e 38 35 |(kk%*27.7)-13.85|
00000da0 2b 28 38 2a a8 28 6c 6c 25 2f 34 29 29 29 29 0d |+(8*.(ll%/4)))).|
00000db0 00 62 4a 20 20 20 20 20 20 63 79 25 3d 36 30 34 |.bJ cy%=604|
00000dc0 20 2b 20 28 31 39 34 2d 28 32 34 2a 28 6c 6c 25 | + (194-(24*(ll%|
00000dd0 83 34 29 29 29 2a b5 28 b2 28 28 6b 6b 25 2a 32 |.4)))*.(.((kk%*2|
00000de0 37 2e 37 29 2d 31 33 2e 38 35 2b 28 38 2a a8 28 |7.7)-13.85+(8*.(|
00000df0 6c 6c 25 2f 34 29 29 29 29 0d 00 63 4e 20 20 20 |ll%/4))))..cN |
00000e00 20 20 20 64 6f 74 73 32 25 28 6b 6b 25 2c 6c 6c | dots2%(kk%,ll|
00000e10 25 2c 30 29 3d a4 64 69 76 69 73 32 28 63 78 25 |%,0)=.divis2(cx%|
00000e20 29 2d 31 30 20 3a 20 64 6f 74 73 32 25 28 6b 6b |)-10 : dots2%(kk|
00000e30 25 2c 6c 6c 25 2c 31 29 3d a4 64 69 76 69 73 34 |%,ll%,1)=.divis4|
00000e40 28 63 79 25 29 2d 38 0d 00 64 09 20 20 20 20 ed |(cy%)-8..d. .|
00000e50 0d 00 65 14 20 20 20 20 e3 20 6c 6c 25 3d 38 20 |..e. . ll%=8 |
00000e60 b8 20 31 31 0d 00 66 3f 20 20 20 20 20 20 63 78 |. 11..f? cx|
00000e70 25 3d 33 33 30 20 2b 20 28 31 39 34 2d 28 32 34 |%=330 + (194-(24|
00000e80 2a 28 6c 6c 25 83 34 29 29 29 2a 9b 28 b2 28 28 |*(ll%.4)))*.(.((|
00000e90 6b 6b 25 2a 32 37 2e 37 29 2d 31 33 2e 38 35 2d |kk%*27.7)-13.85-|
00000ea0 38 29 29 0d 00 67 3f 20 20 20 20 20 20 63 79 25 |8))..g? cy%|
00000eb0 3d 36 30 34 20 2b 20 28 31 39 34 2d 28 32 34 2a |=604 + (194-(24*|
00000ec0 28 6c 6c 25 83 34 29 29 29 2a b5 28 b2 28 28 6b |(ll%.4)))*.(.((k|
00000ed0 6b 25 2a 32 37 2e 37 29 2d 31 33 2e 38 35 2d 38 |k%*27.7)-13.85-8|
00000ee0 29 29 0d 00 68 4e 20 20 20 20 20 20 64 6f 74 73 |))..hN dots|
00000ef0 32 25 28 6b 6b 25 2c 6c 6c 25 2c 30 29 3d a4 64 |2%(kk%,ll%,0)=.d|
00000f00 69 76 69 73 32 28 63 78 25 29 2d 31 30 20 3a 20 |ivis2(cx%)-10 : |
00000f10 64 6f 74 73 32 25 28 6b 6b 25 2c 6c 6c 25 2c 31 |dots2%(kk%,ll%,1|
00000f20 29 3d a4 64 69 76 69 73 34 28 63 79 25 29 2d 38 |)=.divis4(cy%)-8|
00000f30 0d 00 69 09 20 20 20 20 ed 0d 00 6a 35 20 20 20 |..i. ...j5 |
00000f40 20 63 78 25 3d 33 33 30 20 2b 20 28 31 39 34 2d | cx%=330 + (194-|
00000f50 28 32 34 2a 34 29 29 2a 9b 28 b2 28 28 6b 6b 25 |(24*4))*.(.((kk%|
00000f60 2a 32 37 2e 37 29 2d 31 33 2e 38 35 29 29 0d 00 |*27.7)-13.85))..|
00000f70 6b 35 20 20 20 20 63 79 25 3d 36 30 34 20 2b 20 |k5 cy%=604 + |
00000f80 28 31 39 34 2d 28 32 34 2a 34 29 29 2a b5 28 b2 |(194-(24*4))*.(.|
00000f90 28 28 6b 6b 25 2a 32 37 2e 37 29 2d 31 33 2e 38 |((kk%*27.7)-13.8|
00000fa0 35 29 29 0d 00 6c 4c 20 20 20 20 64 6f 74 73 32 |5))..lL dots2|
00000fb0 25 28 6b 6b 25 2c 6c 6c 25 2c 30 29 3d a4 64 69 |%(kk%,ll%,0)=.di|
00000fc0 76 69 73 32 28 63 78 25 29 2d 31 30 20 3a 20 64 |vis2(cx%)-10 : d|
00000fd0 6f 74 73 32 25 28 6b 6b 25 2c 6c 6c 25 2c 31 29 |ots2%(kk%,ll%,1)|
00000fe0 3d a4 64 69 76 69 73 34 28 63 79 25 29 2d 38 0d |=.divis4(cy%)-8.|
00000ff0 00 6d 07 20 20 ed 0d 00 6e 15 20 20 de 20 66 69 |.m. ...n. . fi|
00001000 72 73 74 5f 65 74 63 24 28 39 29 0d 00 6f 42 20 |rst_etc$(9)..oB |
00001010 20 66 69 72 73 74 5f 65 74 63 24 28 30 29 3d 22 | first_etc$(0)="|
00001020 73 74 22 20 3a 20 66 69 72 73 74 5f 65 74 63 24 |st" : first_etc$|
00001030 28 31 29 3d 22 6e 64 22 20 3a 20 66 69 72 73 74 |(1)="nd" : first|
00001040 5f 65 74 63 24 28 32 29 3d 22 72 64 22 0d 00 70 |_etc$(2)="rd"..p|
00001050 2a 20 20 e3 20 69 25 3d 33 20 b8 20 39 20 3a 20 |* . i%=3 . 9 : |
00001060 66 69 72 73 74 5f 65 74 63 24 28 69 25 29 3d 22 |first_etc$(i%)="|
00001070 74 68 22 20 3a 20 ed 0d 00 71 15 20 20 de 20 79 |th" : ...q. . y|
00001080 72 5f 6d 74 68 5f 64 79 24 28 32 29 0d 00 72 48 |r_mth_dy$(2)..rH|
00001090 20 20 79 72 5f 6d 74 68 5f 64 79 24 28 30 29 3d | yr_mth_dy$(0)=|
000010a0 22 59 65 61 72 22 20 3a 20 79 72 5f 6d 74 68 5f |"Year" : yr_mth_|
000010b0 64 79 24 28 31 29 3d 22 4d 6f 6e 74 68 22 20 3a |dy$(1)="Month" :|
000010c0 20 79 72 5f 6d 74 68 5f 64 79 24 28 32 29 3d 22 | yr_mth_dy$(2)="|
000010d0 44 61 79 22 0d 00 73 12 20 20 de 20 6e 6f 5f 64 |Day"..s. . no_d|
000010e0 69 67 25 28 32 29 0d 00 74 32 20 20 6e 6f 5f 64 |ig%(2)..t2 no_d|
000010f0 69 67 25 28 30 29 3d 34 20 3a 20 20 6e 6f 5f 64 |ig%(0)=4 : no_d|
00001100 69 67 25 28 31 29 3d 32 20 3a 20 20 6e 6f 5f 64 |ig%(1)=2 : no_d|
00001110 69 67 25 28 32 29 3d 32 0d 00 75 0f 20 20 de 20 |ig%(2)=2..u. . |
00001120 64 6f 62 25 28 32 29 0d 00 76 13 20 20 de 20 64 |dob%(2)..v. . d|
00001130 61 79 63 75 6d 25 28 31 31 29 0d 00 77 45 20 20 |aycum%(11)..wE |
00001140 64 61 79 63 75 6d 25 28 30 29 3d 30 20 3a 20 20 |daycum%(0)=0 : |
00001150 64 61 79 63 75 6d 25 28 31 29 3d 33 31 20 3a 20 |daycum%(1)=31 : |
00001160 20 64 61 79 63 75 6d 25 28 32 29 3d 35 39 20 3a | daycum%(2)=59 :|
00001170 20 20 64 61 79 63 75 6d 25 28 33 29 3d 39 30 0d | daycum%(3)=90.|
00001180 00 78 4a 20 20 64 61 79 63 75 6d 25 28 34 29 3d |.xJ daycum%(4)=|
00001190 31 32 30 20 3a 20 20 64 61 79 63 75 6d 25 28 35 |120 : daycum%(5|
000011a0 29 3d 31 35 31 20 3a 20 20 64 61 79 63 75 6d 25 |)=151 : daycum%|
000011b0 28 36 29 3d 31 38 31 20 3a 20 20 64 61 79 63 75 |(6)=181 : daycu|
000011c0 6d 25 28 37 29 3d 32 31 32 0d 00 79 4c 20 20 64 |m%(7)=212..yL d|
000011d0 61 79 63 75 6d 25 28 38 29 3d 32 34 33 20 3a 20 |aycum%(8)=243 : |
000011e0 20 64 61 79 63 75 6d 25 28 39 29 3d 32 37 33 20 | daycum%(9)=273 |
000011f0 3a 20 20 64 61 79 63 75 6d 25 28 31 30 29 3d 33 |: daycum%(10)=3|
00001200 30 34 20 3a 20 20 64 61 79 63 75 6d 25 28 31 31 |04 : daycum%(11|
00001210 29 3d 33 33 34 0d 00 7a 05 e1 0d 00 7b 04 0d 00 |)=334..z....{...|
00001220 7c 14 dd a4 72 65 61 64 73 74 72 69 6e 67 28 70 ||...readstring(p|
00001230 25 29 0d 00 7d 32 ea 61 24 3a 61 24 3d 22 22 3a |%)..}2.a$:a$="":|
00001240 c8 95 20 a9 61 24 3c 32 35 35 20 80 20 3f 70 25 |.. .a$<255 . ?p%|
00001250 3e 33 31 20 61 24 2b 3d bd 3f 70 25 3a 70 25 2b |>31 a$+=.?p%:p%+|
00001260 3d 31 3a ce 0d 00 7e 07 3d 61 24 0d 00 7f 04 0d |=1:...~.=a$.....|
00001270 00 80 0d dd 20 f2 6d 6f 74 69 66 73 0d 00 81 18 |.... .motifs....|
00001280 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 | .. "OS_Byte",1|
00001290 31 33 2c 31 0d 00 82 18 20 20 c8 99 20 22 4f 53 |13,1.... .. "OS|
000012a0 5f 42 79 74 65 22 2c 31 31 32 2c 32 0d 00 83 10 |_Byte",112,2....|
000012b0 20 20 f2 63 6c 65 61 72 74 65 78 74 0d 00 84 17 | .cleartext....|
000012c0 20 20 f2 63 6c 65 61 72 67 72 61 70 68 69 63 73 | .cleargraphics|
000012d0 28 31 29 0d 00 85 15 20 20 f2 73 79 6d 62 5f 69 |(1).... .symb_i|
000012e0 6e 69 74 28 30 2c 32 29 0d 00 86 3f 20 20 f2 67 |nit(0,2)...? .g|
000012f0 6f 5f 6f 6e 3a 43 25 3d 32 3a 44 25 3d 31 3a 45 |o_on:C%=2:D%=1:E|
00001300 25 3d 32 3a 46 25 3d 31 3a f2 65 78 70 6c 6f 64 |%=2:F%=1:.explod|
00001310 65 28 36 34 30 2c 36 30 30 2c 30 29 3a f2 73 63 |e(640,600,0):.sc|
00001320 72 63 6f 70 79 32 31 0d 00 87 11 20 20 f2 73 79 |rcopy21.... .sy|
00001330 6d 62 5f 6e 61 6d 65 73 0d 00 88 4c 20 20 f2 77 |mb_names...L .w|
00001340 6f 72 64 73 28 37 30 2c 31 33 34 2c 2d 31 2c 22 |ords(70,134,-1,"|
00001350 54 68 65 20 41 7a 74 65 63 20 73 61 63 72 65 64 |The Aztec sacred|
00001360 20 63 61 6c 65 6e 64 61 72 20 69 73 20 61 20 77 | calendar is a w|
00001370 61 79 20 6f 66 20 6e 61 6d 69 6e 67 20 64 61 79 |ay of naming day|
00001380 73 2e 22 29 0d 00 89 0c 20 20 f2 67 6f 5f 6f 6e |s.").... .go_on|
00001390 0d 00 8a 49 20 20 f2 77 6f 72 64 73 28 37 30 2c |...I .words(70,|
000013a0 31 35 30 2c 2d 31 2c 22 54 68 65 20 6e 61 6d 65 |150,-1,"The name|
000013b0 73 20 61 72 65 20 6d 61 64 65 20 6f 66 20 61 20 |s are made of a |
000013c0 6e 75 6d 62 65 72 20 62 65 74 77 65 65 6e 20 31 |number between 1|
000013d0 20 61 6e 64 20 31 33 22 29 0d 00 8b 41 20 20 f2 | and 13")...A .|
000013e0 77 6f 72 64 73 28 37 30 2c 39 30 2c 2d 31 2c 22 |words(70,90,-1,"|
000013f0 61 6e 64 20 6f 6e 65 20 6f 66 20 74 68 65 20 32 |and one of the 2|
00001400 30 20 73 70 65 63 69 61 6c 20 73 79 6d 62 6f 6c |0 special symbol|
00001410 73 20 61 62 6f 76 65 2e 22 29 0d 00 8c 0c 20 20 |s above.").... |
00001420 f2 67 6f 5f 6f 6e 0d 00 8d 10 20 20 f2 73 63 72 |.go_on.... .scr|
00001430 63 6f 70 79 32 31 0d 00 8e 0d 20 20 f2 73 68 72 |copy21.... .shr|
00001440 69 6e 6b 0d 00 8f 14 20 20 f2 73 79 6d 62 5f 74 |ink.... .symb_t|
00001450 6f 63 69 72 63 6c 65 0d 00 90 05 e1 0d 00 91 04 |ocircle.........|
00001460 0d 00 92 14 dd 20 f2 73 79 6d 62 5f 74 6f 63 69 |..... .symb_toci|
00001470 72 63 6c 65 0d 00 93 11 20 20 6c 61 73 74 74 69 |rcle.... lastti|
00001480 6d 65 25 3d 91 0d 00 94 18 20 20 c8 99 20 22 4f |me%=..... .. "O|
00001490 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 0d 00 95 |S_Byte",112,2...|
000014a0 17 20 20 f2 63 6c 65 61 72 67 72 61 70 68 69 63 |. .cleargraphic|
000014b0 73 28 31 29 0d 00 96 10 20 20 e3 20 6a 25 3d 30 |s(1).... . j%=0|
000014c0 20 b8 20 36 0d 00 97 12 20 20 20 20 e3 20 69 25 | . 6.... . i%|
000014d0 3d 30 20 b8 20 32 0d 00 98 1f 20 20 20 20 20 20 |=0 . 2.... |
000014e0 e7 20 28 6a 25 3c 3e 36 29 20 84 20 28 69 25 3c |. (j%<>6) . (i%<|
000014f0 3e 32 29 20 8c 0d 00 99 6b 20 20 20 20 20 20 20 |>2) ....k |
00001500 20 f2 70 75 74 5f 73 70 28 32 2c 32 38 2b 28 38 | .put_sp(2,28+(8|
00001510 30 2a 6a 25 29 2c 37 36 38 2d 28 69 25 2a 32 32 |0*j%),768-(i%*22|
00001520 34 29 2c 32 2c 31 36 2c 31 36 2c 31 36 2c 22 73 |4),2,16,16,16,"s|
00001530 22 2b 6d 6f 74 69 66 24 28 6a 25 2b 28 69 25 2a |"+motif$(j%+(i%*|
00001540 37 29 29 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 |7)),left%,low%,r|
00001550 69 67 68 74 25 2c 68 69 67 68 25 2c 26 30 30 29 |ight%,high%,&00)|
00001560 0d 00 9a 0b 20 20 20 20 20 20 cd 0d 00 9b 09 20 |.... ..... |
00001570 20 20 20 ed 0d 00 9c 15 f4 20 20 20 20 50 52 4f | ...... PRO|
00001580 43 77 61 69 74 28 31 30 29 0d 00 9d 07 20 20 ed |Cwait(10).... .|
00001590 0d 00 9e 19 20 20 f5 3a fd 20 91 3e 3d 6c 61 73 |.... .:. .>=las|
000015a0 74 74 69 6d 65 25 2b 38 30 0d 00 9f 26 20 20 c8 |ttime%+80...& .|
000015b0 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c |. "OS_Byte",113,|
000015c0 32 20 3a 20 6c 61 73 74 74 69 6d 65 25 3d 91 0d |2 : lasttime%=..|
000015d0 00 a0 10 20 20 f2 73 63 72 63 6f 70 79 32 31 0d |... .scrcopy21.|
000015e0 00 a1 18 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 |... .. "OS_Byte|
000015f0 22 2c 31 31 32 2c 32 0d 00 a2 17 20 20 f2 63 6c |",112,2.... .cl|
00001600 65 61 72 67 72 61 70 68 69 63 73 28 31 29 0d 00 |eargraphics(1)..|
00001610 a3 10 20 20 e3 20 6a 25 3d 30 20 b8 20 36 0d 00 |.. . j%=0 . 6..|
00001620 a4 18 20 20 20 20 e3 20 69 25 3d 31 20 b8 20 2d |.. . i%=1 . -|
00001630 31 20 88 20 2d 31 0d 00 a5 20 20 20 20 20 20 20 |1 . -1... |
00001640 e7 20 28 6a 25 3c 3e 36 29 20 84 20 28 69 25 3c |. (j%<>6) . (i%<|
00001650 3e 2d 31 29 20 8c 0d 00 a6 6e 20 20 20 20 20 20 |>-1) ....n |
00001660 20 20 f2 70 75 74 5f 73 70 28 32 2c 32 38 2b 28 | .put_sp(2,28+(|
00001670 38 30 2a 6a 25 29 2c 35 34 34 2b 28 69 25 2a 38 |80*j%),544+(i%*8|
00001680 38 29 2c 32 2c 31 36 2c 31 36 2c 31 36 2c 22 73 |8),2,16,16,16,"s|
00001690 22 2b 6d 6f 74 69 66 24 28 6a 25 2b 28 28 31 2d |"+motif$(j%+((1-|
000016a0 69 25 29 2a 37 29 29 2c 6c 65 66 74 25 2c 6c 6f |i%)*7)),left%,lo|
000016b0 77 25 2c 72 69 67 68 74 25 2c 68 69 67 68 25 2c |w%,right%,high%,|
000016c0 26 30 30 29 0d 00 a7 0b 20 20 20 20 20 20 cd 0d |&00).... ..|
000016d0 00 a8 09 20 20 20 20 ed 0d 00 a9 15 f4 20 20 20 |... ...... |
000016e0 20 50 52 4f 43 77 61 69 74 28 31 30 29 0d 00 aa | PROCwait(10)...|
000016f0 07 20 20 ed 0d 00 ab 19 20 20 f5 3a fd 20 91 3e |. ..... .:. .>|
00001700 3d 6c 61 73 74 74 69 6d 65 25 2b 38 30 0d 00 ac |=lasttime%+80...|
00001710 18 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c |. .. "OS_Byte",|
00001720 31 31 33 2c 32 0d 00 ad 10 20 20 f2 73 63 72 63 |113,2.... .scrc|
00001730 6f 70 79 32 31 0d 00 ae 1c 20 20 f2 77 61 69 74 |opy21.... .wait|
00001740 28 31 30 30 29 3a 6c 61 73 74 74 69 6d 65 25 3d |(100):lasttime%=|
00001750 91 0d 00 af 10 20 20 e3 20 6b 25 3d 30 20 b8 20 |..... . k%=0 . |
00001760 32 0d 00 b0 12 20 20 20 20 e3 20 6a 25 3d 30 20 |2.... . j%=0 |
00001770 b8 20 36 0d 00 b1 1f 20 20 20 20 20 20 e7 20 28 |. 6.... . (|
00001780 6b 25 3c 3e 32 29 20 84 20 28 6a 25 3c 3e 36 29 |k%<>2) . (j%<>6)|
00001790 20 8c 0d 00 b2 5d 20 20 20 20 20 20 20 20 f2 70 | ....] .p|
000017a0 75 74 5f 73 70 28 31 2c 32 38 2b 28 38 30 2a 6a |ut_sp(1,28+(80*j|
000017b0 25 29 2c 36 33 32 2d 28 6b 25 2a 38 38 29 2c 35 |%),632-(k%*88),5|
000017c0 2c 31 36 2c 31 36 2c 31 36 2c 22 73 62 6c 61 6e |,16,16,16,"sblan|
000017d0 6b 22 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 69 |k",left%,low%,ri|
000017e0 67 68 74 25 2c 68 69 67 68 25 2c 26 30 30 29 0d |ght%,high%,&00).|
000017f0 00 b3 83 20 20 20 20 20 20 20 20 f2 70 75 74 5f |... .put_|
00001800 73 70 28 31 2c 73 79 6d 62 6f 6c 31 25 28 28 6a |sp(1,symbol1%((j|
00001810 25 2b 28 6b 25 2a 37 29 29 2c 30 29 2c 73 79 6d |%+(k%*7)),0),sym|
00001820 62 6f 6c 31 25 28 28 6a 25 2b 28 6b 25 2a 37 29 |bol1%((j%+(k%*7)|
00001830 29 2c 31 29 2c 32 2c 31 36 2c 31 36 2c 31 36 2c |),1),2,16,16,16,|
00001840 22 73 22 2b 6d 6f 74 69 66 24 28 6a 25 2b 28 6b |"s"+motif$(j%+(k|
00001850 25 2a 37 29 29 2c 6c 65 66 74 25 2c 6c 6f 77 25 |%*7)),left%,low%|
00001860 2c 72 69 67 68 74 25 2c 68 69 67 68 25 2c 26 30 |,right%,high%,&0|
00001870 30 29 0d 00 b4 1f 20 20 20 20 20 20 20 20 f5 3a |0).... .:|
00001880 fd 20 91 3e 3d 6c 61 73 74 74 69 6d 65 25 2b 32 |. .>=lasttime%+2|
00001890 30 0d 00 b5 17 20 20 20 20 20 20 20 20 6c 61 73 |0.... las|
000018a0 74 74 69 6d 65 25 3d 91 0d 00 b6 19 f4 20 20 20 |ttime%=...... |
000018b0 20 20 20 20 20 50 52 4f 43 77 61 69 74 28 32 30 | PROCwait(20|
000018c0 29 0d 00 b7 0b 20 20 20 20 20 20 cd 0d 00 b8 09 |).... .....|
000018d0 20 20 20 20 ed 0d 00 b9 07 20 20 ed 0d 00 ba 05 | ..... .....|
000018e0 e1 0d 00 bb 04 0d 00 bc 11 dd 20 f2 73 79 6d 62 |.......... .symb|
000018f0 5f 6e 61 6d 65 73 0d 00 bd 10 20 20 e3 20 69 25 |_names.... . i%|
00001900 3d 30 20 b8 20 32 0d 00 be 12 20 20 20 20 e3 20 |=0 . 2.... . |
00001910 6a 25 3d 30 20 b8 20 36 0d 00 bf 1f 20 20 20 20 |j%=0 . 6.... |
00001920 20 20 e7 20 28 69 25 3c 3e 32 29 20 84 20 28 6a | . (i%<>2) . (j|
00001930 25 3c 3e 36 29 20 8c 0d 00 c0 31 20 20 20 20 20 |%<>6) ....1 |
00001940 20 20 20 63 78 25 3d 32 38 2b 28 31 37 36 2a 6a | cx%=28+(176*j|
00001950 25 29 20 3a 20 63 79 25 3d 37 36 38 2d 28 32 32 |%) : cy%=768-(22|
00001960 34 2a 69 25 29 2d 34 38 0d 00 c1 43 20 20 20 20 |4*i%)-48...C |
00001970 20 20 20 20 f2 77 6f 72 64 73 28 63 78 25 2b 6d | .words(cx%+m|
00001980 6f 74 69 66 5f 78 25 28 28 37 2a 69 25 29 2b 6a |otif_x%((7*i%)+j|
00001990 25 29 2c 63 79 25 2c 30 2c 6d 6f 74 69 66 24 28 |%),cy%,0,motif$(|
000019a0 28 37 2a 69 25 29 2b 6a 25 29 29 0d 00 c2 0b 20 |(7*i%)+j%)).... |
000019b0 20 20 20 20 20 cd 0d 00 c3 09 20 20 20 20 ed 0d | ..... ..|
000019c0 00 c4 07 20 20 ed 0d 00 c5 05 e1 0d 00 c6 04 0d |... ...........|
000019d0 00 c7 1d dd 20 f2 73 79 6d 62 5f 69 6e 69 74 28 |.... .symb_init(|
000019e0 73 6d 61 6c 6c 25 2c 73 63 72 25 29 0d 00 c8 10 |small%,scr%)....|
000019f0 20 20 e3 20 69 25 3d 30 20 b8 20 32 0d 00 c9 12 | . i%=0 . 2....|
00001a00 20 20 20 20 e3 20 6a 25 3d 30 20 b8 20 36 0d 00 | . j%=0 . 6..|
00001a10 ca 1f 20 20 20 20 20 20 e7 20 28 69 25 3c 3e 32 |.. . (i%<>2|
00001a20 29 20 84 20 28 6a 25 3c 3e 36 29 20 8c 0d 00 cb |) . (j%<>6) ....|
00001a30 2e 20 20 20 20 20 20 20 20 63 78 25 3d 32 38 2b |. cx%=28+|
00001a40 28 31 37 36 2a 6a 25 29 20 3a 20 63 79 25 3d 37 |(176*j%) : cy%=7|
00001a50 36 38 2d 28 32 32 34 2a 69 25 29 0d 00 cc 18 20 |68-(224*i%).... |
00001a60 20 20 20 20 20 20 20 e7 20 73 6d 61 6c 6c 25 3d | . small%=|
00001a70 30 20 8c 0d 00 cd 4e 20 20 20 20 20 20 20 20 20 |0 ....N |
00001a80 20 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 | .. "OS_SpriteOp|
00001a90 22 2c 26 31 33 34 2c 41 52 45 41 25 2c 6d 6f 74 |",&134,AREA%,mot|
00001aa0 69 66 24 28 28 37 2a 69 25 29 2b 6a 25 29 2c 63 |if$((7*i%)+j%),c|
00001ab0 78 25 2c 63 79 25 2c 30 2c 53 43 41 4c 45 25 2c |x%,cy%,0,SCALE%,|
00001ac0 30 0d 00 ce 0d 20 20 20 20 20 20 20 20 cc 0d 00 |0.... ...|
00001ad0 cf 60 20 20 20 20 20 20 20 20 20 20 f2 70 75 74 |.` .put|
00001ae0 5f 73 70 28 73 63 72 25 2c 63 78 25 2c 63 79 25 |_sp(scr%,cx%,cy%|
00001af0 2c 32 2c 31 36 2c 31 36 2c 31 36 2c 22 73 22 2b |,2,16,16,16,"s"+|
00001b00 6d 6f 74 69 66 24 28 28 37 2a 69 25 29 2b 6a 25 |motif$((7*i%)+j%|
00001b10 29 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 69 67 |),left%,low%,rig|
00001b20 68 74 25 2c 68 69 67 68 25 2c 26 30 30 29 0d 00 |ht%,high%,&00)..|
00001b30 d0 55 20 20 20 20 20 20 20 20 20 20 f4 20 53 59 |.U . SY|
00001b40 53 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |S "OS_SpriteOp",|
00001b50 26 31 33 34 2c 41 52 45 41 25 2c 22 73 22 2b 6d |&134,AREA%,"s"+m|
00001b60 6f 74 69 66 24 28 28 37 2a 69 25 29 2b 6a 25 29 |otif$((7*i%)+j%)|
00001b70 2c 63 78 25 2c 63 79 25 2c 30 2c 53 43 41 4c 45 |,cx%,cy%,0,SCALE|
00001b80 25 2c 30 0d 00 d1 0d 20 20 20 20 20 20 20 20 cd |%,0.... .|
00001b90 0d 00 d2 0b 20 20 20 20 20 20 cd 0d 00 d3 09 20 |.... ..... |
00001ba0 20 20 20 ed 0d 00 d4 07 20 20 ed 0d 00 d5 05 e1 | ..... ......|
00001bb0 0d 00 d6 04 0d 00 d7 24 dd 20 f2 73 79 6d 62 5f |.......$. .symb_|
00001bc0 70 6c 6f 74 28 73 63 72 25 2c 73 79 6d 62 5f 61 |plot(scr%,symb_a|
00001bd0 72 72 61 79 25 28 29 29 0d 00 d8 11 20 20 e3 20 |rray%()).... . |
00001be0 6c 25 3d 30 20 b8 20 31 39 0d 00 d9 25 20 20 20 |l%=0 . 19...% |
00001bf0 20 e7 20 28 73 63 72 25 3d 31 29 20 80 20 28 73 | . (scr%=1) . (s|
00001c00 6c 69 6e 6b 25 28 6c 25 29 3d 30 29 20 8c 0d 00 |link%(l%)=0) ...|
00001c10 da 64 20 20 20 20 20 20 f2 70 75 74 5f 73 70 28 |.d .put_sp(|
00001c20 73 63 72 25 2c 73 79 6d 62 6f 6c 31 25 28 30 2c |scr%,symbol1%(0,|
00001c30 30 29 2c 73 79 6d 62 6f 6c 31 25 28 30 2c 31 29 |0),symbol1%(0,1)|
00001c40 2c 35 2c 31 36 2c 31 36 2c 31 36 2c 22 73 62 6c |,5,16,16,16,"sbl|
00001c50 5f 79 65 6c 22 2c 6c 65 66 74 25 2c 6c 6f 77 25 |_yel",left%,low%|
00001c60 2c 72 69 67 68 74 25 2c 68 69 67 68 25 2c 26 30 |,right%,high%,&0|
00001c70 30 29 0d 00 db 81 20 20 20 20 20 20 f2 70 75 74 |0).... .put|
00001c80 5f 73 70 28 73 63 72 25 2c 73 79 6d 62 5f 61 72 |_sp(scr%,symb_ar|
00001c90 72 61 79 25 28 73 6c 69 6e 6b 25 28 6c 25 29 2c |ray%(slink%(l%),|
00001ca0 30 29 2c 73 79 6d 62 5f 61 72 72 61 79 25 28 73 |0),symb_array%(s|
00001cb0 6c 69 6e 6b 25 28 6c 25 29 2c 31 29 2c 31 2c 31 |link%(l%),1),1,1|
00001cc0 36 2c 31 36 2c 31 36 2c 22 73 22 2b 6d 6f 74 69 |6,16,16,"s"+moti|
00001cd0 66 24 28 6c 25 29 2c 6c 65 66 74 25 2c 6c 6f 77 |f$(l%),left%,low|
00001ce0 25 2c 72 69 67 68 74 25 2c 68 69 67 68 25 2c 26 |%,right%,high%,&|
00001cf0 30 30 29 0d 00 dc 65 20 20 20 20 20 20 f2 70 75 |00)...e .pu|
00001d00 74 5f 73 70 28 73 63 72 25 2c 73 79 6d 62 6f 6c |t_sp(scr%,symbol|
00001d10 31 25 28 30 2c 30 29 2c 73 79 6d 62 6f 6c 31 25 |1%(0,0),symbol1%|
00001d20 28 30 2c 31 29 2c 32 2c 31 36 2c 31 36 2c 31 36 |(0,1),2,16,16,16|
00001d30 2c 22 65 64 67 65 5f 79 65 6c 22 2c 6c 65 66 74 |,"edge_yel",left|
00001d40 25 2c 6c 6f 77 25 2c 72 69 67 68 74 25 2c 68 69 |%,low%,right%,hi|
00001d50 67 68 25 2c 26 30 30 29 0d 00 dd 09 20 20 20 20 |gh%,&00).... |
00001d60 cc 0d 00 de 81 20 20 20 20 20 20 f2 70 75 74 5f |..... .put_|
00001d70 73 70 28 73 63 72 25 2c 73 79 6d 62 5f 61 72 72 |sp(scr%,symb_arr|
00001d80 61 79 25 28 73 6c 69 6e 6b 25 28 6c 25 29 2c 30 |ay%(slink%(l%),0|
00001d90 29 2c 73 79 6d 62 5f 61 72 72 61 79 25 28 73 6c |),symb_array%(sl|
00001da0 69 6e 6b 25 28 6c 25 29 2c 31 29 2c 32 2c 31 36 |ink%(l%),1),2,16|
00001db0 2c 31 36 2c 31 36 2c 22 73 22 2b 6d 6f 74 69 66 |,16,16,"s"+motif|
00001dc0 24 28 6c 25 29 2c 6c 65 66 74 25 2c 6c 6f 77 25 |$(l%),left%,low%|
00001dd0 2c 72 69 67 68 74 25 2c 68 69 67 68 25 2c 26 30 |,right%,high%,&0|
00001de0 30 29 0d 00 df 09 20 20 20 20 cd 0d 00 e0 07 20 |0).... ..... |
00001df0 20 ed 0d 00 e1 05 e1 0d 00 e2 04 0d 00 e3 1c dd | ...............|
00001e00 20 f2 73 79 6d 62 5f 62 6c 61 6e 6b 28 73 63 72 | .symb_blank(scr|
00001e10 25 2c 63 6f 67 25 29 0d 00 e4 1f 20 20 e7 20 28 |%,cog%).... . (|
00001e20 63 6f 67 25 20 3d 20 31 29 20 80 20 28 73 63 72 |cog% = 1) . (scr|
00001e30 25 3d 31 29 20 8c 0d 00 e5 62 20 20 20 20 f2 70 |%=1) ....b .p|
00001e40 75 74 5f 73 70 28 73 63 72 25 2c 73 79 6d 62 6f |ut_sp(scr%,symbo|
00001e50 6c 31 25 28 30 2c 30 29 2c 73 79 6d 62 6f 6c 31 |l1%(0,0),symbol1|
00001e60 25 28 30 2c 31 29 2c 35 2c 31 36 2c 31 36 2c 31 |%(0,1),5,16,16,1|
00001e70 36 2c 22 73 62 6c 5f 79 65 6c 22 2c 6c 65 66 74 |6,"sbl_yel",left|
00001e80 25 2c 6c 6f 77 25 2c 72 69 67 68 74 25 2c 68 69 |%,low%,right%,hi|
00001e90 67 68 25 2c 26 30 30 29 0d 00 e6 07 20 20 cc 0d |gh%,&00).... ..|
00001ea0 00 e7 61 20 20 20 20 f2 70 75 74 5f 73 70 28 73 |..a .put_sp(s|
00001eb0 63 72 25 2c 73 79 6d 62 6f 6c 32 25 28 30 2c 30 |cr%,symbol2%(0,0|
00001ec0 29 2c 73 79 6d 62 6f 6c 32 25 28 30 2c 31 29 2c |),symbol2%(0,1),|
00001ed0 35 2c 31 36 2c 31 36 2c 31 36 2c 22 73 62 6c 61 |5,16,16,16,"sbla|
00001ee0 6e 6b 22 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 |nk",left%,low%,r|
00001ef0 69 67 68 74 25 2c 68 69 67 68 25 2c 26 30 30 29 |ight%,high%,&00)|
00001f00 0d 00 e8 07 20 20 cd 0d 00 e9 11 20 20 e3 20 6c |.... ..... . l|
00001f10 25 3d 31 20 b8 20 31 39 0d 00 ea 14 20 20 20 20 |%=1 . 19.... |
00001f20 e7 20 63 6f 67 25 20 3d 20 31 20 8c 0d 00 eb 65 |. cog% = 1 ....e|
00001f30 20 20 20 20 20 20 f2 70 75 74 5f 73 70 28 73 63 | .put_sp(sc|
00001f40 72 25 2c 73 79 6d 62 6f 6c 31 25 28 6c 25 2c 30 |r%,symbol1%(l%,0|
00001f50 29 2c 73 79 6d 62 6f 6c 31 25 28 6c 25 2c 31 29 |),symbol1%(l%,1)|
00001f60 2c 35 2c 31 36 2c 31 36 2c 31 36 2c 22 73 62 6c |,5,16,16,16,"sbl|
00001f70 61 6e 6b 22 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c |ank",left%,low%,|
00001f80 72 69 67 68 74 25 2c 68 69 67 68 25 2c 26 30 30 |right%,high%,&00|
00001f90 29 0d 00 ec 09 20 20 20 20 cc 0d 00 ed 65 20 20 |).... ....e |
00001fa0 20 20 20 20 f2 70 75 74 5f 73 70 28 73 63 72 25 | .put_sp(scr%|
00001fb0 2c 73 79 6d 62 6f 6c 32 25 28 6c 25 2c 30 29 2c |,symbol2%(l%,0),|
00001fc0 73 79 6d 62 6f 6c 32 25 28 6c 25 2c 31 29 2c 35 |symbol2%(l%,1),5|
00001fd0 2c 31 36 2c 31 36 2c 31 36 2c 22 73 62 6c 61 6e |,16,16,16,"sblan|
00001fe0 6b 22 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 69 |k",left%,low%,ri|
00001ff0 67 68 74 25 2c 68 69 67 68 25 2c 26 30 30 29 0d |ght%,high%,&00).|
00002000 00 ee 09 20 20 20 20 cd 0d 00 ef 07 20 20 ed 0d |... ..... ..|
00002010 00 f0 05 e1 0d 00 f1 04 0d 00 f2 0d dd 20 f2 73 |............. .s|
00002020 68 72 69 6e 6b 0d 00 f3 12 20 20 66 69 72 73 74 |hrink.... first|
00002030 74 69 6d 65 25 3d b9 0d 00 f4 1b 20 20 e3 20 73 |time%=..... . s|
00002040 68 72 69 6e 6b 25 3d 31 35 20 b8 20 38 20 88 20 |hrink%=15 . 8 . |
00002050 2d 31 0d 00 f5 30 20 20 20 20 e7 66 69 72 73 74 |-1...0 .first|
00002060 74 69 6d 65 25 8c 3a 66 69 72 73 74 74 69 6d 65 |time%.:firsttime|
00002070 25 3d a3 3a 6c 61 73 74 74 69 6d 65 25 3d 91 2d |%=.:lasttime%=.-|
00002080 33 30 0d 00 f6 26 20 20 20 20 c8 99 20 22 4f 53 |30...& .. "OS|
00002090 5f 42 79 74 65 22 2c 31 31 32 2c 31 2b 28 73 68 |_Byte",112,1+(sh|
000020a0 72 69 6e 6b 25 83 32 29 0d 00 f7 3a 20 20 20 20 |rink%.2)...: |
000020b0 21 28 53 43 41 4c 45 25 2b 30 29 3d 73 68 72 69 |!(SCALE%+0)=shri|
000020c0 6e 6b 25 20 3a 20 21 28 53 43 41 4c 45 25 2b 34 |nk% : !(SCALE%+4|
000020d0 29 3d 73 68 72 69 6e 6b 25 2a 28 48 25 21 26 46 |)=shrink%*(H%!&F|
000020e0 30 29 0d 00 f8 19 20 20 20 20 f2 63 6c 65 61 72 |0).... .clear|
000020f0 67 72 61 70 68 69 63 73 28 31 29 0d 00 f9 23 20 |graphics(1)...# |
00002100 20 20 20 f2 73 79 6d 62 5f 69 6e 69 74 28 30 2c | .symb_init(0,|
00002110 31 2b 28 73 68 72 69 6e 6b 25 83 32 29 29 0d 00 |1+(shrink%.2))..|
00002120 fa 1b 20 20 20 20 f5 3a fd 20 91 3e 3d 6c 61 73 |.. .:. .>=las|
00002130 74 74 69 6d 65 25 2b 33 30 0d 00 fb 35 20 20 20 |ttime%+30...5 |
00002140 20 c8 96 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 | ..:.. "OS_Byte"|
00002150 2c 31 31 33 2c 31 2b 28 73 68 72 69 6e 6b 25 83 |,113,1+(shrink%.|
00002160 32 29 3a 6c 61 73 74 74 69 6d 65 25 3d 91 0d 00 |2):lasttime%=...|
00002170 fc 07 20 20 ed 0d 00 fd 18 20 20 c8 99 20 22 4f |.. ..... .. "O|
00002180 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 0d 00 fe |S_Byte",112,2...|
00002190 2e 20 20 21 28 53 43 41 4c 45 25 2b 30 29 3d 31 |. !(SCALE%+0)=1|
000021a0 36 20 3a 20 21 28 53 43 41 4c 45 25 2b 34 29 3d |6 : !(SCALE%+4)=|
000021b0 31 36 2a 28 48 25 21 26 46 30 29 0d 00 ff 17 20 |16*(H%!&F0).... |
000021c0 20 f2 63 6c 65 61 72 67 72 61 70 68 69 63 73 28 | .cleargraphics(|
000021d0 31 29 0d 01 00 15 20 20 f2 73 79 6d 62 5f 69 6e |1).... .symb_in|
000021e0 69 74 28 31 2c 32 29 0d 01 01 10 20 20 f2 73 63 |it(1,2).... .sc|
000021f0 72 63 6f 70 79 32 31 0d 01 02 05 e1 0d 01 03 04 |rcopy21.........|
00002200 0d 01 04 0f dd 20 f2 61 64 64 5f 63 6f 67 73 0d |..... .add_cogs.|
00002210 01 05 20 20 20 f2 61 64 64 5f 73 70 28 32 2c 22 |.. .add_sp(2,"|
00002220 77 68 65 65 6c 73 31 22 2c 33 2c 33 2c 36 29 0d |wheels1",3,3,6).|
00002230 01 06 3e 20 20 f2 70 75 74 5f 73 70 28 32 2c 34 |..> .put_sp(2,4|
00002240 34 34 2c 37 39 36 2c 36 2c 31 36 2c 31 36 2c 31 |44,796,6,16,16,1|
00002250 36 2c 22 61 72 72 6f 77 31 22 2c 30 2c 30 2c 31 |6,"arrow1",0,0,1|
00002260 32 37 36 2c 31 30 32 30 2c 26 30 30 29 0d 01 07 |276,1020,&00)...|
00002270 3e 20 20 f2 70 75 74 5f 73 70 28 32 2c 35 36 38 |> .put_sp(2,568|
00002280 2c 37 39 36 2c 36 2c 31 36 2c 31 36 2c 31 36 2c |,796,6,16,16,16,|
00002290 22 61 72 72 6f 77 32 22 2c 30 2c 30 2c 31 32 37 |"arrow2",0,0,127|
000022a0 36 2c 31 30 32 30 2c 26 30 30 29 0d 01 08 17 20 |6,1020,&00).... |
000022b0 20 f2 73 79 6d 62 5f 63 69 72 63 28 32 2c 30 2c | .symb_circ(2,0,|
000022c0 31 29 0d 01 09 17 20 20 f2 64 6f 74 73 5f 69 6e |1).... .dots_in|
000022d0 69 74 28 32 2c 31 2c 31 29 0d 01 0a 10 f4 20 20 |it(2,1,1)..... |
000022e0 50 52 4f 43 67 6f 5f 6f 6e 0d 01 0b 10 20 20 f2 |PROCgo_on.... .|
000022f0 73 63 72 63 6f 70 79 32 31 0d 01 0c 3b 20 20 f2 |scrcopy21...; .|
00002300 77 6f 72 64 73 28 37 30 2c 31 33 34 2c 2d 31 2c |words(70,134,-1,|
00002310 22 54 68 69 73 20 69 73 20 61 6e 20 41 7a 74 65 |"This is an Azte|
00002320 63 20 73 61 63 72 65 64 20 63 61 6c 65 6e 64 61 |c sacred calenda|
00002330 72 2e 22 29 0d 01 0d 20 20 20 f2 61 64 64 5f 73 |r.")... .add_s|
00002340 70 28 32 2c 22 77 68 65 65 6c 73 32 22 2c 33 2c |p(2,"wheels2",3,|
00002350 33 2c 36 29 0d 01 0e 3e 20 20 f2 70 75 74 5f 73 |3,6)...> .put_s|
00002360 70 28 32 2c 34 34 34 2c 37 39 36 2c 36 2c 31 36 |p(2,444,796,6,16|
00002370 2c 31 36 2c 31 36 2c 22 61 72 72 6f 77 31 22 2c |,16,16,"arrow1",|
00002380 30 2c 30 2c 31 32 37 36 2c 31 30 32 30 2c 26 30 |0,0,1276,1020,&0|
00002390 30 29 0d 01 0f 3e 20 20 f2 70 75 74 5f 73 70 28 |0)...> .put_sp(|
000023a0 32 2c 35 36 38 2c 37 39 36 2c 36 2c 31 36 2c 31 |2,568,796,6,16,1|
000023b0 36 2c 31 36 2c 22 61 72 72 6f 77 32 22 2c 30 2c |6,16,"arrow2",0,|
000023c0 30 2c 31 32 37 36 2c 31 30 32 30 2c 26 30 30 29 |0,1276,1020,&00)|
000023d0 0d 01 10 17 20 20 f2 73 79 6d 62 5f 63 69 72 63 |.... .symb_circ|
000023e0 28 32 2c 30 2c 32 29 0d 01 11 17 20 20 f2 64 6f |(2,0,2).... .do|
000023f0 74 73 5f 69 6e 69 74 28 32 2c 31 2c 32 29 0d 01 |ts_init(2,1,2)..|
00002400 12 18 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 |.. .. "OS_Byte"|
00002410 2c 31 31 32 2c 31 0d 01 13 05 e1 0d 01 14 04 0d |,112,1..........|
00002420 01 15 23 dd 20 f2 73 79 6d 62 5f 63 69 72 63 28 |..#. .symb_circ(|
00002430 73 63 72 25 2c 73 74 5f 70 6f 73 25 2c 63 6f 67 |scr%,st_pos%,cog|
00002440 25 29 0d 01 16 44 20 20 f4 20 64 69 73 70 6c 61 |%)...D . displa|
00002450 79 73 20 73 79 6d 62 6f 6c 73 20 6f 6e 20 73 63 |ys symbols on sc|
00002460 72 25 20 77 69 74 68 20 73 79 6d 62 6f 6c 20 6e |r% with symbol n|
00002470 6f 2e 20 73 74 5f 70 6f 73 25 20 61 74 20 66 61 |o. st_pos% at fa|
00002480 72 20 6c 65 66 74 0d 01 17 17 20 20 e3 20 69 25 |r left.... . i%|
00002490 3d 73 74 5f 70 6f 73 25 20 b8 20 31 39 0d 01 18 |=st_pos% . 19...|
000024a0 1d 20 20 20 20 73 6c 69 6e 6b 25 28 69 25 29 3d |. slink%(i%)=|
000024b0 69 25 2d 73 74 5f 70 6f 73 25 0d 01 19 07 20 20 |i%-st_pos%.... |
000024c0 ed 0d 01 1a 14 20 20 e7 20 73 74 5f 70 6f 73 25 |..... . st_pos%|
000024d0 3c 3e 30 20 8c 0d 01 1b 1a 20 20 20 20 e3 20 69 |<>0 ..... . i|
000024e0 25 3d 30 20 b8 20 73 74 5f 70 6f 73 25 2d 31 0d |%=0 . st_pos%-1.|
000024f0 01 1c 26 20 20 20 20 20 20 73 6c 69 6e 6b 25 28 |..& slink%(|
00002500 69 25 29 3d 28 31 39 2d 73 74 5f 70 6f 73 25 29 |i%)=(19-st_pos%)|
00002510 2b 31 2b 69 25 0d 01 1d 09 20 20 20 20 ed 0d 01 |+1+i%.... ...|
00002520 1e 07 20 20 cd 0d 01 1f 10 20 20 e7 20 63 6f 67 |.. ..... . cog|
00002530 25 3d 31 20 8c 0d 01 20 23 20 20 20 20 f2 73 79 |%=1 ... # .sy|
00002540 6d 62 5f 70 6c 6f 74 28 73 63 72 25 2c 73 79 6d |mb_plot(scr%,sym|
00002550 62 6f 6c 31 25 28 29 29 0d 01 21 07 20 20 cc 0d |bol1%())..!. ..|
00002560 01 22 23 20 20 20 20 f2 73 79 6d 62 5f 70 6c 6f |."# .symb_plo|
00002570 74 28 73 63 72 25 2c 73 79 6d 62 6f 6c 32 25 28 |t(scr%,symbol2%(|
00002580 29 29 0d 01 23 07 20 20 cd 0d 01 24 05 e1 0d 01 |))..#. ...$....|
00002590 25 04 0d 01 26 23 dd 20 f2 64 6f 74 73 5f 69 6e |%...&#. .dots_in|
000025a0 69 74 28 73 63 72 25 2c 73 74 5f 70 6f 73 25 2c |it(scr%,st_pos%,|
000025b0 63 6f 67 25 29 0d 01 27 3f 20 20 f4 20 64 69 73 |cog%)..'? . dis|
000025c0 70 6c 61 79 73 20 64 6f 74 73 20 6f 6e 20 73 63 |plays dots on sc|
000025d0 72 25 20 77 69 74 68 20 64 6f 74 20 6e 6f 2e 20 |r% with dot no. |
000025e0 73 74 5f 70 6f 73 25 20 61 74 20 66 61 72 20 72 |st_pos% at far r|
000025f0 69 67 68 74 0d 01 28 19 20 20 e3 20 69 25 3d 30 |ight..(. . i%=0|
00002600 20 b8 20 31 33 2d 73 74 5f 70 6f 73 25 0d 01 29 | . 13-st_pos%..)|
00002610 1f 20 20 20 20 64 6c 69 6e 6b 25 28 69 25 29 3d |. dlink%(i%)=|
00002620 73 74 5f 70 6f 73 25 2d 31 2b 69 25 0d 01 2a 07 |st_pos%-1+i%..*.|
00002630 20 20 ed 0d 01 2b 14 20 20 e7 20 73 74 5f 70 6f | ...+. . st_po|
00002640 73 25 3c 3e 31 20 8c 0d 01 2c 1a 20 20 20 20 e3 |s%<>1 ...,. .|
00002650 20 69 25 3d 30 20 b8 20 73 74 5f 70 6f 73 25 2d | i%=0 . st_pos%-|
00002660 32 0d 01 2d 24 20 20 20 20 20 20 64 6c 69 6e 6b |2..-$ dlink|
00002670 25 28 31 33 2d 73 74 5f 70 6f 73 25 2b 31 2b 69 |%(13-st_pos%+1+i|
00002680 25 29 3d 69 25 0d 01 2e 09 20 20 20 20 ed 0d 01 |%)=i%.... ...|
00002690 2f 07 20 20 cd 0d 01 30 10 20 20 e7 20 63 6f 67 |/. ...0. . cog|
000026a0 25 3d 31 20 8c 0d 01 31 21 20 20 20 20 f2 64 6f |%=1 ...1! .do|
000026b0 74 73 5f 70 6c 6f 74 28 73 63 72 25 2c 64 6f 74 |ts_plot(scr%,dot|
000026c0 73 31 25 28 29 29 0d 01 32 07 20 20 cc 0d 01 33 |s1%())..2. ...3|
000026d0 21 20 20 20 20 f2 64 6f 74 73 5f 70 6c 6f 74 28 |! .dots_plot(|
000026e0 73 63 72 25 2c 64 6f 74 73 32 25 28 29 29 0d 01 |scr%,dots2%())..|
000026f0 34 07 20 20 cd 0d 01 35 05 e1 0d 01 36 04 0d 01 |4. ...5....6...|
00002700 37 24 dd 20 f2 64 6f 74 73 5f 70 6c 6f 74 28 73 |7$. .dots_plot(s|
00002710 63 72 25 2c 64 6f 74 73 5f 61 72 72 61 79 25 28 |cr%,dots_array%(|
00002720 29 29 0d 01 38 11 20 20 e3 20 6b 25 3d 30 20 b8 |))..8. . k%=0 .|
00002730 20 31 32 0d 01 39 1b 20 20 20 20 e3 20 6a 25 3d | 12..9. . j%=|
00002740 30 20 b8 20 64 6c 69 6e 6b 25 28 6b 25 29 0d 01 |0 . dlink%(k%)..|
00002750 3a 6e 20 20 20 20 20 20 f2 70 75 74 5f 73 70 28 |:n .put_sp(|
00002760 73 63 72 25 2c 64 6f 74 73 5f 61 72 72 61 79 25 |scr%,dots_array%|
00002770 28 6b 25 2c 6a 25 2c 30 29 2c 64 6f 74 73 5f 61 |(k%,j%,0),dots_a|
00002780 72 72 61 79 25 28 6b 25 2c 6a 25 2c 31 29 2c 31 |rray%(k%,j%,1),1|
00002790 2c 31 36 2c 31 36 2c 31 36 2c 22 64 6f 74 22 2c |,16,16,16,"dot",|
000027a0 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 69 67 68 74 |left%,low%,right|
000027b0 25 2c 68 69 67 68 25 2c 26 30 30 29 0d 01 3b 09 |%,high%,&00)..;.|
000027c0 20 20 20 20 ed 0d 01 3c 07 20 20 ed 0d 01 3d 05 | ...<. ...=.|
000027d0 e1 0d 01 3e 04 0d 01 3f 24 dd 20 f2 64 6f 74 73 |...>...?$. .dots|
000027e0 5f 6d 6f 76 65 28 73 63 72 25 2c 64 6f 74 73 5f |_move(scr%,dots_|
000027f0 61 72 72 61 79 25 28 29 29 0d 01 40 1e 20 20 66 |array%())..@. f|
00002800 72 6f 6d 25 3d 28 28 64 61 79 5f 6e 6f 25 2d 31 |rom%=((day_no%-1|
00002810 29 83 31 33 29 2b 31 0d 01 41 13 20 20 e7 20 66 |).13)+1..A. . f|
00002820 72 6f 6d 25 3c 3e 31 33 20 8c 0d 01 42 19 20 20 |rom%<>13 ...B. |
00002830 20 20 e3 20 6a 25 3d 30 20 b8 20 31 32 2d 66 72 | . j%=0 . 12-fr|
00002840 6f 6d 25 0d 01 43 7a 20 20 20 20 20 20 f2 70 75 |om%..Cz .pu|
00002850 74 5f 73 70 28 73 63 72 25 2c 64 6f 74 73 5f 61 |t_sp(scr%,dots_a|
00002860 72 72 61 79 25 28 6a 25 2c 6a 25 2b 66 72 6f 6d |rray%(j%,j%+from|
00002870 25 2c 30 29 2c 64 6f 74 73 5f 61 72 72 61 79 25 |%,0),dots_array%|
00002880 28 6a 25 2c 6a 25 2b 66 72 6f 6d 25 2c 31 29 2c |(j%,j%+from%,1),|
00002890 31 2c 31 36 2c 31 36 2c 31 36 2c 22 64 6f 74 22 |1,16,16,16,"dot"|
000028a0 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 69 67 68 |,left%,low%,righ|
000028b0 74 25 2c 68 69 67 68 25 2c 26 30 30 29 0d 01 44 |t%,high%,&00)..D|
000028c0 09 20 20 20 20 ed 0d 01 45 07 20 20 cd 0d 01 46 |. ...E. ...F|
000028d0 11 20 20 e3 20 6a 25 3d 31 20 b8 20 31 32 0d 01 |. . j%=1 . 12..|
000028e0 47 21 20 20 20 20 e7 20 28 66 72 6f 6d 25 3d 31 |G! . (from%=1|
000028f0 33 29 20 80 20 28 73 63 72 25 3d 31 29 20 8c 0d |3) . (scr%=1) ..|
00002900 01 48 81 20 20 20 20 20 20 f2 70 75 74 5f 73 70 |.H. .put_sp|
00002910 28 73 63 72 25 2c 64 6f 74 73 5f 61 72 72 61 79 |(scr%,dots_array|
00002920 25 28 31 33 2d 66 72 6f 6d 25 2c 6a 25 2c 30 29 |%(13-from%,j%,0)|
00002930 2c 64 6f 74 73 5f 61 72 72 61 79 25 28 31 33 2d |,dots_array%(13-|
00002940 66 72 6f 6d 25 2c 6a 25 2c 31 29 2c 35 2c 31 36 |from%,j%,1),5,16|
00002950 2c 31 36 2c 31 36 2c 22 64 6f 74 5f 62 6c 5f 79 |,16,16,"dot_bl_y|
00002960 65 6c 22 2c 6c 65 66 74 25 2c 6c 6f 77 25 2c 72 |el",left%,low%,r|
00002970 69 67 68 74 25 2c 68 69 67 68 25 2c 26 30 30 29 |ight%,high%,&00)|
00002980 0d 01 49 09 20 20 20 20 cc 0d 01 4a 80 20 20 20 |..I. ...J. |
00002990 20 20 20 f2 70 75 74 5f 73 70 28 73 63 72 25 2c | .put_sp(scr%,|
000029a0 64 6f 74 73 5f 61 72 72 61 79 25 28 31 33 2d 66 |dots_array%(13-f|
000029b0 72 6f 6d 25 2c 6a 25 2c 30 29 2c 64 6f 74 73 5f |rom%,j%,0),dots_|
000029c0 61 72 72 61 79 25 28 31 33 2d 66 72 6f 6d 25 2c |array%(13-from%,|
000029d0 6a 25 2c 31 29 2c 35 2c 31 36 2c 31 36 2c 31 36 |j%,1),5,16,16,16|
000029e0 2c 22 64 6f 74 5f 62 6c 61 6e 6b 22 2c 6c 65 66 |,"dot_blank",lef|
000029f0 74 25 2c 6c 6f 77 25 2c 72 69 67 68 74 25 2c 68 |t%,low%,right%,h|
00002a00 69 67 68 25 2c 26 30 30 29 0d 01 4b 09 20 20 20 |igh%,&00)..K. |
00002a10 20 cd 0d 01 4c 07 20 20 ed 0d 01 4d 12 20 20 e7 | ...L. ...M. .|
00002a20 20 66 72 6f 6d 25 3c 3e 31 20 8c 0d 01 4e 1c 20 | from%<>1 ...N. |
00002a30 20 20 20 e3 20 6a 25 3d 31 33 2d 66 72 6f 6d 25 | . j%=13-from%|
00002a40 2b 31 20 b8 20 31 32 0d 01 4f 8c 20 20 20 20 20 |+1 . 12..O. |
00002a50 20 f2 70 75 74 5f 73 70 28 73 63 72 25 2c 64 6f | .put_sp(scr%,do|
00002a60 74 73 5f 61 72 72 61 79 25 28 6a 25 2c 6a 25 2d |ts_array%(j%,j%-|
00002a70 28 31 33 2d 66 72 6f 6d 25 2b 31 29 2b 31 2c 30 |(13-from%+1)+1,0|
00002a80 29 2c 64 6f 74 73 5f 61 72 72 61 79 25 28 6a 25 |),dots_array%(j%|
00002a90 2c 6a 25 2d 28 31 33 2d 66 72 6f 6d 25 2b 31 29 |,j%-(13-from%+1)|
00002aa0 2b 31 2c 31 29 2c 31 2c 31 36 2c 31 36 2c 31 36 |+1,1),1,16,16,16|
00002ab0 2c 22 64 6f 74 22 2c 6c 65 66 74 25 2c 6c 6f 77 |,"dot",left%,low|
00002ac0 25 2c 72 69 67 68 74 25 2c 68 69 67 68 25 2c 26 |%,right%,high%,&|
00002ad0 30 30 29 0d 01 50 09 20 20 20 20 ed 0d 01 51 07 |00)..P. ...Q.|
00002ae0 20 20 cd 0d 01 52 05 e1 0d 01 53 04 0d 01 54 1d | ...R....S...T.|
00002af0 dd 20 f2 73 68 6f 77 5f 64 6f 74 5f 63 68 28 73 |. .show_dot_ch(s|
00002b00 63 72 25 2c 70 6f 73 25 29 0d 01 55 19 c8 99 20 |cr%,pos%)..U... |
00002b10 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 73 63 |"OS_Byte",112,sc|
00002b20 72 25 0d 01 56 0e e7 20 73 63 72 25 3d 31 20 8c |r%..V.. scr%=1 .|
00002b30 0d 01 57 13 20 ef 32 35 2c 34 2c 33 33 30 3b 36 |..W. .25,4,330;6|
00002b40 30 30 3b 0d 01 58 4b 20 ef 32 35 2c 34 2c 33 33 |00;..XK .25,4,33|
00002b50 30 2b 32 31 30 2a 9b 28 b2 28 28 70 6f 73 25 2a |0+210*.(.((pos%*|
00002b60 32 37 2e 37 29 2d 31 33 2e 38 35 29 29 3b 36 30 |27.7)-13.85));60|
00002b70 30 2b 32 31 30 2a b5 28 b2 28 28 70 6f 73 25 2a |0+210*.(.((pos%*|
00002b80 32 37 2e 37 29 2d 31 33 2e 38 35 29 29 3b 0d 01 |27.7)-13.85));..|
00002b90 59 4d 20 ef 32 35 2c 31 36 36 2c 33 33 30 2b 32 |YM .25,166,330+2|
00002ba0 31 30 2a 9b 28 b2 28 28 70 6f 73 25 2a 32 37 2e |10*.(.((pos%*27.|
00002bb0 37 29 2b 31 33 2e 38 35 29 29 3b 36 30 30 2b 32 |7)+13.85));600+2|
00002bc0 31 30 2a b5 28 b2 28 28 70 6f 73 25 2a 32 37 2e |10*.(.((pos%*27.|
00002bd0 37 29 2b 31 33 2e 38 35 29 29 3b 0d 01 5a 13 20 |7)+13.85));..Z. |
00002be0 ef 32 35 2c 34 2c 33 33 30 3b 36 30 30 3b 0d 01 |.25,4,330;600;..|
00002bf0 5b 49 20 ef 32 35 2c 34 2c 33 33 30 2b 38 30 2a |[I .25,4,330+80*|
00002c00 9b 28 b2 28 28 70 6f 73 25 2a 32 37 2e 37 29 2d |.(.((pos%*27.7)-|
00002c10 31 33 2e 38 35 29 29 3b 36 30 30 2b 38 30 2a b5 |13.85));600+80*.|
00002c20 28 b2 28 28 70 6f 73 25 2a 32 37 2e 37 29 2d 31 |(.((pos%*27.7)-1|
00002c30 33 2e 38 35 29 29 3b 0d 01 5c 4b 20 ef 32 35 2c |3.85));..\K .25,|
00002c40 31 36 36 2c 33 33 30 2b 38 30 2a 9b 28 b2 28 28 |166,330+80*.(.((|
00002c50 70 6f 73 25 2a 32 37 2e 37 29 2b 31 33 2e 38 35 |pos%*27.7)+13.85|
00002c60 29 29 3b 36 30 30 2b 38 30 2a b5 28 b2 28 28 70 |));600+80*.(.((p|
00002c70 6f 73 25 2a 32 37 2e 37 29 2b 31 33 2e 38 35 29 |os%*27.7)+13.85)|
00002c80 29 3b 0d 01 5d 4b 20 ef 32 35 2c 36 2c 33 33 30 |);..]K .25,6,330|
00002c90 2b 32 31 30 2a 9b 28 b2 28 28 70 6f 73 25 2a 32 |+210*.(.((pos%*2|
00002ca0 37 2e 37 29 2b 31 33 2e 38 35 29 29 3b 36 30 30 |7.7)+13.85));600|
00002cb0 2b 32 31 30 2a b5 28 b2 28 28 70 6f 73 25 2a 32 |+210*.(.((pos%*2|
00002cc0 37 2e 37 29 2b 31 33 2e 38 35 29 29 3b 0d 01 5e |7.7)+13.85));..^|
00002cd0 49 20 ef 32 35 2c 34 2c 33 33 30 2b 38 30 2a 9b |I .25,4,330+80*.|
00002ce0 28 b2 28 28 70 6f 73 25 2a 32 37 2e 37 29 2d 31 |(.((pos%*27.7)-1|
00002cf0 33 2e 38 35 29 29 3b 36 30 30 2b 38 30 2a b5 28 |3.85));600+80*.(|
00002d00 b2 28 28 70 6f 73 25 2a 32 37 2e 37 29 2d 31 33 |.((pos%*27.7)-13|
00002d10 2e 38 35 29 29 3b 0d 01 5f 4b 20 ef 32 35 2c 36 |.85));.._K .25,6|
00002d20 2c 33 33 30 2b 32 31 30 2a 9b 28 b2 28 28 70 6f |,330+210*.(.((po|
00002d30 73 25 2a 32 37 2e 37 29 2d 31 33 2e 38 35 29 29 |s%*27.7)-13.85))|
00002d40 3b 36 30 30 2b 32 31 30 2a b5 28 b2 28 28 70 6f |;600+210*.(.((po|
00002d50 73 25 2a 32 37 2e 37 29 2d 31 33 2e 38 35 29 29 |s%*27.7)-13.85))|
00002d60 3b 0d 01 60 05 cc 0d 01 61 13 20 ef 32 35 2c 34 |;..`....a. .25,4|
00002d70 2c 33 33 30 3b 36 30 30 3b 0d 01 62 49 20 ef 32 |,330;600;..bI .2|
00002d80 35 2c 34 2c 33 33 30 2b 32 31 30 2a 9b 28 b2 28 |5,4,330+210*.(.(|
00002d90 28 70 6f 73 25 2a 32 37 2e 37 29 2d 32 37 2e 37 |(pos%*27.7)-27.7|
00002da0 29 29 3b 36 30 30 2b 32 31 30 2a b5 28 b2 28 28 |));600+210*.(.((|
00002db0 70 6f 73 25 2a 32 37 2e 37 29 2d 32 37 2e 37 29 |pos%*27.7)-27.7)|
00002dc0 29 3b 0d 01 63 45 20 ef 32 35 2c 31 36 36 2c 33 |);..cE .25,166,3|
00002dd0 33 30 2b 32 31 30 2a 9b 28 b2 28 28 70 6f 73 25 |30+210*.(.((pos%|
00002de0 2a 32 37 2e 37 29 2b 30 29 29 3b 36 30 30 2b 32 |*27.7)+0));600+2|
00002df0 31 30 2a b5 28 b2 28 28 70 6f 73 25 2a 32 37 2e |10*.(.((pos%*27.|
00002e00 37 29 2b 30 29 29 3b 0d 01 64 13 20 ef 32 35 2c |7)+0));..d. .25,|
00002e10 34 2c 33 33 30 3b 36 30 30 3b 0d 01 65 47 20 ef |4,330;600;..eG .|
00002e20 32 35 2c 34 2c 33 33 30 2b 38 30 2a 9b 28 b2 28 |25,4,330+80*.(.(|
00002e30 28 70 6f 73 25 2a 32 37 2e 37 29 2d 32 37 2e 37 |(pos%*27.7)-27.7|
00002e40 29 29 3b 36 30 30 2b 38 30 2a b5 28 b2 28 28 70 |));600+80*.(.((p|
00002e50 6f 73 25 2a 32 37 2e 37 29 2d 32 37 2e 37 29 29 |os%*27.7)-27.7))|
00002e60 3b 0d 01 66 43 20 ef 32 35 2c 31 36 36 2c 33 33 |;..fC .25,166,33|
00002e70 30 2b 38 30 2a 9b 28 b2 28 28 70 6f 73 25 2a 32 |0+80*.(.((pos%*2|
00002e80 37 2e 37 29 2b 30 29 29 3b 36 30 30 2b 38 30 2a |7.7)+0));600+80*|
00002e90 b5 28 b2 28 28 70 6f 73 25 2a 32 37 2e 37 29 2b |.(.((pos%*27.7)+|
00002ea0 30 29 29 3b 0d 01 67 43 20 ef 32 35 2c 36 2c 33 |0));..gC .25,6,3|
00002eb0 33 30 2b 32 31 30 2a 9b 28 b2 28 28 70 6f 73 25 |30+210*.(.((pos%|
00002ec0 2a 32 37 2e 37 29 2b 30 29 29 3b 36 30 30 2b 32 |*27.7)+0));600+2|
00002ed0 31 30 2a b5 28 b2 28 28 70 6f 73 25 2a 32 37 2e |10*.(.((pos%*27.|
00002ee0 37 29 2b 30 29 29 3b 0d 01 68 47 20 ef 32 35 2c |7)+0));..hG .25,|
00002ef0 34 2c 33 33 30 2b 38 30 2a 9b 28 b2 28 28 70 6f |4,330+80*.(.((po|
00002f00 73 25 2a 32 37 2e 37 29 2d 32 37 2e 37 29 29 3b |s%*27.7)-27.7));|
00002f10 36 30 30 2b 38 30 2a b5 28 b2 28 28 70 6f 73 25 |600+80*.(.((pos%|
00002f20 2a 32 37 2e 37 29 2d 32 37 2e 37 29 29 3b 0d 01 |*27.7)-27.7));..|
00002f30 69 49 20 ef 32 35 2c 36 2c 33 33 30 2b 32 31 30 |iI .25,6,330+210|
00002f40 2a 9b 28 b2 28 28 70 6f 73 25 2a 32 37 2e 37 29 |*.(.((pos%*27.7)|
00002f50 2d 32 37 2e 37 29 29 3b 36 30 30 2b 32 31 30 2a |-27.7));600+210*|
00002f60 b5 28 b2 28 28 70 6f 73 25 2a 32 37 2e 37 29 2d |.(.((pos%*27.7)-|
00002f70 32 37 2e 37 29 29 3b 0d 01 6a 05 cd 0d 01 6b 05 |27.7));..j....k.|
00002f80 e1 0d 01 6c 04 0d 01 6d 1e dd 20 f2 73 68 6f 77 |...l...m.. .show|
00002f90 5f 73 79 6d 62 5f 63 68 28 73 63 72 25 2c 70 6f |_symb_ch(scr%,po|
00002fa0 73 25 29 0d 01 6e 19 c8 99 20 22 4f 53 5f 42 79 |s%)..n... "OS_By|
00002fb0 74 65 22 2c 31 31 32 2c 73 63 72 25 0d 01 6f 0e |te",112,scr%..o.|
00002fc0 e7 20 73 63 72 25 3d 31 20 8c 0d 01 70 13 20 ef |. scr%=1 ...p. .|
00002fd0 32 35 2c 34 2c 38 37 32 3b 36 30 34 3b 0d 01 71 |25,4,872;604;..q|
00002fe0 3f 20 ef 32 35 2c 34 2c 38 37 32 2d 32 38 38 2a |? .25,4,872-288*|
00002ff0 9b 28 b2 28 28 70 6f 73 25 2a 31 38 29 2b 39 29 |.(.((pos%*18)+9)|
00003000 29 3b 36 30 34 2b 32 38 38 2a b5 28 b2 28 28 70 |);604+288*.(.((p|
00003010 6f 73 25 2a 31 38 29 2b 39 29 29 3b 0d 01 72 41 |os%*18)+9));..rA|
00003020 20 ef 32 35 2c 31 36 36 2c 38 37 32 2d 32 38 38 | .25,166,872-288|
00003030 2a 9b 28 b2 28 28 70 6f 73 25 2a 31 38 29 2d 39 |*.(.((pos%*18)-9|
00003040 29 29 3b 36 30 34 2b 32 38 38 2a b5 28 b2 28 28 |));604+288*.(.((|
00003050 70 6f 73 25 2a 31 38 29 2d 39 29 29 3b 0d 01 73 |pos%*18)-9));..s|
00003060 13 20 ef 32 35 2c 34 2c 38 37 32 3b 36 30 34 3b |. .25,4,872;604;|
00003070 0d 01 74 3f 20 ef 32 35 2c 34 2c 38 37 32 2d 32 |..t? .25,4,872-2|
00003080 30 34 2a 9b 28 b2 28 28 70 6f 73 25 2a 31 38 29 |04*.(.((pos%*18)|
00003090 2b 39 29 29 3b 36 30 34 2b 32 30 34 2a b5 28 b2 |+9));604+204*.(.|
000030a0 28 28 70 6f 73 25 2a 31 38 29 2b 39 29 29 3b 0d |((pos%*18)+9));.|
000030b0 01 75 41 20 ef 32 35 2c 31 36 36 2c 38 37 32 2d |.uA .25,166,872-|
000030c0 32 30 34 2a 9b 28 b2 28 28 70 6f 73 25 2a 31 38 |204*.(.((pos%*18|
000030d0 29 2d 39 29 29 3b 36 30 34 2b 32 30 34 2a b5 28 |)-9));604+204*.(|
000030e0 b2 28 28 70 6f 73 25 2a 31 38 29 2d 39 29 29 3b |.((pos%*18)-9));|
000030f0 0d 01 76 3f 20 ef 32 35 2c 36 2c 38 37 32 2d 32 |..v? .25,6,872-2|
00003100 38 38 2a 9b 28 b2 28 28 70 6f 73 25 2a 31 38 29 |88*.(.((pos%*18)|
00003110 2d 39 29 29 3b 36 30 34 2b 32 38 38 2a b5 28 b2 |-9));604+288*.(.|
00003120 28 28 70 6f 73 25 2a 31 38 29 2d 39 29 29 3b 0d |((pos%*18)-9));.|
00003130 01 77 3f 20 ef 32 35 2c 34 2c 38 37 32 2d 32 30 |.w? .25,4,872-20|
00003140 34 2a 9b 28 b2 28 28 70 6f 73 25 2a 31 38 29 2b |4*.(.((pos%*18)+|
00003150 39 29 29 3b 36 30 34 2b 32 30 34 2a b5 28 b2 28 |9));604+204*.(.(|
00003160 28 70 6f 73 25 2a 31 38 29 2b 39 29 29 3b 0d 01 |(pos%*18)+9));..|
00003170 78 3f 20 ef 32 35 2c 36 2c 38 37 32 2d 32 38 38 |x? .25,6,872-288|
00003180 2a 9b 28 b2 28 28 70 6f 73 25 2a 31 38 29 2b 39 |*.(.((pos%*18)+9|
00003190 29 29 3b 36 30 34 2b 32 38 38 2a b5 28 b2 28 28 |));604+288*.(.((|
000031a0 70 6f 73 25 2a 31 38 29 2b 39 29 29 3b 0d 01 79 |pos%*18)+9));..y|
000031b0 05 cc 0d 01 7a 13 20 ef 32 35 2c 34 2c 38 37 32 |....z. .25,4,872|
000031c0 3b 36 30 34 3b 0d 01 7b 3f 20 ef 32 35 2c 34 2c |;604;..{? .25,4,|
000031d0 38 37 32 2d 32 38 38 2a 9b 28 b2 28 28 70 6f 73 |872-288*.(.((pos|
000031e0 25 2a 31 38 29 2b 30 29 29 3b 36 30 34 2b 32 38 |%*18)+0));604+28|
000031f0 38 2a b5 28 b2 28 28 70 6f 73 25 2a 31 38 29 2b |8*.(.((pos%*18)+|
00003200 30 29 29 3b 0d 01 7c 43 20 ef 32 35 2c 31 36 36 |0));..|C .25,166|
00003210 2c 38 37 32 2d 32 38 38 2a 9b 28 b2 28 28 70 6f |,872-288*.(.((po|
00003220 73 25 2a 31 38 29 2d 31 38 29 29 3b 36 30 34 2b |s%*18)-18));604+|
00003230 32 38 38 2a b5 28 b2 28 28 70 6f 73 25 2a 31 38 |288*.(.((pos%*18|
00003240 29 2d 31 38 29 29 3b 0d 01 7d 13 20 ef 32 35 2c |)-18));..}. .25,|
00003250 34 2c 38 37 32 3b 36 30 34 3b 0d 01 7e 3f 20 ef |4,872;604;..~? .|
00003260 32 35 2c 34 2c 38 37 32 2d 32 30 34 2a 9b 28 b2 |25,4,872-204*.(.|
00003270 28 28 70 6f 73 25 2a 31 38 29 2b 30 29 29 3b 36 |((pos%*18)+0));6|
00003280 30 34 2b 32 30 34 2a b5 28 b2 28 28 70 6f 73 25 |04+204*.(.((pos%|
00003290 2a 31 38 29 2b 30 29 29 3b 0d 01 7f 43 20 ef 32 |*18)+0));...C .2|
000032a0 35 2c 31 36 36 2c 38 37 32 2d 32 30 34 2a 9b 28 |5,166,872-204*.(|
000032b0 b2 28 28 70 6f 73 25 2a 31 38 29 2d 31 38 29 29 |.((pos%*18)-18))|
000032c0 3b 36 30 34 2b 32 30 34 2a b5 28 b2 28 28 70 6f |;604+204*.(.((po|
000032d0 73 25 2a 31 38 29 2d 31 38 29 29 3b 0d 01 80 41 |s%*18)-18));...A|
000032e0 20 ef 32 35 2c 36 2c 38 37 32 2d 32 38 38 2a 9b | .25,6,872-288*.|
000032f0 28 b2 28 28 70 6f 73 25 2a 31 38 29 2d 31 38 29 |(.((pos%*18)-18)|
00003300 29 3b 36 30 34 2b 32 38 38 2a b5 28 b2 28 28 70 |);604+288*.(.((p|
00003310 6f 73 25 2a 31 38 29 2d 31 38 29 29 3b 0d 01 81 |os%*18)-18));...|
00003320 3f 20 ef 32 35 2c 34 2c 38 37 32 2d 32 30 34 2a |? .25,4,872-204*|
00003330 9b 28 b2 28 28 70 6f 73 25 2a 31 38 29 2b 30 29 |.(.((pos%*18)+0)|
00003340 29 3b 36 30 34 2b 32 30 34 2a b5 28 b2 28 28 70 |);604+204*.(.((p|
00003350 6f 73 25 2a 31 38 29 2b 30 29 29 3b 0d 01 82 3f |os%*18)+0));...?|
00003360 20 ef 32 35 2c 36 2c 38 37 32 2d 32 38 38 2a 9b | .25,6,872-288*.|
00003370 28 b2 28 28 70 6f 73 25 2a 31 38 29 2b 30 29 29 |(.((pos%*18)+0))|
00003380 3b 36 30 34 2b 32 38 38 2a b5 28 b2 28 28 70 6f |;604+288*.(.((po|
00003390 73 25 2a 31 38 29 2b 30 29 29 3b 0d 01 83 05 cd |s%*18)+0));.....|
000033a0 0d 01 84 05 e1 0d 01 85 04 0d 01 86 11 dd 20 f2 |.............. .|
000033b0 73 68 6f 77 5f 31 63 72 6f 63 0d 01 87 15 20 20 |show_1croc.... |
000033c0 e3 20 6b 25 3d 32 20 b8 20 31 20 88 20 2d 31 0d |. k%=2 . 1 . -1.|
000033d0 01 88 1b 20 20 20 20 c8 99 20 22 4f 53 5f 42 79 |... .. "OS_By|
000033e0 74 65 22 2c 31 31 32 2c 6b 25 0d 01 89 2e 20 20 |te",112,k%.... |
000033f0 20 20 f2 62 6f 72 64 65 72 73 28 6c 65 66 74 25 | .borders(left%|
00003400 2c 6c 6f 77 25 2c 6c 65 66 74 25 2b 33 38 34 2c |,low%,left%+384,|
00003410 6c 6f 77 25 2b 37 32 29 0d 01 8a 15 20 20 20 20 |low%+72).... |
00003420 f2 77 72 69 74 65 5f 64 61 79 28 31 29 0d 01 8b |.write_day(1)...|
00003430 07 20 20 ed 0d 01 8c 0a 20 20 e7 50 25 8c 0d 01 |. ..... .P%...|
00003440 8d 43 20 20 f2 77 6f 72 64 73 28 37 30 2c 31 35 |.C .words(70,15|
00003450 30 2c 2d 31 2c 22 54 68 65 20 66 69 72 73 74 20 |0,-1,"The first |
00003460 64 61 79 20 6f 66 20 74 68 65 20 73 61 63 72 65 |day of the sacre|
00003470 64 20 63 61 6c 65 6e 64 61 72 20 79 65 61 72 22 |d calendar year"|
00003480 29 0d 01 8e 28 20 20 f2 77 6f 72 64 73 28 37 30 |)...( .words(70|
00003490 2c 39 30 2c 2d 31 2c 22 69 73 20 31 2d 63 72 6f |,90,-1,"is 1-cro|
000034a0 63 6f 64 69 6c 65 2e 22 29 0d 01 8f 07 20 20 cc |codile.").... .|
000034b0 0d 01 90 43 20 20 f2 77 6f 72 64 73 28 37 30 2c |...C .words(70,|
000034c0 31 33 34 2c 2d 31 2c 22 54 68 65 20 66 69 72 73 |134,-1,"The firs|
000034d0 74 20 64 61 79 20 6f 66 20 74 68 65 20 79 65 61 |t day of the yea|
000034e0 72 20 69 73 20 31 2d 63 72 6f 63 6f 64 69 6c 65 |r is 1-crocodile|
000034f0 2e 22 29 0d 01 91 07 20 20 cd 0d 01 92 05 e1 0d |.").... .......|
00003500 01 93 04 0d 01 94 0f dd 20 f2 63 61 6c 5f 6d 6f |........ .cal_mo|
00003510 76 65 0d 01 95 0f 20 20 64 61 79 5f 6e 6f 25 3d |ve.... day_no%=|
00003520 31 0d 01 96 0c 20 20 f2 67 6f 5f 6f 6e 0d 01 97 |1.... .go_on...|
00003530 07 20 20 f5 0d 01 98 1a 20 20 20 20 c8 99 20 22 |. ..... .. "|
00003540 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 32 0d 01 |OS_Byte",113,2..|
00003550 99 1a 20 20 20 20 f2 63 61 6c 5f 72 6f 74 61 74 |.. .cal_rotat|
00003560 65 28 31 2c 30 2c a3 29 0d 01 9a 1a 20 20 20 20 |e(1,0,.).... |
00003570 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 |.. "OS_Byte",113|
00003580 2c 31 0d 01 9b 41 20 20 20 20 e7 20 64 61 79 5f |,1...A . day_|
00003590 6e 6f 25 3d 31 20 f2 77 6f 72 64 73 28 37 30 2c |no%=1 .words(70,|
000035a0 31 33 34 2c 2d 31 2c 22 54 68 65 20 73 65 63 6f |134,-1,"The seco|
000035b0 6e 64 20 64 61 79 20 69 73 20 32 2d 77 69 6e 64 |nd day is 2-wind|
000035c0 2e 22 29 0d 01 9c 15 20 20 20 20 e7 20 64 61 79 |.").... . day|
000035d0 5f 6e 6f 25 3d 32 20 8c 0d 01 9d 37 20 20 20 20 |_no%=2 ....7 |
000035e0 20 20 f2 77 6f 72 64 73 28 37 30 2c 31 33 34 2c | .words(70,134,|
000035f0 2d 31 2c 22 54 68 65 20 74 68 69 72 64 20 64 61 |-1,"The third da|
00003600 79 20 69 73 20 33 2d 68 6f 75 73 65 2e 22 29 0d |y is 3-house.").|
00003610 01 9e 09 20 20 20 20 cd 0d 01 9f 1a 20 20 20 20 |... ..... |
00003620 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 |.. "OS_Byte",112|
00003630 2c 32 0d 01 a0 1a 20 20 20 20 f2 63 61 6c 5f 72 |,2.... .cal_r|
00003640 6f 74 61 74 65 28 32 2c 30 2c a3 29 0d 01 a1 1a |otate(2,0,.)....|
00003650 20 20 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 | .. "OS_Byte"|
00003660 2c 31 31 32 2c 31 0d 01 a2 19 20 20 20 20 64 61 |,112,1.... da|
00003670 79 5f 6e 6f 25 3d 64 61 79 5f 6e 6f 25 2b 31 0d |y_no%=day_no%+1.|
00003680 01 a3 0e 20 20 20 20 f2 67 6f 5f 6f 6e 0d 01 a4 |... .go_on...|
00003690 11 20 20 fd 20 64 61 79 5f 6e 6f 25 3d 33 0d 01 |. . day_no%=3..|
000036a0 a5 05 e1 0d 01 a6 04 0d 01 a7 23 dd 20 f2 63 61 |..........#. .ca|
000036b0 6c 5f 72 6f 74 61 74 65 28 73 63 72 25 2c 77 72 |l_rotate(scr%,wr|
000036c0 69 74 25 2c 73 68 6f 77 25 29 0d 01 a8 26 20 20 |it%,show%)...& |
000036d0 f4 20 73 63 72 20 61 6c 73 6f 20 64 65 66 69 6e |. scr also defin|
000036e0 65 73 20 63 6f 67 20 28 31 3d 31 2c 32 3d 32 29 |es cog (1=1,2=2)|
000036f0 0d 01 a9 0d 20 20 e7 73 68 6f 77 25 8c 0d 01 aa |.... .show%....|
00003700 62 20 20 20 e7 20 73 63 72 25 3d 31 20 f2 73 68 |b . scr%=1 .sh|
00003710 6f 77 5f 64 6f 74 5f 63 68 28 31 2c 64 6f 74 5f |ow_dot_ch(1,dot_|
00003720 63 68 31 25 83 31 33 29 3a 64 6f 74 5f 63 68 31 |ch1%.13):dot_ch1|
00003730 25 2d 3d 31 3a f2 73 68 6f 77 5f 73 79 6d 62 5f |%-=1:.show_symb_|
00003740 63 68 28 31 2c 73 79 6d 62 5f 63 68 31 25 83 32 |ch(1,symb_ch1%.2|
00003750 30 29 3a 73 79 6d 62 5f 63 68 31 25 2d 3d 31 0d |0):symb_ch1%-=1.|
00003760 01 ab 62 20 20 20 e7 20 73 63 72 25 3d 32 20 f2 |..b . scr%=2 .|
00003770 73 68 6f 77 5f 64 6f 74 5f 63 68 28 32 2c 64 6f |show_dot_ch(2,do|
00003780 74 5f 63 68 32 25 83 31 33 29 3a 64 6f 74 5f 63 |t_ch2%.13):dot_c|
00003790 68 32 25 2d 3d 31 3a f2 73 68 6f 77 5f 73 79 6d |h2%-=1:.show_sym|
000037a0 62 5f 63 68 28 32 2c 73 79 6d 62 5f 63 68 32 25 |b_ch(2,symb_ch2%|
000037b0 83 32 30 29 3a 73 79 6d 62 5f 63 68 32 25 2d 3d |.20):symb_ch2%-=|
000037c0 31 0d 01 ac 07 20 20 cd 0d 01 ad 10 20 20 e7 20 |1.... ..... . |
000037d0 73 63 72 25 3d 31 20 8c 0d 01 ae 21 20 20 20 20 |scr%=1 ....! |
000037e0 f2 64 6f 74 73 5f 6d 6f 76 65 28 73 63 72 25 2c |.dots_move(scr%,|
000037f0 64 6f 74 73 31 25 28 29 29 0d 01 af 07 20 20 cc |dots1%()).... .|
00003800 0d 01 b0 21 20 20 20 20 f2 64 6f 74 73 5f 6d 6f |...! .dots_mo|
00003810 76 65 28 73 63 72 25 2c 64 6f 74 73 32 25 28 29 |ve(scr%,dots2%()|
00003820 29 0d 01 b1 07 20 20 cd 0d 01 b2 21 20 20 f4 20 |).... ....! . |
00003830 50 52 4f 43 73 79 6d 62 5f 62 6c 61 6e 6b 28 73 |PROCsymb_blank(s|
00003840 63 72 25 2c 73 63 72 25 29 0d 01 b3 26 20 20 f2 |cr%,scr%)...& .|
00003850 73 79 6d 62 5f 63 69 72 63 28 73 63 72 25 2c 64 |symb_circ(scr%,d|
00003860 61 79 5f 6e 6f 25 83 32 30 2c 73 63 72 25 29 0d |ay_no%.20,scr%).|
00003870 01 b4 0d 20 20 e7 73 68 6f 77 25 8c 0d 01 b5 49 |... .show%....I|
00003880 20 20 20 e7 20 73 63 72 25 3d 31 20 f2 73 68 6f | . scr%=1 .sho|
00003890 77 5f 64 6f 74 5f 63 68 28 31 2c 64 6f 74 5f 63 |w_dot_ch(1,dot_c|
000038a0 68 31 25 83 31 33 29 3a f2 73 68 6f 77 5f 73 79 |h1%.13):.show_sy|
000038b0 6d 62 5f 63 68 28 31 2c 73 79 6d 62 5f 63 68 31 |mb_ch(1,symb_ch1|
000038c0 25 83 32 30 29 0d 01 b6 49 20 20 20 e7 20 73 63 |%.20)...I . sc|
000038d0 72 25 3d 32 20 f2 73 68 6f 77 5f 64 6f 74 5f 63 |r%=2 .show_dot_c|
000038e0 68 28 32 2c 64 6f 74 5f 63 68 32 25 83 31 33 29 |h(2,dot_ch2%.13)|
000038f0 3a f2 73 68 6f 77 5f 73 79 6d 62 5f 63 68 28 32 |:.show_symb_ch(2|
00003900 2c 73 79 6d 62 5f 63 68 32 25 83 32 30 29 0d 01 |,symb_ch2%.20)..|
00003910 b7 07 20 20 cd 0d 01 b8 22 20 20 f2 64 6f 74 73 |.. ...." .dots|
00003920 5f 63 65 6e 74 72 65 28 28 64 61 79 5f 6e 6f 25 |_centre((day_no%|
00003930 83 31 33 29 2b 31 29 0d 01 b9 1e 20 20 f2 73 79 |.13)+1).... .sy|
00003940 6d 62 5f 63 65 6e 74 72 65 28 64 61 79 5f 6e 6f |mb_centre(day_no|
00003950 25 83 32 30 29 0d 01 ba 4a 20 20 e7 20 77 72 69 |%.20)...J . wri|
00003960 74 25 3d 30 20 3a 20 f2 77 72 69 74 65 5f 64 61 |t%=0 : .write_da|
00003970 79 28 64 61 79 5f 6e 6f 25 2b 31 29 20 3a 20 8b |y(day_no%+1) : .|
00003980 20 3a 20 f2 77 72 69 74 65 5f 64 61 79 73 5f 74 | : .write_days_t|
00003990 69 6d 65 28 64 61 79 73 5f 74 69 6d 65 25 29 0d |ime(days_time%).|
000039a0 01 bb 05 e1 0d 01 bc 04 0d 01 bd 14 dd 20 f2 70 |............. .p|
000039b0 72 6f 62 5f 6e 65 78 74 5f 64 61 79 0d 01 be 17 |rob_next_day....|
000039c0 20 20 61 6e 73 25 3d 34 20 3a 20 74 6f 64 61 79 | ans%=4 : today|
000039d0 25 3d 33 0d 01 bf 25 20 20 f2 62 6f 72 64 65 72 |%=3...% .border|
000039e0 5f 63 65 6e 74 72 65 28 32 38 32 2c 35 35 36 2c |_centre(282,556,|
000039f0 33 37 38 2c 36 35 32 29 0d 01 c0 25 20 20 f2 62 |378,652)...% .b|
00003a00 6f 72 64 65 72 5f 63 65 6e 74 72 65 28 37 35 32 |order_centre(752|
00003a10 2c 34 38 34 2c 39 39 32 2c 37 32 34 29 0d 01 c1 |,484,992,724)...|
00003a20 14 20 20 f2 67 65 74 5f 63 68 6f 69 63 65 28 31 |. .get_choice(1|
00003a30 29 0d 01 c2 25 20 20 f2 64 6f 74 73 5f 63 65 6e |)...% .dots_cen|
00003a40 74 72 65 28 28 28 74 6f 64 61 79 25 2d 31 29 83 |tre(((today%-1).|
00003a50 31 33 29 2b 31 29 0d 01 c3 21 20 20 f2 73 79 6d |13)+1)...! .sym|
00003a60 62 5f 63 65 6e 74 72 65 28 28 74 6f 64 61 79 25 |b_centre((today%|
00003a70 2d 31 29 83 32 30 29 0d 01 c4 2f 20 20 f2 77 6f |-1).20).../ .wo|
00003a80 72 64 73 28 37 30 2c 31 33 34 2c 2d 31 2c 22 53 |rds(70,134,-1,"S|
00003a90 65 65 20 69 66 20 79 6f 75 20 61 72 65 20 72 69 |ee if you are ri|
00003aa0 67 68 74 2e 22 29 0d 01 c5 0c 20 20 f2 67 6f 5f |ght.").... .go_|
00003ab0 6f 6e 0d 01 c6 14 20 20 64 61 79 5f 6e 6f 25 3d |on.... day_no%=|
00003ac0 74 6f 64 61 79 25 0d 01 c7 15 20 20 e3 20 70 25 |today%.... . p%|
00003ad0 3d 32 20 b8 20 31 20 88 20 2d 31 0d 01 c8 1b 20 |=2 . 1 . -1.... |
00003ae0 20 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c | .. "OS_Byte",|
00003af0 31 31 33 2c 70 25 0d 01 c9 1d 20 20 20 20 f2 63 |113,p%.... .c|
00003b00 61 6c 5f 72 6f 74 61 74 65 28 33 2d 70 25 2c 30 |al_rotate(3-p%,0|
00003b10 2c b9 29 0d 01 ca 07 20 20 ed 0d 01 cb 18 20 20 |,.).... ..... |
00003b20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 |.. "OS_Byte",112|
00003b30 2c 31 0d 01 cc 3e 20 20 e7 20 28 64 6f 74 5f 61 |,1...> . (dot_a|
00003b40 6e 73 25 3d 28 28 61 6e 73 25 2d 31 29 83 31 33 |ns%=((ans%-1).13|
00003b50 29 2b 31 29 20 80 20 28 73 79 6d 62 5f 61 6e 73 |)+1) . (symb_ans|
00003b60 25 3d 28 61 6e 73 25 2d 31 29 83 32 30 29 20 8c |%=(ans%-1).20) .|
00003b70 0d 01 cd 33 20 20 20 20 f2 77 6f 72 64 73 28 37 |...3 .words(7|
00003b80 30 2c 31 33 34 2c 2d 31 2c 22 47 6f 6f 64 2e 20 |0,134,-1,"Good. |
00003b90 20 54 72 79 20 61 6e 6f 74 68 65 72 20 6f 6e 65 | Try another one|
00003ba0 2e 22 29 0d 01 ce 07 20 20 cc 0d 01 cf 43 20 20 |.").... ....C |
00003bb0 20 20 f2 77 6f 72 64 73 28 37 30 2c 31 35 30 2c | .words(70,150,|
00003bc0 2d 31 2c 22 48 61 72 64 20 6c 75 63 6b 2e 20 20 |-1,"Hard luck. |
00003bd0 54 68 65 20 66 6f 75 72 74 68 20 64 61 79 20 69 |The fourth day i|
00003be0 73 20 34 2d 6c 69 7a 61 72 64 2e 22 29 0d 01 d0 |s 4-lizard.")...|
00003bf0 2b 20 20 20 20 f2 77 6f 72 64 73 28 37 30 2c 39 |+ .words(70,9|
00003c00 30 2c 2d 31 2c 22 54 72 79 20 61 6e 6f 74 68 65 |0,-1,"Try anothe|
00003c10 72 20 6f 6e 65 2e 22 29 0d 01 d1 07 20 20 cd 0d |r one.").... ..|
00003c20 01 d2 0c 20 20 f2 67 6f 5f 6f 6e 0d 01 d3 79 20 |... .go_on...y |
00003c30 20 f2 73 68 6f 77 5f 64 6f 74 5f 63 68 28 32 2c | .show_dot_ch(2,|
00003c40 64 6f 74 5f 63 68 32 25 83 31 33 29 3a f2 73 68 |dot_ch2%.13):.sh|
00003c50 6f 77 5f 73 79 6d 62 5f 63 68 28 32 2c 73 79 6d |ow_symb_ch(2,sym|
00003c60 62 5f 63 68 32 25 83 32 30 29 3a f2 73 68 6f 77 |b_ch2%.20):.show|
00003c70 5f 64 6f 74 5f 63 68 28 31 2c 64 6f 74 5f 63 68 |_dot_ch(1,dot_ch|
00003c80 31 25 83 31 33 29 3a f2 73 68 6f 77 5f 73 79 6d |1%.13):.show_sym|
00003c90 62 5f 63 68 28 31 2c 73 79 6d 62 5f 63 68 31 25 |b_ch(1,symb_ch1%|
00003ca0 83 32 30 29 0d 01 d4 05 e1 0d 01 d5 04 0d 01 d6 |.20)............|
00003cb0 1a dd 20 f2 70 72 6f 62 5f 64 61 79 73 5f 74 69 |.. .prob_days_ti|
00003cc0 6d 65 28 67 6f 25 29 0d 01 d7 18 20 20 6f 6b 25 |me(go%).... ok%|
00003cd0 3d 30 20 3a 20 6f 6c 64 5f 61 6e 73 25 3d 30 0d |=0 : old_ans%=0.|
00003ce0 01 d8 07 20 20 f5 0d 01 d9 2e 20 20 20 20 e7 20 |... ..... . |
00003cf0 67 6f 25 3d 31 20 3a 20 74 6f 64 61 79 25 3d 34 |go%=1 : today%=4|
00003d00 20 3a 20 8b 20 3a 20 74 6f 64 61 79 25 3d b3 28 | : . : today%=.(|
00003d10 32 35 30 29 0d 01 da 09 20 20 20 20 f5 0d 01 db |250).... ....|
00003d20 27 20 20 20 20 20 61 6e 73 25 3d 74 6f 64 61 79 |' ans%=today|
00003d30 25 2b 31 2b 28 34 2a 28 67 6f 25 2d 31 29 29 2b |%+1+(4*(go%-1))+|
00003d40 b3 28 34 29 0d 01 dc 3c 20 20 20 20 fd 20 28 61 |.(4)...< . (a|
00003d50 6e 73 25 3c 3e 6f 6c 64 5f 61 6e 73 25 29 20 80 |ns%<>old_ans%) .|
00003d60 20 28 28 61 6e 73 25 83 32 30 29 3c 3e 30 29 20 | ((ans%.20)<>0) |
00003d70 80 20 28 28 61 6e 73 25 83 31 33 29 3c 3e 30 29 |. ((ans%.13)<>0)|
00003d80 0d 01 dd 15 20 20 20 20 6f 6c 64 5f 61 6e 73 25 |.... old_ans%|
00003d90 3d 61 6e 73 25 0d 01 de 17 20 20 20 20 e3 20 70 |=ans%.... . p|
00003da0 25 3d 32 20 b8 20 31 20 88 20 2d 31 0d 01 df 1c |%=2 . 1 . -1....|
00003db0 20 20 20 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 | .. "OS_Byte|
00003dc0 22 2c 31 31 32 2c 70 25 0d 01 e0 19 20 20 20 20 |",112,p%.... |
00003dd0 20 f2 63 61 6c 5f 62 6c 61 6e 6b 28 70 25 2c 30 | .cal_blank(p%,0|
00003de0 29 0d 01 e1 20 20 20 20 20 20 f2 63 61 6c 5f 73 |)... .cal_s|
00003df0 65 74 75 70 28 70 25 2c 74 6f 64 61 79 25 2c 30 |etup(p%,today%,0|
00003e00 29 0d 01 e2 09 20 20 20 20 ed 0d 01 e3 16 20 20 |).... ..... |
00003e10 20 20 f2 67 65 74 5f 63 68 6f 69 63 65 28 32 29 | .get_choice(2)|
00003e20 0d 01 e4 17 20 20 20 20 e3 20 70 25 3d 32 20 b8 |.... . p%=2 .|
00003e30 20 31 20 88 20 2d 31 0d 01 e5 1c 20 20 20 20 20 | 1 . -1.... |
00003e40 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 |.. "OS_Byte",112|
00003e50 2c 70 25 0d 01 e6 28 20 20 20 20 20 f2 64 6f 74 |,p%...( .dot|
00003e60 73 5f 63 65 6e 74 72 65 28 28 28 74 6f 64 61 79 |s_centre(((today|
00003e70 25 2d 31 29 83 31 33 29 2b 31 29 0d 01 e7 24 20 |%-1).13)+1)...$ |
00003e80 20 20 20 20 f2 73 79 6d 62 5f 63 65 6e 74 72 65 | .symb_centre|
00003e90 28 28 74 6f 64 61 79 25 2d 31 29 83 32 30 29 0d |((today%-1).20).|
00003ea0 01 e8 35 20 20 20 20 20 f2 62 6f 72 64 65 72 5f |..5 .border_|
00003eb0 63 65 6e 74 72 65 28 6c 65 66 74 25 2c 6c 6f 77 |centre(left%,low|
00003ec0 25 2c 6c 65 66 74 25 2b 33 38 34 2c 6c 6f 77 25 |%,left%+384,low%|
00003ed0 2b 37 32 29 0d 01 e9 1c 20 20 20 20 20 f2 77 72 |+72).... .wr|
00003ee0 69 74 65 5f 64 61 79 73 5f 74 69 6d 65 28 30 29 |ite_days_time(0)|
00003ef0 0d 01 ea 09 20 20 20 20 ed 0d 01 eb 31 20 20 20 |.... ....1 |
00003f00 20 f2 77 6f 72 64 73 28 37 30 2c 31 33 34 2c 2d | .words(70,134,-|
00003f10 31 2c 22 53 65 65 20 69 66 20 79 6f 75 20 61 72 |1,"See if you ar|
00003f20 65 20 72 69 67 68 74 2e 22 29 0d 01 ec 0e 20 20 |e right.").... |
00003f30 20 20 f2 67 6f 5f 6f 6e 0d 01 ed 25 20 20 20 20 | .go_on...% |
00003f40 64 61 79 73 5f 74 69 6d 65 25 3d 31 20 3a 20 64 |days_time%=1 : d|
00003f50 61 79 5f 6e 6f 25 3d 74 6f 64 61 79 25 0d 01 ee |ay_no%=today%...|
00003f60 1c 20 20 20 20 e3 20 6d 25 3d 31 20 b8 20 61 6e |. . m%=1 . an|
00003f70 73 25 2d 74 6f 64 61 79 25 0d 01 ef 2d 20 20 20 |s%-today%...- |
00003f80 20 20 20 64 61 79 5f 6e 6f 25 3d 74 6f 64 61 79 | day_no%=today|
00003f90 25 2b 6d 25 2d 31 20 3a 20 64 61 79 73 5f 74 69 |%+m%-1 : days_ti|
00003fa0 6d 65 25 3d 6d 25 0d 01 f0 19 20 20 20 20 20 20 |me%=m%.... |
00003fb0 e3 20 70 25 3d 32 20 b8 20 31 20 88 20 2d 31 0d |. p%=2 . 1 . -1.|
00003fc0 01 f1 1f 20 20 20 20 20 20 20 20 c8 99 20 22 4f |... .. "O|
00003fd0 53 5f 42 79 74 65 22 2c 31 31 33 2c 70 25 0d 01 |S_Byte",113,p%..|
00003fe0 f2 21 20 20 20 20 20 20 20 20 f2 63 61 6c 5f 72 |.! .cal_r|
00003ff0 6f 74 61 74 65 28 33 2d 70 25 2c 31 2c b9 29 0d |otate(3-p%,1,.).|
00004000 01 f3 17 20 20 20 20 20 20 20 20 f4 20 50 52 4f |... . PRO|
00004010 43 64 65 62 75 67 0d 01 f4 0b 20 20 20 20 20 20 |Cdebug.... |
00004020 ed 0d 01 f5 09 20 20 20 20 ed 0d 01 f6 1a 20 20 |..... ..... |
00004030 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 | .. "OS_Byte",1|
00004040 31 32 2c 31 0d 01 f7 12 20 20 20 20 f2 63 6c 65 |12,1.... .cle|
00004050 61 72 74 65 78 74 0d 01 f8 40 20 20 20 20 e7 20 |artext...@ . |
00004060 28 64 6f 74 5f 61 6e 73 25 3d 28 28 61 6e 73 25 |(dot_ans%=((ans%|
00004070 2d 31 29 83 31 33 29 2b 31 29 20 80 20 28 73 79 |-1).13)+1) . (sy|
00004080 6d 62 5f 61 6e 73 25 3d 28 61 6e 73 25 2d 31 29 |mb_ans%=(ans%-1)|
00004090 83 32 30 29 20 8c 0d 01 f9 13 20 20 20 20 20 20 |.20) ..... |
000040a0 e7 20 67 6f 25 3d 31 20 8c 0d 01 fa 3b 20 20 20 |. go%=1 ....; |
000040b0 20 20 20 20 20 f2 77 6f 72 64 73 28 37 30 2c 31 | .words(70,1|
000040c0 33 34 2c 2d 31 2c 22 57 65 6c 6c 20 64 6f 6e 65 |34,-1,"Well done|
000040d0 2e 20 54 72 79 20 61 6e 6f 74 68 65 72 20 6f 6e |. Try another on|
000040e0 65 2e 22 29 0d 01 fb 0b 20 20 20 20 20 20 cc 0d |e.").... ..|
000040f0 01 fc 2a 20 20 20 20 20 20 20 20 f2 77 6f 72 64 |..* .word|
00004100 73 28 37 30 2c 31 33 34 2c 2d 31 2c 22 57 65 6c |s(70,134,-1,"Wel|
00004110 6c 20 64 6f 6e 65 2e 22 29 0d 01 fd 0b 20 20 20 |l done.").... |
00004120 20 20 20 cd 0d 01 fe 0f 20 20 20 20 20 20 6f 6b | ..... ok|
00004130 25 3d 31 0d 01 ff 09 20 20 20 20 cc 0d 02 00 3a |%=1.... ....:|
00004140 20 20 20 20 20 20 f2 77 6f 72 64 73 28 37 30 2c | .words(70,|
00004150 31 33 34 2c 2d 31 2c 22 48 61 72 64 20 6c 75 63 |134,-1,"Hard luc|
00004160 6b 2e 20 20 48 61 76 65 20 61 6e 6f 74 68 65 72 |k. Have another|
00004170 20 67 6f 2e 22 29 0d 02 01 09 20 20 20 20 cd 0d | go.").... ..|
00004180 02 02 0e 20 20 20 20 f2 67 6f 5f 6f 6e 0d 02 03 |... .go_on...|
00004190 7b 20 20 20 20 f2 73 68 6f 77 5f 64 6f 74 5f 63 |{ .show_dot_c|
000041a0 68 28 32 2c 64 6f 74 5f 63 68 32 25 83 31 33 29 |h(2,dot_ch2%.13)|
000041b0 3a f2 73 68 6f 77 5f 73 79 6d 62 5f 63 68 28 32 |:.show_symb_ch(2|
000041c0 2c 73 79 6d 62 5f 63 68 32 25 83 32 30 29 3a f2 |,symb_ch2%.20):.|
000041d0 73 68 6f 77 5f 64 6f 74 5f 63 68 28 31 2c 64 6f |show_dot_ch(1,do|
000041e0 74 5f 63 68 31 25 83 31 33 29 3a f2 73 68 6f 77 |t_ch1%.13):.show|
000041f0 5f 73 79 6d 62 5f 63 68 28 31 2c 73 79 6d 62 5f |_symb_ch(1,symb_|
00004200 63 68 31 25 83 32 30 29 0d 02 04 0d 20 20 fd 20 |ch1%.20).... . |
00004210 6f 6b 25 3d 31 0d 02 05 05 e1 0d 02 06 04 0d 02 |ok%=1...........|
00004220 07 0f dd 20 f2 62 69 72 74 68 64 61 79 0d 02 08 |... .birthday...|
00004230 4c 20 20 f2 77 6f 72 64 73 28 37 30 2c 31 35 30 |L .words(70,150|
00004240 2c 2d 31 2c 22 41 6c 6c 20 41 7a 74 65 63 73 20 |,-1,"All Aztecs |
00004250 68 61 76 65 20 74 77 6f 20 6e 61 6d 65 73 2c 20 |have two names, |
00004260 20 61 20 27 63 6f 6d 6d 6f 6e 27 20 6f 6e 65 20 | a 'common' one |
00004270 61 6e 64 20 74 68 65 22 29 0d 02 09 38 20 20 f2 |and the")...8 .|
00004280 77 6f 72 64 73 28 37 30 2c 39 30 2c 2d 31 2c 22 |words(70,90,-1,"|
00004290 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 61 79 20 |name of the day |
000042a0 74 68 65 79 20 77 65 72 65 20 62 6f 72 6e 2e 22 |they were born."|
000042b0 29 0d 02 0a 0c 20 20 f2 67 6f 5f 6f 6e 0d 02 0b |).... .go_on...|
000042c0 49 20 20 f2 77 6f 72 64 73 28 37 30 2c 31 35 30 |I .words(70,150|
000042d0 2c 2d 31 2c 22 59 6f 75 72 20 41 7a 74 65 63 20 |,-1,"Your Aztec |
000042e0 6e 61 6d 65 20 77 69 6c 6c 20 62 65 20 74 68 65 |name will be the|
000042f0 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 61 79 | name of the day|
00004300 20 79 6f 75 22 29 0d 02 0c 23 20 20 f2 77 6f 72 | you")...# .wor|
00004310 64 73 28 37 30 2c 39 30 2c 2d 31 2c 22 77 65 72 |ds(70,90,-1,"wer|
00004320 65 20 62 6f 72 6e 2e 22 29 0d 02 0d 0c 20 20 f2 |e born.").... .|
00004330 67 6f 5f 6f 6e 0d 02 0e 07 20 20 f5 0d 02 0f 17 |go_on.... .....|
00004340 20 20 20 20 f2 63 61 6c 5f 62 6c 61 6e 6b 28 31 | .cal_blank(1|
00004350 2c 31 29 0d 02 10 2a 20 20 20 20 ef 20 32 34 2c |,1)...* . 24,|
00004360 6c 65 66 74 25 3b 6c 6f 77 25 3b 6c 65 66 74 25 |left%;low%;left%|
00004370 2b 33 38 34 3b 6c 6f 77 25 2b 37 32 3b 0d 02 11 |+384;low%+72;...|
00004380 1d 20 20 20 20 ef 20 31 38 2c 30 2c 31 34 33 20 |. . 18,0,143 |
00004390 3a 20 da 20 3a 20 ef 20 32 36 0d 02 12 29 20 20 |: . : . 26...) |
000043a0 20 20 f2 69 6e 69 74 5f 62 75 74 73 28 31 30 30 | .init_buts(100|
000043b0 30 2c 32 30 2c 31 36 2c 31 36 2c 32 38 2c 32 34 |0,20,16,16,28,24|
000043c0 2c 32 29 0d 02 13 13 20 20 20 20 e3 20 6a 25 3d |,2).... . j%=|
000043d0 30 20 b8 20 31 30 0d 02 14 22 20 20 20 20 20 20 |0 . 10..." |
000043e0 63 6f 6f 72 64 73 25 28 6a 25 2c 30 29 3d 34 30 |coords%(j%,0)=40|
000043f0 2b 28 38 34 2a 6a 25 29 0d 02 15 1b 20 20 20 20 |+(84*j%).... |
00004400 20 20 6c 61 62 65 6c 73 24 28 6a 25 29 3d c3 28 | labels$(j%)=.(|
00004410 6a 25 29 0d 02 16 09 20 20 20 20 ed 0d 02 17 42 |j%).... ....B|
00004420 20 20 20 20 6c 61 62 65 6c 73 24 28 31 30 29 3d | labels$(10)=|
00004430 22 44 65 6c 65 74 65 22 20 3a 20 62 75 74 74 79 |"Delete" : butty|
00004440 70 65 25 28 31 30 29 3d 31 20 3a 20 6c 61 62 5f |pe%(10)=1 : lab_|
00004450 6f 66 66 73 25 28 31 30 2c 30 29 3d 33 36 0d 02 |offs%(10,0)=36..|
00004460 18 56 20 20 20 20 63 6f 6f 72 64 73 25 28 31 31 |.V coords%(11|
00004470 2c 30 29 3d 31 30 36 30 20 3a 20 6c 61 62 65 6c |,0)=1060 : label|
00004480 73 24 28 31 31 29 3d 22 45 6e 74 65 72 22 20 3a |s$(11)="Enter" :|
00004490 20 62 75 74 74 79 70 65 25 28 31 31 29 3d 31 20 | buttype%(11)=1 |
000044a0 3a 20 6c 61 62 5f 6f 66 66 73 25 28 31 31 2c 30 |: lab_offs%(11,0|
000044b0 29 3d 34 34 0d 02 19 16 20 20 20 20 e3 20 64 61 |)=44.... . da|
000044c0 74 25 3d 32 b8 30 88 20 2d 31 0d 02 1a 1b 20 20 |t%=2.0. -1.... |
000044d0 20 20 20 20 f2 67 65 74 5f 64 69 67 69 74 73 28 | .get_digits(|
000044e0 64 61 74 25 29 0d 02 1b 1a 20 20 20 20 20 20 64 |dat%).... d|
000044f0 6f 62 25 28 64 61 74 25 29 3d 76 61 6c 75 25 0d |ob%(dat%)=valu%.|
00004500 02 1c 09 20 20 20 20 ed 0d 02 1d 29 20 20 20 20 |... ....) |
00004510 f2 69 6e 69 74 5f 62 75 74 73 28 31 30 30 30 2c |.init_buts(1000,|
00004520 32 30 2c 31 38 2c 31 36 2c 32 34 2c 32 34 2c 31 |20,18,16,24,24,1|
00004530 29 0d 02 1e 2a 20 20 20 20 64 61 79 5f 6e 6f 25 |)...* day_no%|
00004540 3d 64 61 79 63 75 6d 25 28 64 6f 62 25 28 31 29 |=daycum%(dob%(1)|
00004550 2d 31 29 2b 64 6f 62 25 28 32 29 0d 02 1f 39 20 |-1)+dob%(2)...9 |
00004560 20 20 20 e7 20 28 64 6f 62 25 28 30 29 83 34 3d | . (dob%(0).4=|
00004570 30 29 20 80 20 28 64 6f 62 25 28 31 29 3e 32 29 |0) . (dob%(1)>2)|
00004580 20 3a 20 64 61 79 5f 6e 6f 25 3d 64 61 79 5f 6e | : day_no%=day_n|
00004590 6f 25 2b 31 0d 02 20 1f 20 20 20 20 f2 63 61 6c |o%+1.. . .cal|
000045a0 5f 73 65 74 75 70 28 31 2c 64 61 79 5f 6e 6f 25 |_setup(1,day_no%|
000045b0 2c 30 29 0d 02 21 28 20 20 20 20 f2 64 6f 74 73 |,0)..!( .dots|
000045c0 5f 63 65 6e 74 72 65 28 28 28 64 61 79 5f 6e 6f |_centre(((day_no|
000045d0 25 2d 31 29 83 31 33 29 2b 31 29 0d 02 22 24 20 |%-1).13)+1).."$ |
000045e0 20 20 20 f2 73 79 6d 62 5f 63 65 6e 74 72 65 28 | .symb_centre(|
000045f0 28 64 61 79 5f 6e 6f 25 2d 31 29 83 32 30 29 0d |(day_no%-1).20).|
00004600 02 23 64 20 20 20 20 f2 77 6f 72 64 73 28 37 30 |.#d .words(70|
00004610 2c 31 33 34 2c 2d 31 2c 22 59 6f 75 72 20 41 7a |,134,-1,"Your Az|
00004620 74 65 63 20 6e 61 6d 65 20 69 73 20 22 2b c3 28 |tec name is "+.(|
00004630 28 28 64 61 79 5f 6e 6f 25 2d 31 29 83 31 33 29 |((day_no%-1).13)|
00004640 2b 31 29 2b 22 2d 22 2b 6d 6f 74 69 66 24 28 28 |+1)+"-"+motif$((|
00004650 64 61 79 5f 6e 6f 25 2d 31 29 83 32 30 29 2b 22 |day_no%-1).20)+"|
00004660 2e 22 29 0d 02 24 0e 20 20 20 20 f2 67 6f 5f 6f |.")..$. .go_o|
00004670 6e 0d 02 25 47 20 20 20 20 f2 77 6f 72 64 73 28 |n..%G .words(|
00004680 37 30 2c 31 35 30 2c 2d 31 2c 22 44 6f 20 79 6f |70,150,-1,"Do yo|
00004690 75 20 77 61 6e 74 20 74 6f 20 65 6e 74 65 72 20 |u want to enter |
000046a0 61 6e 6f 74 68 65 72 20 64 61 74 65 20 6f 66 20 |another date of |
000046b0 62 69 72 74 68 3f 22 29 0d 02 26 0e 20 20 20 20 |birth?")..&. |
000046c0 f2 79 65 73 6e 6f 0d 02 27 10 20 20 fd 63 68 6f |.yesno..'. .cho|
000046d0 73 65 6e 25 3d 30 0d 02 28 05 e1 0d 02 29 04 0d |sen%=0..(....)..|
000046e0 02 2a 17 dd 20 f2 67 65 74 5f 64 69 67 69 74 73 |.*.. .get_digits|
000046f0 28 64 61 74 25 29 0d 02 2b 16 20 2a 43 48 41 4e |(dat%)..+. *CHAN|
00004700 4e 45 4c 56 4f 49 43 45 20 31 20 39 0d 02 2c 16 |NELVOICE 1 9..,.|
00004710 20 20 64 69 67 25 3d 30 20 3a 20 76 61 6c 75 25 | dig%=0 : valu%|
00004720 3d 30 0d 02 2d 07 20 20 f5 0d 02 2e 37 20 20 20 |=0..-. ....7 |
00004730 20 f2 77 6f 72 64 73 28 37 30 2c 31 37 32 2c 2d | .words(70,172,-|
00004740 31 2c 22 57 68 61 74 20 69 73 20 79 6f 75 72 20 |1,"What is your |
00004750 64 61 74 65 20 6f 66 20 62 69 72 74 68 3f 22 29 |date of birth?")|
00004760 0d 02 2f 29 20 20 20 20 ef 32 34 2c 38 38 30 3b |../) .24,880;|
00004770 31 36 34 3b 31 31 32 30 3b 32 32 32 3b 3a ef 31 |164;1120;222;:.1|
00004780 38 2c 30 2c 31 33 31 3a da 0d 02 30 2d 20 20 20 |8,0,131:...0- |
00004790 20 ef 32 34 2c 38 38 34 3b 31 36 38 3b 31 31 31 | .24,884;168;111|
000047a0 36 3b 32 31 38 3b 3a ef 31 38 2c 30 2c 31 32 38 |6;218;:.18,0,128|
000047b0 3a da 3a ef 32 36 0d 02 31 13 20 20 20 20 e7 20 |:.:.26..1. . |
000047c0 76 61 6c 75 25 3d 30 20 8c 0d 02 32 34 20 20 20 |valu%=0 ...24 |
000047d0 20 20 20 e7 64 61 74 25 3d 32 3a f2 77 6f 72 64 | .dat%=2:.word|
000047e0 73 28 37 30 2c 31 31 32 2c 2d 31 2c 22 45 6e 74 |s(70,112,-1,"Ent|
000047f0 65 72 20 74 68 65 20 64 61 79 2e 22 29 0d 02 33 |er the day.")..3|
00004800 58 20 20 20 20 20 20 e7 64 61 74 25 3d 31 3a f2 |X .dat%=1:.|
00004810 77 6f 72 64 73 28 37 30 2c 31 31 32 2c 2d 31 2c |words(70,112,-1,|
00004820 22 45 6e 74 65 72 20 74 68 65 20 6d 6f 6e 74 68 |"Enter the month|
00004830 2e 22 29 3a f2 77 6f 72 64 73 28 38 38 38 2c 31 |."):.words(888,1|
00004840 37 32 2c 2d 31 2c c3 28 64 6f 62 25 28 32 29 29 |72,-1,.(dob%(2))|
00004850 2b 22 2d 22 29 0d 02 34 66 20 20 20 20 20 20 e7 |+"-")..4f .|
00004860 64 61 74 25 3d 30 3a f2 77 6f 72 64 73 28 37 30 |dat%=0:.words(70|
00004870 2c 31 31 32 2c 2d 31 2c 22 45 6e 74 65 72 20 74 |,112,-1,"Enter t|
00004880 68 65 20 79 65 61 72 2e 22 29 3a f2 77 6f 72 64 |he year."):.word|
00004890 73 28 38 38 38 2c 31 37 32 2c 2d 31 2c c3 28 64 |s(888,172,-1,.(d|
000048a0 6f 62 25 28 32 29 29 2b 22 2d 22 2b c3 28 64 6f |ob%(2))+"-"+.(do|
000048b0 62 25 28 31 29 29 2b 22 2d 22 29 0d 02 35 09 20 |b%(1))+"-")..5. |
000048c0 20 20 20 cc 0d 02 36 50 20 20 20 20 20 20 e7 64 | ...6P .d|
000048d0 61 74 25 3d 32 3a f2 77 6f 72 64 73 28 37 30 2c |at%=2:.words(70,|
000048e0 31 31 32 2c 2d 31 2c 22 45 6e 74 65 72 20 74 68 |112,-1,"Enter th|
000048f0 65 20 64 61 79 2e 22 29 3a f2 77 6f 72 64 73 28 |e day."):.words(|
00004900 38 38 38 2c 31 37 32 2c 2d 31 2c c3 28 76 61 6c |888,172,-1,.(val|
00004910 75 25 29 29 0d 02 37 61 20 20 20 20 20 20 e7 64 |u%))..7a .d|
00004920 61 74 25 3d 31 3a f2 77 6f 72 64 73 28 37 30 2c |at%=1:.words(70,|
00004930 31 31 32 2c 2d 31 2c 22 45 6e 74 65 72 20 74 68 |112,-1,"Enter th|
00004940 65 20 6d 6f 6e 74 68 2e 22 29 3a f2 77 6f 72 64 |e month."):.word|
00004950 73 28 38 38 38 2c 31 37 32 2c 2d 31 2c c3 28 64 |s(888,172,-1,.(d|
00004960 6f 62 25 28 32 29 29 2b 22 2d 22 2b c3 28 76 61 |ob%(2))+"-"+.(va|
00004970 6c 75 25 29 29 0d 02 38 6f 20 20 20 20 20 20 e7 |lu%))..8o .|
00004980 64 61 74 25 3d 30 3a f2 77 6f 72 64 73 28 37 30 |dat%=0:.words(70|
00004990 2c 31 31 32 2c 2d 31 2c 22 45 6e 74 65 72 20 74 |,112,-1,"Enter t|
000049a0 68 65 20 79 65 61 72 2e 22 29 3a f2 77 6f 72 64 |he year."):.word|
000049b0 73 28 38 38 38 2c 31 37 32 2c 2d 31 2c c3 28 64 |s(888,172,-1,.(d|
000049c0 6f 62 25 28 32 29 29 2b 22 2d 22 2b c3 28 64 6f |ob%(2))+"-"+.(do|
000049d0 62 25 28 31 29 29 2b 22 2d 22 2b c3 28 76 61 6c |b%(1))+"-"+.(val|
000049e0 75 25 29 29 0d 02 39 09 20 20 20 20 cd 0d 02 3a |u%))..9. ...:|
000049f0 1d 20 20 20 20 f2 63 68 6f 6f 73 65 5f 62 75 74 |. .choose_but|
00004a00 28 31 2c 31 32 2c 32 2c 36 29 0d 02 3b 18 20 20 |(1,12,2,6)..;. |
00004a10 20 20 e7 20 28 63 68 6f 73 65 6e 25 3c 31 30 29 | . (chosen%<10)|
00004a20 20 8c 0d 02 3c 23 20 20 20 20 20 20 e7 20 28 64 | ...<# . (d|
00004a30 69 67 25 3e 3d 6e 6f 5f 64 69 67 25 28 64 61 74 |ig%>=no_dig%(dat|
00004a40 25 29 29 20 8c 0d 02 3d 21 20 20 20 20 20 20 20 |%)) ...=! |
00004a50 20 d4 31 2c 26 31 35 46 2b 28 26 31 30 2a 4f 25 | .1,&15F+(&10*O%|
00004a60 29 2c 31 30 2c 32 0d 02 3e 0b 20 20 20 20 20 20 |),10,2..>. |
00004a70 cc 0d 02 3f 24 20 20 20 20 20 20 20 20 76 61 6c |...?$ val|
00004a80 75 25 3d 28 76 61 6c 75 25 2a 31 30 29 2b 63 68 |u%=(valu%*10)+ch|
00004a90 6f 73 65 6e 25 0d 02 40 0b 20 20 20 20 20 20 cd |osen%..@. .|
00004aa0 0d 02 41 09 20 20 20 20 cd 0d 02 42 45 20 20 20 |..A. ...BE |
00004ab0 20 e7 20 28 63 68 6f 73 65 6e 25 3d 31 31 29 20 | . (chosen%=11) |
00004ac0 80 20 28 64 69 67 25 3d 30 29 20 3a 20 d4 31 2c |. (dig%=0) : .1,|
00004ad0 26 31 35 46 2b 28 26 31 30 2a 4f 25 29 2c 31 30 |&15F+(&10*O%),10|
00004ae0 2c 32 3a 20 63 68 6f 73 65 6e 25 3d 31 30 0d 02 |,2: chosen%=10..|
00004af0 43 52 20 20 20 20 e7 20 28 63 68 6f 73 65 6e 25 |CR . (chosen%|
00004b00 3d 31 31 29 20 80 20 28 64 61 74 25 3d 31 29 20 |=11) . (dat%=1) |
00004b10 80 20 28 76 61 6c 75 25 3e 31 32 29 20 3a 20 d4 |. (valu%>12) : .|
00004b20 31 2c 26 31 35 46 2b 28 26 31 30 2a 4f 25 29 2c |1,&15F+(&10*O%),|
00004b30 31 30 2c 32 3a 20 63 68 6f 73 65 6e 25 3d 31 30 |10,2: chosen%=10|
00004b40 0d 02 44 52 20 20 20 20 e7 20 28 63 68 6f 73 65 |..DR . (chose|
00004b50 6e 25 3d 31 31 29 20 80 20 28 64 61 74 25 3d 32 |n%=11) . (dat%=2|
00004b60 29 20 80 20 28 76 61 6c 75 25 3e 33 31 29 20 3a |) . (valu%>31) :|
00004b70 20 d4 31 2c 26 31 35 46 2b 28 26 31 30 2a 4f 25 | .1,&15F+(&10*O%|
00004b80 29 2c 31 30 2c 32 3a 20 63 68 6f 73 65 6e 25 3d |),10,2: chosen%=|
00004b90 31 30 0d 02 45 2c 20 20 20 20 e7 28 76 61 6c 75 |10..E, .(valu|
00004ba0 25 3c 3e 30 29 84 28 63 68 6f 73 65 6e 25 3c 3e |%<>0).(chosen%<>|
00004bb0 30 29 3a 64 69 67 25 3d 64 69 67 25 2b 31 0d 02 |0):dig%=dig%+1..|
00004bc0 46 35 20 20 20 20 e7 20 28 63 68 6f 73 65 6e 25 |F5 . (chosen%|
00004bd0 3d 31 30 29 20 3a 20 76 61 6c 75 25 3d 30 20 3a |=10) : valu%=0 :|
00004be0 20 64 69 67 25 3d 30 20 3a f2 63 6c 65 61 72 74 | dig%=0 :.cleart|
00004bf0 65 78 74 0d 02 47 12 20 20 fd 20 63 68 6f 73 65 |ext..G. . chose|
00004c00 6e 25 3d 31 31 0d 02 48 10 20 20 f2 63 6c 65 61 |n%=11..H. .clea|
00004c10 72 74 65 78 74 0d 02 49 05 e1 0d 02 4a 04 0d 02 |rtext..I....J...|
00004c20 4b 18 dd 20 f2 67 65 74 5f 63 68 6f 69 63 65 28 |K.. .get_choice(|
00004c30 70 72 6f 62 25 29 0d 02 4c 0c 20 68 65 6c 70 25 |prob%)..L. help%|
00004c40 3d a3 0d 02 4d 06 20 f5 0d 02 4e 13 20 20 f2 71 |=...M. ...N. .q|
00004c50 75 65 73 74 28 70 72 6f 62 25 29 0d 02 4f 18 20 |uest(prob%)..O. |
00004c60 20 f2 63 68 6f 6f 73 65 5f 61 6e 73 28 70 72 6f | .choose_ans(pro|
00004c70 62 25 29 0d 02 50 0e 20 fd 20 68 65 6c 70 25 3d |b%)..P. . help%=|
00004c80 a3 0d 02 51 05 e1 0d 02 52 04 0d 02 53 13 dd 20 |...Q....R...S.. |
00004c90 f2 71 75 65 73 74 28 70 72 6f 62 25 29 0d 02 54 |.quest(prob%)..T|
00004ca0 11 20 20 e7 20 70 72 6f 62 25 3d 31 20 8c 0d 02 |. . prob%=1 ...|
00004cb0 55 54 20 20 20 20 f2 77 6f 72 64 73 28 37 30 2c |UT .words(70,|
00004cc0 31 37 32 2c 2d 31 2c 22 54 68 65 20 74 68 69 72 |172,-1,"The thir|
00004cd0 64 20 64 61 79 20 69 73 20 33 2d 68 6f 75 73 65 |d day is 3-house|
00004ce0 2e 20 57 68 61 74 20 69 73 20 74 68 65 20 66 6f |. What is the fo|
00004cf0 75 72 74 68 20 64 61 79 20 63 61 6c 6c 65 64 3f |urth day called?|
00004d00 22 29 0d 02 56 4a 20 20 20 20 f2 77 6f 72 64 73 |")..VJ .words|
00004d10 28 37 30 2c 31 31 32 2c 2d 31 2c 22 43 6c 69 63 |(70,112,-1,"Clic|
00004d20 6b 20 6f 6e 20 61 20 6e 75 6d 62 65 72 20 61 6e |k on a number an|
00004d30 64 20 73 79 6d 62 6f 6c 20 61 6e 64 20 74 68 65 |d symbol and the|
00004d40 6e 20 27 45 6e 74 65 72 27 2e 22 29 0d 02 57 07 |n 'Enter'.")..W.|
00004d50 20 20 cc 0d 02 58 85 20 20 20 20 f2 77 6f 72 64 | ...X. .word|
00004d60 73 28 37 30 2c 31 37 32 2c 2d 31 2c 22 49 66 20 |s(70,172,-1,"If |
00004d70 74 6f 64 61 79 20 69 73 20 22 2b c3 28 28 28 74 |today is "+.(((t|
00004d80 6f 64 61 79 25 2d 31 29 83 31 33 29 2b 31 29 2b |oday%-1).13)+1)+|
00004d90 22 2d 22 2b 6d 6f 74 69 66 24 28 28 74 6f 64 61 |"-"+motif$((toda|
00004da0 79 25 2d 31 29 83 32 30 29 2b 22 2c 20 77 68 61 |y%-1).20)+", wha|
00004db0 74 20 64 61 79 20 69 73 20 22 2b c3 28 61 6e 73 |t day is "+.(ans|
00004dc0 25 2d 74 6f 64 61 79 25 29 2b 22 20 64 61 79 73 |%-today%)+" days|
00004dd0 20 74 69 6d 65 3f 22 29 0d 02 59 48 20 20 20 20 | time?")..YH |
00004de0 f2 77 6f 72 64 73 28 37 30 2c 31 31 32 2c 2d 31 |.words(70,112,-1|
00004df0 2c 22 43 68 6f 6f 73 65 20 61 20 6e 75 6d 62 65 |,"Choose a numbe|
00004e00 72 20 61 6e 64 20 73 79 6d 62 6f 6c 20 61 6e 64 |r and symbol and|
00004e10 20 74 68 65 6e 20 27 45 6e 74 65 72 27 2e 22 29 | then 'Enter'.")|
00004e20 0d 02 5a 07 20 20 cd 0d 02 5b 05 e1 0d 02 5c 04 |..Z. ...[....\.|
00004e30 0d 02 5d 18 dd 20 f2 63 68 6f 6f 73 65 5f 61 6e |..].. .choose_an|
00004e40 73 28 70 72 6f 62 25 29 0d 02 5e 16 20 2a 43 48 |s(prob%)..^. *CH|
00004e50 41 4e 4e 45 4c 56 4f 49 43 45 20 31 20 39 0d 02 |ANNELVOICE 1 9..|
00004e60 5f 10 20 20 f2 64 6f 74 5f 61 72 65 61 73 0d 02 |_. .dot_areas..|
00004e70 60 11 20 20 f2 73 79 6d 62 5f 61 72 65 61 73 0d |`. .symb_areas.|
00004e80 02 61 0a 20 20 c8 97 20 ee 0d 02 62 11 20 20 f2 |.a. .. ...b. .|
00004e90 6d 6f 75 73 65 5f 66 75 6c 6c 0d 02 63 11 20 20 |mouse_full..c. |
00004ea0 e7 20 68 65 6c 70 25 3d b9 20 8c 0d 02 64 0f 20 |. help%=. ...d. |
00004eb0 20 20 20 68 65 6c 70 25 3d a3 0d 02 65 07 20 20 | help%=...e. |
00004ec0 cc 0d 02 66 13 20 20 20 20 64 6f 74 5f 61 6e 73 |...f. dot_ans|
00004ed0 25 3d 31 34 0d 02 67 14 20 20 20 20 73 79 6d 62 |%=14..g. symb|
00004ee0 5f 61 6e 73 25 3d 32 30 0d 02 68 07 20 20 cd 0d |_ans%=20..h. ..|
00004ef0 02 69 12 20 20 66 69 72 73 74 6c 6f 6f 70 25 3d |.i. firstloop%=|
00004f00 b9 0d 02 6a 53 20 20 e7 70 72 6f 62 25 3d 33 3a |...jS .prob%=3:|
00004f10 f2 69 6e 69 74 5f 62 75 74 73 28 39 30 30 2c 32 |.init_buts(900,2|
00004f20 30 2c 31 36 2c 31 36 2c 34 34 2c 32 34 2c 31 29 |0,16,16,44,24,1)|
00004f30 3a 8b 3a f2 69 6e 69 74 5f 62 75 74 73 28 31 30 |:.:.init_buts(10|
00004f40 30 30 2c 32 30 2c 31 36 2c 31 36 2c 34 34 2c 32 |00,20,16,16,44,2|
00004f50 34 2c 31 29 0d 02 6b 3d 20 20 6c 61 62 65 6c 73 |4,1)..k= labels|
00004f60 24 28 30 29 3d 22 45 6e 74 65 72 22 3a 6c 61 62 |$(0)="Enter":lab|
00004f70 65 6c 73 24 28 31 29 3d 22 20 48 65 6c 70 22 3a |els$(1)=" Help":|
00004f80 63 6f 6f 72 64 73 25 28 31 2c 30 29 3d 31 30 38 |coords%(1,0)=108|
00004f90 34 0d 02 6c 07 20 20 f5 0d 02 6d 1b 20 20 20 20 |4..l. ...m. |
00004fa0 c8 97 20 6d 5f 78 25 2c 6d 5f 79 25 2c 6d 5f 62 |.. m_x%,m_y%,m_b|
00004fb0 75 74 25 0d 02 6e 3c 20 20 20 20 e7 70 72 6f 62 |ut%..n< .prob|
00004fc0 25 3d 33 3a f2 63 68 6f 6f 73 65 5f 62 75 74 28 |%=3:.choose_but(|
00004fd0 31 2c 32 2c 32 2c 31 29 3a 8b 3a f2 63 68 6f 6f |1,2,2,1):.:.choo|
00004fe0 73 65 5f 62 75 74 28 31 2c 31 2c 32 2c 31 29 0d |se_but(1,1,2,1).|
00004ff0 02 6f 25 20 20 20 20 e7 20 28 6d 5f 62 75 74 25 |.o% . (m_but%|
00005000 3d 34 29 20 80 20 28 63 68 6f 73 65 6e 25 3c 3e |=4) . (chosen%<>|
00005010 30 29 20 8c 0d 02 70 29 20 20 20 20 20 20 64 6f |0) ...p) do|
00005020 74 5f 63 68 25 3d a4 69 6e 5f 64 6f 74 5f 61 72 |t_ch%=.in_dot_ar|
00005030 65 61 28 6d 5f 78 25 2c 6d 5f 79 25 29 0d 02 71 |ea(m_x%,m_y%)..q|
00005040 6f 20 20 20 20 20 20 e7 20 64 6f 74 5f 63 68 25 |o . dot_ch%|
00005050 3c 31 33 20 3a 20 64 6f 74 5f 61 6e 73 25 3d 28 |<13 : dot_ans%=(|
00005060 28 64 6f 74 5f 63 68 25 2b 28 28 74 6f 64 61 79 |(dot_ch%+((today|
00005070 25 2d 31 29 83 31 33 29 29 83 31 33 29 2b 31 20 |%-1).13)).13)+1 |
00005080 3a 64 6f 74 5f 63 68 31 25 3d 64 6f 74 5f 63 68 |:dot_ch1%=dot_ch|
00005090 25 2b 33 39 3a 20 f2 64 6f 74 73 5f 63 65 6e 74 |%+39: .dots_cent|
000050a0 72 65 28 64 6f 74 5f 61 6e 73 25 29 0d 02 72 2b |re(dot_ans%)..r+|
000050b0 20 20 20 20 20 20 73 79 6d 62 5f 63 68 25 3d a4 | symb_ch%=.|
000050c0 69 6e 5f 73 79 6d 62 5f 61 72 65 61 28 6d 5f 78 |in_symb_area(m_x|
000050d0 25 2c 6d 5f 79 25 29 0d 02 73 73 20 20 20 20 20 |%,m_y%)..ss |
000050e0 20 e7 20 73 79 6d 62 5f 63 68 25 3c 32 30 20 3a | . symb_ch%<20 :|
000050f0 20 73 79 6d 62 5f 61 6e 73 25 3d 28 28 73 79 6d | symb_ans%=((sym|
00005100 62 5f 63 68 25 2b 28 28 74 6f 64 61 79 25 2d 31 |b_ch%+((today%-1|
00005110 29 83 32 30 29 29 83 32 30 29 20 3a 73 79 6d 62 |).20)).20) :symb|
00005120 5f 63 68 31 25 3d 73 79 6d 62 5f 63 68 25 2b 34 |_ch1%=symb_ch%+4|
00005130 30 3a 20 f2 73 79 6d 62 5f 63 65 6e 74 72 65 28 |0: .symb_centre(|
00005140 73 79 6d 62 5f 61 6e 73 25 29 0d 02 74 09 20 20 |symb_ans%)..t. |
00005150 20 20 cd 0d 02 75 15 20 20 20 20 e7 20 63 68 6f | ...u. . cho|
00005160 73 65 6e 25 3d 30 20 8c 0d 02 76 2c 20 20 20 20 |sen%=0 ...v, |
00005170 20 20 e7 20 28 64 6f 74 5f 61 6e 73 25 3d 31 34 | . (dot_ans%=14|
00005180 29 20 84 20 28 73 79 6d 62 5f 61 6e 73 25 3d 32 |) . (symb_ans%=2|
00005190 30 29 20 8c 0d 02 77 2f 20 20 20 20 20 20 20 20 |0) ...w/ |
000051a0 d4 31 2c 26 31 35 46 2b 28 26 31 30 2a 4f 25 29 |.1,&15F+(&10*O%)|
000051b0 2c 31 30 2c 32 3a 20 66 69 72 73 74 6c 6f 6f 70 |,10,2: firstloop|
000051c0 25 3d b9 0d 02 78 40 20 20 20 20 20 20 20 20 e7 |%=...x@ .|
000051d0 70 72 6f 62 25 3d 33 3a f2 63 68 6f 6f 73 65 5f |prob%=3:.choose_|
000051e0 62 75 74 28 31 2c 32 2c 32 2c 31 29 3a 8b 3a f2 |but(1,2,2,1):.:.|
000051f0 63 68 6f 6f 73 65 5f 62 75 74 28 31 2c 31 2c 32 |choose_but(1,1,2|
00005200 2c 31 29 0d 02 79 0b 20 20 20 20 20 20 cd 0d 02 |,1)..y. ...|
00005210 7a 09 20 20 20 20 cd 0d 02 7b 2b 20 20 20 20 e7 |z. ...{+ .|
00005220 20 28 70 72 6f 62 25 3d 33 29 20 80 20 28 63 68 | (prob%=3) . (ch|
00005230 6f 73 65 6e 25 3d 31 29 20 3a 20 68 65 6c 70 25 |osen%=1) : help%|
00005240 3d b9 0d 02 7c 2e 20 20 fd 20 28 28 63 68 6f 73 |=...|. . ((chos|
00005250 65 6e 25 3d 30 29 20 80 20 28 6d 5f 62 75 74 25 |en%=0) . (m_but%|
00005260 3d 30 29 29 20 84 20 28 68 65 6c 70 25 3d b9 29 |=0)) . (help%=.)|
00005270 0d 02 7d 2b 20 20 64 6f 74 5f 63 68 32 25 3d 64 |..}+ dot_ch2%=d|
00005280 6f 74 5f 63 68 31 25 3a 73 79 6d 62 5f 63 68 32 |ot_ch1%:symb_ch2|
00005290 25 3d 73 79 6d 62 5f 63 68 31 25 0d 02 7e 27 20 |%=symb_ch1%..~' |
000052a0 20 f2 69 6e 69 74 5f 62 75 74 73 28 31 30 30 30 | .init_buts(1000|
000052b0 2c 32 30 2c 31 38 2c 31 36 2c 32 34 2c 32 34 2c |,20,18,16,24,24,|
000052c0 31 29 0d 02 7f 12 20 20 c8 97 20 b8 20 31 31 38 |1).... .. . 118|
000052d0 34 2c 36 30 0d 02 80 0a 20 20 c8 97 20 87 0d 02 |4,60.... .. ...|
000052e0 81 10 20 20 f2 63 6c 65 61 72 74 65 78 74 0d 02 |.. .cleartext..|
000052f0 82 10 20 20 f2 64 6f 74 5f 61 72 65 61 73 0d 02 |.. .dot_areas..|
00005300 83 11 20 20 f2 73 79 6d 62 5f 61 72 65 61 73 0d |.. .symb_areas.|
00005310 02 84 81 20 20 e7 ac 68 65 6c 70 25 20 f2 73 68 |... ..help% .sh|
00005320 6f 77 5f 64 6f 74 5f 63 68 28 32 2c 64 6f 74 5f |ow_dot_ch(2,dot_|
00005330 63 68 32 25 83 31 33 29 3a f2 73 68 6f 77 5f 73 |ch2%.13):.show_s|
00005340 79 6d 62 5f 63 68 28 32 2c 73 79 6d 62 5f 63 68 |ymb_ch(2,symb_ch|
00005350 32 25 83 32 30 29 3a f2 73 68 6f 77 5f 64 6f 74 |2%.20):.show_dot|
00005360 5f 63 68 28 31 2c 64 6f 74 5f 63 68 31 25 83 31 |_ch(1,dot_ch1%.1|
00005370 33 29 3a f2 73 68 6f 77 5f 73 79 6d 62 5f 63 68 |3):.show_symb_ch|
00005380 28 31 2c 73 79 6d 62 5f 63 68 31 25 83 32 30 29 |(1,symb_ch1%.20)|
00005390 0d 02 85 05 e1 0d 02 86 04 0d 02 87 1a dd a4 69 |...............i|
000053a0 6e 5f 64 6f 74 5f 61 72 65 61 28 64 78 25 2c 64 |n_dot_area(dx%,d|
000053b0 79 25 29 0d 02 88 0d 20 20 76 61 6c 25 3d 31 33 |y%).... val%=13|
000053c0 0d 02 89 29 20 20 72 61 64 25 3d b6 28 28 28 64 |...) rad%=.(((d|
000053d0 78 25 2d 33 33 30 29 5e 32 29 2b 28 28 64 79 25 |x%-330)^2)+((dy%|
000053e0 2d 36 30 34 29 5e 32 29 29 0d 02 8a 28 20 20 f4 |-604)^2))...( .|
000053f0 20 50 52 49 4e 54 20 22 72 61 64 25 20 22 20 72 | PRINT "rad% " r|
00005400 61 64 25 20 22 20 76 61 6c 25 20 22 20 76 61 6c |ad% " val% " val|
00005410 25 0d 02 8b 20 20 20 e7 20 28 72 61 64 25 3c 38 |%... . (rad%<8|
00005420 30 29 20 84 20 28 72 61 64 25 3e 32 31 32 29 20 |0) . (rad%>212) |
00005430 8c 0d 02 8c 0b 20 20 20 20 3d 31 33 0d 02 8d 07 |..... =13....|
00005440 20 20 cd 0d 02 8e 1f 20 20 e7 20 28 64 78 25 3e | ..... . (dx%>|
00005450 33 32 30 29 20 80 20 28 64 78 25 3c 33 35 30 29 |320) . (dx%<350)|
00005460 20 8c 0d 02 8f 15 20 20 20 20 e7 20 64 79 25 2d | ..... . dy%-|
00005470 36 30 34 3e 30 20 8c 0d 02 90 0c 20 20 20 20 20 |604>0 ..... |
00005480 20 3d 33 0d 02 91 09 20 20 20 20 cc 0d 02 92 0d | =3.... .....|
00005490 20 20 20 20 20 20 3d 31 30 0d 02 93 09 20 20 20 | =10.... |
000054a0 20 cd 0d 02 94 07 20 20 cc 0d 02 95 27 20 20 20 | ..... ....' |
000054b0 20 61 6e 67 6c 65 3d 9d 28 99 28 28 64 79 25 2d | angle=.(.((dy%-|
000054c0 36 30 34 29 2f 28 64 78 25 2d 33 33 30 29 29 29 |604)/(dx%-330)))|
000054d0 0d 02 96 14 20 20 20 20 e7 20 61 6e 67 6c 65 3e |.... . angle>|
000054e0 3d 30 20 8c 0d 02 97 15 20 20 20 20 20 20 e3 20 |=0 ..... . |
000054f0 6c 6c 25 3d 30 20 b8 20 36 0d 02 98 3d 20 20 20 |ll%=0 . 6...= |
00005500 20 20 20 20 20 e7 20 28 61 6e 67 6c 65 3e 28 6c | . (angle>(l|
00005510 6c 25 2a 31 33 2e 38 35 29 29 20 80 20 28 61 6e |l%*13.85)) . (an|
00005520 67 6c 65 3c 28 28 6c 6c 25 2b 31 29 2a 31 33 2e |gle<((ll%+1)*13.|
00005530 38 35 29 29 20 8c 0d 02 99 1b 20 20 20 20 20 20 |85)) ..... |
00005540 20 20 20 20 e7 20 64 78 25 2d 33 33 30 3e 30 20 | . dx%-330>0 |
00005550 8c 0d 02 9a 1d 20 20 20 20 20 20 20 20 20 20 20 |..... |
00005560 20 3d a8 28 28 6c 6c 25 2b 31 29 2f 32 29 0d 02 | =.((ll%+1)/2)..|
00005570 9b 0f 20 20 20 20 20 20 20 20 20 20 cc 0d 02 9c |.. ....|
00005580 1b 20 20 20 20 20 20 20 20 20 20 20 20 3d 37 2b |. =7+|
00005590 a8 28 6c 6c 25 2f 32 29 0d 02 9d 0f 20 20 20 20 |.(ll%/2).... |
000055a0 20 20 20 20 20 20 cd 0d 02 9e 0d 20 20 20 20 20 | ..... |
000055b0 20 20 20 cd 0d 02 9f 0b 20 20 20 20 20 20 ed 0d | ..... ..|
000055c0 02 a0 09 20 20 20 20 cc 0d 02 a1 15 20 20 20 20 |... ..... |
000055d0 20 20 e3 20 6c 6c 25 3d 30 20 b8 20 36 0d 02 a2 | . ll%=0 . 6...|
000055e0 3f 20 20 20 20 20 20 20 20 e7 20 28 61 6e 67 6c |? . (angl|
000055f0 65 3c 28 6c 6c 25 2a 2d 31 33 2e 38 35 29 29 20 |e<(ll%*-13.85)) |
00005600 80 20 28 61 6e 67 6c 65 3e 28 28 6c 6c 25 2b 31 |. (angle>((ll%+1|
00005610 29 2a 2d 31 33 2e 38 35 29 29 20 8c 0d 02 a3 1b |)*-13.85)) .....|
00005620 20 20 20 20 20 20 20 20 20 20 e7 20 64 78 25 2d | . dx%-|
00005630 33 33 30 3e 30 20 8c 0d 02 a4 25 20 20 20 20 20 |330>0 ....% |
00005640 20 20 20 20 20 20 20 3d 28 31 33 2d a8 28 28 6c | =(13-.((l|
00005650 6c 25 2b 31 29 2f 32 29 29 83 31 33 0d 02 a5 0f |l%+1)/2)).13....|
00005660 20 20 20 20 20 20 20 20 20 20 cc 0d 02 a6 1b 20 | ..... |
00005670 20 20 20 20 20 20 20 20 20 20 20 3d 36 2d a8 28 | =6-.(|
00005680 6c 6c 25 2f 32 29 0d 02 a7 0f 20 20 20 20 20 20 |ll%/2).... |
00005690 20 20 20 20 cd 0d 02 a8 0d 20 20 20 20 20 20 20 | ..... |
000056a0 20 cd 0d 02 a9 0b 20 20 20 20 20 20 ed 0d 02 aa | ..... ....|
000056b0 09 20 20 20 20 cd 0d 02 ab 07 20 20 cd 0d 02 ac |. ..... ....|
000056c0 09 3d 76 61 6c 25 0d 02 ad 04 0d 02 ae 10 dd 20 |.=val%......... |
000056d0 f2 64 6f 74 5f 61 72 65 61 73 0d 02 af 14 20 20 |.dot_areas.... |
000056e0 ef 32 35 2c 34 2c 33 33 30 3b 36 30 30 3b 0d 02 |.25,4,330;600;..|
000056f0 b0 14 20 20 ef 32 35 2c 31 34 36 2c 32 31 30 3b |.. .25,146,210;|
00005700 30 3b 0d 02 b1 14 20 20 ef 32 35 2c 34 2c 33 33 |0;.... .25,4,33|
00005710 30 3b 36 30 30 3b 0d 02 b2 13 20 20 ef 32 35 2c |0;600;.... .25,|
00005720 31 34 36 2c 38 30 3b 30 3b 0d 02 b3 12 20 20 e3 |146,80;0;.... .|
00005730 20 6b 6b 25 3d 30 20 b8 20 31 32 0d 02 b4 2c 20 | kk%=0 . 12..., |
00005740 20 20 20 63 78 25 3d 33 33 30 20 2b 20 32 31 30 | cx%=330 + 210|
00005750 2a 9b 28 b2 28 28 6b 6b 25 2a 32 37 2e 37 29 2b |*.(.((kk%*27.7)+|
00005760 31 33 2e 38 35 29 29 0d 02 b5 2c 20 20 20 20 63 |13.85))..., c|
00005770 79 25 3d 36 30 30 20 2b 20 32 31 30 2a b5 28 b2 |y%=600 + 210*.(.|
00005780 28 28 6b 6b 25 2a 32 37 2e 37 29 2b 31 33 2e 38 |((kk%*27.7)+13.8|
00005790 35 29 29 0d 02 b6 16 20 20 20 20 ef 32 35 2c 34 |5)).... .25,4|
000057a0 2c 63 78 25 3b 63 79 25 3b 0d 02 b7 2b 20 20 20 |,cx%;cy%;...+ |
000057b0 20 63 78 25 3d 33 33 30 20 2b 20 38 30 2a 9b 28 | cx%=330 + 80*.(|
000057c0 b2 28 28 6b 6b 25 2a 32 37 2e 37 29 2b 31 33 2e |.((kk%*27.7)+13.|
000057d0 38 35 29 29 0d 02 b8 2b 20 20 20 20 63 79 25 3d |85))...+ cy%=|
000057e0 36 30 30 20 2b 20 38 30 2a b5 28 b2 28 28 6b 6b |600 + 80*.(.((kk|
000057f0 25 2a 32 37 2e 37 29 2b 31 33 2e 38 35 29 29 0d |%*27.7)+13.85)).|
00005800 02 b9 16 20 20 20 20 ef 32 35 2c 36 2c 63 78 25 |... .25,6,cx%|
00005810 3b 63 79 25 3b 0d 02 ba 07 20 20 ed 0d 02 bb 05 |;cy%;.... .....|
00005820 e1 0d 02 bc 04 0d 02 bd 1b dd a4 69 6e 5f 73 79 |...........in_sy|
00005830 6d 62 5f 61 72 65 61 28 64 78 25 2c 64 79 25 29 |mb_area(dx%,dy%)|
00005840 0d 02 be 0d 20 20 76 61 6c 25 3d 32 30 0d 02 bf |.... val%=20...|
00005850 29 20 20 72 61 64 25 3d b6 28 28 28 64 78 25 2d |) rad%=.(((dx%-|
00005860 38 37 32 29 5e 32 29 2b 28 28 64 79 25 2d 36 30 |872)^2)+((dy%-60|
00005870 34 29 5e 32 29 29 0d 02 c0 28 20 20 f4 20 50 52 |4)^2))...( . PR|
00005880 49 4e 54 20 22 72 61 64 25 20 22 20 72 61 64 25 |INT "rad% " rad%|
00005890 20 22 20 76 61 6c 25 20 22 20 76 61 6c 25 0d 02 | " val% " val%..|
000058a0 c1 21 20 20 e7 20 28 72 61 64 25 3c 32 30 34 29 |.! . (rad%<204)|
000058b0 20 84 20 28 72 61 64 25 3e 32 38 38 29 20 8c 0d | . (rad%>288) ..|
000058c0 02 c2 0b 20 20 20 20 3d 32 30 0d 02 c3 07 20 20 |... =20.... |
000058d0 cd 0d 02 c4 1f 20 20 e7 20 28 64 78 25 3e 38 35 |..... . (dx%>85|
000058e0 30 29 20 80 20 28 64 78 25 3c 38 39 38 29 20 8c |0) . (dx%<898) .|
000058f0 0d 02 c5 15 20 20 20 20 e7 20 64 79 25 2d 36 30 |.... . dy%-60|
00005900 34 3e 30 20 8c 0d 02 c6 0c 20 20 20 20 20 20 3d |4>0 ..... =|
00005910 35 0d 02 c7 09 20 20 20 20 cc 0d 02 c8 0d 20 20 |5.... ..... |
00005920 20 20 20 20 3d 31 35 0d 02 c9 09 20 20 20 20 cd | =15.... .|
00005930 0d 02 ca 07 20 20 cc 0d 02 cb 27 20 20 20 20 61 |.... ....' a|
00005940 6e 67 6c 65 3d 9d 28 99 28 28 64 79 25 2d 36 30 |ngle=.(.((dy%-60|
00005950 34 29 2f 28 64 78 25 2d 38 37 32 29 29 29 0d 02 |4)/(dx%-872)))..|
00005960 cc 14 20 20 20 20 e7 20 61 6e 67 6c 65 3e 3d 30 |.. . angle>=0|
00005970 20 8c 0d 02 cd 15 20 20 20 20 20 20 e3 20 6c 6c | ..... . ll|
00005980 25 3d 30 20 b8 20 39 0d 02 ce 35 20 20 20 20 20 |%=0 . 9...5 |
00005990 20 20 20 e7 20 28 61 6e 67 6c 65 3e 28 6c 6c 25 | . (angle>(ll%|
000059a0 2a 39 29 29 20 80 20 28 61 6e 67 6c 65 3c 28 28 |*9)) . (angle<((|
000059b0 6c 6c 25 2b 31 29 2a 39 29 29 20 8c 0d 02 cf 1b |ll%+1)*9)) .....|
000059c0 20 20 20 20 20 20 20 20 20 20 e7 20 64 78 25 2d | . dx%-|
000059d0 38 37 32 3e 30 20 8c 0d 02 d0 20 20 20 20 20 20 |872>0 .... |
000059e0 20 20 20 20 20 20 20 3d 31 30 2d a8 28 28 6c 6c | =10-.((ll|
000059f0 25 2b 31 29 2f 32 29 0d 02 d1 0f 20 20 20 20 20 |%+1)/2).... |
00005a00 20 20 20 20 20 cc 0d 02 d2 25 20 20 20 20 20 20 | ....% |
00005a10 20 20 20 20 20 20 3d 28 32 30 2d a8 28 28 6c 6c | =(20-.((ll|
00005a20 25 2b 31 29 2f 32 29 29 83 32 30 0d 02 d3 0f 20 |%+1)/2)).20.... |
00005a30 20 20 20 20 20 20 20 20 20 cd 0d 02 d4 0d 20 20 | ..... |
00005a40 20 20 20 20 20 20 cd 0d 02 d5 0b 20 20 20 20 20 | ..... |
00005a50 20 ed 0d 02 d6 09 20 20 20 20 cc 0d 02 d7 15 20 | ..... ..... |
00005a60 20 20 20 20 20 e3 20 6c 6c 25 3d 30 20 b8 20 39 | . ll%=0 . 9|
00005a70 0d 02 d8 37 20 20 20 20 20 20 20 20 e7 20 28 61 |...7 . (a|
00005a80 6e 67 6c 65 3c 28 6c 6c 25 2a 2d 39 29 29 20 80 |ngle<(ll%*-9)) .|
00005a90 20 28 61 6e 67 6c 65 3e 28 28 6c 6c 25 2b 31 29 | (angle>((ll%+1)|
00005aa0 2a 2d 39 29 29 20 8c 0d 02 d9 1b 20 20 20 20 20 |*-9)) ..... |
00005ab0 20 20 20 20 20 e7 20 64 78 25 2d 38 37 32 3e 30 | . dx%-872>0|
00005ac0 20 8c 0d 02 da 20 20 20 20 20 20 20 20 20 20 20 | .... |
00005ad0 20 20 3d 31 30 2b a8 28 28 6c 6c 25 2b 31 29 2f | =10+.((ll%+1)/|
00005ae0 32 29 0d 02 db 0f 20 20 20 20 20 20 20 20 20 20 |2).... |
00005af0 cc 0d 02 dc 1d 20 20 20 20 20 20 20 20 20 20 20 |..... |
00005b00 20 3d a8 28 28 6c 6c 25 2b 31 29 2f 32 29 0d 02 | =.((ll%+1)/2)..|
00005b10 dd 0f 20 20 20 20 20 20 20 20 20 20 cd 0d 02 de |.. ....|
00005b20 0d 20 20 20 20 20 20 20 20 cd 0d 02 df 0b 20 20 |. ..... |
00005b30 20 20 20 20 ed 0d 02 e0 09 20 20 20 20 cd 0d 02 | ..... ...|
00005b40 e1 07 20 20 cd 0d 02 e2 09 3d 76 61 6c 25 0d 02 |.. .....=val%..|
00005b50 e3 04 0d 02 e4 11 dd 20 f2 73 79 6d 62 5f 61 72 |....... .symb_ar|
00005b60 65 61 73 0d 02 e5 14 20 20 ef 32 35 2c 34 2c 38 |eas.... .25,4,8|
00005b70 37 32 3b 36 30 34 3b 0d 02 e6 14 20 20 ef 32 35 |72;604;.... .25|
00005b80 2c 31 34 36 2c 32 38 38 3b 30 3b 0d 02 e7 14 20 |,146,288;0;.... |
00005b90 20 ef 32 35 2c 34 2c 38 37 32 3b 36 30 34 3b 0d | .25,4,872;604;.|
00005ba0 02 e8 14 20 20 ef 32 35 2c 31 34 36 2c 32 30 34 |... .25,146,204|
00005bb0 3b 30 3b 0d 02 e9 12 20 20 e3 20 6b 6b 25 3d 30 |;0;.... . kk%=0|
00005bc0 20 b8 20 31 39 0d 02 ea 26 20 20 20 20 63 78 25 | . 19...& cx%|
00005bd0 3d 38 37 32 20 2b 20 32 38 38 2a 9b 28 b2 28 28 |=872 + 288*.(.((|
00005be0 6b 6b 25 2a 31 38 29 2b 39 29 29 0d 02 eb 26 20 |kk%*18)+9))...& |
00005bf0 20 20 20 63 79 25 3d 36 30 34 20 2b 20 32 38 38 | cy%=604 + 288|
00005c00 2a b5 28 b2 28 28 6b 6b 25 2a 31 38 29 2b 39 29 |*.(.((kk%*18)+9)|
00005c10 29 0d 02 ec 16 20 20 20 20 ef 32 35 2c 34 2c 63 |).... .25,4,c|
00005c20 78 25 3b 63 79 25 3b 0d 02 ed 26 20 20 20 20 63 |x%;cy%;...& c|
00005c30 78 25 3d 38 37 32 20 2b 20 32 30 34 2a 9b 28 b2 |x%=872 + 204*.(.|
00005c40 28 28 6b 6b 25 2a 31 38 29 2b 39 29 29 0d 02 ee |((kk%*18)+9))...|
00005c50 26 20 20 20 20 63 79 25 3d 36 30 34 20 2b 20 32 |& cy%=604 + 2|
00005c60 30 34 2a b5 28 b2 28 28 6b 6b 25 2a 31 38 29 2b |04*.(.((kk%*18)+|
00005c70 39 29 29 0d 02 ef 16 20 20 20 20 ef 32 35 2c 36 |9)).... .25,6|
00005c80 2c 63 78 25 3b 63 79 25 3b 0d 02 f0 07 20 20 ed |,cx%;cy%;.... .|
00005c90 0d 02 f1 05 e1 0d 02 f2 04 0d 02 f3 1d dd 20 f2 |.............. .|
00005ca0 63 61 6c 5f 62 6c 61 6e 6b 28 73 63 72 25 2c 62 |cal_blank(scr%,b|
00005cb0 6c 5f 77 72 25 29 0d 02 f4 17 20 20 f2 64 6f 74 |l_wr%).... .dot|
00005cc0 73 5f 62 6c 61 6e 6b 28 73 63 72 25 29 0d 02 f5 |s_blank(scr%)...|
00005cd0 1c 20 20 f2 73 79 6d 62 5f 62 6c 61 6e 6b 28 73 |. .symb_blank(s|
00005ce0 63 72 25 2c 73 63 72 25 29 0d 02 f6 25 20 20 f2 |cr%,scr%)...% .|
00005cf0 62 6f 72 64 65 72 5f 63 65 6e 74 72 65 28 32 38 |border_centre(28|
00005d00 32 2c 35 35 36 2c 33 37 38 2c 36 35 32 29 0d 02 |2,556,378,652)..|
00005d10 f7 25 20 20 f2 62 6f 72 64 65 72 5f 63 65 6e 74 |.% .border_cent|
00005d20 72 65 28 37 35 32 2c 34 38 34 2c 39 39 32 2c 37 |re(752,484,992,7|
00005d30 32 34 29 0d 02 f8 3d 20 20 e7 20 62 6c 5f 77 72 |24)...= . bl_wr|
00005d40 25 3d 30 20 f2 62 6f 72 64 65 72 5f 63 65 6e 74 |%=0 .border_cent|
00005d50 72 65 28 6c 65 66 74 25 2c 6c 6f 77 25 2c 6c 65 |re(left%,low%,le|
00005d60 66 74 25 2b 33 38 34 2c 6c 6f 77 25 2b 37 32 29 |ft%+384,low%+72)|
00005d70 0d 02 f9 05 e1 0d 02 fa 04 0d 02 fb 2a dd 20 f2 |............*. .|
00005d80 63 61 6c 5f 73 65 74 75 70 28 73 63 72 25 2c 64 |cal_setup(scr%,d|
00005d90 61 79 5f 6e 6f 25 2c 6e 6f 5f 63 65 6e 74 72 65 |ay_no%,no_centre|
00005da0 73 25 29 0d 02 fc 2e 20 20 f2 64 6f 74 73 5f 69 |s%).... .dots_i|
00005db0 6e 69 74 28 73 63 72 25 2c 28 28 64 61 79 5f 6e |nit(scr%,((day_n|
00005dc0 6f 25 2d 31 29 83 31 33 29 2b 31 2c 73 63 72 25 |o%-1).13)+1,scr%|
00005dd0 29 0d 02 fd 2a 20 20 f2 73 79 6d 62 5f 63 69 72 |)...* .symb_cir|
00005de0 63 28 73 63 72 25 2c 28 64 61 79 5f 6e 6f 25 2d |c(scr%,(day_no%-|
00005df0 31 29 83 32 30 2c 73 63 72 25 29 0d 02 fe 18 20 |1).20,scr%).... |
00005e00 20 e7 20 6e 6f 5f 63 65 6e 74 72 65 73 25 3c 3e | . no_centres%<>|
00005e10 30 20 8c 0d 02 ff 28 20 20 20 20 f2 64 6f 74 73 |0 ....( .dots|
00005e20 5f 63 65 6e 74 72 65 28 28 28 64 61 79 5f 6e 6f |_centre(((day_no|
00005e30 25 2d 31 29 83 31 33 29 2b 31 29 0d 03 00 24 20 |%-1).13)+1)...$ |
00005e40 20 20 20 f2 73 79 6d 62 5f 63 65 6e 74 72 65 28 | .symb_centre(|
00005e50 28 64 61 79 5f 6e 6f 25 2d 31 29 83 32 30 29 0d |(day_no%-1).20).|
00005e60 03 01 1b 20 20 20 20 f2 77 72 69 74 65 5f 64 61 |... .write_da|
00005e70 79 28 64 61 79 5f 6e 6f 25 29 0d 03 02 07 20 20 |y(day_no%).... |
00005e80 cd 0d 03 03 05 e1 0d 03 04 04 0d 03 05 17 dd 20 |............... |
00005e90 f2 64 6f 74 73 5f 62 6c 61 6e 6b 28 73 63 72 25 |.dots_blank(scr%|
00005ea0 29 0d 03 06 09 20 20 e6 20 31 0d 03 07 1b 20 20 |).... . 1.... |
00005eb0 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 |.. "OS_Byte",112|
00005ec0 2c 73 63 72 25 0d 03 08 27 20 20 ef 20 32 35 2c |,scr%...' . 25,|
00005ed0 34 2c 33 33 30 3b 36 30 34 3b 20 3a 20 ef 20 32 |4,330;604; : . 2|
00005ee0 35 2c 31 35 33 2c 32 30 38 3b 30 3b 0d 03 09 19 |5,153,208;0;....|
00005ef0 20 20 f2 79 65 6c 6c 6f 77 5f 73 6d 61 6c 6c 28 | .yellow_small(|
00005f00 73 63 72 25 29 0d 03 0a 1f 20 20 f2 62 6f 72 64 |scr%).... .bord|
00005f10 65 72 73 28 32 38 32 2c 35 35 36 2c 33 37 38 2c |ers(282,556,378,|
00005f20 36 35 32 29 0d 03 0b 05 e1 0d 03 0c 04 0d 03 0d |652)............|
00005f30 16 dd 20 f2 77 72 69 74 65 5f 64 61 79 28 64 61 |.. .write_day(da|
00005f40 79 25 29 0d 03 0e 32 20 20 f2 62 6f 72 64 65 72 |y%)...2 .border|
00005f50 5f 63 65 6e 74 72 65 28 6c 65 66 74 25 2c 6c 6f |_centre(left%,lo|
00005f60 77 25 2c 6c 65 66 74 25 2b 33 38 34 2c 6c 6f 77 |w%,left%+384,low|
00005f70 25 2b 37 32 29 0d 03 0f 2a 20 20 73 74 5f 6e 64 |%+72)...* st_nd|
00005f80 5f 72 64 5f 74 68 24 3d 66 69 72 73 74 5f 65 74 |_rd_th$=first_et|
00005f90 63 24 28 28 64 61 79 25 2d 31 29 83 31 30 29 0d |c$((day%-1).10).|
00005fa0 03 10 2b 20 20 e7 20 64 61 79 25 3e 31 30 20 80 |..+ . day%>10 .|
00005fb0 20 64 61 79 25 3c 31 34 20 73 74 5f 6e 64 5f 72 | day%<14 st_nd_r|
00005fc0 64 5f 74 68 24 3d 22 74 68 22 0d 03 11 11 20 20 |d_th$="th".... |
00005fd0 e7 20 64 61 79 25 3c 31 30 20 8c 0d 03 12 4e 20 |. day%<10 ....N |
00005fe0 20 20 20 f2 77 6f 72 64 73 28 6c 65 66 74 25 2b | .words(left%+|
00005ff0 33 32 2c 6c 6f 77 25 2b 32 34 2c 30 2c 22 20 22 |32,low%+24,0," "|
00006000 2b c3 28 64 61 79 25 29 2b 73 74 5f 6e 64 5f 72 |+.(day%)+st_nd_r|
00006010 64 5f 74 68 24 2b 22 20 64 61 79 20 6f 66 20 74 |d_th$+" day of t|
00006020 68 65 20 79 65 61 72 22 29 0d 03 13 07 20 20 cc |he year").... .|
00006030 0d 03 14 4a 20 20 20 20 f2 77 6f 72 64 73 28 6c |...J .words(l|
00006040 65 66 74 25 2b 33 32 2c 6c 6f 77 25 2b 32 34 2c |eft%+32,low%+24,|
00006050 30 2c c3 28 64 61 79 25 29 2b 73 74 5f 6e 64 5f |0,.(day%)+st_nd_|
00006060 72 64 5f 74 68 24 2b 22 20 64 61 79 20 6f 66 20 |rd_th$+" day of |
00006070 74 68 65 20 79 65 61 72 22 29 0d 03 15 07 20 20 |the year").... |
00006080 cd 0d 03 16 05 e1 0d 03 17 04 0d 03 18 1c dd 20 |............... |
00006090 f2 77 72 69 74 65 5f 64 61 79 73 5f 74 69 6d 65 |.write_days_time|
000060a0 28 64 61 79 25 29 0d 03 19 32 20 20 f2 62 6f 72 |(day%)...2 .bor|
000060b0 64 65 72 5f 63 65 6e 74 72 65 28 6c 65 66 74 25 |der_centre(left%|
000060c0 2c 6c 6f 77 25 2c 6c 65 66 74 25 2b 33 38 34 2c |,low%,left%+384,|
000060d0 6c 6f 77 25 2b 37 32 29 0d 03 1a 11 20 20 e7 20 |low%+72).... . |
000060e0 64 61 79 25 3c 31 30 20 8c 0d 03 1b 40 20 20 20 |day%<10 ....@ |
000060f0 20 f2 77 6f 72 64 73 28 6c 65 66 74 25 2b 34 38 | .words(left%+48|
00006100 2c 6c 6f 77 25 2b 32 34 2c 30 2c 22 20 20 20 20 |,low%+24,0," |
00006110 20 20 22 2b c3 28 64 61 79 25 29 2b 22 20 64 61 | "+.(day%)+" da|
00006120 79 73 20 74 69 6d 65 22 29 0d 03 1c 07 20 20 cc |ys time").... .|
00006130 0d 03 1d 3f 20 20 20 20 f2 77 6f 72 64 73 28 6c |...? .words(l|
00006140 65 66 74 25 2b 34 38 2c 6c 6f 77 25 2b 32 34 2c |eft%+48,low%+24,|
00006150 30 2c 22 20 20 20 20 20 22 2b c3 28 64 61 79 25 |0," "+.(day%|
00006160 29 2b 22 20 64 61 79 73 20 74 69 6d 65 22 29 0d |)+" days time").|
00006170 03 1e 07 20 20 cd 0d 03 1f 05 e1 0d 03 20 04 0d |... ........ ..|
00006180 03 21 0f dd 20 f2 65 78 70 5f 63 6f 67 73 0d 03 |.!.. .exp_cogs..|
00006190 22 0e 20 20 f2 65 78 70 6c 6f 72 65 0d 03 23 1f |". .explore..#.|
000061a0 20 20 64 6f 6e 65 73 79 6d 62 25 3d 30 20 3a 20 | donesymb%=0 : |
000061b0 64 6f 6e 65 6e 75 6d 62 25 3d 30 0d 03 24 43 20 |donenumb%=0..$C |
000061c0 20 62 6f 78 25 28 30 2c 30 29 3d 34 39 30 20 3a | box%(0,0)=490 :|
000061d0 20 62 6f 78 25 28 30 2c 31 29 3d 35 37 32 20 3a | box%(0,1)=572 :|
000061e0 20 62 6f 78 25 28 31 2c 30 29 3d 35 38 38 20 3a | box%(1,0)=588 :|
000061f0 20 62 6f 78 25 28 31 2c 31 29 3d 35 37 32 0d 03 | box%(1,1)=572..|
00006200 25 07 20 20 f5 0d 03 26 1b 20 20 20 20 f2 63 68 |%. ...&. .ch|
00006210 6f 6f 73 65 5f 62 6f 78 28 31 2c 32 2c 2d 31 29 |oose_box(1,2,-1)|
00006220 0d 03 27 16 20 20 20 20 e7 20 67 6f 74 5f 62 6f |..'. . got_bo|
00006230 78 25 3d 30 20 8c 0d 03 28 19 20 20 20 20 20 20 |x%=0 ...(. |
00006240 e3 20 6d 25 3d 32 20 b8 20 31 20 88 20 2d 31 0d |. m%=2 . 1 . -1.|
00006250 03 29 1d 20 20 20 20 20 20 20 20 f2 79 65 6c 6c |.). .yell|
00006260 6f 77 5f 73 6d 61 6c 6c 28 6d 25 29 0d 03 2a 0b |ow_small(m%)..*.|
00006270 20 20 20 20 20 20 ed 0d 03 2b 42 20 20 20 20 20 | ...+B |
00006280 20 f2 65 6e 6c 61 72 67 65 5f 62 6f 78 28 31 2c | .enlarge_box(1,|
00006290 34 2c 62 6f 78 25 28 30 2c 30 29 2c 62 6f 78 25 |4,box%(0,0),box%|
000062a0 28 30 2c 31 29 2c 32 38 32 2c 35 35 36 2c 33 37 |(0,1),282,556,37|
000062b0 38 2c 36 35 32 2c 22 22 29 0d 03 2c 23 20 20 20 |8,652,"")..,# |
000062c0 20 20 20 f2 62 6f 72 64 65 72 73 28 32 38 32 2c | .borders(282,|
000062d0 35 35 36 2c 33 37 38 2c 36 35 32 29 0d 03 2d 19 |556,378,652)..-.|
000062e0 20 20 20 20 20 20 f2 64 6f 74 73 5f 63 65 6e 74 | .dots_cent|
000062f0 72 65 28 31 29 0d 03 2e 15 20 20 20 20 20 20 64 |re(1).... d|
00006300 6f 6e 65 6e 75 6d 62 25 3d 31 0d 03 2f 91 20 20 |onenumb%=1../. |
00006310 20 20 20 20 e7 50 25 3a f2 77 6f 72 64 73 28 37 | .P%:.words(7|
00006320 30 2c 31 33 34 2c 2d 31 2c 22 54 68 65 20 6c 65 |0,134,-1,"The le|
00006330 66 74 20 63 6f 67 20 68 61 73 20 67 72 6f 75 70 |ft cog has group|
00006340 73 20 6f 66 20 64 6f 74 73 20 72 61 6e 67 69 6e |s of dots rangin|
00006350 67 20 66 72 6f 6d 20 31 20 74 6f 20 31 33 2e 22 |g from 1 to 13."|
00006360 29 3a 8b 3a f2 77 6f 72 64 73 28 37 30 2c 31 33 |):.:.words(70,13|
00006370 34 2c 2d 31 2c 22 54 68 65 20 6c 65 66 74 20 63 |4,-1,"The left c|
00006380 6f 67 20 68 61 73 20 64 6f 74 73 20 66 72 6f 6d |og has dots from|
00006390 20 31 20 74 6f 20 31 33 2e 22 29 0d 03 30 10 20 | 1 to 13.")..0. |
000063a0 20 20 20 20 20 f2 67 6f 5f 6f 6e 0d 03 31 09 20 | .go_on..1. |
000063b0 20 20 20 cd 0d 03 32 16 20 20 20 20 e7 20 67 6f | ...2. . go|
000063c0 74 5f 62 6f 78 25 3d 31 20 8c 0d 03 33 17 20 20 |t_box%=1 ...3. |
000063d0 20 20 20 20 f2 79 65 6c 6c 6f 77 5f 6c 61 72 67 | .yellow_larg|
000063e0 65 0d 03 34 42 20 20 20 20 20 20 f2 65 6e 6c 61 |e..4B .enla|
000063f0 72 67 65 5f 62 6f 78 28 31 2c 35 2c 62 6f 78 25 |rge_box(1,5,box%|
00006400 28 31 2c 30 29 2c 62 6f 78 25 28 31 2c 31 29 2c |(1,0),box%(1,1),|
00006410 37 35 32 2c 34 38 34 2c 39 39 32 2c 37 32 34 2c |752,484,992,724,|
00006420 22 22 29 0d 03 35 23 20 20 20 20 20 20 f2 62 6f |"")..5# .bo|
00006430 72 64 65 72 73 28 37 35 32 2c 34 38 34 2c 39 39 |rders(752,484,99|
00006440 32 2c 37 32 34 29 0d 03 36 19 20 20 20 20 20 20 |2,724)..6. |
00006450 f2 73 79 6d 62 5f 63 65 6e 74 72 65 28 30 29 0d |.symb_centre(0).|
00006460 03 37 48 20 20 20 20 20 20 c8 99 20 22 4f 53 5f |.7H .. "OS_|
00006470 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 41 |SpriteOp",&134,A|
00006480 52 45 41 25 2c 6d 6f 74 69 66 24 28 30 29 2c 37 |REA%,motif$(0),7|
00006490 35 32 2b 34 30 2c 34 38 34 2b 36 34 2c 30 2c 53 |52+40,484+64,0,S|
000064a0 43 41 4c 45 25 2c 30 0d 03 38 39 20 20 20 20 20 |CALE%,0..89 |
000064b0 20 f2 77 6f 72 64 73 28 37 35 32 2b 34 30 2b 6d | .words(752+40+m|
000064c0 6f 74 69 66 5f 78 25 28 30 29 2c 34 38 34 2b 32 |otif_x%(0),484+2|
000064d0 34 2c 30 2c 22 63 72 6f 63 6f 64 69 6c 65 22 29 |4,0,"crocodile")|
000064e0 0d 03 39 15 20 20 20 20 20 20 64 6f 6e 65 73 79 |..9. donesy|
000064f0 6d 62 25 3d 31 0d 03 3a 3f 20 20 20 20 20 20 f2 |mb%=1..:? .|
00006500 77 6f 72 64 73 28 37 30 2c 31 33 34 2c 2d 31 2c |words(70,134,-1,|
00006510 22 54 68 65 20 72 69 67 68 74 20 63 6f 67 20 68 |"The right cog h|
00006520 61 73 20 74 68 65 20 32 30 20 73 79 6d 62 6f 6c |as the 20 symbol|
00006530 73 2e 22 29 0d 03 3b 10 20 20 20 20 20 20 f2 67 |s.")..;. .g|
00006540 6f 5f 6f 6e 0d 03 3c 09 20 20 20 20 cd 0d 03 3d |o_on..<. ...=|
00006550 12 20 20 20 20 f2 63 6c 65 61 72 74 65 78 74 0d |. .cleartext.|
00006560 03 3e 29 20 20 20 20 e7 20 28 64 6f 6e 65 73 79 |.>) . (donesy|
00006570 6d 62 25 3d 30 29 20 84 20 28 64 6f 6e 65 6e 75 |mb%=0) . (donenu|
00006580 6d 62 25 3d 30 29 20 8c 0d 03 3f 12 20 20 20 20 |mb%=0) ...?. |
00006590 20 20 f2 65 78 70 6c 6f 72 65 0d 03 40 09 20 20 | .explore..@. |
000065a0 20 20 cd 0d 03 41 25 20 20 fd 20 28 64 6f 6e 65 | ...A% . (done|
000065b0 73 79 6d 62 25 3d 31 29 20 80 20 28 64 6f 6e 65 |symb%=1) . (done|
000065c0 6e 75 6d 62 25 3d 31 29 0d 03 42 18 20 20 c8 99 |numb%=1)..B. ..|
000065d0 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 32 | "OS_Byte",112,2|
000065e0 0d 03 43 1f 20 20 f2 62 6f 72 64 65 72 73 28 32 |..C. .borders(2|
000065f0 38 32 2c 35 35 36 2c 33 37 38 2c 36 35 32 29 0d |82,556,378,652).|
00006600 03 44 1f 20 20 f2 62 6f 72 64 65 72 73 28 37 35 |.D. .borders(75|
00006610 32 2c 34 38 34 2c 39 39 32 2c 37 32 34 29 0d 03 |2,484,992,724)..|
00006620 45 15 20 20 f2 73 79 6d 62 5f 63 65 6e 74 72 65 |E. .symb_centre|
00006630 28 30 29 0d 03 46 15 20 20 f2 64 6f 74 73 5f 63 |(0)..F. .dots_c|
00006640 65 6e 74 72 65 28 31 29 0d 03 47 18 20 20 c8 99 |entre(1)..G. ..|
00006650 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 31 | "OS_Byte",112,1|
00006660 0d 03 48 05 e1 0d 03 49 04 0d 03 4a 19 dd 20 f2 |..H....I...J.. .|
00006670 79 65 6c 6c 6f 77 5f 73 6d 61 6c 6c 28 73 63 72 |yellow_small(scr|
00006680 25 29 0d 03 4b 09 20 20 e6 20 39 0d 03 4c 1b 20 |%)..K. . 9..L. |
00006690 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 | .. "OS_Byte",11|
000066a0 32 2c 73 63 72 25 0d 03 4d 10 20 20 e7 20 73 63 |2,scr%..M. . sc|
000066b0 72 25 3d 31 20 8c 0d 03 4e 18 20 20 20 20 e3 20 |r%=1 ...N. . |
000066c0 69 25 3d 31 20 b8 20 2d 31 20 88 20 2d 32 0d 03 |i%=1 . -1 . -2..|
000066d0 4f 2f 20 20 20 20 20 20 63 78 25 3d a4 64 69 76 |O/ cx%=.div|
000066e0 69 73 32 28 33 33 30 20 2b 20 32 31 36 2a 9b 28 |is2(330 + 216*.(|
000066f0 b2 28 31 33 2e 38 35 2a 69 25 29 29 29 0d 03 50 |.(13.85*i%)))..P|
00006700 2f 20 20 20 20 20 20 63 79 25 3d a4 64 69 76 69 |/ cy%=.divi|
00006710 73 34 28 36 30 34 20 2b 20 32 31 36 2a b5 28 b2 |s4(604 + 216*.(.|
00006720 28 31 33 2e 38 35 2a 69 25 29 29 29 0d 03 51 18 |(13.85*i%)))..Q.|
00006730 20 20 20 20 20 20 ef 32 35 2c 34 2c 63 78 25 3b | .25,4,cx%;|
00006740 63 79 25 3b 0d 03 52 2e 20 20 20 20 20 20 63 78 |cy%;..R. cx|
00006750 25 3d a4 64 69 76 69 73 32 28 33 33 30 20 2b 20 |%=.divis2(330 + |
00006760 37 36 2a 9b 28 b2 28 31 33 2e 38 35 2a 69 25 29 |76*.(.(13.85*i%)|
00006770 29 29 0d 03 53 2e 20 20 20 20 20 20 63 79 25 3d |))..S. cy%=|
00006780 a4 64 69 76 69 73 34 28 36 30 34 20 2b 20 37 36 |.divis4(604 + 76|
00006790 2a b5 28 b2 28 31 33 2e 38 35 2a 69 25 29 29 29 |*.(.(13.85*i%)))|
000067a0 0d 03 54 18 20 20 20 20 20 20 ef 32 35 2c 35 2c |..T. .25,5,|
000067b0 63 78 25 3b 63 79 25 3b 0d 03 55 12 20 20 20 20 |cx%;cy%;..U. |
000067c0 20 20 e7 20 69 25 3d 31 20 8c 0d 03 56 1a 20 20 | . i%=1 ...V. |
000067d0 20 20 20 20 20 20 ef 32 35 2c 35 2c 33 39 30 3b | .25,5,390;|
000067e0 36 36 34 3b 0d 03 57 0b 20 20 20 20 20 20 cc 0d |664;..W. ..|
000067f0 03 58 1a 20 20 20 20 20 20 20 20 ef 32 35 2c 35 |.X. .25,5|
00006800 2c 33 39 30 3b 35 34 34 3b 0d 03 59 0b 20 20 20 |,390;544;..Y. |
00006810 20 20 20 cd 0d 03 5a 09 20 20 20 20 ed 0d 03 5b | ...Z. ...[|
00006820 1d 20 20 20 20 ef 20 32 34 2c 32 37 30 3b 35 34 |. . 24,270;54|
00006830 34 3b 33 39 30 3b 36 36 34 3b 0d 03 5c 16 20 20 |4;390;664;..\. |
00006840 20 20 ef 20 31 38 2c 30 2c 31 33 37 20 3a 20 da | . 18,0,137 : .|
00006850 0d 03 5d 0c 20 20 20 20 ef 20 32 36 0d 03 5e 12 |..]. . 26..^.|
00006860 20 20 20 20 ef 20 31 38 2c 30 2c 31 32 39 0d 03 | . 18,0,129..|
00006870 5f 18 20 20 20 20 ef 32 35 2c 31 33 33 2c 34 30 |_. .25,133,40|
00006880 30 3b 36 30 34 3b 0d 03 60 07 20 20 cc 0d 03 61 |0;604;..`. ...a|
00006890 1d 20 20 20 20 ef 20 32 34 2c 32 37 30 3b 35 34 |. . 24,270;54|
000068a0 34 3b 33 39 30 3b 36 36 34 3b 0d 03 62 16 20 20 |4;390;664;..b. |
000068b0 20 20 ef 20 31 38 2c 30 2c 31 33 37 20 3a 20 da | . 18,0,137 : .|
000068c0 0d 03 63 0c 20 20 20 20 ef 20 32 36 0d 03 64 07 |..c. . 26..d.|
000068d0 20 20 cd 0d 03 65 05 e1 0d 03 66 04 0d 03 67 13 | ...e....f...g.|
000068e0 dd 20 f2 79 65 6c 6c 6f 77 5f 6c 61 72 67 65 0d |. .yellow_large.|
000068f0 03 68 09 20 20 e6 20 31 0d 03 69 15 20 20 e3 20 |.h. . 1..i. . |
00006900 69 25 3d 32 20 b8 20 31 20 88 20 2d 31 0d 03 6a |i%=2 . 1 . -1..j|
00006910 1b 20 20 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 |. .. "OS_Byte|
00006920 22 2c 31 31 32 2c 69 25 0d 03 6b 29 20 20 20 20 |",112,i%..k) |
00006930 ef 20 32 35 2c 34 2c 38 37 32 3b 36 30 34 3b 20 |. 25,4,872;604; |
00006940 3a 20 ef 20 32 35 2c 31 35 33 2c 31 38 34 3b 30 |: . 25,153,184;0|
00006950 3b 0d 03 6c 07 20 20 ed 0d 03 6d 09 20 20 e6 20 |;..l. ...m. . |
00006960 39 0d 03 6e 16 20 20 e3 20 69 25 3d 31 20 b8 20 |9..n. . i%=1 . |
00006970 2d 31 20 88 20 2d 32 0d 03 6f 29 20 20 20 20 63 |-1 . -2..o) c|
00006980 78 25 3d a4 64 69 76 69 73 32 28 38 37 32 20 2d |x%=.divis2(872 -|
00006990 20 33 32 30 2a 9b 28 b2 28 39 2a 69 25 29 29 29 | 320*.(.(9*i%)))|
000069a0 0d 03 70 29 20 20 20 20 63 79 25 3d a4 64 69 76 |..p) cy%=.div|
000069b0 69 73 34 28 36 30 34 20 2b 20 33 32 30 2a b5 28 |is4(604 + 320*.(|
000069c0 b2 28 39 2a 69 25 29 29 29 0d 03 71 16 20 20 20 |.(9*i%)))..q. |
000069d0 20 ef 32 35 2c 34 2c 63 78 25 3b 63 79 25 3b 0d | .25,4,cx%;cy%;.|
000069e0 03 72 29 20 20 20 20 63 78 25 3d a4 64 69 76 69 |.r) cx%=.divi|
000069f0 73 32 28 38 37 32 20 2d 20 31 34 36 2a 9b 28 b2 |s2(872 - 146*.(.|
00006a00 28 39 2a 69 25 29 29 29 0d 03 73 29 20 20 20 20 |(9*i%)))..s) |
00006a10 63 79 25 3d a4 64 69 76 69 73 34 28 36 30 34 20 |cy%=.divis4(604 |
00006a20 2b 20 31 34 36 2a b5 28 b2 28 39 2a 69 25 29 29 |+ 146*.(.(9*i%))|
00006a30 29 0d 03 74 16 20 20 20 20 ef 32 35 2c 35 2c 63 |)..t. .25,5,c|
00006a40 78 25 3b 63 79 25 3b 0d 03 75 10 20 20 20 20 e7 |x%;cy%;..u. .|
00006a50 20 69 25 3d 31 20 8c 0d 03 76 18 20 20 20 20 20 | i%=1 ...v. |
00006a60 20 ef 32 35 2c 35 2c 37 34 30 3b 37 33 36 3b 0d | .25,5,740;736;.|
00006a70 03 77 09 20 20 20 20 cc 0d 03 78 18 20 20 20 20 |.w. ...x. |
00006a80 20 20 ef 32 35 2c 35 2c 37 34 30 3b 34 37 32 3b | .25,5,740;472;|
00006a90 0d 03 79 09 20 20 20 20 cd 0d 03 7a 07 20 20 ed |..y. ...z. .|
00006aa0 0d 03 7b 15 20 20 e3 20 69 25 3d 32 20 b8 20 31 |..{. . i%=2 . 1|
00006ab0 20 88 20 2d 31 0d 03 7c 1b 20 20 20 20 c8 99 20 | . -1..|. .. |
00006ac0 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 69 25 |"OS_Byte",112,i%|
00006ad0 0d 03 7d 1e 20 20 20 20 ef 20 32 34 2c 37 34 30 |..}. . 24,740|
00006ae0 3b 34 37 32 3b 31 30 30 34 3b 37 33 36 3b 0d 03 |;472;1004;736;..|
00006af0 7e 16 20 20 20 20 ef 20 31 38 2c 30 2c 31 33 37 |~. . 18,0,137|
00006b00 20 3a 20 da 0d 03 7f 0c 20 20 20 20 ef 20 32 36 | : ..... . 26|
00006b10 0d 03 80 07 20 20 ed 0d 03 81 10 20 20 ef 20 31 |.... ..... . 1|
00006b20 38 2c 30 2c 31 32 39 0d 03 82 16 20 20 ef 32 35 |8,0,129.... .25|
00006b30 2c 31 33 33 2c 37 33 36 3b 36 30 34 3b 0d 03 83 |,133,736;604;...|
00006b40 05 e1 0d 03 84 04 0d 03 85 18 dd 20 f2 73 79 6d |........... .sym|
00006b50 62 5f 63 65 6e 74 72 65 28 73 79 6d 25 29 0d 03 |b_centre(sym%)..|
00006b60 86 25 20 20 f2 62 6f 72 64 65 72 5f 63 65 6e 74 |.% .border_cent|
00006b70 72 65 28 37 35 32 2c 34 38 34 2c 39 39 32 2c 37 |re(752,484,992,7|
00006b80 32 34 29 0d 03 87 47 20 20 c8 99 20 22 4f 53 5f |24)...G .. "OS_|
00006b90 53 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 41 |SpriteOp",&134,A|
00006ba0 52 45 41 25 2c 6d 6f 74 69 66 24 28 73 79 6d 25 |REA%,motif$(sym%|
00006bb0 29 2c 37 35 32 2b 34 30 2c 34 38 34 2b 36 34 2c |),752+40,484+64,|
00006bc0 30 2c 53 43 41 4c 45 25 2c 30 0d 03 88 39 20 20 |0,SCALE%,0...9 |
00006bd0 f2 77 6f 72 64 73 28 37 35 32 2b 34 30 2b 6d 6f |.words(752+40+mo|
00006be0 74 69 66 5f 78 25 28 73 79 6d 25 29 2c 34 38 34 |tif_x%(sym%),484|
00006bf0 2b 32 34 2c 30 2c 6d 6f 74 69 66 24 28 73 79 6d |+24,0,motif$(sym|
00006c00 25 29 29 0d 03 89 05 e1 0d 03 8a 04 0d 03 8b 18 |%)).............|
00006c10 dd 20 f2 64 6f 74 73 5f 63 65 6e 74 72 65 28 6e |. .dots_centre(n|
00006c20 75 6d 25 29 0d 03 8c 25 20 20 f2 62 6f 72 64 65 |um%)...% .borde|
00006c30 72 5f 63 65 6e 74 72 65 28 32 38 32 2c 35 35 36 |r_centre(282,556|
00006c40 2c 33 37 38 2c 36 35 32 29 0d 03 8d 11 20 20 e7 |,378,652).... .|
00006c50 20 6e 75 6d 25 3c 31 30 20 8c 0d 03 8e 26 20 20 | num%<10 ....& |
00006c60 20 20 f2 77 6f 72 64 73 28 33 30 36 2c 35 38 34 | .words(306,584|
00006c70 2c 2d 31 2c 22 20 22 2b c3 28 6e 75 6d 25 29 29 |,-1," "+.(num%))|
00006c80 0d 03 8f 07 20 20 cc 0d 03 90 22 20 20 20 20 f2 |.... ...." .|
00006c90 77 6f 72 64 73 28 33 30 36 2c 35 38 34 2c 2d 31 |words(306,584,-1|
00006ca0 2c c3 28 6e 75 6d 25 29 29 0d 03 91 07 20 20 cd |,.(num%)).... .|
00006cb0 0d 03 92 05 e1 0d 03 93 04 0d 03 94 04 0d 03 95 |................|
00006cc0 12 dd a4 64 69 76 69 73 32 28 76 61 6c 25 29 0d |...divis2(val%).|
00006cd0 03 96 14 76 61 6c 25 3d 76 61 6c 25 2d 76 61 6c |...val%=val%-val|
00006ce0 25 83 32 0d 03 97 09 3d 76 61 6c 25 0d 03 98 04 |%.2....=val%....|
00006cf0 0d 03 99 12 dd a4 64 69 76 69 73 34 28 76 61 6c |......divis4(val|
00006d00 25 29 0d 03 9a 14 76 61 6c 25 3d 76 61 6c 25 2d |%)....val%=val%-|
00006d10 76 61 6c 25 83 34 0d 03 9b 09 3d 76 61 6c 25 0d |val%.4....=val%.|
00006d20 03 9c 04 0d 03 9d 04 0d 03 9e 04 0d 03 9f 04 0d |................|
00006d30 03 a0 04 0d 03 a1 04 0d ff |.........|
00006d39 
.