Data update

Task/Chaos-game/GW-BASIC/chaos-game.basic

@@ -0,0 +1,19 @@
+100 REM Chaos game
+110 CLS
+120 SCREEN 7    '320x200 EGA Color
+130 X = INT(RND(1) * 200)
+140 Y = INT(RND(1) * 173)
+150 FOR I=1 TO 20000
+160  V = INT(RND(1) * 3) + 1
+170  ON V GOTO 180,210,240
+180  X = X/2
+190  Y = Y/2
+200  GOTO 260
+210  X = 100 + (100-X)/2
+220  Y = 173 - (173-Y)/2
+230  GOTO 260
+240  X = 200 - (200-X)/2
+250  Y = Y/2
+260  PSET(X,Y),V
+270 NEXT I
+280 END

Task/Chaos-game/IS-BASIC/chaos-game.basic

@@ -0,0 +1,20 @@
+100 PROGRAM "ChaosGam.bas"
+110 RANDOMIZE
+120 GRAPHICS HIRES 4
+130 LET X=RND(800):LET Y=RND(600)
+140 FOR I=1 TO 20000
+150   LET VERTEX=RND(3)
+160   SELECT CASE VERTEX
+170   CASE 0
+180     LET X=X/2
+190     LET Y=Y/2
+200   CASE 1
+210     LET X=400+(400-X)/2
+220     LET Y=600-(600-Y)/2
+230   CASE 2
+240     LET X=800-(800-X)/2
+250     LET Y=Y/2
+260   END SELECT
+270   SET INK VERTEX+1
+280   PLOT X,Y
+290 NEXT

Task/Chaos-game/MSX-Basic/chaos-game.basic

@@ -0,0 +1,22 @@
+100 REM Chaos game
+110 CLS
+120 SCREEN 2
+130 X = INT(RND(1) * 256)
+140 Y = INT(RND(1) * 192)
+150 FOR I=1 TO 20000
+160  V = INT(RND(1) * 3) + 1
+170  ON V GOTO 180,220,260
+180  X = X/2
+190  Y = Y/2
+200  V = 8 'red
+210  GOTO 290
+220  X = 128 + (128-X)/2
+230  Y = 192 - (192-Y)/2
+240  V = 3 'green
+250  GOTO 290
+260  X = 256 - (256-X)/2
+270  Y = Y/2
+280  V = 7 'blue
+290  PSET(X,Y),V
+300 NEXT I
+310 END