CLS
RANDOMIZE TIMER
SCREEN 12
CONST true = -1, false = 0, PI = 3.14
doneradar = false
DIM object(2000)
DIM sbase(625)
CIRCLE (13, 13), 12, 6, 0 * PI, 2 * PI, .5
PAINT (13, 13), 6, 6
LINE (13, 1)-(1, 25), 8
LINE (13, 1)-(25, 25), 8
LINE (25, 25)-(17, 17), 8
LINE (17, 17)-(1, 25), 8
PAINT (13, 13), 8, 8
GET (1, 1)-(25, 25), sbase
CLS
CIRCLE (13, 13), 3, 4
PAINT (13, 13), 4, 4
GET (1, 1)-(25, 25), object
CLS
objectcol = 320
objectrow = 240

WHILE NOT doneradar
CIRCLE (320, 240), 3, 4
'objectcol = INT(RND * 539) + 101
'objectrow = INT(RND * 379) + 1001
donerand = false
a = objectcol
B = objectrow
WHILE NOT donerand
PUT (308, 228), sbase, PSET
f = INT(RND * 4) + 1
IF f = 4 THEN
IF objectcol + 50 < 590 THEN
objectcol = objectcol + 50
donerand = true
END IF
ELSEIF f = 3 THEN
IF objectcol - 50 > 50 THEN
objectcol = objectcol - 50
donerand = true
END IF
ELSEIF f = 2 THEN
IF objectrow + 50 < 430 THEN
objectrow = objectrow + 50
donerand = true
END IF
ELSEIF f = 1 THEN
IF objectrow - 50 > 50 THEN
objectrow = objectrow - 50
donerand = true
END IF
END IF
WEND
FOR radar = 1 TO 640
'PUT (308, 228), sbase, PSET
CIRCLE (320, 240), 3, 2
LINE (320, 240)-(radar, 1), 2
IF radar = objectcol AND objectrow < 240 THEN
PUT (objectcol, objectrow), object, PSET
'SLEEP 1
PLAY "A"
FOR d = 1 TO 10000
NEXT d
CLS
END IF
LINE (320, 240)-(radar, 1), 0
NEXT radar

PUT (308, 228), sbase, PSET

FOR radar2 = 1 TO 480
'PUT (308, 228), sbase, PSET
CIRCLE (320, 240), 3, 2
LINE (320, 240)-(radar, radar2), 2
LINE (320, 240)-(radar, radar2), 0
'IF radar2 = objectrow AND objectcol > 320 THEN
'PUT (objectcol, objectrow), object, PSET
'SLEEP 1
'CLS
'END IF
NEXT radar2

PUT (308, 228), sbase, PSET

FOR radar = 640 TO 1 STEP -1
'PUT (308, 228), sbase, PSET
CIRCLE (320, 240), 3, 2
LINE (320, 240)-(radar, radar2), 2
IF radar = objectcol AND objectrow > 240 THEN
PUT (objectcol, objectrow), object, PSET
'SLEEP 1
PLAY "A"
FOR d = 1 TO 10000
NEXT d
CLS
END IF
LINE (320, 240)-(radar, radar2), 0
NEXT radar

PUT (308, 228), sbase, PSET

FOR radar2 = 480 TO 1 STEP -1
'PUT (308, 228), sbase, PSET
CIRCLE (320, 240), 3, 2
LINE (320, 240)-(radar, radar2), 2
LINE (320, 240)-(radar, radar2), 0
'IF radar2 = objectrow AND objectcol < 320 THEN
''PUT (objectcol, objectrow), object, PSET
'SLEEP 1
'CLS
'END IF
NEXT radar2
IF INKEY$ = CHR$(27) THEN
        doneradar = true
END IF
PUT (308, 228), sbase, PSET
WEND
CHAIN "c:\windows\profiles\alex\desktop\q-basi~1\gameinto"