add test program for #23

2018-07-20 20:31:32 -07:00 · 2018-07-20 20:31:32 -07:00 · 471fdffcf5
parent 94e1fc1c6d
commit 471fdffcf5
1 changed files with 5 additions and 0 deletions
--- a/BURST.A
+++ b/BURST.A
@ -0,0 +1,5 @@
+10 HGR
+15 HCOLOR=5
+20 FOR T=0 TO 6.28 STEP 0.1
+30 HPLOT COS(T) * 50 + 50, SIN(T) * 50 + 50 TO COS(T + 3.14) * 50 + 50, SIN(T + 3.14) * 50 + 50 
+40 NEXT