[ Atari / Punchs / Source : spectre.lst ]

[ << ]

Code source

01

FOR a%=0 TO 49

02

COLOR a%/3.33+1

03

LINE 0*XBIOS(7,a% MOD 16,VAL("&h"+MID$("000066077074076073075072270370470770570774670055",1+(a% MOD 16)*3,3))),a%,10,a%

04

NEXT a%

05

GET 0,0,10,50,b$

06

a$=STRING$(4,"AA7ADDA7")+STRING$(2,"AA7HF7H7")+STRING$(2,"DD7KI7K7")+STRING$(2,"AAMHFMHM")+STRING$(2,"DDPKIPKP")+STRING$(2,"AATHFTHT")+STRING$(2,"DDWKIWKW")+STRING$(2,"AATHFUHT")+STRING$(2,"DDWKIXKW")+STRING$(2,"A7T7F7H7")+STRING$(2,"D7W7I7K7")

07

a$=a$+STRING$(2,"AMTMFMHMAMTMFMHMDPWPIPKPDPWPIPKP")+"AA7ADDA7AA777777AA7AMMA7AA777777"+STRING$(4,"ACDM")+STRING$(4,"DFGP")+STRING$(4,"ADCK")+STRING$(4,"DGFN")+STRING$(2,"AHDHCHKH")+STRING$(2,"DKGKFKNK")+STRING$(2,"A7D7C7K7")+STRING$(2,"D7G7F7N7")

08

a$="ABCDEFGHIJKLMNOPQRSTTTTTTTT77777"+STRING$(4,a$+"77777777")

09

PRINT MKI$(6981);AT(1,3);STRING$(40,CHR$(27)+"ca "+CHR$(27)+"cb "+CHR$(27)+"cc "+CHR$(27)+"cd "+CHR$(27)+"ce "+CHR$(27)+"cf "+CHR$(27)+"cg "+CHR$(27)+"ch "+CHR$(27)+"ci "+CHR$(27)+"cj "+CHR$(27)+"cl "+CHR$(27)+"cm "+CHR$(27)+"ck ")

10

PRINT CHR$(27);"c`";AT(3,8);SPACE$(36);AT(3,9);" S P E C T R U M    A N A L Y S E R ";AT(3,10);SPACE$(36);AT(1,17);"  Code & Musak by A.C  8/3/92"

11

FOR a%=1 TO 5300

12

x%=ASC(MID$(a$,a%/3+1,1))-64

13

SOUND a% MOD 3+1,-15*(x%>0),x%,3+a% MOD 3

14

WAVE 7

15

PUT x%*12,151,b$

16

FOR b%=1 TO 4

17

BMOVE XBIOS(2)+24000-7200*(b%=4),XBIOS(2)-24160*(b%<4),7840+7200*(b%=4)

18

NEXT b%

19

VSYNC

20

NEXT a%