; pipes
;
; pr0be/laresistance 2004
;
	org $80

start	ldx #$5f
	lda #$0d
	sta $9b+2,x	; antic equ $9b
	dex
	bne *-3
	ldy #$71

loop	sta $7100,x
	adc #$08
	inx
	bne loop
	inc loop+2
	bpl loop
	sty loop+2
	bne loop

antic	dta $4d,$00,$71

	org $230
	dta <antic,>antic

; that's all folks! ;)
	run start