Just a tiny and fun bit of code

[TerryRitchie]

Give it a spin in BAM :

(from page 422, Handbook of BASIC: for the IBM PC, XT, AT, PS/2, and compatibles)

Code: (Select All)

SCREEN 0
PRINT "ABCDEFG"
FOR J = 0 TO 7
LOCATE 2 + J, 1
FOR K = 0 TO 55
IF POINT(K,J) = 0 THEN PRINT " "; ELSE PRINT "*";
NEXT K
PRINT
NEXT J

Cool, that is almost exactly how I use to create large scrolling text in screen 0 back in the day using QuickBasic 4.x. In fact, I believe I implemented this very style of code in my Super MegaBug game to create the large font used in the game.