2 SCREEN 9:DIM A(5696),B(720),M(238):H=4:K=12:A$="ùSùOùFùTùWùAùRùEù":J=0:FOR I=1 TO 17:COLOR J*8+6:PRINT MID$(A$,I,1);:J=1-J:NEXT:GET(0,0)-(135,13),M:FOR I=0 TO 4:COLOR J*8+6:PRINT TAB(I*15+4)"C.E.Software";:J=1-J:NEXT:GET(24,15)-(598,24),B
3 CLS:LINE(199,91)-(440,258),H,BF:COLOR K:LINE(199,119)-(264,91):LINE(199,139)-(311,91):LINE(199,119)-(199,139):LINE(264,91)-(311,91):PAINT(200,120):LINE(394,258)-(440,239):LINE(395,258)-(440,258):LINE(440,258)-(440,239)
4 PAINT(439,257):LINE(200,236)-(439,134):LINE(226,258)-(440,168):LINE(440,168)-(440,134):LINE(199,236)-(199,258):LINE(199,258)-(226,258):PAINT(200,240):J=119:FOR I=199 TO 261 STEP 2:J=J-.86:PSET(I,J):NEXT:J=117:FOR I=200 TO 258 STEP 2
5 J=J-.86:PSET(I,J):NEXT:J=115:FOR I=201 TO 252 STEP 3:J=J-1.3:PSET(I,J):NEXT:J=113:FOR I=199 TO 247 STEP 4:J=J-1.7:PSET(I,J):NEXT:J=110:FOR I=200 TO 240 STEP 5:J=J-2.11:PSET(I,J):NEXT:J=259:FOR I=391 TO 439 STEP 2:J=J-.84:PSET(I,J):NEXT
6 J=259:FOR I=389 TO 439 STEP 2:J=J-.84:PSET(I,J):NEXT:J=258:FOR I=388 TO 439 STEP 3:J=J-1.29:PSET(I,J):NEXT:J=259:FOR I=380 TO 440 STEP 4:J=J-1.72:PSET(I,J):NEXT:J=259:FOR I=373 TO 438 STEP 5:J=J-2.18:PSET(I,J):NEXT:J=141
7 FOR I=200 TO 314 STEP 2:J=J-.86:PSET(I,J):NEXT:J=143:FOR I=199 TO 317 STEP 2:J=J-.86:PSET(I,J):NEXT:J=145:FOR I=201 TO 321 STEP 3:J=J-1.3:PSET(I,J):NEXT:J=148:FOR I=200 TO 328 STEP 4:J=J-1.72:PSET(I,J):NEXT:J=151:FOR I=201 TO 336 STEP 5
8 J=J-2.14:PSET(I,J):NEXT:J=236:FOR I=199 TO 439 STEP 2:J=J-.85:PSET(I,J):NEXT:J=234:FOR I=199 TO 439 STEP 2:J=J-.84:PSET(I,J):NEXT:J=232:FOR I=200 TO 437 STEP 3:J=J-1.26:PSET(I,J):NEXT:J=230:FOR I=199 TO 439 STEP 4:J=J-1.68:PSET(I,J)
9 NEXT:J=227:FOR I=199 TO 439 STEP 5:J=J-2.09:PSET(I,J):NEXT:J=223:FOR I=200 TO 440 STEP 6:J=J-2.5:PSET(I,J):NEXT:J=219:FOR I=200 TO 438 STEP 7:J=J-2.93:PSET(I,J):NEXT:J=259:FOR I=229 TO 439 STEP 2:J=J-.84:PSET(I,J):NEXT:J=259
10 FOR I=232 TO 440 STEP 2:J=J-.84:PSET(I,J):NEXT:J=259:FOR I=237 TO 438 STEP 3:J=J-1.26:PSET(I,J):NEXT:J=259:FOR I=245 TO 437 STEP 4:J=J-1.68:PSET(I,J):NEXT:J=259:FOR I=255 TO 440 STEP 5:J=J-2.1:PSET(I,J):NEXT:J=260
11 FOR I=264 TO 438 STEP 6:J=J-2.54:PSET(I,J):NEXT:J=259:FOR I=278 TO 439 STEP 7:J=J-2.94:PSET(I,J):NEXT
12 COLOR 7:LINE(192,86)-(447,86):LINE(447,86)-(447,263):LINE(192,86)-(198,90):LINE(447,263)-(441,259):LINE(198,90)-(441,90):LINE(441,90)-(441,259):PAINT(446,87):COLOR 8:LINE(447,263)-(192,263):LINE(192,263)-(192,87):LINE(447,263)-(441,259)
13 LINE(447,86)-(441,90):LINE(192,87)-(198,91):LINE(198,91)-(198,259):LINE(198,259)-(441,259):PAINT(193,89):LINE(192,263)-(198,259),7:PUT(252,224),M,PSET:COLOR 3:CIRCLE(308,142),41,,1.44,4.85:CIRCLE(308,142),27,,1.4,4.89
14 LINE(314,113)-(322,113):LINE(314,122)-(322,125):LINE(322,113)-(322,125):LINE(314,139)-(314,162):LINE(314,171)-(314,195):LINE(314,195)-(366,195):LINE(366,195)-(366,183):LINE(366,183)-(358,187):LINE(358,187)-(327,187)
15 LINE(327,187)-(327,171):LINE(327,171)-(358,171):LINE(358,171)-(366,173):LINE(366,173)-(366,161):LINE(366,161)-(358,163):LINE(358,163)-(327,163):LINE(327,163)-(327,147):LINE(327,147)-(358,147):LINE(358,147)-(366,151)
16 LINE(366,151)-(366,139):LINE(366,139)-(314,139):PAINT(315,140):COLOR 11:J=132:FOR I=270 TO 314 STEP 4:PSET(I,J):J=J-1.6:NEXT:PSET(269,135):PSET(272,133):PSET(275,132):PSET(278,131):PSET(281,130):PSET(284,129):PSET(287,127)
17 PSET(290,126):PSET(296,124):PSET(299,123):PSET(302,121):PSET(305,120):PSET(308,119):PSET(311,118):PSET(314,117):PSET(317,115):PSET(320,114):PSET(268,137):PSET(271,135):PSET(274,134):PSET(277,133):PSET(280,132):PSET(283,131)
18 PSET(286,129):PSET(304,122):PSET(307,121):PSET(310,120):PSET(313,119):PSET(316,117):PSET(319,116):PSET(269,139):PSET(273,137):PSET(277,135):PSET(281,134):PSET(313,121):PSET(317,119):PSET(321,118):PSET(281,163):PSET(285,161)
19 PSET(289,159):PSET(317,148):PSET(321,147):PSET(325,145):PSET(329,143):PSET(333,142):PSET(337,140):PSET(341,139):PSET(315,186):PSET(319,184):PSET(323,182):PSET(327,181):PSET(351,171):PSET(355,170):PSET(359,168):PSET(363,166)
20 PSET(314,189):PSET(317,187):PSET(320,186):PSET(323,185):PSET(326,184):PSET(359,171):PSET(362,169):PSET(365,168):PSET(316,190):PSET(319,188):PSET(322,187):PSET(325,186):PSET(364,170):PSET(315,193):PSET(319,191)
21 PSET(323,189):PSET(327,188):PSET(365,173):PSET(284,164):PSET(287,162):PSET(290,161):PSET(293,160):PSET(317,150):PSET(320,149):PSET(323,148):PSET(326,147):PSET(329,146):PSET(332,144):PSET(335,143):PSET(338,142):PSET(341,141)
22 PSET(344,140):PSET(286,165):PSET(289,163):PSET(292,162):PSET(295,161):PSET(316,153):PSET(319,151):PSET(322,150):PSET(325,149):PSET(331,147):PSET(334,145):PSET(337,144):PSET(340,143):PSET(343,142):PSET(346,141):PSET(349,139)
23 PSET(287,167):PSET(292,165):PSET(296,163):PSET(300,162):PSET(316,155):PSET(320,154):PSET(324,152):PSET(336,147):PSET(340,146):PSET(344,144):PSET(348,143):PSET(352,141):PSET(356,139):COLOR 8:CIRCLE(308,142),41,,1.44,4.84
24 CIRCLE(308,142),27,,1.4,4.89:LINE(314,112)-(323,112):LINE(314,123)-(323,126):LINE(323,112)-(323,126):LINE(313,138)-(313,161):LINE(313,172)-(313,196):LINE(313,196)-(367,196):LINE(367,196)-(367,182):LINE(367,182)-(358,186)
25 LINE(358,186)-(328,186):LINE(328,186)-(328,172):LINE(328,172)-(358,172):LINE(358,172)-(367,174):LINE(367,174)-(367,160):LINE(367,160)-(358,162):LINE(358,162)-(328,162):LINE(328,162)-(328,148):LINE(328,148)-(358,148)
26 LINE(358,148)-(367,152):LINE(367,152)-(367,138):LINE(367,138)-(313,138):LINE(323,126)-(328,124):LINE(328,124)-(328,110):LINE(328,110)-(323,112):CIRCLE(311,142),44,,1.43,3.03:LINE(318,110)-(328,110):CIRCLE(308,144),22,,3.14,4.9
27 CIRCLE(355,144),70,,2.85,3.12:LINE(313,138)-(318,136):LINE(318,136)-(372,136):LINE(372,136)-(372,150):LINE(372,150)-(367,152):LINE(367,138)-(372,136):LINE(333,148)-(333,160):LINE(333,160)-(367,160):LINE(367,160)-(372,158)
28 LINE(372,158)-(372,172):LINE(372,172)-(367,174):LINE(333,172)-(333,184):LINE(333,184)-(361,184):LINE(367,182)-(372,180):LINE(372,180)-(372,194):LINE(372,194)-(367,196):PAINT(300,112):PAINT(322,111):PAINT(324,113):PAINT(312,161)
29 PAINT(366,137):PAINT(368,139):PAINT(329,161):PAINT(368,161):PAINT(329,185):PAINT(368,183):LINE(291,114)-(294,113):PSET(287,130):COLOR 7:LINE(328,162)-(333,160):LINE(328,186)-(333,184):LINE(323,112)-(328,110):LINE(367,138)-(372,136)
30 PSET(367,160):PSET(367,182):GET(192,86)-(447,263),A:D=190:E=84:L=168:RANDOMIZE TIMER:B=INT(2*RND)+G:IF B=G THEN B=-1-G
31 C=INT(2*RND)+G:IF C=G THEN C=-1-G
32 SCREEN,,1-F,F:DELAY .05:A$=INKEY$:ON-(A$="c")GOTO 36:IF A$=CHR$(27) THEN END ELSE IF A$="s" THEN G=1-G:GOTO 3
33 IF D=0 OR D=380 THEN B=-B
34 IF E=0 OR E=168 THEN C=-C
35 L=L-C*2:D=D+B:E=E+C:F=1-F:CLS:PUT(27,L),B:PUT(D,E),A,PSET:GOTO 32
36 READ H:READ K:IF H=4 THEN RESTORE
37 DATA 1,9,6,14,5,13,12,14,2,10,4,12:GOTO 3