1 ' Weaving 2 ' by Myrtle Green 3 ' Amstrad Action     September 87 10 MODE 1: ON BREAK GOSUB 460 20 SYMBOL 248,0,255,255,255,255,255,255,0 30 SYMBOL 249,126,126,126,126,126,126,126,126 40 a$=CHR$(248)+CHR$(32): FOR n=1 TO 14 50 ac$=ac$+a$: NEXT n: DIM col(3) 60 CLS: INK 1,24:INK 0,0:LOCATE 2,2 70 PRINT"Pick a background colour and 3 colours." 80 LOCATE 2,4: PRINT"Enter their numbers: " 90 LOCATE 3,8: PRINT"Background":LOCATE 12,10:PRINT "1" 100 LOCATE 12,12: PRINT "2":LOCATE 12,14: PRINT "3" 110 y=8: FOR a=0 TO 3: LOCATE 16,y: PRINT SPACE$(6) 120 LOCATE 15,y: INPUT ">",col(a) 130 IF col(a)>26 THEN GOTO 110 140 y=y+2: NEXT: FOR a=0 TO 3: INK a,col(a): NEXT 150 BORDER col(0): CLS: PRINT CHR$(22);CHR$(1); 160 x=23: FOR p=1 TO 3: PEN p: LOCATE x,23 170 PRINT STRING$(3,143) 180 x=x+6:NEXT p:PEN 0:LOCATE 23,23:PRINT" 1     2     3" 190 PEN 1:LOCATE 34,1: PRINT"." 200 LOCATE 5,23: PRINT "Colour number " 210 REM print rows down 220 x=6: FOR n=1 TO 14 230 GOSUB 430:x=x+1:RESTORE 290:FOR y=1 TO 21:READ chr 240 LOCATE x,y: PEN col: PRINT CHR$(chr);:NEXT y 250 GOSUB 430: x=x+1:RESTORE 280:FOR y=1 TO 21:READ chr 260 LOCATE x,y: PEN col: PRINT CHR$(chr);: NEXT y,n 270 SOUND 1,238,15: SOUND 1,436,15 280 DATA 249 290 DATA 249,32,249,32,249,32,249 300 DATA 32,249,32,249,32,249,32,249 310 DATA 32,249,32,249,32,249 320 REM rows across 330 y=1: FOR n=1 TO 10: GOSUB 430: y=y+1: PEN col: x=7 340 LOCATE x,y: PRINT ac$: GOSUB 430: y=y+1: PEN col: x=8 350 LOCATE x,y: PRINT ac$: NEXT n 360 SOUND 1,238,15: SOUND 1,436,15 370 PRINT CHR$(22);CHR$(0);: PEN 2: LOCATE 4,25 380 PRINT "Another?  Same colours <s>  New <n> " 390 c$=UPPER$(INKEY$): IF c$="" THEN 390 400 IF c$="S" THEN 150 410 IF c$="N" THEN 60 420 GOTO 390 430 REM select colour to print row 440 c$="": WHILE INSTR(" 123",c$)<2: c$=INKEY$: WEND 450 col=VAL(c$): RETURN 460 MODE 2: PEN 1: INK 1,24: INK 0,0: LIST