ALpMontana
КЯaL´da TaNıMaM КuяaL´da
Yön tuşları kullanılarak daireler çizebilen program.
5 KEY OFF
10 CLS
20 X = 0: Y = 0: SIL = 1
30 SCREEN 1
40 COLOR 0, 0
50 PSET (X, Y), 1
60 IF SIL = -1 THEN PRESET (X, Y)
70 A$ = INKEY$: A$ = RIGHT$(A$, 1)
80 X = X - (A$ = CHR$(77) AND X < 319) + (A$ = CHR$(75) AND X > 0)
90 Y = Y - (A$ = CHR$(80) AND Y < 199) + (A$ = CHR$(72) AND Y > 0)
100 IF A$ = CHR$(27) THEN SIL = -1 * SIL
105 IF A$ = "D" OR A$ = "d" THEN 120
110 GOTO 50
120 LOCATE 25, 1: INPUT ; "Yari Cap:", R
130 LOCATE 25, 1: PRINT STRING$(30, 32)
140 CIRCLE (X, Y), R, 1
150 GOTO 50
5 KEY OFF
10 CLS
20 X = 0: Y = 0: SIL = 1
30 SCREEN 1
40 COLOR 0, 0
50 PSET (X, Y), 1
60 IF SIL = -1 THEN PRESET (X, Y)
70 A$ = INKEY$: A$ = RIGHT$(A$, 1)
80 X = X - (A$ = CHR$(77) AND X < 319) + (A$ = CHR$(75) AND X > 0)
90 Y = Y - (A$ = CHR$(80) AND Y < 199) + (A$ = CHR$(72) AND Y > 0)
100 IF A$ = CHR$(27) THEN SIL = -1 * SIL
105 IF A$ = "D" OR A$ = "d" THEN 120
110 GOTO 50
120 LOCATE 25, 1: INPUT ; "Yari Cap:", R
130 LOCATE 25, 1: PRINT STRING$(30, 32)
140 CIRCLE (X, Y), R, 1
150 GOTO 50
