BASIC CHR 205.5
From Maze
10 PRINT CHR$(205.5+RND(1)); : GOTO 10
This is a one-line adaptation that uses the same method as the three-line version in the Commodore 64 User's Guide, which is from 1982 and is the earliest known published version of the program.
The C64 supports abbreviations for keywords -- "?" for "PRINT" and generally unshifted first letter shifted second letter for other keywords. It seems that you also don't have to use spaces in a BASIC pretty much anywhere.
So if you type this on a C64, you'll input the program using only 22 keystrokes (plus the return that you need at the end):
1?cH(205.5+rN(1));:gO1
(Note that "c" will appear as the uppercase letter "C" and "H" will appear as a |-like symbol. "N" will appear as /-like symbol that is output by the program.)
If you list this, the representation that is produced is 32 characters long:
1 PRINTCHR$(205.5+RND(1));:GOTO1
