CLS
10 LET a = a + 1
IF a = 5000 THEN GOTO 50
GOTO 10
50 SCREEN 1
COLOR 15, 0
SLEEP 3
PRINT "ROMVESENER"
SLEEP 1
PRINT "har landet."
SLEEP 1
PRINT "Avbryt med ESC."
DO
SOUND 500, .3
SOUND 490, .3
SOUND 480, .3
SOUND 470, .3
SOUND 460, .3
SOUND 450, .3
SOUND 460, .3
SOUND 470, .3
SOUND 480, .3
SOUND 490, .3
LOOP UNTIL INKEY$ = CHR$(27)