1 ' Stipple
2 ' by James Cadwallader 3 ' Amstrad Action March 88 10 DEFINT a-z:MODE 1 30 ON BREAK GOSUB 260 40 DIM inks(15):PAPER 0:MODE 1 60 INPUT "Mode :",mde:MODE mde:IF mde=0 THEN most=15 ELSE IF mde=1 THEN most=3 ELSE most=1 70 IF mde2 THEN RUN 80 FOR i=0 TO most:PRINT STRING$(10,32);STRING$(10,8); 90 PRINT "Pen";i;:LOCATE 8,i+1:INPUT ":",inks(i) 100 IF inks(i)>26 THEN PRINT CHR$(11);:GOTO 90 110 NEXT:FOR x=0 TO most:INK x,inks(x):NEXT 150 FOR col1=0 TO most:FOR col2=col1 TO most 170 PEN col1:PAPER col2 180 IF col1<>col2 THEN PRINT STRING$(80,207);STRING$(80,8);MID$(STR$(inks(col1)),2);"&";MID$(STR$(inks(col2)),2);STRING$(80-LEN(MID$(STR$(inks(col1)),2))-LEN(MID$(STR$(inks(col2)),2))-1,9); 190 NEXT col2,col1:PRINT CHR$(7);:WHILE INKEY$="":WEND 220 CALL &BC02:PEN 1 240 RUN 260 CALL &BC02:MODE 2:PEN 1:PAPER 0:LIST |