Revision as of 02:05, 3 April 2022 (view source) Mmphosis (talk \| contribs) m (fix BASIC header: remove 120 PRINT I" = "FA$) ← Older edit		Revision as of 02:13, 3 April 2022 (view source) Mmphosis (talk \| contribs) m (LET F$ = STR $(F) : FA$ = FA$ + " X " + F$) Newer edit →
Line 876: =={{header\|BASIC}}== ==={{header\|Applesoft BASIC}}=== <lang ApplesoftBasic> 100 FOR I = 1 TO 20 Line 885 ⟶ 886: 200 FA$ = "1" 210 LET NUM = I 220 LET X$O = "5 X- "(I = 1) * 4 230 ~~LET~~FOR OF = 52 -TO (I ~~= 1) * 4~~ 240 ~~FOR~~ F LET M = 2 TOINT I(NUM / F) * F 250 ~~LET~~IF ~~M = INT (~~NUM /- F)M *GOTO F300 260 IF LET NUM -= MNUM ~~GOTO~~/ ~~300~~F 270 LET ~~NUM~~F$ = ~~NUM~~ /STR $(F) 280 FA$ = FA$ + " X$ " + ~~STR$ (~~F)$ 290 LET F = F - 1

Count in factors: Difference between revisions

Count in factors (view source)