10 SCREEN 2
20 ? AT(1,1)
30 PRINT "(C) 1988-2011 HOBOT AND UKNCBTLteam"
40 LINE (0,0)-(640,264),8,B
41 LINE (16,16)-(624,244),8,B
45 PAINT (1,243),1
50 ? AT(1,2)"BASIC - 1988 VILNUS"AT(1,3)"OK"AT(1,4);
60 REM STAR SKY
70 FOR I=1 TO 250
80 X=RND(1)*640
90 Y=RND(1)*234
91 C=RND(1)*8
100 LINE (319,0)-(X,Y),8
101 LINE (319,0)-(X,Y),1
102 LINE (319,0)-(X,Y),7
103 LINE (319,0)-(X,Y),5
104 LINE (319,0)-(X,Y),1
105 PRESET (X,Y),C
110 NEXT I
3000 IF INKEY$="" THEN GOTO 3000 ELSE SCREEN 1
3010 END