See all articles from SINCUS v3 n7

1 REM Copied and adapted from
"the PLOTTER"
2 REM "my favorite triangle"
by D.F.W.
3 REM Sept 1985 modified by P
AH, SINCUS
5 FOR a=1 TO 29
10 READ x,y,x1,y1
13 PLOT x,y: DRAW x1,y1
15 NEXT a
17 PAUSE 0: CLS
18 RESTORE 100: FOR a=1 TO 25
READ x,y,x1,y1:
25 LET x=x-25: LET y=y+20
30 PLOT x,y: DRAW x1,y1: NEXT
a
50 PRINT "my Favorite Triangle
"
100 DATA 48,88,0,-12,48,76,84,-
42
110 DATA 48,88,72,-36,48,88,84,
42
115 DATA 132,130,12,-6,144,124,
0,-6
120 DATA 144,124,-88,-34,76,90,
12,-6
130 DATA 134,34,12,8,146,40,0,8
135 DATA 132,34,0,18,120,52,0,6
150 DATA 90,88,0,-12,90,76,84,-
42
160 DATA 90,88,72,-36,90,88,42,
21
170 DATA 174,130,12,-6,186,124,
0,-6
180 DATA 174,130,-30,-15,174,10
6,-30,-15
190 DATA 186,124,-40,-20,118,90
,44,-22
200 DATA 176,34,10,5,186,39,0,8
4
210 DATA 174,34,0,72,182,52,0,4
8
220 DATA 132,84,0,24,120,90,0,1
2
230 DATA 144,78,0,10
Thanks to CCATS and the PLOTTER
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.