; Indlæse et tal.
; Undersøge om tallet
; er et primtal.
; Udskriv 1, hvis primtal,
; ellers udskriv 0.

; konstanter
	nul=0
	en=1
; variable
	tal=0
	divisor=0
; program
	IND tal
	HENT tal
	SUB en
	GEM divisor
igen:	HENT tal
	DIV divisor
	MULT divisor
	SUB tal
	HNUL gikop
	HENT divisor
	SUB en
	GEM divisor
	SUB en
	HNUL ikkeop
	HOP igen
ikkeop:
	UD en
	STOP

gikop:	UD nul
	STOP