代码搜索结果
找到约 10,000 项符合
L 的代码
fokker.l
# 01feb05abu
# (c) Software Lab. Alexander Burger
(=: mass 910.0) # kg
(=: power 3924.0) # N
(=: rc -1.4) # kg/m
(=: lc -250.0) # kg/m
(=: tr
env.l
# 21jan07abu
# (c) Software Lab. Alexander Burger
(model This
'(runway1 -120.0 -200.0 -0.02
(`DarkGrey NIL
+20.0 -20.0 0
+20.0 +20.0 0
-20.0 +20.0
lib.l
# 29nov04abu
# (c) Software Lab. Alexander Burger
# *Pilot *Scene *Model
# *DT *Thr *Speed *Climb *Alt
(load "simul/lib.l")
(de *DT . 0.020)
(de *Tower . 12.0)
(de start ()
(task -20 0 (simulat
main.l
# 24jul07abu
# (c) Software Lab. Alexander Burger
# *Sock *Panel *FocLen
(load "lib/term.l")
(load "rcsim/lib.l")
(de main ()
(setq
*FocLen 8000.0
*Pilot (new '(+Pilot))
*Scen
lib.l
# 12sep07abu
# (c) Software Lab. Alexander Burger
(de task (Key . Prg)
(nond
(Prg (del (assoc Key *Run) '*Run))
((num? Key) (quit "Bad Key" Key))
((assoc Key *Run)
(push
er.l
# 25jun07abu
# (c) Software Lab. Alexander Burger
### Entity/Relations ###
#
# nr nm nr nm nm
# | | | |
cusu.l
# 29dec07abu
# (c) Software Lab. Alexander Burger
(must "Customer/Supplier" Customer)
(menu
(ifn *ID
(prog
( NIL ,"Select" " " ,"Customer/Supplier")
(form 'dialog (cho
item.l
# 29dec07abu
# (c) Software Lab. Alexander Burger
(must "Item" Item)
(menu
(ifn *ID
(prog
( NIL ,"Select" " " ,"Item")
(form 'dialog (choItem T)) )
( NIL ,"I
role.l
# 21aug07abu
# (c) Software Lab. Alexander Burger
(must "Role Administration" RoleAdmin)
(menu
(ifn *ID
(prog
( NIL ,"Select" " " ,"Role")
(form 'dialog (choDlg T ,"Ro
inventory.l
# 25jun07abu
# (c) Software Lab. Alexander Burger
(must "Inventory" Report)
(menu
( NIL ,"Inventory")
(form NIL
( "-.-"
,"Number" NIL
(prog
(gui '