I dare you...

[eoredson]

This can be done in S.I.C.K. but I dare the authors of Qb64pe to do this:

Displays 5 rows of 10 skipping every x

Code: (Select All)

10  for x=1 to 10 step 2
20      for y=1 to 10
30        select case y
40        case isnt=x
50            print y;
60        end select
70      next
80      print
90  next

[mnrvovrfc]

[TerryRitchie]

Do you mean this?

Code: (Select All)

FOR x = 1 TO 10 STEP 2
    FOR y = 1 TO 10
        IF y <> x THEN PRINT y;
    NEXT
    PRINT
NEXT

[eoredson]

Do you mean this?

Code: (Select All)

FOR x = 1 TO 10 STEP 2
    FOR y = 1 TO 10
        IF y <> x THEN PRINT y;
    NEXT
    PRINT
NEXT

Yes. I was just kidding.

[mnrvovrfc]

16 days after the death of Julius Caesar...

[PhilOfPerth]

16 days after the death of Julius Caesar...

I believe he died on March 15.

[eoredson]

He invented the months of June and July for some reason..

[eoredson]

Here is some more stuff I have done with S.I.C.K.

Code: (Select All)

10 X=1
20 DO UNTIL X=0
30    X=X+1
40    FOR A=1 TO 10
50      FOR B=1 TO 10
60          IF LEN(INKEY$) THEN
70            X=0
80            EXIT FOR 2
90          END IF
100        PRINT A;B;
110      NEXT
120      PRINT
130  NEXT
140 LOOP

Code: (Select All)

10 DO
20    DO
30      IF LEN(INKEY$) THEN
40          EXIT DO 2
50      END IF
60      X=X+1
70      PRINT X;
80    LOOP
90 LOOP

[SMcNeill]

Here is some more stuff I have done without S.I.C.K.

Code: (Select All)

10 X=1
20 DO UNTIL X=0
30    X=X+1
40    FOR A=1 TO 10
50      FOR B=1 TO 10
60          IF LEN(INKEY$) THEN END
70           
80           
90   
100        PRINT A;B;
110      NEXT
120      PRINT
130  NEXT
140 LOOP

Code: (Select All)

10 DO
20    DO
30      IF LEN(INKEY$) THEN END
40       
50     
60      X=X+1
70      PRINT X;
80    LOOP
90 LOOP

[eoredson]

The S.I.C.K. project can be found at:

https://staging.qb64phoenix.com/showthre...56#pid6856