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