10 A=26493:B=66:C=13:GOSUB40 20 A=291227:B=B+2:C=C+3:GOSUB40 30 END 40 I=RND(-A):FOR I=1 TO 4:PRINT CHR$(B+RND(C));:NEXT:RETURN
Obfuscated CoCo Color BASIC code is fun.
Leave a reply
10 A=26493:B=66:C=13:GOSUB40 20 A=291227:B=B+2:C=C+3:GOSUB40 30 END 40 I=RND(-A):FOR I=1 TO 4:PRINT CHR$(B+RND(C));:NEXT:RETURN