**Talk:**UBASIC

## Back to page

*592*pages on

this wiki

Help: talk pages, talk page guidelines

this program gives an error on line 20; also, it doesn't follow line by line while walking through the if then else portion. can someone help me? my e-mail is leavemsg1(at)gmail.com; I'm not sure if I will be able to find my way back to this forum. thanks in advance with any/all help.

10 CLS 12 INPUT N 14 IF SQRT(N) = INT(SQRT(N)) THEN 16 PRINT SQRT(N) 18 ELSE 20 D = .576129365#: E = 2 * INT(LOG(N)/LOG(10)) 22 M1 = N ^ D 24 M2 = M1 ^ EXP(1) 26 FOR I = 1 TO E 28 M3 = INT(D * I * M2) 30 FOR J = -E TO E 32 Z1 = N: Z2 = M3 + J: Z3 = 1 34 IF Z1 > Z2 THEN TMP = Z1: Z1 = Z2: Z2 = TMP 36 WHILE (Z3 <> 0) 38 Z3 = Z1 MOD Z2: Z1 = Z2: Z2 = Z3 40 WEND 42 IF Z1 > 1 AND Z1 < N THEN 44 PRINT Z1: I = E: J = E 46 END IF 48 NEXT J 50 NEXT I 52 END IF 54 GOTO 12

Bill 108.242.169.13 00:46, February 5, 2015 (UTC)

###### ======================================Edit

See http://chdk.setepontos.com/index.php?topic=12226.msg120418#msg120418

Waterwingz (talk) 01:46, February 5, 2015 (UTC)