10 a$="010980211880c3d1bc0e80c31c8052454354414e474cc50000000000fe04c0cdc6bbd5e5dd5607dd5e06dd6605dd6e04cdc0bbdd5603dd5e02210000d5cdf9bbdd6601dd6e00e5cdc7bd110000cdf9bbd1e1d5cdc7bdeb210000cdf9bbe1110000cdf9bbe1d1c3c0bb"
20 FOR t=1 TO LEN(a$) STEP 2:POKE &7FFF+t/2,VAL("&"+MID$ (a$,t,2)):NEXT:MEMORY &7FFF:CALL &8000 30 DI:MODE 0:c=1:EVERY 15,3 GOSUB 160 40 INK 0,k:INK 1,k+1:INK 2,k+2:INK 3,k+3: INK 4,k+4:BORDER k 50 RESTORE 190:EI 60 FOR g=1 TO 4 70 FOR f=0 TO 160 80 IF f/20=INT(f/20) THEN c=c+1 90 PLOT 4*f,400-3*f,c 100 IF c=15 THEN c=0 110 —RECTANGLE,4*f,400-3*f,640-8*f,400-6*f 120 NEXT f 130 NEXT g 140 k=k+1:IF k=21 THEN k=0 150 GOTO 40 160 ' 170 IF (SQ(1) AND 7)=0 THEN EI:RETURN ELSE READ l:IF l=-1 THEN RESTORE 190:GOTO 170 180 READ m:SOUND 1,l*2,m,5:SOUND 2,l/2,m,5:SOUND 4,l,m,7:GOTO 170 190 DATA 71,20,80,20,71,50,80,20,89,20,95,20,106,20,113,55,106,90,142,20,159,20,142,50,190,35,179,35,225,60,213,80,284,20,319,20,284,50,319,20,358,20,379,20,426,20,451,50,426,90 200 DATA 106,20,119,20,106,20,134,20,106,20,142,20,106,20,159,20,106,20,169,20,106,20,159,20,106,20,142,20,106,20,134,20,106,20,426,20,106,20,379,20,106,20,338,20,106,20,319,20,106,20 210 DATA 338,20,106,20,319,20,106,20,284,20,106,20,134,40,106,40,134,40,106,40,100,40,319,40,100,40,319,40,119,40,142,40,119,40,142,40,106,40,358,40,319,40 220 DATA 113,40,379,40,113,40,379,40,142,40,358,40,142,40,358,40,159,40,451,40,159,40,451,40,358,40,426,40,358,40,426,40,402,40,1073,40,402,40,1073,40,284,100,-1 |