10 ! STARSCRL.BAC
20 ! 
30 ! STJ[RSCR.BAC
40 ! Program av Magnus <8042> 1991
50 ! 
60 ! [ndrat till "GWHT" etc f|r att kunna fungera {ven med monokrom
70 ! sk{rm ({ven om det inte blir lika snyggt...),
80 ! Namnbyte till "STARSCRL"  <7759>
90 ! 
100 INTEGER : NO EXTEND : RANDOMIZE 
110 FGCTL BLK+GWHT+GRED+GYEL
120 FGPOINT 0,0,0 : FGFILL 511,239
130 ; CHR$(12)
140 INPUT "Hur m}nga stj{rnor ";A
150 ; CHR$(12)
160 DIM X(A)
170 DIM Y(A)
180 DIM Y1(A)
190 DIM H(A)
200 DIM F(A)
210 FOR Q=0 TO A
220   S=INT(RND*200)
230   Y(Q)=S : X(Q)=INT(RND*511)
240   Y1(Q)=S
250   F(Q)=INT(RND*3)+1
260   H(Q)=((INT(RND*50))/10)+.1
270 NEXT Q 
280 FOR Q=0 TO A
290   Y1(Q)=Y(Q)
300   Y(Q)=Y(Q)+H(Q)
310   IF Y(Q)>230 THEN GOSUB 350
320   FGPOINT X(Q),Y1(Q),0 : FGPOINT X(Q),Y(Q),F(Q)
330 NEXT Q 
340 GOTO 280
350 Y(Q)=1 : H(Q)=((INT(RND*50))/10)+.1
360 FGPOINT X(Q),Y1(Q),0 : X(Q)=INT(RND*511)
370 RETURN