RosettaCodeData/Task/Terminal-control-Inverse-video/BASIC/terminal-control-inverse-video-9.basic

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
Family Day update 2020-02-17 23:21:07 -08:00			`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`