Programa en QBasic realizado por Juan M. González
Screen 12
Palette 4, 63
Paint (1, 1), 11
Line (0, 400)-(640, 480), 9, BF
Line (0, 300)-(640, 315), 8, BF
For a = 290 To 300 Step 2
Line (0, a)-(640, a), 12
Next
For a = 40 To 600 Step 40
Line (a, 290)-(a, 300), 12
Next
For a = 10 To 130 Step 20
Line (a, 300)-(150, 60), 8
Next
For a = 170 To 310 Step 20
Line (a, 300)-(170, 60), 8
Next
For a = 330 To 450 Step 20
Line (a, 300)-(470, 60), 8
Next
For a = 490 To 630 Step 20
Line (a, 300)-(490, 60), 8
Next
Line (150, 50)-(170, 400), 4, BF
Line (470, 50)-(490, 400), 4, BF