Smiley Demo

Another smiley code from menno. Programmed for QBASIC but tiny modifications, it works fine with FreeBASIC too.

'this is public domain
'mennonite / 2006
SCREEN 13
COLOR 15:
q$ = "\:)": b$ = "/:)"
DO
SWAP q$, b$
LOCATE 1, 1: PRINT q$
FOR y = 0 TO 7
FOR x = 0 TO 23
n = POINT(x, y)
LOCATE y + 4, x + 4: IF n = 15 THEN PRINT CHR$(219); ELSE PRINT SPACE$(1);
NEXT x
NEXT y: SLEEP 1
LOOP UNTIL INKEY$ = CHR$(27)
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.