ORG	$C000		; geymum stafinn í minnishólfið $C000-$C008
s1	FCC	'  **** '	;C000
	FCC	' *    *'
	FCC	'*      '
	FCC	' *     '
	FCC	'  ***  '
	FCC	'     * '
	FCC	'      *'
	FCC	'*    * '
	FCC	' ****  '
s2	FCC	'  ***  '	;C009
	FCC	' *   * '
	FCC	'*     *'
	FCC	'*     *'
	FCC	'*     *'
	FCC	'*     *'
	FCC	'*     *'
	FCC	' *   * '
	FCC	'  ***  '
s3	FCC	'*     *'	;C012
	FCC	'**   **'
	FCC	'* * * *'
	FCC	'*  *  *'
	FCC	'*     *'
	FCC	'*     *'
	FCC	'*     *'
	FCC	'*     *'
	FCC	'*     *'
s4	FCC	'   *   '	;C01B
	FCC	'  **   '
	FCC	' * *   '
	FCC	'*  *   '
	FCC	'   *   '
	FCC	'   *   '
	FCC	'   *   '
	FCC	'   *   '
	FCC	'*******'	;C023

	ORG	$C100		; geymum forritið sjálft í $C100

main	JSR	$FFCD		; fáum inn staf
	STAA	0,X		; geymum hann í A
	CMPA	#$53		; stafurinn S
	BEQ	stafur1
	CMPA	#$4f		; stafurinn O
	BEQ	stafur2
	CMPA	#$4d		; stafurinn M
	BEQ	stafur3
	CMPA	#$31		; stafurinn 1
	BEQ	stafur4
	BNE	main
	SWI

stafur1	LDX	#s1		; stafur er í þessu minnishólfi
	JSR	output
	BRA	main
stafur2 LDX	#s2		; stafur er í þessu minnishólfi
	JSR	output
	BRA	main
stafur3 LDX	#s3		; stafur er í þessu minnishólfi
	JSR	output
	BRA	main
stafur4 LDX	#s4		; stafur er í þessu minnishólfi
	JSR	output
	BRA	main
	
output	ldab	#$0007		; dálka teljari
	ldy 	#$0009		; línu teljari
	jsr	$ffc4
loop	ldaa	0,x		; minnishólfið sem stafurinn er geymdur í hlaðið í A
	jsr	$ffb8		; birta staf í A
	inx			; hækka minnishólfsteljara
	decb			; minnka dálkateljara
	bne	loop		; ef b!=0 þá fara aftur í lykkju
	jsr	$ffc4		; birta 'enter'
	ldab	#$0007		; upphafsstilla dálkateljara
	dey			; minnka línuteljara
	bne	loop		; ef y!=0 þá fara aftur í lykkju
	rts