mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
1fe47c4100
Created U10 U14 U15 directories, since dome of the DOC files were quite large, and on space constrained floppies, the docs can be removed. Note: this commit also made (non impacting changes) to the fd_* files (/Apps) by adding commented lines, to highlight files that could potentially be added back
21 lines
319 B
QBasic
21 lines
319 B
QBasic
10 for y=-12 to 12
|
|
20 for x=-39 to 39
|
|
30 ca=x*0.0458
|
|
40 cb=y*0.08333
|
|
50 a=ca
|
|
60 b=cb
|
|
70 for i=0 to 15
|
|
80 t=a*a-b*b+ca
|
|
90 b=2*a*b+cb
|
|
100 a=t
|
|
110 if (a*a+b*b)>4 then goto 200
|
|
120 next i
|
|
130 print " ";
|
|
140 goto 210
|
|
200 if i>9 then i=i+7
|
|
205 print chr$(48+i);
|
|
210 next x
|
|
220 print
|
|
230 next y
|
|
999 system
|