$ cat jupiter_lander_web.bas 
10 REM === JUPITER LANDER (WEBSERVE EDITION) ===
20 WEBSERVE PORT 9090 INTO HTTP_SERVER
30 WEBSERVE ADD "/" TO HTTP_SERVER FROM FS "vfb_client.html"
40 WEBSERVE LINK VFB TO HTTP_SERVER ON "/stream"
50 WEBSERVE LINK OMEGA TO HTTP_SERVER ON "/input" INTO "ch_input"

60 SCREEN 176, 184
70 SETGRAVITY 0.05
80 MAPGEN "CAVE", SEED 1337, WIDTH 40, ROUGHNESS 0
90 RECT 1, 20, 160, 40, 175, 2
100 SPRITE 1, "LANDER"
110 MOVE SPRITE 1, 84, 10
120 LET C = "ch_input"
130 STATE BIND "KEY" FROM C

140 PRINT ">>> ODOTETAAN PELAAJAA: Siirry selaimeen ja paina W (Kaasu)
aloittaaksesi! <<<"
150 STATE READ "KEY.W" INTO READY
160 IF READY == 1 THEN GOTO 190
170 WAIT VBLANK
180 BUFFER BLIT SCREEN
185 GOTO 150

190 LET FUEL = 100
200 REM --- GAME LOOP ---
210 STATE READ "KEY.W" INTO THRUST_UP
220 STATE READ "KEY.A" INTO THRUST_LEFT
230 STATE READ "KEY.D" INTO THRUST_RIGHT

240 IF FUEL <= 0 THEN GOTO 300
250 IF THRUST_UP == 1 THEN ADDSPEEDY 1, -0.15: LET FUEL = FUEL - 1
260 IF THRUST_LEFT == 1 THEN ADDSPEEDX 1, -0.05: LET FUEL = FUEL - 0.5
270 IF THRUST_RIGHT == 1 THEN ADDSPEEDX 1, 0.05: LET FUEL = FUEL - 0.5

300 WAIT VBLANK
310 BUFFER BLIT SCREEN
320 CHECKCOLLISION 1 INTO COL
330 IF COL == 0 THEN GOTO 200

400 REM --- END GAME ---
410 IF COL == -1 THEN PRINT ">>> RAJAHDIT KALLIOON! <<<"
420 IF COL > 1 THEN PRINT ">>> LASKEUDUIT TURVALLISESTI! <<<"
430 HALT
$