0 '* CLOCK2.BA *
1 ' CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 '* By Structured Software Services *
3 DEFINTA-Z:ST$="12:00":SA$="PM":SH=12:SM=0:OM=99:KT=99:AL=3:N(1)=1567:N(2)=1758:N(3)=1864:N(4)=2092:N(5)=2348:N(6)=16:N(7)=32:N(8)=40:N(9)=80
4 CLS:PA=9:XA$="":HA=99:HB=99:MA=99:MB=99:X1=99:XO=99:MF=1:KEYON:ONKEYGOSUB6,10,19,20,52,54,56,71
5 GOSUB 111:GOSUB 72:GOSUB 100:IFIR=1THENIR=0:GOTO4ELSE5
6 KEYOFF:CLS:PRINT:PRINT"(1) Cuckoo Song":PRINT"(2) Chimes":PRINT"(3) SLOW BEEP":PRINT"(4) Fast Beep":PRINT:PRINT"Press number of desired alarm...";
7 K$=INKEY$:IF K$=""THEN 7
8 AL=VAL(K$):IF AL<1OR AL>4 THEN 6
9 CLS:IR=1:FORI=1TO10:X$=INKEY$:NEXT:RETURN
10 KEYOFF:CLS:PRINT:PRINT"Alarm is now set for ";ST$;" ";SA$:PRINT:PRINT"Enter new time, or just press ENTER if":PRINT:LINEINPUT"setting is correct: ";NT$:IFNT$=""THENSF=1:GOTO 9
11 C=INSTR(1,NT$,":"):IFC=0THEN10
12 NA$=RIGHT$(NT$,2):IFNA$="am"THENSA$="AM":GOTO15
13 IFNA$="pm"THENSA$="PM":GOTO15
14 IFNA$<>"AM"ANDNA$<>"PM"THEN10ELSESA$=NA$
15 SH=VAL(LEFT$(NT$,C-1)):IFSH<1ORSH>12THEN10
16 SM=VAL(MID$(NT$,C+1,2)):IFSM<0ORSM>59THEN10
17 ST$="":ST$=ST$+RIGHT$(STR$(SH),LEN(STR$(SH))-1)+":":IF SM<10THENST$=ST$+"0"
18 ST$=ST$+RIGHT$(STR$(SM),LEN(STR$(SM))-1):GOTO 10
19 KEYOFF:SF=0:GOTO 9
20 IFMO=0THENRETURNELSEKEYOFF:CY=VAL(RIGHT$(DT$,2)):CM=MO:CD=D1*10+D2:CN=DN
21 CLS:GOSUB26:IFK$="C"ORK$="c"THEN9
22 IF K$=CHR$(29)THEN24ELSECM=CM+1:IFCM=13THENCM=1:CY=CY+1
23 CD=1:CN=NL+1:IFCN=8THENCN=1:GOTO21ELSE21
24 CM=CM-1:IFCM=0THENCM=12:CY=CY-1
25 GOSUB47:CD=ND:CN=CN-1:IFCN=0THENCN=7:GOTO21ELSE21
26 CD=CDMOD7:IFCD=0THENCD=7
27 IFCD>CNTHENN1=CN+8-CDELSEN1=CN+1-CD
28 PRINT@7,"";:ONCMGOTO29,30,31,32,33,34,35,36,37,38,39,40
29 PRINT"  J a n u a r y";:GOTO41
30 PRINT" F e b r u a r y";:GOTO41
31 PRINT"    M a r c h";:GOTO41
32 PRINT"    A p r i l";:GOTO41
33 PRINT"      M a y";:GOTO41
34 PRINT"     J u n e";:GOTO41
35 PRINT"     J u l y";:GOTO41
36 PRINT"   A u g u s t";:GOTO41
37 PRINT"S e p t e m b e r";:GOTO 41
38 PRINT"  O c t o b e r";:GOTO41
39 PRINT" N o v e m b e r";:GOTO41
40 PRINT" D e c e m b e r";:GOTO41
41 PRINT", 1 9";CY\10;CHR$(8);CYMOD10;SPACES$(6):GOSUB47:I=1:P=90:FORII=N1TO7:GOSUB45:I=I+1:NEXTII:FORP=130TO210STEP40:FORII=1TO7:GOSUB45:I=I+1:NEXTII:NEXTP:NL=7
42 IFI>NDTHEN49
43 FORII=1TO7:IFI<=NDTHENGOSUB45:NL=II:I=I+1
44 NEXTII:P=290:GOTO42
45 PP=P+(II-1)*3:IFCM=MOANDI=D1*10+D2ANDCY=VAL(RIGHT$(DT$,2))THENCALL17001:PX=(PPMOD40)*6:PY=(PP\40)*8:LINE(PX-3,PY)-(PX+15,PY+7),1,BF
46 PRINT@PP,USING"##";I;:CALL17006:RETURN
47 IFCM=4ORCM=6ORCM=9ORCM=11THENND=30:RETURN
48 IFCM<>2THENND=31:RETURNELSEIFCYMOD4=0THENND=29:RETURNELSEND=28:RETURN
49 PRINT@50,"Su Mo Tu We Th Fr Sa":FORI=57TO183STEP18:LINE(I,15)-(I,63):NEXT:FORI=15TO63STEP8:LINE(57,I)-(183,I):NEXT:PRINT"Press ";CHR$(155):PRINT@120,"to see";:PRINT@160,"previous";:PRINT@200,"month,";:PRINT@240,"or C for";:PRINT@280,"clock.";
50 PRINT@112,"Press ";CHR$(154):PRINT@152,"to see";:PRINT@192,"next";:PRINT@232,"month,";:PRINT@272,"or C for";:PRINT@312,"clock.";
51 K$=INKEY$:IFK$="C"ORK$="c"ORK$=CHR$(28)ORK$=CHR$(29)THENRETURNELSE51
52 KEYOFF:IFCF=1THENCF=0ELSEKF=0:CF=1
53 GOTO 9
54 KEYOFF:IFKF=1THENKF=0ELSECF=0:KF=1
55 GOTO 9
56 KEYOFF:CLS:PRINT"Function keys do the following:":PRINT"F1: Set alarm sound F5: Chimes on/off.":PRINT"F2: Set alarm time. F6: Cuckoo on/off.":PRINT"F3: Turn alarm off. F7: Get help.":PRINT"F4: View calendar.  F8: Model 100 Menu."
57 PRINT"For more help on a function, press its  coresponding numeric key (not function  key), or ENTER to return to clock.";:LINE(0,7)-(239,7):LINE(0,39)-(239,39)
58 GOSUB70:IFK$=CHR$(13)THEN9ELSEK=VAL(K$)
59 IFK<1ORK>8THEN58ELSECLS:P$="Pressing F":ONKGOSUB60,62,63,64,65,66,68,69:GOTO56
60 PRINT:PRINTP$;"1 allows you to pick one of":PRINT:PRINT"the four kinds of sounds the alarm can":PRINT:PRINT"make when it goes off."
61 PRINT@280,"(Press any key to return to help menu.)";:GOSUB70:RETURN
62 PRINT:PRINTP$;"2 sets the alarm to go off at the time you specify. On the clock face, 'Set' is printed in a black box when   the alarm is set.":GOTO61
63 PRINT:PRINTP$;"3 turns the alarm off. When   the alarm is off, 'Set' is not in a     black box on the clock face. When the   alarm is sounding, pressing a letter or spacebar key will turn it off.":GOTO61
64 PRINT:PRINTP$;"4 shows the calendar for the  current month. You may page backward andforward a month at a time. Today's date appears in a black box.":GOTO61
65 PRINTP$;"5 turns the chimes on or off. On the clock face, 'Chme' is printed in a black box when the chimes are on.     If on, chimes will sound on the 1/4,":PRINT"1/2, 3/4 and whole hour. Press a letter or spacebar key to stop the chime.":GOTO61
66 PRINTP$;"6 turns the cuckoo on or off. on the clock face, 'Ckoo' is printed in a black box when the cuckoo is on."
67 PRINT"If on, the cuckoo will come out and singon the 1/4, 1/2, 3/4 and whole hour.    Press a letter or spacebar key to stop  the cuckoo's song.":GOTO61
68 PRINT:PRINTP$;"7 displays the help menu you":PRINT:PRINT"just saw.":GOTO61
69 PRINT:PRINTP$;"8 returns you to the Model":PRINT:PRINT"100's main menu.":GOTO61
70 K$=INKEY$:IFK$=""THEN70ELSERETURN
71 MENU
72 IF(KF=0ANDCF=0)ORKT=MNTHENRETURN
73 IFMN=15ORMN=30ORMN=45ORMN=0THENKEYOFF:KT=MNELSERETURN
74 IFKF=1THENX=146:Y=32:GOSUB214:RESTORE220ELSERESTORE219
75 IFMN<>15 THEN83
76 IFKF=1THEN80
77 TT=4:GOSUB78:GOTO98
78 FORI=1TOTT:GOSUB99:FORII=1TODU*2:NEXTII:K$=INKEY$:IFK$<>""THENI=20
79 NEXTI:RETURN
80 TT=4:GOSUB81:GOTO98
81 FORI=1TOTT:GOSUB99:K$=INKEY$:IFK$<>""THENI=20
82 NEXTI:RETURN
83 IFMN<>30THEN87
84 IFKF=1THEN86
85 TT=7:GOSUB78:GOTO98
86 TT=9:GOSUB81:GOTO98
87 IFMN<>45THEN91
88 IFKF=1THEN90
89 TT=11:GOSUB78:GOTO98
90 TT=13:GOSUB81:GOTO98
91 IFKF=1THEN95
92 TT=15:GOSUB78:IFK$<>""THEN98
93 FORI=1TOHR:SOUND4697,80:FORII=1TO160:NEXTII:IFINKEY$<>""THENI=HR
94 NEXTI:GOTO98
95 TT=19:GOSUB81:IFK$<>""THEN98
96 FORI=1TOHR:SOUND1567,16:SOUND1864,32:FORII=1TO160:NEXTII:IFINKEY$<>""THENI=HR
97 NEXTI
98 LINE(146,27)-(171,52),0,BF:FORI=1TO10:K$=INKEY$:NEXT:KEYON:RETURN
99 READT:DU=N(TMOD10):N=N(T\10):IFN>0THENSOUNDN,DU:RETURNELSEFORII=1TODU*10:NEXTII:RETURN
100 IFSF=0ORSM=OMTHENRETURN
101 IF(SH<>HR)OR(SM<>MN)OR(SA$="AM"ANDPM=1)OR(SA$="PM"ANDPM=0)THENRETURNELSEKEYOFF
102 IFSF=0THENOM=SM:GOTO9
103 ONALGOTO104,105,106,107
104 RESTORE220:TT=19:GOSUB81:GOTO109
105 RESTORE:11000:TT=15:GOSUB78:GOTO109
106 BEEP:FORI=1TO1600:NEXT:GOTO108
107 BEEP:FORI=1TO200:NEXT
108 K$=INKEY$
109 IFK$<>""THENSF=0
110 GOTO102
111 TM$=TIME$:DT$=DATE$:DA$=DAY$:IFDT$<>DATE$ORDA$<>DAY$THEN111
112 HR=VAL(LEFT$(TM$,2)):MN=VAL(MID$(TM$,4,2)):IFHR=12THENPM=1:GOTO114
113 IFHR>12THENHR=HR-12:PM=1ELSEPM=0:IFHR=0THENHR=12
114 H1=HR\10:H2=HRMOD10:M1=MN\10:M2=MNMOD10:XT=4:XW=25:Y=2:IFH1<>HATHENIFH1=1THENLINE(0,2)-(4,52),1,BFELSELINE(0,2)-(4,52),0,BF
115 HA=H1:IFH2<>HBTHENX=14:N=H2+1:GOSUB152:LINE(47,15)-(51,19),1,BF:LINE(47,35)-(51,39),1,BF:HB=H2
116 IFM1<>MATHENX=59:N=M1+1:GOSUB152:MA=M1
117 IFM2<>MBTHENX=94:N=M2+1:GOSUB152:IFMB<>99THENOM=99:MB=M2ELSEMB=M2
118 IFPM=PATHEN120
119 IFPM=1THENCALL17001:PRINT@221,"PM";:CALL17006:LINE(125,39)-(137,47),1,BELSELINE(125,39)-(137,47),0,BF
120 PA=PM:IFDA$=XA$THEN133
121 IFLEFT$(DT$,5)="03/01"ANDXO=2ANDVAL(RIGHT$(DT$,2))MOD4=0ANDD1*10+D2=28THENDATE$="02/29/"+RIGHT$(DT$,2):GOTO111
122 LINE(126,2)-(177,25),0,BF:X=126:Y=2:IFDA$="Mon"THENDN=2:GOSUB176:X=144:GOSUB196:X=162:GOSUB195:GOTO129
123 IFDA$="Tue"THENDN=3:GOSUB181:X=144:GOSUB200:X=162:GOSUB189:GOTO129
124 IFDA$="Wed"THENDN=4:GOSUB182:X=144:GOSUB189:X=162:GOSUB188:GOTO129
125 IFDA$="Thu"THENDN=5:GOSUB181:X=144:GOSUB192:X=162:GOSUB200:GOTO129
126 IFDA$="Fri"THENDN=6:GOSUB174:X=144:GOSUB198:X=162:GOSUB193:GOTO129
127 GOSUB180:X=144:IFDA$="Sat"THENDN=7:GOSUB185:X=162:GOSUB199:GOTO129
128 DN=1:GOSUB200:X=162:GOSUB195
129 XA$=DA$:MO=VAL(LEFT$(DT$,2)):IFMO=XOTHEN131ELSEX=186:LINE(X,Y)-(236,25),0,BF
130 ONMOGOSUB140,141,142,143,144,145,146,147,148,149,150,151
131 XO=MO:D1=VAL(MID$(DT$,4,1)):D2=VAL(MID$(DT$,5,1)):XW=11:XT=3:Y=30:IFD1<>X1THENX=199:LINE(X,Y)-(210,52),0,BF:IFD1<>0THENN=D1+1:GOSUB152
132 X=215:LINE(X,Y)-(226,52),0,BF:N=D2+1:GOSUB152:X1=D1
133 IFMF=0THENRETURNELSEPRINT@280,"Alrm ";:IFSF=0THENPRINT"Set  ";:GOTO135
134 CALL17001:PRINT"Set";:CALL17006:PRINT"  ";:LINE(29,55)-(47,63),1,B
135 PRINT"Off  Cldr ";:IFCF=0THENPRINT"Chme ";:GOTO137
136 CALL17001:PRINT"Chme";:CALL17006:PRINT" ";:LINE(119,55)-(143,63),1,B
137 IFKF=0THENPRINT"Ckoo ";:GOTO139
138 CALL17001:PRINT"Ckoo";:CALL17006:PRINT" ";:LINE(149,55)-(173,63),1,B
139 PRINT"Help Menu";:MF=0:RETURN
140 GOSUB175:X=204:GOSUB185:X=222:GOSUB195:RETURN
141 GOSUB174:X=204:GOSUB189:X=222:GOSUB186:RETURN
142 GOSUB176:X=204:GOSUB185:X=222:GOSUB198:RETURN
143 GOSUB171:X=204:GOSUB197:X=222:GOSUB198:RETURN
144 GOSUB176:X=204:GOSUB185:X=222:GOSUB202:RETURN
145 GOSUB175:X=204:GOSUB200:X=222:GOSUB195:RETURN
146 GOSUB175:X=204:GOSUB194:X=222:GOSUB202:RETURN
147 GOSUB171:X=204:GOSUB200:X=222:GOSUB190:RETURN
148 GOSUB180:X=204:GOSUB189:X=222:GOSUB197:RETURN
149 GOSUB178:X=204:GOSUB187:X=222:GOSUB199:RETURN
150 GOSUB177:X=204:GOSUB196:X=222:GOSUB201:RETURN
151 GOSUB172:X=204:GOSUB189:X=222:GOSUB187:RETURN
152 ONNGOTO153,154,155,156,157,158,159,160,161,162
153 GOSUB170:GOSUB163:GOSUB164:GOSUB165:GOSUB166:GOSUB167:GOSUB168:RETURN
154 GOSUB170:GOSUB164:GOSUB165:RETURN
155 GOSUB170:GOSUB163:GOSUB164:GOSUB166:GOSUB167:GOSUB169:RETURN
156 GOSUB170:GOSUB163:GOSUB164:GOSUB165:GOSUB166:GOSUB169:RETURN
157 GOSUB170:GOSUB164:GOSUB165:GOSUB168:GOSUB169:RETURN
158 GOSUB170:GOSUB163:GOSUB165:GOSUB166:GOSUB168:GOSUB169:RETURN
159 GOSUB170:GOSUB165:GOSUB166:GOSUB167:GOSUB168:GOSUB169:RETURN
160 GOSUB170:GOSUB163:GOSUB164:GOSUB165:RETURN
161 GOSUB153:GOSUB169:RETURN
162 GOSUB157:GOSUB163:RETURN
163 LINE(X,Y)-(X+XW,Y+XT),1,BF:RETURN
164 LINE(X+XW,Y)-(X+XW-XT,Y+XW),1,BF:RETURN
165 LINE(X+XW-XT,Y+XW)-(X+XW,Y+2*XW),1,BF:RETURN
166 LINE (X,Y+2*XW)-(X+XW,Y+2*XW-XT),1,BF:RETURN
167 LINE(X,Y+XW)-(X+XT,Y+2*XW),1,BF:RETURN
168 LINE(X,Y)-(X+XT,Y+XW),1,BF:RETURN
169 LINE(X,Y+XW-XT\2)-(X+XW,Y+XW-XT\2+XT),1,BF:RETURN
170 LINE(X,Y)-(X+XW,Y+2*XW),0,BF:RETURN
171 LINE(X,Y+6)-(X+2,Y+20),1,BF:LINE(X+12,Y+6)-(X+14,Y+20),1,BF:LINE(X+3,Y+12)-(X+11,Y+14),1,BF:LINE(X+6,Y)-(X+8,Y+3),1,BF:FORI=YTOY+4:LINE(X+5,I)-(X+1,I+4):LINE(X+9,I)-(X+13,I+4):NEXT:RETURN
172 LINE(X,Y)-(X+9,Y+2),1,BF:LINE(X,Y+18)-(X+9,Y+20),1,BF:LINE(X+3,Y+3)-(X+5,Y+17),1,BF:LINE(X+12,Y+4)-(X+14,Y+16),1,BF
173 FORI=XTOX+3:LINE(I+8,Y)-(I+11,Y+3):LINE(I+8,Y+20)-(I+11,Y+17):NEXT:RETURN
174 GOSUB183:LINE(X+3,Y)-(X+14,Y+2),1,BF:LINE(X+3,Y+9)-(X+11,Y+11),1,BF:RETURN
175 LINE(X+6,Y)-(X+14,Y+2),1,BF:LINE(X+9,Y+3)-(X+11,Y+16),1,BF:LINE(X,Y+12)-(X+2,Y+16),1,BF:LINE(X+5,Y+18)-(X+6,Y+18):FORI=XTOX+3:LINE(I,Y+17)-(I+3,Y+20):LINE(I+5,Y+20)-(I+8,Y+17):NEXT:RETURN
176 GOSUB183:GOSUB184:FORI=Y+1TOY+4:LINE(X+3,I)-(X+7,I+4):LINE(X+11,I)-(X+7,I+4):NEXT:RETURN
177 GOSUB183:GOSUB184:FORI=YTOY+3:LINE(X+2,I)-(X+12,I+17):NEXT:RETURN
178 LINE(X,Y+4)-(X+2,Y+16),1,BF:LINE(X+12,Y+4)-(X+14,Y+16),1,BF
179 LINE(X+5,Y)-(X+9,Y+2),1,BF:LINE(X+5,Y+18)-(X+9,Y+20),1,BF:FORI=XTOX+3:LINE(I,Y+3)-(I+3,Y):LINE(I,Y+17)-(I+3,Y+20):NEXT:GOTO173
180 LINE(X,Y+4)-(X+2,Y+7),1,BF:LINE(X+12,Y+4)-(X+14,Y+5),1,BF:LINE(X+5,Y+9)-(X+9,Y+11),1,BF:LINE(X+12,Y+13)-(X+14,Y+16),1,BF:LINE(X,Y+15)-(X+2,Y+16),1,BF:FORI=XTOX+3:LINE(I,Y+8)-(I+3,Y+11):LINE(I+8,Y+9)-(I+11,Y+12):NEXT:GOTO179
181 LINE(X,Y)-(X+14,Y+2),1,BF:LINE(X+6,Y+3)-(X+8,Y+20),1,BF:RETURN
182 GOSUB183:GOSUB184:FORI=Y+16TOY+19:LINE(X+3,I)-(X+7,I-4):LINE(X+11,I)-(X+7,I-4):NEXT:RETURN
183 LINE(X,Y)-(X+2,Y+20),1,BF:RETURN
184 LINE(X+12,Y)-(X+14,Y+20),1,BF:RETURN
185 GOSUB203:GOSUB204:GOSUB205:GOSUB207:GOSUB212:LINE(X,Y+15)-(X+2,Y+17),1,BF:GOSUB210:GOSUB209:YY=Y:Y=8:GOSUB208:Y=YY:RETURN
186 GOSUB183:GOSUB207:GOSUB209:GOSUB211:LINE(X+6,Y+6)-(X+11,Y+8),1,BF:LINE(X+6,Y+18)-(X+11,Y+20),1,BF:XX=X:X=X+3:GOSUB208:GOSUB210:X=XX:YY=Y:Y=Y+3:GOSUB208:Y=YY-3:GOSUB210:Y=YY:RETURN
187 GOSUB196:LINE(X+12,Y+12)-(X+14,Y+14),0,BF:RETURN
188 GOSUB184:GOSUB206:GOSUB208:GOSUB210:LINE(X+3,Y+6)-(X+8,Y+8),1,BF:LINE(X+3,Y+18)-(X+8,Y+20),1,BF:XX=X:X=X-3:GOSUB209:GOSUB211:X=XX:YY=Y:Y=Y+3:GOSUB209:Y=YY-3:GOSUB211:Y=YY:RETURN
189 GOSUB203:GOSUB204:GOSUB205:GOSUB206:LINE(X+12,Y+9)-(X+14,Y+14),1,BF:GOSUB209:GOSUB208:GOSUB210:RETURN
190 GOSUB213
191 LINE(X+3,Y+6)-(X+8,Y+8),1,BF:LINE(X+3,Y+15)-(X+8,Y+17),1,BF:LINE(X,Y+9)-(X+2,Y+14),1,BF:LINE(X+9,Y+9)-(X+11,Y+14),1,BF:GOSUB208:YY=Y:Y=Y-3:GOSUB210:XX=X:X=X-3:GOSUB211:Y=YY:GOSUB209:X=XX:RETURN
192 GOSUB183:GOSUB203:GOSUB207:GOSUB212:GOSUB209:RETURN
193 GOSUB205:LINE(X+6,Y+6)-(X+8,Y+17),1,BF:LINE(X+3,Y+6)-(X+5,Y+8),1,BF:LINE(X+6,Y)-(X+8,Y+2),1,BF:RETURN
194 GOSUB205:LINE(X+6,Y)-(X+8,Y+17),1,BF:LINE(X+3,Y)-(X+5,Y+2),1,BF:RETURN
195 GOSUB198:GOSUB207:GOSUB212:RETURN
196 GOSUB203:GOSUB205:GOSUB206:GOSUB207:GOSUB208:GOSUB209:GOSUB210:GOSUB211:RETURN
197 LINE(X,Y+6)-(X+2,Y+23),1,BF:XX=X:X=X+3:GOSUB191:X=XX:RETURN
198 LINE(X,Y+6)-(X+2,Y+20),1,BF:LINE(X+6,Y+6)-(X+11,Y+8),1,BF:GOSUB209:XX=X:X=X+3:GOSUB208:X=XX:YY=Y:Y=Y+3:GOSUB208:Y=YY:RETURN
199 LINE(X+3,Y)-(X+5,Y+17),1,BF:LINE(X,Y+6)-(X+11,Y+8),1,BF:LINE(X+6,Y+18)-(X+11,Y+20),1,BF:GOSUB211:XX=X:X=X+3:GOSUB210:X=XX:RETURN
200 LINE(X,Y+6)-(X+2,Y+17),1,BF:LINE(X+9,Y+6)-(X+11,Y+17),1,BF:LINE(X+3,Y+18)-(X+8,Y+20),1,BF:GOSUB210:XX=X:X=X+9:GOSUB210:X=XX-3:GOSUB211:X=XX:RETURN
201 FORI=XTOX+2:LINE(I,Y+6)-(I+6,Y+20):LINE(I+12,Y+6)-(I+6,Y+20):NEXT:RETURN
202 LINE(X,Y+6)-(X+2,Y+14),1,BF:LINE(X+3,Y+15)-(X+8,Y+17),1,BF:GOSUB213:YY=Y:Y=Y-3:GOSUB210:XX=X:X=X-3:GOSUB211:X=XX:Y=Y-3:GOSUB211:Y=YY:RETURN
203 LINE(X+3,Y+6)-(X+11,Y+8),1,BF:RETURN
204 LINE(X+3,Y+12)-(X+11,Y+14),1,BF:RETURN
205 LINE(X+3,Y+18)-(X+11,Y+20),1,BF:RETURN
206 LINE(X,Y+9)-(X+2,Y+17),1,BF:RETURN
207 LINE(X+12,Y+9)-(X+14,Y+17),1,BF:RETURN
208 FORI=XTOX+3:LINE(I,Y+9)-(I+3,Y+6):NEXT:RETURN
209 FORI=X+8TOX+11:LINE(I,Y+6)-(I+3,Y+9):NEXT:RETURN
210 FORI=XTOX+3:LINE(I,Y+17)-(I+3,Y+20):NEXT:RETURN
211 FORI=X+8TOX+11:LINE(I,Y+20)-(I+3,Y+17):NEXT:RETURN
212 LINE(X+12,Y+18)-(X+14,Y+20),1,BF:RETURN
213 LINE(X+12,Y+6)-(X+14,Y+20),1,BF:LINE(X+3,Y+21)-(X+11,Y+23),1,BF:YY=Y:Y=Y+3:GOSUB211:Y=YY:RETURN
214 LINE(X,Y)-(X+5,Y-5):LINE(X+1,Y)-(X+4,Y):PSET(X+5,Y-3):PSET(X+6,Y-5):LINE(X+7,Y-5)-(X+9,Y-3):LINE(X+9,Y-2)-(X+9,Y-1):LINE(X+8,Y)-(X+10,Y):LINE(X+5,Y+1)-(X+7,Y+3),1,BF:PRESET(X+5,Y+2):PRESET(X+7,Y+3):LINE(X+11,Y+1)-(X+19,Y+9):LINE(X+12,Y+1)-(X+18,Y+7)
215 LINE(X+5,Y+4)-(X+8,Y+11):PSET(X+7,Y+7):PSET(X+8,Y+4):LINE(X+8,Y+5)-(X+13,Y+10):LINE(X+14,Y+10)-(X+17,Y+12):LINE(X+17,Y+8)-(X+18,Y+9)
216 LINE(X+18,Y+10)-(X+19,Y+12),1,BF:LINE(X+9,Y+11)-(X+13,Y+15):LINE(X+10,Y+11)-(X+11,Y+12):LINE(X+11,Y+14)-(X+12,Y+15):PSET(X+19,Y+13)
217 LINE(X+20,Y+13)-(X+23,Y+16):LINE(X+19,Y+14)-(X+21,Y+16):LINE(X+19,Y+16)-(X+21,Y+18):LINE(X+22,Y+17)-(X+24,Y+19),1,BF:PRESET(X+22,Y+19)
218 LINE(X+24,Y+19)-(X+25,Y+20),1,BF:LINE(X+16,Y+15)-(X+18,Y+15):LINE(X+13,Y+15)-(X+15,Y+19),1,B:LINE(X+10,Y+19)-(X+12,Y+19):RETURN
219 DATA 48,18,38,58,48,18,39,48,18,38,58,48,18,39,8
220 DATA 16,37,16,37,16,26,36,46,37,16,37,16,37,16,26,36,46,57,7