13 lines
278 B
Text
13 lines
278 B
Text
100 DEF PROC printAll DATA
|
|
110 DO UNTIL ITEM()=0
|
|
120 IF ITEM()=1 THEN
|
|
READ a$
|
|
PRINT a$
|
|
130 ELSE
|
|
READ num
|
|
PRINT num
|
|
140 LOOP
|
|
150 END PROC
|
|
|
|
200 printAll 3.1415, 1.4142, 2.71828
|
|
210 printAll "Mary", "had", "a", "little", "lamb",
|