;:sys36864
	;.opt oo
	*= $c000
cint	=65409
clall	=$ffe7
vic	=$d000
tmp	=2
print	=$ffd2
return	=$aad7
	jmp anfg
title	.byte "\x93\x08\x8e\x05\x12\x180 the ultimate decompiler\x18\x10} \x18\x19\xa3\x18\x0a"
	.byte " nikolaus heusler, (c) nh-190889-arr\x18+ \x1a\x91\xb4\x1a\x03"
strout	tax
	lda tmp
	pha
	lda tmp+1
	pha
	stx tmp
	sty tmp+1
letout	ldy #0
	lda (tmp),y
	beq endtxt
	cmp #"\x03"
	bne wtrtxt
endtxt	pla
	sta tmp+1
	pla
	sta tmp
	rts
wtrtxt	cmp #"\x1a"
	bne noret
	lda #13
noret	cmp #"\x18"
	beq rept
	jsr print
	inc tmp
	bne letout
	inc tmp+1
	bne letout
rept	iny
	lda (tmp),y
	tax
	iny
	lda (tmp),y
repp	jsr print
	dex
	bne repp
	lda tmp
	clc
	adc #3
	sta tmp
	bcc letout
	inc tmp+1
noi1	bne letout
anfg	jsr cint
	jsr clall
	lda #0
	sta vic+32
	lda #6
	sta vic+33
	lda #<title
	ldy #>title
	jsr strout
	ldx #18
frame	lda #"\xa5"
	jsr print
	lda #"\x9d"
	jsr print
	jsr print
	lda #"\xaa"
	jsr print
	jsr return
	dex
	bne frame
	lda #"L"
	jsr print
	ldx #38
	lda #"\xaf"
frame2	jsr print
	dex
	bne frame2
	lda #1
	sta 56295
	lda #122
	sta 2023
	lda #"\x91"
	jsr print
	lda #"\xaa"
	jsr print
	lda #"\x91"
	jsr print
	jsr print
	jsr print
	jsr return
	lda #"O"
	jsr print
	ldx #38
	lda #"\xb7"
frame3	jsr print
	dex
	bne frame3
	lda #"P"
	jsr print
j	jmp j