10 ! scrollande Rymd ladskap  av Magnus <8042> 1992-02-06
20 ! Program f|r ABC806 med f{rgsk{rm-
30 INTEGER : EXTEND 
40 RANDOMIZE 
50 ; CHR$(12)
60 FGCTL BLK+BLK+BLK+WHT+BLK+BLK+BLK+BLK+GRN+CYA+RED+MAG+YEL+WHT+BLU
70 FGPOINT 0,0,2 : FGFILL 255,239
80 READ V : READ F
90 IF V=99 THEN 140
100 POKE 49152,14,7,6,V,62,F,237,121,201
110 Z=CALL(49152)
120 GOTO 80
130 DATA 1,2,2,7,4,1,5,19,6,55,99,99
140 GOSUB 360
150 ! GOSUB 304
160 L=1
170 GOTO 500
180 DEF FNBerg LOCAL Q,W,A,B,C,X,Y
190   X=254
200   W=INT(RND*20)-10
210   Q=L+W : IF Q<10 THEN 200
220   IF Q>100 THEN 200
230   L=Q
240   FGPOINT X,110+(RND*120),INT(RND*2)+2
250   A=L*.3
260   B=L*.3
270   C=L*.4
280   Y=100
290   FGPOINT X,Y,1 : FGLINE X,Y+A : Y=Y+A
300   FGPOINT X,Y,2 : FGLINE X,Y+B : Y=Y+B
310   FGPOINT X,Y,3 : FGLINE X,Y+C
320   IF X=254 THEN X=255 : GOTO 200
330   RETURN 0
340 FNEND 
350 GOTO 350
360 Y=1 : Q=10
370 FGPOINT 0,Y,1 : FGLINE 255,Y : Y=Y+Q : Q=Q-(Q*.09)
380 IF Y<105 THEN 370
390 FGPOINT 0,100,0 : FGFILL 255,239
400 FOR U=0 TO 100 : Y=INT(RND*139)+100
410   F=INT(RND*2)+2
420 X=INT(RND*255) : FGPOINT X,Y,F : NEXT U 
430 RETURN 
440 ! sol colorbaren
450 FGPOINT 234,100,6 : FGFILL 255,121
460 RESTORE 490 : FOR A=120 TO 144 : READ F
470 FGPOINT 234,A,F : FGLINE 255,A : NEXT A 
480 RETURN 
490 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
500 Y=230 : Code$=CHR$(33)+CVT%$((234-Y)*128+1)+CHR$(1,1,68,195,253,127)
510 FGPOINT 0,110,0 : FGFILL 1,239 : FGPICTURE 0,0,1
520 Z=CALL(VARPTR(Code$),(234-Y)*128)
530 POKE 65506,0
540 Z=FNBerg
550 GOTO 500