00001 PRINT TAB(30);"SLOTS"
00002 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
00003 PRINT
00004 PRINT
00005 PRINT
00006 DEF FNA(Z)=30*EXP(-Z*Z/1000)
00100 PRINT
00110 FOR X=-30 TO 30 STEP 1.5
00120 L=0
00130 Y1=5*INT(SQR(900-X*X)/5)
00140 FOR Y=Y1 TO -Y1 STEP -5
00150 Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y)
00160 IF Z<=L THEN 190
00170 L=Z
00180 PRINT TAB(Z);"*";
00190 NEXT Y
00200 PRINT
00210 NEXT X
00300 END

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.