Who is up for a 1K BASIC challenge?
Posted: Sun Dec 24, 2017 5:45 pm
I thought it'd be fun to post your 1K listings here - I made my bouncy scrolly text work in 1K, as follows:
A$ is used for the scrolly text string; to save byte, enter this in direct mode, like:
I have tested up to 67 characters and I'm sure more will be possible.
You will also need the S$ variable to clear the scrolly text above and below as it moves. Again, using direct mode, type:
Finally, set and X and Y variables:
When you're happy, type GOTO 9998 and we're all good.
Regards,
Shaun.
Code: Select all
3 LET Y=Y+X
4 IF NOT Y OR Y>PI+PI THEN LET X=-X
5 PRINT AT Y,NOT PI;S$;A$( TO CODE "4");S$
6 LET A$=A$(VAL "2" TO )+A$(SGN PI)
7 GOTO PI
9998 SAVE "1K"
9999 GOTO SGN PI
Code: Select all
LET A$="MERRY CHRISTMAS TO ALL WWW.SINCLAIRZXWORLD.COM FREQUENTERS :-) "
You will also need the S$ variable to clear the scrolly text above and below as it moves. Again, using direct mode, type:
Code: Select all
LET S$=" "
Code: Select all
LET Y=SGN PI
LET X=Y
Regards,
Shaun.