| 1 | REM DISPLAY DEMO\r |
| 2 | REM\r |
| 3 | REM 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 |
| 10 | REM\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 |
| 16 | REM\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 |
| 22 | REM\r |
| 23 | V = DIS(1,802,1,1)\r |
| 24 | V = DIS(1,802,10,1)\r |
| 25 | END\r |