00010 PRINT TAB(30);"SLOTS"
00020 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
00030 PRINT
00040 PRINT
00050 PRINT
00060 DEF FNA(Z)=30*EXP(-Z*Z/1000)
00070 PRINT
00080 FOR X=-30 TO 30 STEP 1.5
00090 L=0
00100 Y1=5*INT(SQR(900-X*X)/5)
00110 FOR Y=Y1 TO -Y1 STEP -5
00120 Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y)
00130 IF Z<=L THEN 160
00140 L=Z
00150 PRINT TAB(Z);"*";
00160 NEXT Y
00170 PRINT
00180 NEXT X
00190 END