VAR I%, J%, FRUIT$, MAXNUM% PRINT "FAVORITE NUMBERS:" RESTORE @FAV_NUMS READ MAXNUM% FOR I% = 0 TO MAXNUM% - 1 READ J% PRINT J% NEXT I% PRINT "FAVORITE FRUITS:" RESTORE @FAV_FRUIT READ MAXNUM% FOR I% = 0 TO MAXNUM% - 1 READ FRUIT$ PRINT FRUIT$ NEXT I%