1 line
3.2 KiB
Plaintext
1 line
3.2 KiB
Plaintext
10 CLS
|
|
11 DIM ANSY (100):DIM A(3000)
|
|
12 GA=0:TRY=0:CORRECT=0
|
|
13 DIM WF%(256)
|
|
FOR I=0 TO 127
|
|
WF%(I)=127
|
|
WF%(255-I)=-128
|
|
NEXT I
|
|
WAVE 0, WF%
|
|
18 PSET(326,32):PSET(327,32):PSET(328,32):PSET(325,33):PSET(328,33):PSET(248,34):PSET(249,34):PSET(280,34):PSET(325,34):PSET(328,34):PSET(247,35):PSET(249,35):PSET(279,35):PSET(280,35):PSET(325,35):PSET(328,35):PSET(228,36):PSET(244,36)
|
|
19 PSET(245,36):PSET(246,36):PSET(248,36):PSET(279,36):PSET(281,36):PSET(324,36):PSET(328,36):PSET(227,37):PSET(230,37):PSET(242,37):PSET(243,37):PSET(249,37):PSET(279,37):PSET(281,37):PSET(324,37):PSET(328,37):PSET(227,38):PSET(230,38)
|
|
20 PSET(232,38):PSET(233,38):PSET(234,38):PSET(241,38):PSET(250,38):PSET(276,38):PSET(277,38):PSET(278,38):PSET(281,38):PSET(324,38):PSET(330,38):PSET(331,38):PSET(332,38):PSET(333,38):PSET(227,39):PSET(229,39):PSET(232,39):PSET(234,39)
|
|
21 PSET(242,39):PSET(250,39):PSET(276,39):PSET(281,39):PSET(324,39):PSET(332,39):PSET(227,40):PSET(230,40):PSET(232,40):PSET(235,40):PSET(240,40):PSET(250,40):PSET(273,40):PSET(281,40):PSET(323,40):PSET(332,40):PSET(227,41):PSET(229,41)
|
|
22 PSET(232,41):PSET(234,41):PSET(240,41):PSET(250,41):PSET(273,41):PSET(281,41):PSET(323,41):PSET(332,41):PSET(226,42):PSET(227,42):PSET(228,42):PSET(232,42):PSET(239,42):PSET(250,42):PSET(251,42):PSET(252,42):PSET(267,42):PSET(273,42)
|
|
23 PSET(274,40):PSET(279,42):PSET(323,42):PSET(332,42):PSET(224,43):PSET(228,43):PSET(240,43):PSET(255,43):PSET(266,43):PSET(268,43):PSET(273,43):PSET(278,43):PSET(323,43):PSET(332,43):PSET(226,44):PSET(240,44):PSET(256,44):PSET(257,44)
|
|
24 PSET(258,44):PSET(259,44):PSET(260,44):PSET(261,44):PSET(262,44):PSET(263,44):PSET(267,44):PSET(270,44):PSET(271,44):PSET(272,44):PSET(274,44):PSET(277,44):PSET(323,44):PSET(332,44):PSET(233,45):PSET(238,45):PSET(263,45):PSET(265,45)
|
|
25 PSET(270,45):PSET(273,45):PSET(277,45):PSET(280,45):PSET(323,45):PSET(332,45):PSET(333,45):PSET(334,45):PSET(232,46):PSET(239,46):PSET(263,46):PSET(264,46):PSET(266,46):PSET(267,46):PSET(268,46):PSET(269,46):PSET(270,46):PSET(273,46)
|
|
26 PSET(277,46):PSET(279,46):PSET(280,46):PSET(332,46):PSET(334,46):PSET(230,47):PSET(281,47):PSET(321,47):PSET(334,47):PSET(320,48):PSET(281,48):PSET(321,48):PSET(334,48):PSET(229,49):PSET(281,49):PSET(321,49):PSET(334,49):PSET(228,50)
|
|
27 PSET(281,50):PSET(320,50):PSET(334,50):PSET(227,51):PSET(278,51):PSET(279,51):PSET(320,51):PSET(334,51):PSET(227,52):PSET(278,52):PSET(320,52):PSET(335,52):PSET(227,52):PSET(278,52):PSET(320,52):PSET(335,52):PSET(227,53):PSET(278,53)
|
|
28 PSET(320,53):PSET(336,53):PSET(227,54):PSET(276,54):PSET(278,54):PSET(320,54):PSET(336,54):PSET(226,55):PSET(274,55):PSET(320,55):PSET(336,55):PSET(225,56):PSET(275,56):PSET(320,56):PSET(336,56):PSET(225,57):PSET(276,57):PSET(319,57)
|
|
29 PSET(234,44):PSET(235,44):PSET(236,44):PSET(237,44):PSET(238,44):PSET(336,57):PSET(202,58):PSET(224,58):PSET(274,58):PSET(275,58):PSET(279,58):PSET(280,58):PSET(282,58):PSET(319,58):PSET(336,58):PSET(201,59):PSET(203,59):PSET(223,59)
|
|
30 PSET(274,59):PSET(278,59):PSET(280,59):PSET(318,59):PSET(336,59):PSET(200,60):PSET(204,60):PSET(222,60):PSET(274,60):PSET(277,60):PSET(281,60):PSET(318,60):PSET(336,60):PSET(199,61):PSET(205,61):PSET(222,61):PSET(274,61):PSET(277,61)
|