projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
665f85e0ec5e938140299b77fe56c41fc8aaa603
[pdp8.git]
/
sw
/
rescue
/
muenchen2013
/
files
/
krause_soft
/
parabl.ba
1
REM DISPLAY DEMO
2
REM
3
REM DEFINE LAB8/E FUNCTIONS
4
UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)
5
UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)
6
UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)
7
DIM A(342)
8
USE A
9
Z = INI(0)
10
REM
11
FOR N=-200 TO 200
12
Y = (N*N)/40001
13
X = PLY(Y)
14
W = DLY(401)
15
NEXT N
16
REM
17
FOR N=-200 TO 200
18
Y = (N*N*N+8000000)/16000010
19
X = PLY(Y)
20
W = DLY(802)
21
NEXT N
22
REM
23
V = DIS(1,802,1,1)
24
V = DIS(1,802,10,1)
25
END