Programming

' Spirals (sketches you can run in QuickBasic or QBasic) '    QBasic is within the CD-ROM of the Windows (OLDMSDOS) SCREEN 9: RANDOMIZE TIMER: e$ = "": a=170: b=70: k = 0: c = 15 DO WHILE e$ = "": e$ = INKEY$        IF k = 0 THEN n = 1 + INT(1.99 * RND)        IF k = 0 THEN           w = (n ^ 2) * 40: y = .1 * INT(n ^ 2.4)           ELSE           FOR x = 0 TO w STEP y              i = a + 127 + (10 + x / n) * COS(x)              j = b + 95 + (10 + x / n) * SIN(x)              LINE (i - 2, j)-(i + 2, j), c              LINE (i, j - 2)-(i, j + 2), c           NEXT x           w = (n ^ 2) * 40: y = .1 * INT(n ^ 2.4)        END IF        IF k = 1 THEN c = 4 ELSE c = 2 * INT(8 * RND + 1)        k = (k + 1) MOD 2: h = (h + 1) MOD 32        m = (m + 1) MOD 288        IF h = 31 THEN           a = 500 * RND: b = 300 * RND        END IF        IF m = 287 THEN CLS        IF c = 5 THEN c = 15 LOOP: SYSTEM 'IN BOOK: Desenos nel MSX. Cacildo Marques. Ed. Scipione - S. Paulo - 1989.

E-mail: [email protected]

Central Links