CLS : SCREEN 13: n% = 5: DIM SHARED val1(2 TO n%) AS INTEGER a% = 0 c% = 1 e% = 1 d% = -32768 t1# = TIMER FOR i& = 0 TO 31 i3& = i3& + e% IF i3& = 31 THEN e% = -1 ELSE IF i3& = 0 THEN e% = 1 i4& = i3& * 65536 + (i3& \ 2) * 256 + (16 - i3& \ 2) PALETTE i&, i4& PALETTE 63 - i&, i4& NEXT i& DO b% = (b% - 1) MOD 20 a% = (a% + 2) MOD 10 FOR i% = 2 TO n%: val1(i%) = 1: NEXT i%: combo& = 1 DO: IF INKEY$ <> "" THEN GOTO exitdo2 d% = d% + 1 IF d% = 1000 THEN d% = 0 e% = 1 i2& = i2& + c%: i3& = i2&: IF i2& = 30 THEN c% = -1: ELSE IF i2& = 1 THEN c% = 1 FOR i& = 0 TO 31 i3& = i3& + e% IF i3& = 31 THEN e% = -1 ELSE IF i3& = 0 THEN e% = 1 i4& = i3& * 65536 + (i3& \ 2) * 256 + (16 - i3& \ 2) PALETTE i&, i4& PALETTE 63 - i&, i4& NEXT i& END IF combo2$ = LTRIM$(STR$(combo&)) FOR i% = 1 TO LEN(combo2$) temp% = VAL(MID$(combo2$, i%, 1)) SELECT CASE i2% CASE 0: x1% = (x1% + temp%) MOD 320 y1b% = (y1b% + temp%) MOD 200 CASE 1: y1% = (y1% + temp%) MOD 200 x1b% = (x1b% + temp%) MOD 320 CASE 2: line1% = (line1% + temp%) MOD 3 CASE 3: line2% = (line2% + temp%) MOD 3 CASE 4: c1% = (c1% + temp%) MOD 64 LINE (x1% + a%, y1% + b%)-(x1% + a% + line1%, y1% + b% + line2%), c1% LINE (x1b% + b%, y1b% + a%)-(x1b% + b% + line1%, y1b% + a% + line2%), c1% END SELECT i2% = (i2% + 1) MOD 5 NEXT i% val1%(2) = val1%(2) + 1: i% = 2: combo& = combo& * val1%(2) / (val1%(2) - 1) DO IF val1%(i%) > i% THEN IF i% = n% THEN GOTO exitdo1 combo& = combo& \ val1%(i%): val1%(i%) = 1: i% = i% + 1 val1(i%) = val1(i%) + 1: combo& = combo& * val1%(i%) \ (val1%(i%) - 1) ELSE EXIT DO END IF LOOP LOOP exitdo1: __sleep 5 LOOP exitdo2: COLOR 7