Cool AppleSoft Emulator

I've posted about this one before (7 years ago!) but I've been feeling nostalgic lately so I revisited it... The site is at http://www.calormen.com/Applesoft/ and is an AppleSoft Basic interpreter written in JavaScript. Joshua Bell did a great job with it. I've sent him several programs (4 recently) and he included them in his Samples list. He is a really great guy. You should try the emulator out... be sure to check my programs :)

Yawn

Tired, so tired. Not sleeping much (and haven't been for about a year). Most of it is because of work... oh well. Maybe someday it will get better (or I'll win the lottery... yah right).

So awhile ago I found this site: http://www.calormen.com/Applesoft/

Its fun to sometimes play with.

Go ahead and put this code in there:

10 TEXT : HOME : INPUT "NUMBER OF POINTS:";A: HCOLOR= 3
20 HGR : POKE -16302,0
30 FOR T1 = 0 TO (2 * 3.14) - .001 STEP ((2 * 3.14) / A)
40 FOR T2 = T1 + (2 * 3.14) / A TO (2 * 3.14) - .001 STEP (2 * 3.14) / A
50 HPLOT ( COS (T1) * 95 + 127),( SIN (T1) * 95 + 95) TO ( COS (T2) * 95 + 127),( SIN (T2) * 95 + 95)
60 NEXT
70 NEXT
80 GET A$
90 GOTO 10

or This one

10 TEXT
20 HOME
30 INPUT "Enter a number from 1 to 8:";N
40 IF N > 0 AND N < 8 THEN F = 128
50 E = 0
60 K = 4 ^ N
70 FOR X = 1 TO N
80 U = F
90 F = - E / 2
100 E = U / 2
110 NEXT
120 HGR
130 HCOLOR= 3
140 X = 80
150 Y = 70
160 HPLOT X,Y
170 FOR M = 1 TO K
180 Z = M
190 X = X + F
200 Y = Y + E
210 HPLOT TO X,Y
220 FOR A = 0 TO 1
230 Z = Z / 2
240 Q = INT (Z)
250 A = Z - Q
260 NEXT
270 A = (Q / 2 = INT (Q / 2)) * 2 - 1
280 U = F
290 F = A * E
300 E = - A * U
310 NEXT
320 GOTO 10

I sent several of my programs to the guy that wrote it so hopefully he includes them in his 'sample' list. Especially the last one I sent him... its pretty cool.