diff --git a/index.html b/index.html index db6a3c6..35877ef 100644 --- a/index.html +++ b/index.html @@ -125,6 +125,7 @@ By Joshua Bell + @@ -141,6 +142,7 @@ By Joshua Bell + diff --git a/samples/sample.colorrings.txt b/samples/sample.colorrings.txt new file mode 100644 index 0000000..08f7d88 --- /dev/null +++ b/samples/sample.colorrings.txt @@ -0,0 +1,17 @@ +210 hgr2 +212 hcolor=1 +240 A = 65 +250 B = 10 +260 R = 80 +290 for sq=80to0 step -3.14159 +292 u=360 +293 co=int(rnd(1)*7)+1 +295 if co=4 then goto 293 +296 hcolor=co +300 FOR ALPHA = 0 TO 360 step 1 +301 u=u+3.1411 +310 X1 = INT(R-sq * COS(ALPHA-u) + 0.5) +320 Y1 = INT(R+sq * SIN(ALPHA+u) - 0.5) +330 HPLOT A + X1, B + Y1 +340 NEXT ALPHA +350 next sq \ No newline at end of file diff --git a/samples/sample.factors.txt b/samples/sample.factors.txt new file mode 100644 index 0000000..f6bf899 --- /dev/null +++ b/samples/sample.factors.txt @@ -0,0 +1,18 @@ +90 home +95 print "Enter a number to find its factors!" +97 print +100 input a +110 print +120 let f=0 +140 if A/2=int(A/2) then let A=A/2: print "2x";: let f=1: goto 140 +145 let i=3 +150 let e=int(sqr(a)) + 2 +155 let f=0 +160 for n=i to e step 2 +180 if a/n=int(a/n) then print n;"x";: let a=a/n: let i=n: let n=e: let f=1 +200 next n +210 rem print a;" "; n;" "; i;" "; e;" ";f +220 if a>n and f<>0 then goto 155 +230 print a +235 print +240 goto 100 \ No newline at end of file