1 ! Hus av Magnus <8042> 1991 2 ! Programet ritar samma hus men med olika storlek 3 ! med hj{lp av vecktor grafik. 4 ! Programet {r avset f|r ABC806 med f{rgsk{rm. 9 FLOAT : EXTEND : ; CHR$(12%) 10 FGCTL BLK+RED+WHT+BLU 11 FGPOINT 0%,0%,0% : FGFILL 511%,239% 15 DEF FNHus(X,Y,P) LOCAL Q,V,W 20 FGPOINT X,Y,2 : FGFILL X+(100*P),Y+(40*P) 22 W=105 : V=41 25 Q=-5 : WHILE Q<50 30 FGPOINT X+(Q*P),Y+(V*P),1 : FGLINE X+(W*P),Y+(V*P) 32 V=V+.5 : W=W-1 33 Q=Q+1 35 WEND 40 FGPOINT X+(10*P),Y+(5*P),3 : FGFILL X+(20*P),Y+(15*P) 42 FGPOINT X+(10*P),Y+(25*P) : FGFILL X+(20*P),Y+(35*P) 44 FGPOINT X+(80*P),Y+(5*P) : FGFILL X+(90*P),Y+(15*P) 46 FGPOINT X+(80*P),Y+(25*P) : FGFILL X+(90*P),Y+(35*P) 48 FGPOINT X+(30*P),Y+(5*P) : FGFILL X+(40*P),Y+(15*P) 50 FGPOINT X+(60*P),Y+(5*P) : FGFILL X+(70*P),Y+(15*P) 52 FGPOINT X+(30*P),Y+(25*P) : FGFILL X+(40*P),Y+(35*P) 54 FGPOINT X+(60*P),Y+(25*P) : FGFILL X+(70*P),Y+(35*P) 56 FGPOINT X+(45*P),Y+(1*P),0 : FGFILL X+(55*P),Y+(15*P) 90 RETURN 0 95 FNEND 180 Y=150 : P=10 : X=10 190 FOR X=300 TO 400 STEP 30 200 Z=FNHus(X,Y,P/100) 210 Y=Y-10 : P=P+30 220 NEXT X 230 Y=150 : P=10 240 FOR X=280 TO 180 STEP -20 250 Z=FNHus(X-P,Y,P/100) 260 Y=Y-10 : P=P+30 270 NEXT X