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