12. ()

. , , , .

a$ = CHR$(0)

sp$ = a$ + CHR$(77)

sl$ = a$ + CHR$(75)

sv$ = a$ + CHR$(72)

sn$ = a$ + CHR$(80)

SCREEN 9

x = 150: y = 300

M1: LINE (x, y)-(x + 20, y + 20), , B

M2: a$ = INKEY$

IF a$ = "" THEN GOTO M2

COLOR 0

LINE (x, y)-(x + 20, y + 20), , B

    COLOR 7


SELECT CASE a$

CASE sp$

x = x + 20: GOTO M1

CASE sl$

x = x - 20: GOTO M1

CASE sv$

y = y - 20: GOTO M1

CASE sn$

y = y + 20: GOTO M1

END SELECT

, ASCII, . Alt, Shift , ASCII. , , INKEY$, . .

M1: a$ = INKEY$: IF a$ = "" THEN GOTO M1

IF LEN(a$) = 2 THEN PRINT ASC(LEFT$(a$, 1)), ASC(MID$(a$, 2.1))

IF LEN(a$) = 1 THEN PRINT ASC(a$)

. , . 1: , $. , . , , , $ 1. , .

, . , . , .

. $. , , .

$ , , .

, . , , .

PUT GET. PUT GET, . .

SCREEN 9

DIM a%(400)

CLS

LINE (20, 20)-(40, 40), , B

GET (20, 20)-(40, 40), a%

FOR i1% = 1 TO 25

FOR i3 = 1 TO 300

i4 = SIN(i3 / 100)

NEXT i3

PUT (i1% * 10 + 20, i1% * 10 + 20), a%

NEXT i1%

, , , %. , 10 (). , i3% , , . - PUT.

% . 2020=400, 400. , , 200, . : (16 _) / 5, 16 , 5 - , . , Illegal function call ( ).

, XOR ( ), : , , , . .

SCREEN 9

DIM a%(127)

a%(0) = 9

CLS

LINE (20, 20)-(40, 40), , B

GET (20, 20)-(40, 40), a%

FOR i1% = 1 TO 25

FOR i3 = 1 TO 300

i4 = SIN(i3 / 100)

NEXT i3

PUT (i1% * 10 + 10, i1% * 10 + 10), a%

PUT (i1% * 10 + 20, i1% * 10 + 20), a%

NEXT i1%

PUT, , , , - .

(PAINT), . .

DATA 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

DATA 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

DATA 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

DATA 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0

DATA 0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0

DATA 0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0

DATA 0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0

DATA 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0

DATA 0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0

DATA 0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0

DATA 0,0,1,1,1,1,1,1,1,1,1,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0

DATA 0,1,1,1,1,1,0,1,1,1,1,1,0,0,1,1,1,0,0,1,1,1,1,1,0,1,1,1,1,1

DATA 0,1,1,1,1,1,0,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1,0,1,1,1,1,1

DATA 0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1

DATA 0,1,1,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,1,1,1

DATA 0,1,1,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,1,1,1

DATA 0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0

DATA 0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0

DATA 0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0

SCREEN 9

CLS

COLOR 8

FOR i1% = 1 TO 31

LINE (i1% * 10, 10)-(i1% * 10, 200)

NEXT i1%

FOR i1% = 1 TO 20

LINE (10, i1% * 10)-(310, i1% * 10)

NEXT i1%

FOR i1% = 1 TO 19

FOR i2% = 1 TO 30

READ a: PAINT (i2% * 10 + 2, i1% * 10 + 2), a, 8

NEXT i2%

NEXT i1%

. : DATA, , 19 30 , . READ.

19 30. , , , , 20 31 .

PAINT . , , , .

. PAINT, , , , , DATA () , (8).

, . DATA , . . , .

Dan.txt :

22, 32

.............................

..............................

.........................

.........................

.......................

.........................

.......................

...................

.............

.......

............

..........

...........

............

.............

.........

............

...............

.................

...................

....................

....................

: . , , - . , , .

SCREEN 9

CLS

COLOR 8

OPEN "dan.txt" FOR INPUT AS #1

INPUT #1, strok%, stolb%

FOR i1% = 1 TO stolb% + 1

LINE (i1% * 10, 10)-(i1% * 10, (strok% + 1) * 10)

NEXT i1%

FOR i1% = 1 TO strok% + 1

LINE (10, i1% * 10)-((stolb% + 1) * 10, i1% * 10)

NEXT i1%

FOR i1% = 1 TO strok%

INPUT #1, a$

FOR i2% = 1 TO stolb%

IF MID$(a$, i2%, 1) = "." THEN i3% = 0 ELSE i3% = 1

PAINT (i2% * 10 + 2, i1% * 10 + 2), i3%, 8

NEXT i2%

NEXT i1%

CLOSE #1

dan.txt, , . ( COLOR 8), , .

$, i2% . , i3% - 0, - 1. . .

.

1. , , , , , , , , , - , , , , , , , .

2. dan.txt .



............................

.........................

......................

...................

.................

............

...........

.......

.........

..

.........

..

.......

....

.........

........

.............

............

.................

...................

......................

.........................

............................

..........................

.......................

......................

......................

......................

......................

......................

....................

...................

........

...

......

...

........

..................

....................

......................

......................

......................

.....................

......................

.......................

..........................

................................

...............................

................................

..................................

.....................

.....................

.....................

....................

....................

....................

....................

....................

....................

....................

.....................

.....................

......................

..................................

..

....

.....

......

........

................................

................

................

................................

................................

................................

..............................

......................

.....................

...................

..................

.............

..........

..........

...............................

...............................

...............................

..

..

..............................

..............................

..............................

..........................

.....................

............................

............

.............................

....................

...............

...........

........

.........

...................

...........

...........

.............

.................

.....................

..........

...............

..............

............

...........

.........

..........

.......................

.......

.......

.......

...................

.............

.............

...................

.......

........

.......

........

.............................

........................

.....................

....................

..................

...............

............

............

............

.........

........

..........

........

........

.......

........

........

..........

.............

..................

.....................

......................

...........................

.............................

.............................

..............................

.......

.....

....

....

.......................

..........

...........

...............

...............

................

.............

............

............

............

..............

.........

.........................

.......

...........

...........

............


.

..............................

..............................

..............................

..............................

..............................

..............................

....

..

......

....................

....................

....................

....

......

..

..

..

..............................

..............................

..............................

.......................

.....................

....................

...................

...............

..............

............

.........

....

....................

.........

...........

..........

...........

..............

...........

..............

...................

...................

...............

...................

.............................

.....................

...........................

...............................

...........................

.....................

.....................

...............

............

...........................

...................

...................

.............................

.............................

.........................

......................

.....................

..................

..............

.............

.............

............

............

...........

.........

.................

...........

..........

................

................

..............

...............

.............

...............

..................

......................

............................

....................

.................

...............

..................

..................

..................

..................

...................

.................

...............

.............

...........

.........

.........

..................

...........

.................

....................

....................

....................

..........

.......

......

......

......

..

..

....

....

......

........

............

.....................

.....................

.....................

.....................

.....................

...................

.................

.................

.....................

...............

...............

.....................

.............

.............

.....................

...........

...........

.....................

.........

.........

.....................

.......

.......

.....................

.....

.....

.....................

...

...

.....................

..

..

.........

.........

.........

.........

.........

.........

....................

.........

............

...........

......

.........

........

...

.............

..

......

...

...............

...

...

....

..............

..............

...............

...............

.................

..................

...................

.........

...........

............

.............

..........

....

....

....

....

.........

.......

....

....

........

.......

......

..........

....

......

......

......

...

....

....

........

........

.........

.........

..........

..........

..........

.......

.......

...............

...............

................

...............

................

................

.............

...........

.........

.........

.........

.........

.........

.......

......

.....

....

...

..

.

.

.

...

...

.....

......

........

.........

...............

................

...............

..............

.............

............

...........

..........

..........

..........

...........

............

.............

..............

.....

.....

.....

....

....

.............

.....

............

............

............

............

..............

..............

..............

..............


....................

.....................

.....................

.....................

.....................

.....................

.................

........

......

......

.....

....

....

....

....

....

...

....

....

...

....

......

.......

.........

...........

.............

...................

.................

...........

..............

........

......

..........

....

....

..

.............

.........

....

.

.......

...

.....

.....

...........

.........

...........

.................

...................


( )

 

↙↘↙↘↙↘↙↘↙↘↙↘↙↘↙↘











. , .

, .


 
 
 
.


@MAIL.RU -