10 REM 'WHILE' TEST PROGRAM
20 L$ = "FIRST"
30 WHILE L$<>"LAST"
40   READ X, Y, L$
50   PRINT "X*Y =";X*Y
60 WEND
70 PRINT "WHILE PASSED TH TEST"
80 DATA 3, 20, MORE
90 DATA 16, 40, MORE
100 DATA 12, 32, LAST
999 END
