MrCBASIC/ARITHEORY/TYPES.TXT

1 line
2.6 KiB
Plaintext

3 DIM WF%(256)
FOR I=0 TO 127
WF%(I)= 127
WF%(255-I)=-128
NEXT I
WAVE 0, WF%
60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118)
63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116)
64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127)
67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130)
68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133)
69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139)
70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146)
71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143)