|
Program of The Week
|
Since nobody is going to my page and ia am getting lazy i have made this section the program of the monh page
REM Program Leonid Mamtchenkov
SCREEN 7
CLS
WINDOW (-100, -100)-(100, 100)
a = 10
DO
FOR s =1 to 14
FOR i = -80 to 80 step a
LINE (-80, i)-(80, -i), s
LINE (i, 80)-( -i, -80), s
IF NOT INKEY$ = "" THEN SYSTEM
NEXT i
a = a + 1
IF a> 4- then a = 10
Last Month
REM Progam By ALain Martineau
DIM First AS INTERGER
DIM Second AS INTERGER
CLS
INPUT "Enter first number";first
INPUT "Enter Second number"; Second
IF first = second THEN
PRINT "First number is equal to second"
ELSE
PRINT "First and second numbers are not equal"
END IF
END
Last Month
REM Program by Leonid Matchenkov
SCREEN 1
CLS (-100, -100) - (100, 100)
DO
FOR i = -80 to 80
CIRCLE (-80, i), 10
CIRCLE (-80, - 1), 10 , 0
CIRCLE (80, -i), 10
CIRCLE (80, -i + 1), 10, 0
CIRCLE (i, 80), 10
CIRCLE (i - 1, 80), 10, 0
CIRCLE (-i, 80), 10
CIRCLE (-i + 1, -80), 10, 0
IF NOT INKEY$ = "" THEN END
NEXT i
CLS
LOOP
Next Month a new program
|
|
|
|
