13 primitive noshow

noshow

35 primitive arguments
5 primitive immediate

1 primitive literal 1 arguments
2 primitive jmp 1 arguments
3 primitive jz  1 arguments

4 primitive sin
6 primitive atn
7 primitive exp
8 primitive +
9 primitive -
10 primitive *
11 primitive /
12 primitive show
14 primitive text
15 primitive graphics
16 primitive point
17 primitive line
18 primitive drop
19 primitive list
20 primitive variable
21 primitive constant
22 primitive save
23 primitive load
24 primitive quit
25 primitive ln
26 primitive !
27 primitive @
28 primitive .
29 primitive key
30 primitive emit
31 primitive : immediate
32 primitive ; immediate
33 primitive forget
34 primitive swap
36 primitive =
37 primitive allot
38 primitive dup
39 primitive clr
40 primitive repeat immediate
40 primitive here
41 primitive until immediate
42 primitive PointMode
43 primitive <
44 primitive <=
45 primitive if immediate
46 primitive endif immediate
47 primitive offset
48 primitive version
49 primitive else immediate
50 primitive update

3.1415926536 constant pi
pi 2 / constant pi/2

: cos
  pi/2 + sin ;

: tan
  dup sin swap cos / ;

: chs
  0 swap - ;

: inv
  1 swap / ;

: ^
  swap ln * exp ;

: sqrt
  0.5 ^ ;

: sqr
  dup * ;

: log
  ln 10 ln / ;

: asn
  dup sqr 1 swap - / atn ;

: acs
  asn pi/2 swap - ;

: array
  here
  swap offset allot
  constant ;

: []
  offset + ;

: not
  0 = ;

: >
  <= not ;

: >=
  < not ;

: <>
  = not ;

: initialize
  noshow text version ;

save std
quit
