PRG	START
	RPUSH
;
	LAD	GR1,0
	LAD	GR2,0
LOOP	ADDA	GR2,7		;0+7,7+7,14+7,…
	CPA	GR2,=100	;7の倍数と100を比較
	JMI	LOOP		;100より小さければループ継続、100以上ならループ脱出
	LD	GR1,GR2		;100以上である、最小の7の倍数がGR1に格納される
;
	RPOP
	RET
	END