;:poke56,128:clr
;:sys36864
	;.opt oo
;
; assembler - renum 18/1/1986
;
prgstart	= 43
getterm	= $b7eb
lo	= 20
temp	= 167
komma	= $aefd
step	= 169
add	= 170
	*= 32768
	ldx #1
z1010	lda prgstart,x 
	 sta temp,x
	dex 
	 bpl z1010
	jsr komma
	jsr getterm
	stx step
z1100	ldy #1 
	 lda (temp),y
	bne z1130 
	 iny 
	 lda (temp),y
	bne z1130 
	 rts
z1130	iny 
	 lda lo 
	 sta (temp),y
	iny 
	 lda lo+1 
	 sta (temp),y
z1150	iny 
	 lda (temp),y
	bne z1150 
	 lda lo 
	 clc
	adc step 
	 sta lo 
	 lda lo+1
	adc #0 
	 sta lo+1 
	 iny 
	 sty add
	lda temp 
	 clc 
	 adc add
	sta temp 
	 lda temp+1 
	 adc #0
	sta temp+1 
	 jmp z1100