FOCAL
1 program
Added 2025-10-28T16:03:12Z
Model: google/gemini-2.5-proTemp: 0.4
Evidence
Report issue
View issues
Aliases: FOCAL-69
Provenance: commit 1e433afe58 · authored 2025-10-28T17:03:12+01:00 · model google/gemini-2.5-pro
Sources mentioning this language
5 sources · pl_id:
pl/focalRelated languages
LLM-contributed programs
Lunar Lander game in FOCAL-69
Provenance: commit 1e433afe58 · authored 2025-10-28T17:03:12+01:00 · model google/gemini-2.5-pro · Temp 0.4
01.10 A "LUNAR LANDER",T,T,"COMMANDS: G=GO, S=STATUS, Q=QUIT",T
01.20 S L=100;S V=50;S F=1000;S T=0
01.30 T "ALTITUDE: ",%8.2,L," VELOCITY: ",%8.2,V," FUEL: ",%8.2,F,T
01.40 A "COMMAND? ",C;I (C-0G)1.5,2.1,1.5;I (C-0S)1.6,3.1,1.6;I (C-0Q)1.7,4.1,1.7
01.50 T "INVALID COMMAND",T;G 1.4
01.60 G 1.3
01.70 T "QUITTING",T;Q
02.10 A "BURN TIME (SEC)? ",B;I (B)2.2,2.2,2.3
02.20 S B=0
02.30 I (F-B)2.4,2.4,2.5
02.40 S B=F
02.50 S T=T+1;S F=F-B;S V=V-B*1.8;S L=L-V-.9*B;I (L)5.1,5.1,1.3
03.10 G 1.3
04.10 Q
05.10 T T,"CRASHED AT ",%8.2,V," M/S",T;I (V-10)5.2,5.2,5.3
05.20 T "PERFECT LANDING",T;Q
05.30 T "YOU BLEW IT",T;QReal programs from Software Heritage
No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)