02-01-2003, 03:31 AM
Here is mine:
:barf:
Code:
'vortex (Kinda of..) Antoni Gual 2003
1 SCREEN 13
2 OUT &H3C7, 0
3 a$ = a$ + CHR$(INP(&H3C9))
4 CIRCLE (160, 290 - LEN(a$) ^ .79), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5
5 CIRCLE (160, 290 - LEN(a$) ^ .79 + 1), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5
6 IF LEN(a$) < 256 * 3 THEN 3 ELSE OUT &H3C8, 0
7 j = (j + 1) MOD (LEN(a$) - 3)
8 OUT &H3C9, ASC(MID$(a$, j + 1, 1))
9 IF LEN(INKEY$) = 0 THEN 7
Antoni