Peano Curve (Rosetta Code task)

[AndyA]

https://rosettacode.org/wiki/Peano_curve

'==================================================
Task
Produce a graphical or ASCII-art representation of a Peano curve of at least order 3.
'==================================================

Code: QB64: [Select]

1. _Title "Peano Curve"
2. Const wide = 243 'must be a power of 3
3. Dim As Integer sw, sh
4. sw = 729: sh = sw
5. Screen _NewImage(sw, sh, 8)
6. Cls , 15: Color 0: PSet (0, 0)
7.  
8. Call Peano(0, 0, wide, 0, 0)
9.  
10. Sleep
11. System
12.  
13. Sub Peano (x As Integer, y As Integer, lg As Integer, p As Integer, q As Integer)
14.     Dim As Integer iX, iY, iL
15.     iX = x: iY = y: iL = lg
16.     If iL = 1 Then
17.         Line -(iX * 3, iY * 3)
18.         Exit Sub
19.     End If
20.     iL = iL \ 3
21.     Call Peano(iX + (2 * p * iL), iY + (2 * p * iL), iL, p, q)
22.     Call Peano(iX + ((p - q + 1) * iL), iY + ((p + q) * iL), iL, p, 1 - q)
23.     Call Peano(iX + iL, iY + iL, iL, p, 1 - q)
24.     Call Peano(iX + ((p + q) * iL), iY + ((p - q + 1) * iL), iL, 1 - p, 1 - q)
25.     Call Peano(iX + (2 * q * iL), iY + (2 * (1 - q) * iL), iL, p, q)
26.     Call Peano(iX + ((1 + q - p) * iL), iY + ((2 - p - q) * iL), iL, p, q)
27.     Call Peano(iX + (2 * (1 - p) * iL), iY + (2 * (1 - p) * iL), iL, p, q)
28.     Call Peano(iX + ((2 - p - q) * iL), iY + ((1 + q - p) * iL), iL, 1 - p, q)
29.     Call Peano(iX + (2 * (1 - q) * iL), iY + (2 * q * iL), iL, 1 - p, q)
30. End Sub