Gogo Board + QBasic: Beep – III

Outra forma de executarmos o envio de dados, seria definindo uma variável e utilizando-a, sempre que necessário:

SHELL "MODE LPT1=COM1"

BEEP$ = "TþÄ^@"

OPEN "LPT1:" FOR RANDOM AS #1

PRINT #1, BEEP$

CLOSE #1

Desta forma, ficará mais fácil utilizarmos e atualizarmos o conteúdo do comando bip.

Anúncios