Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2024-12-21 01:29:59 +00:00
Code Issues Projects Releases Wiki Activity

Add a few more samples

Browse Source
This commit is contained in:
Joshua Bell 2020-02-09 21:08:51 -08:00
parent 18c88661ac
commit 50c9355172
3 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
index.html
View File

@ -125,6 +125,7 @@ By <a target=_blank href="mailto:inexorabletash@gmail.com">Joshua Bell</a>
<option value="sample.pretzel">&nbsp; Pretzel (Zee)</option>
<option value="sample.3dcube">&nbsp; 3D Rectangle (Tomo Wa)</option>
<option value="sample.enterprise">&nbsp; Original Series Enterprise (Gil Keidar)</option>
<option value="sample.colorrings">&nbsp; Colored Rings (Miika Oja)</option>
<option disabled>____________________________________________</option>
<option disabled>Other</option>
@ -141,6 +142,7 @@ By <a target=_blank href="mailto:inexorabletash@gmail.com">Joshua Bell</a>
<option value="sample.onelinetrain">&nbsp; One Liner Train (Chris ten Den)</option>
<option value="sample.piglatin">&nbsp; Pig Latin Translator (Gregg Buntin)</option>
<option value="sample.nuclear">&nbsp; Nuclear Power Plant (Stephen R. Berggren c/o Kevin Riggle)</option>
<option value="sample.factors">&nbsp; Prime Factors (Cristiano Trabuio)</option>
<option disabled>____________________________________________</option>
<option disabled>Traveller RPG Utilities</option>

17
samples/sample.colorrings.txt Normal file
View File

@ -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

18
samples/sample.factors.txt Normal file
View File

@ -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