1 ! Rymd ladskap  av Magnus <8042> 1990-12-05
2 ! Programet ritar en rymdlandskap p} sk{rmen.
3 ! Det fungerar nog bara p} en ABC806 + f{rgsk{rm.
9 EXTEND : INTEGER 
10 RANDOMIZE 
20 ; CHR$(12)
30 FGCTL BLK+BLK+BLK+WHT+BLK+BLK+BLK+BLK+GRN+CYA+RED+MAG+YEL+WHT+BLU
40 FGPOINT 0,0,11 : FGFILL 255,239
50 READ V : READ F
60 IF V=99 THEN 105
70 POKE 49152,14,7,6,V,62,F,237,121,201
80 Z=CALL(49152)
90 GOTO 50
100 DATA 1,2,2,7,4,1,5,19,6,55,11,18,99,99
105 GOSUB 200
106 GOSUB 304
110 L=INT(RND*100)
120 FOR X=0 TO 255
125   W=INT(RND*20)-10
126   Q=L+W : IF Q<10 THEN 125
127   IF Q>100 THEN 125
128   L=Q
150   A=L*.3
160   B=L*.3
165   C=L*.4
170   FOR Y=0 TO A : FGPOINT X,Y+100,1 : NEXT Y 
175   FOR Y=Y TO Y+B : FGPOINT X,Y+100,2 : NEXT Y 
180   FOR Y=Y TO Y+C : FGPOINT X,Y+100,3 : NEXT Y 
190 NEXT X 
195 GOTO 195
200 Y=1 : Q=10
210 FGPOINT 0,Y,1 : FGLINE 255,Y : Y=Y+Q : Q=Q-(Q*.09)
215 IF Y<105 THEN 210
220 FGPOINT 0,100,0 : FGFILL 255,239
221 FOR U=0 TO 100 : Y=INT(RND*139)+100
222   F=INT(RND*2)+2
223 X=INT(RND*255) : FGPOINT X,Y,F : NEXT U 
230 RETURN 
300 ! sol colorbaren
304 FGPOINT 0,100,6 : FGFILL 255,121
305 RESTORE 320 : FOR A=120 TO 144 : READ F
310 FGPOINT 0,A,F : FGLINE 255,A : NEXT A 
315 RETURN 
320 DATA 6,6,6,12,6,12,12,12,5,12,5,5,5,10,5,10,10,10,4,10,4,4,4,0,4