'Cool graphics!!!
'INPUT "Skriv in ett tal (1 - 255): ", stopp%
'IF stopp% > 255 THEN stopp% = 255
'stopp% = CINT(stopp%)
SCREEN 13
DO
start:
RANDOMIZE TIMER
stopp% = INT(RND * 255) + 2
start% = INT(RND * 255) + 2
IF start% = stopp% THEN start% = start% - 1
z% = start%
DO
PSET (x%, y%), z%
x% = x% + 1
IF x% > 320 THEN x% = 0: y% = y% + 1
IF y% > 200 THEN y% = 200
z% = z% + 1
IF z% > stopp% THEN z% = 1
LOOP UNTIL y% = 200
'SLEEP 1
CLEAR
LOOP UNTIL INKEY$ = CHR$(27)
CLS
SYSTEM