projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Add README.md
[pdp8.git]
/
sw
/
rescue
/
muenchen2013
/
files
/
krause_soft
/
triang.ba
1
REM DISPLAY A TRIANGLE
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=1 TO 30
12
Y = N/30.1
13
W = PLY(Y)
14
Z = 1/30.1
15
U = PLY(Z)
16
P = DLY(118)
17
NEXT N
18
REM
19
FOR N=1 TO 29
20
M = 30-N
21
Y = N/30.1
22
W = PLY(Y)
23
Z = 1/30.1
24
U = PLY(Z)
25
P = DLY(118)
26
NEXT N
27
REM
28
V = DIS(1,118,1,1)
29
END