Info-Grade

5
54
543
5432
54321

CLS
FOR i = 5 TO 1 STEP -1
    FOR j = 5 TO i STEP -1
        PRINT j;
    NEXT j
    PRINT
NEXT i
END

54321
5432
543
54
5

CLS
FOR i = 1 TO 5 STEP 1
    FOR j = 5 TO i STEP -1
        PRINT j;
    NEXT j
    PRINT
NEXT i
END

1
12
123
1234
12345

CLS
FOR i = 1 TO 5
    FOR j = 1 TO i
        PRINT j;
    NEXT j
    PRINT
NEXT i
END

12345
1234
123
12
1

CLS
FOR i = 5 TO 1 STEP -1
    FOR j = 1 TO i STEP 1
        PRINT j;
    NEXT j
    PRINT
NEXT i
END

1
22
333
4444
55555

CLS
FOR i = 1 TO 5
    FOR j = 1 TO i
        PRINT i;
    NEXT j
    PRINT
NEXT i
END

55555
4444
333
22
1

CLS
FOR i = 5 TO 1 STEP -1
    FOR j = 1 TO i STEP 1
        PRINT i;
    NEXT j
    PRINT
NEXT i
END

   

    *
   ***
  *****
 *******
*********

CLS
s$ = "*********"
t = 10
FOR i = 1 TO LEN(s$) STEP 2
    PRINT TAB(t); LEFT$(s$, i)
    t = t - 1
NEXT i
END

2
22
222
2222
22222

CLS
n = 2
FOR i = 1 TO 5
    PRINT n
    n = n * 10 + 2
NEXT i
END

1
11
111
1111
11111

CLS
n = 1
FOR i = 1 TO 5
    PRINT n
    n = n * 10 + 1
NEXT i
END

11111
1111
111
11
1

CLS
n = 11111
FOR i = 1 TO 5
    PRINT n
    n = n \ 10
NEXT i
END

R
ER
TER
UTER
PUTER
MPUTER
OMPUTER
COMPUTER

CLS
X$ = "COMPUTER"
FOR i = 1 TO LEN(X$)
    PRINT RIGHT$(X$, i)
NEXT i
END

C
CO
COM
COMP
COMPU
COMPUT
COMPUTE
COMPUTER

CLS
X$ = "COMPUTER"
FOR i = 1 TO LEN(X$)
    PRINT LEFT$(X$, i)
NEXT i
END

*
**
***
****
*****

CLS
a$ = "*****"
FOR i = 1 TO LEN(a$)
    PRINT LEFT$(a$, i)
NEXT i
END

*****
****
***
**
*

CLS
a$ = "*****"
FOR i = LEN(a$) TO 1 STEP -1
    PRINT LEFT$(a$, i)
NEXT i
END

*********
*******
*****
***
*

CLS
a$ = "*********"
FOR i = LEN(a$) TO 1 STEP -2
    PRINT LEFT$(a$, i)
NEXT i
END

*********
 *******
  *****
   ***
    *

CLS
x$ = "*********"
b = 1
t = 20
FOR i = LEN(x$) TO 1 STEP -2
    PRINT TAB(t); MID$(x$, b, i)
    b = b + 1
    t = t + 1
NEXT i
END