Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | REM DISPLAY A TRIANGLE\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=1 TO 30\r | |
12 | Y = N/30.1\r | |
13 | W = PLY(Y)\r | |
14 | Z = 1/30.1\r | |
15 | U = PLY(Z)\r | |
16 | P = DLY(118)\r | |
17 | NEXT N\r | |
18 | REM\r | |
19 | FOR N=1 TO 29\r | |
20 | M = 30-N\r | |
21 | Y = N/30.1\r | |
22 | W = PLY(Y)\r | |
23 | Z = 1/30.1\r | |
24 | U = PLY(Z)\r | |
25 | P = DLY(118)\r | |
26 | NEXT N\r | |
27 | REM\r | |
28 | V = DIS(1,118,1,1)\r | |
29 | END\r |