RCBasic – Arquivos de texto

_RCBasic

RCBasic é uma linguagem de programação simples e fácil de aprender com muitas funções integradas para auxiliar no desenvolvimento de jogos 2D e aplicativos multimídia, disponível para Windows, Linux, Mac, IOS, Android, Web.

Design-time

sub escrever(arquivo$)
f = FreeFile
FileOpen(f, arquivo$, TEXT_OUTPUT)
do
	entrada$ = input$("")
	WriteLine(f, entrada$)
loop until entrada$ = ""
FileClose(f)
end sub

sub ler(arquivo$)
f = FreeFile
if FileExists(arquivo$) then
	FileOpen(f, arquivo$, TEXT_INPUT)
	do
		entrada$ = ReadLine(f)
		Print(entrada$)
		if eof(f) then
			exit do
		end if
	loop
	FileClose(f)
else
	print("File not found!")
end if
end sub

arquivo$ = input$("Nome do arquivo: ")
print("1 - Escrever")
print("2 - Ler")
escolha = val(input$("Escolha uma alternativa (1/2): "))
if escolha = 1 then
	escrever(arquivo$)
elseif escolha = 2 then
	ler(arquivo$)
else
	print("Somente 1 ou 2, por favor")
end if
print("Tecla ESC para sair")

Runtime

_{RCBasic rodando em Ubuntu, tela capturada com Peek}

Observações

Resumindo, novamente usamos o laço DO LOOP para as rotinas de escrita e de leitura:

• Escrita

f = FreeFile

FileOpen(f, nome_do_arquivo, TEXT_OUTPUT)

WriteLine(f, texto)

FileClose(f)

• Leitura

f = FreeFile

FileOpen(f, nome_do_arquivo, TEXT_INPUT)

texto = ReadLine(f)

FileClose(f)

Conclusão

É um enorme prazer revisitar as linguagens e os jogos retrô através do GNU/Linux. Embora minhas distros preferidas, o Debian e o Ubuntu, não sejam completamente livres conforme a Free Software Foundation, são alternativas bem razoáveis se comparadas àquelas das gigantes Microsoft, Apple e Google.

Uma guerra furiosa pelo futuro da sociedade está em andamento. Para a maioria, essa guerra é invisível.