start tok64 d64-orQgdQ
0 REM dmz 8/1988
1 INPUT"{ct n}Tal";n:IFn<0ORn>=1e9ORn>INT(n)THENPRINT"Felaktig indata!":RUN
2 IFnTHENPRINTn"=";:FORp=2TOSQR(n)+1:IFn/p>INT(n/p)THENNEXT:PRINTn:RUN
3 IFnTHENn=n/p:PRINTp"*";:p=p-1:NEXT
stop tok64
(bastext 1.0)