mcnuggets_modern.bas

10 TI$="000000"
100 DIM P(240)
110 FOR I = 0 TO 240: P(I) = 0: NEXT
120 FOR A = 0 TO 240 STEP 4
130 FOR B = 0 TO 240 STEP 6
140 FOR C = 0 TO 240 STEP 10
150 FOR D = 0 TO 240 STEP 20
160 FOR E = 0 TO 240 STEP 40
170 T = A + B + C + D + E
180 IF T <= 240 THEN P(T) = 1
190 NEXT: NEXT: NEXT: NEXT: NEXT 
200 FOR I = 1 TO 240
210 IF P(I) = 0 THEN PRINT "LARGEST NOT POSSIBLE: ";I: GOTO 230
220 NEXT
230 PRINT "POSSIBLE VALUES UP TO 240:"
240 FOR I = 0 TO 240
250 IF P(I) = 1 THEN PRINT I;
260 NEXT
260 PRINT"TOOK"TI/60"SECONDS"
270 END