disk1% = 80
disk2% = 80
SCREEN 13
'bl† fyrkant
LINE (disk1% - 1, disk2% - 1)-(disk1% + 41, disk2% + 41), 1, B
LINE (disk1%, disk2%)-(disk1% + 40, disk2% + 40), 9, BF

'''''''''''''
'diverse streck
LINE (disk1% + 7, disk2%)-(disk1% + 7, disk2% + 18), 1
LINE (disk1% + 7, disk2% + 18)-(disk1% + 32, disk2% + 18), 1
LINE (disk1% + 32, disk2% + 18)-(disk1% + 32, disk2%), 1
''''''''''''''''''''''''''''''
'metallskyddet
PAINT (disk1% + 25, disk2% + 15), 7, 1
LINE (disk1% + 28, disk2% + 3)-(disk1% + 23, disk2% + 15), 9, BF
LINE (disk1% + 28, disk2% + 3)-(disk1% + 23, disk2% + 15), 1, B
''''''''''''''''''''''''''''''

LINE (disk1% + 2, disk2% + 37)-(disk1% + 4, disk2% + 35), 0, BF
LINE (disk1% + 38, disk2% + 37)-(disk1% + 36, disk2% + 35), 0, BF
LINE (disk1% + 6, disk2% + 41)-(disk1% + 34, disk2% + 22), 1, B
PAINT (disk1% + 10, disk2% + 30), 15, 1
FOR streck% = disk2% + 25 TO disk2% + 38 STEP 4
LINE (disk1% + 7, streck%)-(disk1% + 33, streck%), 7
NEXT streck%