DIM SHARED poosas(100)\r
DIM SHARED aken(100)\r
DIM SHARED vedru(50)\r
-DIM SHARED intro(6000)\r
+DIM SHARED IntroScreen(6000)\r
DIM SHARED TreeSprite(3000)\r
DIM SHARED noolt(51)\r
DIM SHARED noolt1(51)\r
GET (1, 1)-(21, 31), DoorSprite\r
CLS\r
DrawSprite 0, 0, 17, 1, 2\r
-GET (1, 1)-(11, 16), intro\r
+GET (1, 1)-(11, 16), IntroScreen\r
CLS\r
GOTO 7\r
DrawSprite -1, -1, 10, 4, 1\r
-GET (1, 1)-(318, 124), intro\r
+GET (1, 1)-(318, 124), IntroScreen\r
CLS\r
SLEEP 1\r
-PUT (1, 1), intro, PSET\r
+PUT (1, 1), IntroScreen, PSET\r
SLEEP 100\r
7\r
LoadLevel 1\r