home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8710.d64 / 2d-berge (.txt) next >
Commodore BASIC  |  1995-03-30  |  1KB  |  49 lines
  1. 10 REM ****************************
  2. 20 REM *          2D-BERGE        *
  3. 30 REM * 1987 BY STEFAN VILSMEIER *
  4. 40 REM ****************************
  5. 50 :
  6. 60 IF A=0 THEN A=1:LOAD "FRACTAL.OBJ",8,1
  7. 70 OPEN 1,8,15,"U9":CLOSE 1: REM DIESE ZEILE KANN BEI PROBLEMEN MIT DEM
  8. 80 REM FLOPPYSPEEDER WEGGELASSEN WERDEN!
  9. 90 POKE53280,0:POKE53281,0:DIMH%(128)
  10. 100 INPUT "[147]GRAD ";GR
  11. 110 W=128
  12. 120 SYS 50176,14,0:SYS 50179,1:SYS 50194:REM GRAFIK EIN
  13. 130 :
  14. 140 FOR I=1 TO GR:GOSUB 300:W=W/2:NEXT: REM 'BERG' AUFRUFEN
  15. 150 GOSUB 400:REM DARSTELLEN
  16. 160 SYS 50185,0,0,319,0,1:SYS 50185,319,0,319,199,1
  17. 170 SYS 50185,319,199,0,199,1:SYS 50185,0,199,0,0,1
  18. 180 GET A$:IF A$="" GOTO 180
  19. 190 SYS 50179,0:IF A$="S" THEN GOSUB 500: REM 'GRAFIK SPEICHERN'
  20. 200 GOTO 100: REM NEUSTART
  21. 260 :
  22. 270 :
  23. 280 REM ***************************
  24. 290 REM *       'BERG'            *
  25. 300 REM ***************************
  26. 310 :
  27. 320 BR=W*16
  28. 330 W2=W/2
  29. 340 FOR T=0 TO 127 STEP W
  30. 350 :B=(H%(T)+H%(T+W))/2
  31. 360 :H%(T+W2)=B+(RND(1)-.5)*BR
  32. 370 NEXT T
  33. 380 RETURN
  34. 390 REM ******** DARSTELLEN *******
  35. 400 FOR I=0 TO 126 STEP W
  36. 410 :X1=I*2+32:X2=(I+W)*2+32
  37. 420 :Y1=100-H%(I)/10:Y2=100-H%(I+W)/10
  38. 430 :SYS 50185,X1,Y1,X2,Y2,1
  39. 440 NEXT I
  40. 450 RETURN
  41. 460 :
  42. 470 REM ***************************
  43. 480 REM *   'GRAFIK SPEICHERN'    *
  44. 490 REM ***************************
  45. 500 :
  46. 510 INPUT "GRAFIK-NAME ";N$
  47. 520 OPEN 2,8,2,"PI."+N$+",P,W":SYS 50191:CLOSE 2
  48. 530 RETURN
  49.