I dare you...

[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