Info-Grade

PROGRAMMING
PROGRAMMIN
PROGRAMMI
PROGRAMM
PROGRAM
PROGRA
PROGR
PROG
PRO
PR
P

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

5
55
555
5555
55555

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

  P
 EPA
NEPAL

CLS
S$ = "NEPAL"
r = 1
t = 10
FOR i = 3 TO 1 STEP -1
    PRINT TAB(t); MID$(S$, i, r)
    r = r + 2
    t = t - 1
NEXT i
END

123456787654321
 1234567654321
  12345654321
   123454321
    1234321
     12321
      121
       1

CLS
n# = 11111111
s = 10
FOR i = 1 TO 8
    PRINT SPACE$(s); n# * n#
    n# = n# \ 10
    s = s + 1
NEXT i
END

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15

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

1 3 5 7 9
1 3 5 7
1 3 5
1 3
1

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

9
9 7 
9 7 5
9 7 5 3 
9 7 5 3 1

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

1
1 3
1 3 5
1 3 5 7
1 3 5 7 9

CLS
FOR i = 1 TO 9 STEP 2
    FOR j = 1 TO i STEP 2
        PRINT j;
    NEXT j
    PRINT
NEXT i
ENDa

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