02-15-2003, 09:31 PM
hey i just wanted to point something out to bluekeyboard
use the "If inkey$ = "" goto 4" or what ever instead of do...loop
cuts down a line of code which you can use and makes it so you can exit 8)
use the "If inkey$ = "" goto 4" or what ever instead of do...loop
Code:
1 SCREEN 13
2 M$ = "19171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031"
4 FOR A! = 0 TO 25 STEP .01
5 FOR Y% = 0 TO 15
6 FOR X% = 0 TO 15
7 PSET (160 + COS(A!) * 50 + X%, 100 + SIN(A!) * 50 + Y%), VAL(MID$(M$, ((Y% * 2) * 16) + (X% * 2) + 1, 2))
8 NEXT X%, Y%, A!
9 If inkey$ = "" goto 4
cuts down a line of code which you can use and makes it so you can exit 8)