100 SCALE #1,200,0,0
110 SCALE #2,200,0,0
120 PAPER #1,2: CLS #1
130 PAPER #2,7: CLS #2
140 CLS #0
150 INK #1,7: INK #2,2
160 xaxis=25.5: yaxis=9: ydisp=-2
170 FOR n=0 TO 10 STEP 2
180 sinclair_logo 2,37.75,ydisp+n*yaxis: sinclair_logo 1,-25.5,ydisp+n*yaxis
190 sinclair_logo 2,37.75-2*xaxis,ydisp+n*yaxis: sinclair_logo 1,-25.5+2*xaxis,ydisp+n*yaxis
200 sinclair_logo 2,37.75-xaxis,ydisp+(n+1)*yaxis: sinclair_logo 1,-25.5+xaxis,ydisp+(n+1)*yaxis
210 sinclair_logo 2,37.75-3*xaxis,ydisp+(n+1)*yaxis: sinclair_logo 1,-25.5+3*xaxis,ydisp+(n+1)*yaxis
220 NEXT n
230 big_q
240 big_l
250 bottom_text
260 PAUSE
270 STOP
280 DEFine PROCedure big_q
290 LOCal r
300 INK #2,0
310 FOR r=80 TO 48 STEP -2E-2
320 CIRCLE #2,93,100,r
330 NEXT r
340 POINT #2,116,100: FILL #2,1
350 LINE_R #2 TO -23,-23 TO 57,-57 TO 23,23 TO -57,57: FILL #2,0
360 POINT #2,33,61: FILL #2,1: LINE_R #2 TO 30,0 TO 0,-19 TO -24,0 TO -6,6 TO 0,13: FILL #2,0
370 INK #2,2
380 END DEFine big_q
390 DEFine PROCedure big_l
400 INK #1,0
410 POINT #1,17,176: FILL #1,1
420 LINE_R #1 TO 0,-152 TO 152,0 TO 0,32 TO -120,0 TO 0,120 TO -32,0
430 FILL #1,0
440 END DEFine big_l
450 STOP
460 DEFine PROCedure sinclair_logo (c,x,y)
470 LOCal xsc,ysc,px
480 xsc=3: ysc=2
490 RESTORE 540
500 FOR px=1 TO 119
510 READ xdisp%: READ ydisp%
520 POINT #c,(x+xdisp%)*xsc,(y+ydisp%)*ysc: FILL #c,1: LINE_R #c TO xsc,0 TO 0,ysc TO -xsc,0 TO 0,-ysc: FILL #c,0
530 NEXT px
540 DATA 0,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,7,1,7,2,6,2,5,2,4,2,3,2,2,2,1,2,0,2,0,3,0,4,1,4,2,4,3,4,4,4,5,4,6,4,7,4: REMark s
550 DATA 9,0,9,1,9,2,9,3,9,4,9,6: REMark i
560 DATA 11,0,11,1,11,2,11,3,11,4,12,4,13,4,14,4,15,4,16,4,17,4,18,4,18,3,18,2,18,1,18,0: REMark n
570 DATA 27,0,26,0,25,0,24,0,23,0,22,0,21,0,20,0,20,1,20,2,20,3,20,4,21,4,22,4,23,4,24,4,25,4,26,4,27,4: REMark c
580 DATA 29,0,29,1,29,2,29,3,29,4,29,5,29,6: REMark l
590 DATA 37,2,36,2,35,2,34,2,33,2,32,2,31,2,31,1,31,0,32,0,33,0,34,0,35,0,36,0,37,0,38,0,38,1,38,2,38,3,38,4,37,4,36,4,35,4,34,4,33,4,32,4,31,4: REMark a
600 DATA 40,0,40,1,40,2,40,3,40,4,40,6: REMark i
610 DATA 42,0,42,1,42,2,42,3,42,4,43,4,44,4,45,4,46,4,47,4,48,4,49,4: REMark r
620 END DEFine sinclair_logo
630 DEFine PROCedure bottom_text
640 CSIZE #0,2,1
650 CURSOR #0,10,0: PRINT #0," AND OTHER WEIRD AND WONDERFUL MACHINERY "
660 CURSOR #0,10,20: PRINT #0,"  FROM THE SINCLAIR WORLD AND BEYOND...  "
670 AT #0,0,0: CSIZE #0,0,0
680 END DEFine bottom_text
