RosettaCodeData/Task/Loops-Infinite/Run-BASIC/loops-infinite-1.basic

6 lines
60 B
Plaintext

[loop] print "Spam" :goto [loop]
while 1
print "Spam"
wend