home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh06a.d64 / farbstatistik (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  553 b   |  21 lines
  1. 10 REM    FARBSTATISTIK
  2. 20 (null):(null)1:(null)14,0:POKE53280,0
  3. 30 :
  4. 60 (null)0:FORI=199TO0STEP-10:(null)2,I:NEXT
  5. 65 (null)199:FORI=29TO319STEP30:(null)I,198:NEXT
  6. 70 FORA=1TO10:X=-6+30*A:(null)A,0
  7. 100 Y=180
  8. 120 H=RND(1)*120
  9. 130 H=INT(H*100+.5)/100
  10. 150 GOSUB10000:(null)X,Y-1:(null)X,Y-H-1
  11. 160 (null)CX,CY,DX,DY
  12. 170 (null)3,1,1,0,8,X-5,30-(H>=1)*8-(H>=10)*8-(H>=100)*8,H
  13. 180 NEXT
  14. 9020 FORI=0TO20000:NEXT:RUN
  15. 10000 AX=X+4:BX=X-12:CX=X+12:DX=X-4:EX=BX:FX=DX:GX=CX
  16. 10010 EY=Y-4:FY=Y+4:GY=FY:AY=EY-H:BY=AY:CY=FY-H:DY=FY-H
  17. 10020 (null)AX,AY,BX,BY:(null)AX,AY,CX,CY:(null)BX,BY,DX,DY:(null)CX,CY,DX,DY
  18. 10030 (null)BX,BY,EX,EY:(null)DX,DY,FX,FY:(null)CX,CY,GX,GY:(null)EX,EY,FX,FY
  19. 10040 (null)GX,GY,FX,FY
  20. 10050 RETURN
  21.