1: DECLARE SUB Jags (n1!, n2!, n3!, n4!, n5!, c1!) 2: SCREEN 12 3: CLS 4: 'COLOR , 1 5: g = -3 6: h = 20 7: Jags 0 + h, 23 - g, 5 + h, 13 - g, 10 + h, 12 8: h = 10 9: Jags 0 + h, 23 - g, 5 + h, 13 - g, 10 + h, 14 10: Jags 0, 23 - g, 5, 13 - g, 10, 4 11: PRINT "HaCKeRZ" 12: 13: SUB Jags (n1, n2, n3, n4, n5, c1) 14: LINE (n1, n2)-(n3, n4), c1 15: LINE (n3, n4)-(n5, n2), c1 16: LINE (x1, n2)-(n5, n2), c1 17: PAINT (n3, n2 - 1), c1, c1 18: '-------------------------- 19: 'LINE (0, 23)-(5, 13), 4 20: 'LINE (5, 13)-(10, 23), 4 21: 'LINE (0, 23)-(10, 23), 4 22: 'PAINT (5, 22), 4, 4 23: END SUB 24: |