mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
8 lines
139 B
QBasic
8 lines
139 B
QBasic
1 OPTIONDEBUG 1:OPTIONTRACE 1
|
|
10 DEFUN APPLY(F,X)=F(X)
|
|
20 DEFUN FUN(X)=X^2
|
|
30 K=APPLY(FUN,42)
|
|
100 PRINT K
|
|
110 PRINT TYPEOF K
|
|
120 RESOLVE K
|