Dim integer mmb4w
Dim integer Bcl(16,160),speed=3
CONST SMAX=0.025
CONST FRICTION=0.9999
CONST ACCEL=0.005
phase
' --- Initialisierung ---
CLS
' --- Init_Graphics: Setup 320x240 Resolution, Layer-Buffer).
If MM.DEVICE$ = "MMBasic for Windows" Then mmb4w = 1
If mmb4w Then
 MODE 7
 PAGE WRITE 1
 CLS
Else
 'Pico
 MODE 2
 FRAMEBUFFER create : FRAMEBUFFER write f
End If
' 2. Z-Table
Dim integer x,y, z_dist(38)
For y = 0 To 37
 Read scal:z_dist(y)=16+(scal/4)
Next y

CLS 'clear FRAMEBUFFER
Dim float xpos=0,ypos=0,dx=0,dy=0
Dim integer hh=120,hw=160,f,n,w
Dim integer c1=RGB(0,180,0),c2=RGB(White)
Dim Integer sky=RGB(0,85,255),sky1=RGB(0,170,255),sky2=RGB(cyan)
' --- Create_Checkerboard Source
For f =0 To 288 Step 32
 Line f,hh-1,f+15,hh-1,,c1:Line f+16,hh-1,f+31,hh-1,,c2
 Line f,hh,f+15,hh,,c2:Line f+16,hh,f+31,hh,,c1
Next
Box 8,16,304,72,,sky,sky
Line 8,51,311,51,,sky1:Line 8,52,311,52,,sky2
main:
p=0
Do
 if abs(dx) < .0001 then
   dx = 0
 else
   dx = dx * FRICTION
   inc xpos,dx
 end if
 camX = xpos mod 32 : if camX < 0 then inc camX,32
 
 if abs(dy) < .0001 then
   dy = 0
 else
   dy = dy * FRICTION
   inc ypos,dy
 end if
 p = ypos mod 15 : if p < 0 then inc p,15
 
 For y = 0 To 37
   'y2 = y<<1
   'mult=y<<1
   f=z_dist(y):sy=y+53:w=200-f*2 '-y2 'w=144-mult
   If mmb4w Then
     IMAGE RESIZE_FAST f+camX,hh-Bcl(p,y+50), w,1, 8, y+53,304,1
   Else
     BLIT RESIZE f,f,f+camX,hh-Bcl(p,y+50), w,1, 8, y+53,304,1
   End If
 Next y
 ' --- Keyboard ---
 k$ = Inkey$
 Select Case k$
   Case "w", "W"
     'Inc P,speed:p=p Mod 15   ' vorwrts
     inc dy,ACCEL
     dy = min(dy, SMAX)

   Case "s", "S"
     'p=p-speed:If p<0 Then p=15
     inc dy,-ACCEL
     dy = max(dy,-SMAX)

   Case "a", "A"
     'camX = camX - speed:If camX<0 Then camX=31
     inc dx,-ACCEL
     dx = max(dx,-SMAX)

   Case "d", "D"
     'camX = camX + speed:camX = camX Mod 32
     inc dx,ACCEL
     dx = min(dx, SMAX)
     
 End Select
 If mmb4w Then
   Page copy 1,0
   'Page write 0
 Else
   FRAMEBUFFER copy f,n,b
 End If
 'pause 20
Loop
Sub phase
 'Precalculation pharse lookup table
  Local integer X,Y, SW = 120,CYCLES = 7
  Local C_VALUE = (2 * Pi * CYCLES) / (SW * SW),START_PHASE = 0,Agl
  For dst=0 To 15
    For X = 0 To 119
      Agl = C_VALUE * X * X + START_PHASE
      Y = Int(Sin(Agl)*5)
      bcl(dst,120-x)=Not(y>0)
    Next X
    Inc START_PHASE, 0.393
  Next
End Sub

Data 36, 39, 43, 46, 50, 54, 57, 61, 64, 68, 72,75, 79, 82, 86
Data 89, 93, 97, 100, 104, 107, 111, 115, 118, 122, 125, 129
Data 133, 136, 140, 143, 147, 151, 154, 158, 161, 165, 169