SCREEN 12
CIRCLE (320,240),205 '
' 0
s=VAL(MID$(TIME$,1,2))*360 +
VAL(MID$(TIME$,4,2))*60+VAL(MID$(TIME$,7,2))
ds=0
LOCATE 3, 2: PRINT ": "
FOR i = s TO s+180 ' (i )
LOCATE 2, 2: PRINT TIME$ '
LOCATE 4, 2: PRINT USING "###"; ds '
t$ = TIME$ '
g=(i*6-90) MOD 360 '
'
DRAW "c7ta-"+STR$(g)+"r200 nh30 ng30 bm320,240"
WHILE t$ = TIME$: WEND '
ds=VAL(MID$(TIME$, 1,2))*360+VAL(MID$(TIME$,4,2))*60
+VAL(MID$(TIME$, 7, 2)) - s
'
DRAW "c0ta-"+STR$(g)+"r200 nh30 ng30 bm320,240"
NEXT
. ( Home, End, PgUp, PgDn). , . Enter. , .2.10.12.
. , , . . SLEEP . , . (LEN(a$)=2), . . Enter ( 13), . , ( 80), (Y) 1 ( z$). , , ( Y 0-200, 0-300). , (DRAW z$), . 1,55 .
SCREEN 12
LINE (0, 0)-(300, 200),, B
x=10: y=100: PSET(x y) '
DO
SLEEP
a$=INKEY$ '
IF LEN(a$) = 2 THEN '
IF ASC(a$) = 13 THEN EXIT DO ' Enter
'
k = ASC(RIGHT$(a$, 1)) '
y1 = y: x1 = x '
'
IF k=80 THEN y=y+1: z$="d" '
IF k=72 THEN y=y-1: z$="u" '
IF k=75 THEN x=x-1: z$="l" '
IF k=77 THEN x=x+1: z$="r" '
|
|
|
IF k=73 THEN x=x+1: y=y-1: z$="e" '
IF k=81 THEN x=x+1: y=y+1: z$="f" '
IF k=71 THEN x=x-1: y=y-1: z$="h" '
IF k=79 THEN x=x-1: y=y+1: z$="g" '
'
IF y>0 AND y<200 AND x>0 AND x<300 THEN
DRAW z$ ' -
ELSE '
y=y1: x=x1: '
END IF
LOCATE 1,55
PRINT "X=";x;"Y=";y '
END IF
LOOP
2.11.
, , , . . . , . , , . , , . , , : , , , ( . .).
| 1 | 2 | 3 | 4 | |
| .. | 1 | |||
| .. | 2 | |||
| ... | ||||
| .. | N |
, , . KADR.DAT.
() . . . . . . , , . .
, , , , .
ü OPEN _ [FOR ] AS#_ LEN
. .
:
, :
OUTPUT ,
INPUT .
APPEND .
RANDOM - . , (RANDOM).
|
|
|
. 128 512 .
KADR.DAT:
OPEN "kadr.dat" FOR OUTPUT AS#1
( 1)
OPEN "kadr.dat" FOR APPEND AS#2 ()
OPEN "kadr.dat" FOR INPUT AS#3
OPEN "kadr.dat" FOR RANDOM AS#4
üLOC (_)
. , , . , 128.
üEOF (_)
, . .
üLOF (_)
.
üSEEK #_, __
. . . (, SEEK #4,1 #4).
üCLOSE [[#_ [,[#_]..]
. , .
. .
üINPUT #_,
. .
üWRITE #_ [,_]
.
. .
üPRINT #_, [USING ;] _[,/;]
. .
. KADR.DAT (, , ), fam$(n), ot(n), zar(n). 123, .
