0010 limit#:=100
0020 DIM nugget#(0:limit#)
0030 FOR a#:=0 TO limit# STEP 6 DO
0040   FOR b#:=a# TO limit# STEP 9 DO
0050     FOR c#:=b# TO limit# STEP 20 DO nugget#(c#):=TRUE
0060   ENDFOR b#
0070 ENDFOR a#
0080 FOR i#:=limit# TO 0 STEP -1 DO
0090   IF NOT nugget#(i#) THEN
0100     PRINT "Maximum non-McNuggets number: ",i#
0110     END
0120   ENDIF
0130 ENDFOR i#