mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
7 lines
107 B
QBasic
7 lines
107 B
QBasic
1 KS=4!1!2!5!3!NIL
|
|
10 DEFUN LESSER(P,X)=X<P
|
|
11 KLS=LESSER~<HEAD KS
|
|
20 FOR K=1 TO 5
|
|
21 PRINT KLS(K)
|
|
22 NEXT
|