%%HP: T(3)A(R)F(.);
DIR

MAND

Ö<< 
	ä ä "SAVE" äSAVE å å 
	  ä "LOAD" äLOAD å å 
	  ä "EDIT" ä Ö<< 33 MENU PICT RCL Ö->LCD 3 FREEZE Ö>> å å
	  ä "NEW" ä Ö<< DEFAULTppar 'PPAR' STO 100 'nITTR' STO 33 MENU Ö>> å å 
	  ä "ITTER" ä ITTER å å
	  ä "QUIT" ä Ö<< 0 MENU Ö>> å å
	å TMENU
Ö>>

SAVE

Ö<<
	"Enter name to save as" "" INPUT
	OBJÖ-> PICT RCL
	PPAR
	2 Ö->LIST
	SWAP STO
Ö>>

LOAD

Ö<<
	"Enter Picture to load" "" INPUT OBJÖ->
	OBJÖ-> DROP
	'PPAR' STO
	DUP PICT STO Ö->LCD
	3 FREEZE
	33 MENU
Ö>>

ITTER

Ö<<
	"Enter number of
itterations" "" INPUT OBJÖ->
	'nITTR' STO
Ö>>

Q MANDGEN

MANDGEN

Ö<< 
	X Y RÖ->C 
	nITTR ITR
	nITTR /
	IF DUP 1 == THEN
	  DROP 1
	ELSE
	  16 * 4 MOD IP X Y RÖ->C DITH?
	END
Ö>>

DEFAULTppar

ä
	(-1.5,-1) (1.5,1)
	X 0 (100,100)
	TRUTH Y
å

PPAR

ä
	(-1.5,-1) (1.5,1)
	X 0 (100,100)
	TRUTH Y
å


nITTR 50

DITH?

Ö<<
	CÖ->PX OBJÖ-> DROP
	BÖ->R SWAP BÖ->R
	Ö-> c x y
	Ö<<
		PAT c 1 + GET
		y 2 MOD 1 + GET
		x 2 MOD 1 + GET
	Ö>>
Ö>>

PAT

ä
	ä ä 0 0 å ä 0 0 å å
	ä ä 1 0 å ä 0 0 å å
	ä ä 1 0 å ä 0 1 å å
	ä ä 1 1 å ä 0 1 å å
	ä ä 1 1 å ä 1 1 å å
å

ITR

Ö<<
	0 Ö-> c itter i
	Ö<<
		c PIXON c PIXOFF
		(0,0)
		DO
		  DUP * c +
		  'i' INCR
		UNTIL itter > OVER CÖ->R * ABS 4 > OR END
		DROP
		i 1 -
	Ö>>
Ö>>

END