8 lines
130 B
Text
8 lines
130 B
Text
10 LET S$="FOO"
|
|
20 GOSUB 50
|
|
30 PRINT S$;"BAR"
|
|
40 STOP
|
|
50 FOR I=1 TO LEN S$
|
|
60 LET S$(I)=CHR$ (128+CODE S$(I))
|
|
70 NEXT I
|
|
80 RETURN
|