raycaster challenge

[relsoft]

16 lines...

Code:

'MiniRaycaster
'Relsoft 2003
'June 30,2003
'KEYS:
'LShift= Move Forward
'L CTRL = LEFT
'L ALT = RIGHT
'Sheesh!!! 16 lines. Pthhhh
'I got a 13 line Raycaster but I forgot its filename. ;*(

'*****NOTE: YOU HAVE TO WAIT A WHILE TO SEE THE MAP*********

1  IF I& = 0 THEN SCREEN 7, , 1, 2 ELSE DIM MAP(0 TO 21, 0 TO 25) AS INTEGER
2  IF I& < 572 THEN READ MAP(I& MOD 22, I& \ 22) ELSE PCOPY 1, 2
3  I& = I& + 1
4  IF I& AND 1 THEN Xv! = Xv! - ABS((PEEK(1047) AND 2) = 2) * ((COS((CSNG(Heading%) * ((ATN(1) * 8) / 360))) * .1) * 4) ELSE Yv! = Yv! - ABS((PEEK(1047) AND 2) = 2) * ((SIN((CSNG(Heading%) * ((ATN(1) * 8) / 360))) * .1) * 4)
5  IF I& AND 1 THEN Heading% = (Heading% - ((PEEK(1047) AND 4) = 4) * 15) MOD 360 ELSE Heading% = ((Heading% - (360 - ((PEEK(1047) AND 8) = 8) * 15)) MOD 360)
6  IF I& = 1 THEN Xv! = 1 ELSE LINE (0, 0)-(319, 199), 0, BF
7  IF I& = 2 THEN Yv! = 1 ELSE drawover% = 0
8  FOR A% = Heading% + 32 TO Heading% - 31 STEP -2
9    IF I& = 1 THEN DEF SEG = 0 ELSE Leng% = 0
10   IF I& = 2 THEN Heading% = 180 ELSE Leng% = Leng% + 1
11   IF I& > 572 THEN IF MAP(Xv! - (COS((CSNG(A%) * ((ATN(1) * 8) / 360))) * .1) * Leng%, Yv! - (SIN((CSNG(A%) * ((ATN(1) * 8) / 360))) * .1) * Leng%) = 0 THEN 10 ELSE LINE (drawover%, 100 - (900 \ Leng%))-STEP(9, (900 \ Leng%) * 2), MAP(Xv! - (COS( _
(CSNG(A%) * ((ATN(1) * 8) / 360))) * .1) * Leng%, Yv! - (SIN((CSNG(A%) * ((ATN(1) * 8) / 360))) * .1) * Leng%), BF
12   drawover% = drawover% + 10
13 NEXT A%
14 IF INKEY$ <> CHR$(27) THEN 2
DATA  3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11,11, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 12, 0, 0, 12, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0,15, 0, 0, 3,3, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 12, 0, 0, 12, 0, 0, 5, 0, 0, 0,12, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0,12, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 12, 0, 0, 12, 0, 0, 6, 0, 0, 0, 4,12, 4,12, 4,12, 0, 0, 3,3, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,3, 2,10, 2,10, 2,10, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0,11
DATA  11, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4,12, 4,12, 4,12, 0 ,0,11,11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,12, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 7, 8, 7, 8, 7, 8, 7, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 0, 0, 0,14, 0, 0, 0, 0, 0, 0,12, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 0, 0, 0,10, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0 ,0,11,11, 0, 0, 0, 0, 0,14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,15, 0 ,0,11,11, 0, 0, 0, 0, 0,14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,3, 0, 0, 0, 0, 0,10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,0,11,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3,11, 3