' Disegno di rettangoli riempiti con "motivo"
DECLARE SUB motivo (a!, b!, x!())
' Disegno di rettangoli riempiti con "motivo"
FOR i = 0 TO 7: FOR j = 0 TO 7: READ x(i, j): NEXT: NEXT
FOR i = 0 TO 7: FOR j = 0 TO 7: READ y(i, j): NEXT: NEXT
PRINT
INPUT "motivo 1 o 2"; motiv
PRINT "volte per cui ripetere il motivo in verticale (M) e in orizzontale (N)"
PRINT " (prova 3,9)"
INPUT "m, n "; m, n
CLS
COLOR 15
FOR i = 0 TO m - 1: FOR j = 0 TO n - 1
IF motiv = 1 THEN
   CALL motivo(1 + i * 8, 1 + j * 8, x())
   ELSE
   CALL motivo(1 + i * 8, 1 + j * 8, y())
END IF
NEXT: NEXT
' definizione del "motivo 1"
DATA 1,0,0,0,1,0,0,0
DATA 0,1,0,0,0,1,0,0
DATA 0,0,1,0,0,0,1,0
DATA 0,0,0,1,0,0,0,1
DATA 1,0,0,0,1,0,0,0
DATA 0,1,0,0,0,1,0,0
DATA 0,0,1,0,0,0,1,0
DATA 0,0,0,1,0,0,0,1
' definizione del "motivo 2"
DATA 1,1,1,0,0,0,0,1
DATA 0,1,0,0,0,0,1,0
DATA 0,0,1,0,0,1,0,0
DATA 0,0,0,1,1,1,1,0
DATA 0,0,0,0,1,1,1,1
DATA 1,0,0,0,0,1,0,0
DATA 0,1,0,0,1,0,0,0
DATA 1,1,1,1,0,0,0,0

SUB motivo (a, b, x())
FOR i = 0 TO 7: FOR j = 0 TO 7
   IF x(i, j) = 0 THEN LOCATE a + i, b + j: PRINT "#"
NEXT: NEXT
END SUB